home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / error.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  1.8 KB  |  49 lines
  1.         SUBROUTINE      ERROR(J,NSET)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     ERROR                                   /
  5. C/      Date-written.   Jan. 16th 1984                          /
  6. C/      File-name.      ERROR.FOR ver2.0                        /
  7. C/      Remarks.        Subroutine ERROR.FOR page 93.           /
  8. C/                      Subroutine ERROR is called when an e    /
  9. C/                      error is detected in any GASP subroutine/
  10. C/                      except PRNTQ, SUMRY, and MONTR, all of  /
  11. C/                      which print their own message.          /
  12. C/                                                              /
  13. C////////////////////////////////////////////////////////////////
  14. C
  15. C    * Default size of INTEGER = 2 bytes in F80
  16. C       
  17.         INTEGER*4       NSET(6,1)
  18. C
  19.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  20.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  21.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  22. C
  23.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  24.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  25.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  26.      3         NDAY,NYR,JCLR
  27. C
  28.         WRITE(NPRNT,100) J
  29.   100     FORMAT(///26X,'Error exit, Type',I3,' Error.')
  30.         JEVNT = 101
  31. C
  32. C       --- Print filing array NSET
  33. C
  34.         CALL    MONTR(NSET)
  35.         WRITE(NPRNT,101)
  36.   101     FORMAT(1H0,31X,'Sceduled events'//)
  37. C
  38. C       --- Print next event file
  39. C
  40.         CALL    PRNTQ(1,NSET)
  41. C
  42. C       --- Print summary report up to present
  43. C
  44.         CALL    SUMRY(NSET)
  45.         IF (JEVNT - 101) 5,6,5
  46.     5   RETURN
  47.     6   CALL    EXIT
  48.         END
  49.