home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / montr.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  2.1 KB  |  51 lines
  1.         SUBROUTINE      MONTR( NSET )
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     MONTR                                   /
  5. C/      Date-written.   16th,Jan,1984                           /
  6. C/      File-name.      MONTR.FOR                               /
  7. C/      Remarks.        Subroutine MONTR.FOR page 87.           /
  8. C/                      The monitoring of events as they        /
  9. C/                      occur.                                  /
  10. C/                                                              /
  11. C////////////////////////////////////////////////////////////////
  12. C       //FOR
  13. C       *ONE WORD INTEGER
  14. C       *LIST SOURCE PROGRAM
  15.         INTEGER*4       NSET( 6,1 )
  16.         COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  17.      $  NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TNOW,
  18.      $  TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  19.         COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  20.      $  MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),QTIME(4),
  21.      $  SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,JCLR
  22. C
  23. C       --- IF JEVNT .GE. 101   Print NSET
  24. C
  25.         IF (JEVNT - 101) 9,7,9
  26. 7       WRITE( NPRNT,100 ) TNOW
  27.         DO 1000 I=1,ID
  28. 100     FORMAT(1H0,10X,'** GASP Job Storage area dump at',F10.4,
  29.      $  2X,'Time units **'// )
  30. 1000    WRITE( NPRNT,101 ) I,( NSET(J,I),J=1,MXX )
  31. 101     FORMAT(I5,12I9)
  32.         RETURN
  33. 9       IF ( MFE(1) ) 3,6,1
  34. C
  35. C       --- IF JMNIT = 1 Print TNOQ, Current event code, and all
  36. C           attributes of the next event.
  37. C
  38. 1       IF ( JMNIT - 1 ) 5,4,3
  39. 3       WRITE( NPRNT,199 )
  40. 199     FORMAT(///26X,' Error Exit, type 99 error.' )
  41.         CALL    EXIT
  42. 4       MMFE = MFE(1)
  43.         WRITE( NPRNT,103 ) TNOW,ATRIB(2),(NSET(I,MMFE),I=1,MXX )
  44. 103     FORMAT(/10X,'Current event.... Time =',F8.2,5X,'Event =',F7.2,
  45.      $  /10X,'Next event.......',/(10X,12I9)// )
  46. 5       RETURN
  47. 6       WRITE( NPRNT,104 ) TNOW
  48. 104     FORMAT(10X,' File 1 is empty at',F10.2 )
  49.         GO TO 5
  50.         END
  51.