ungrib/src/ngl/w3/w3tagb.f

   1        SUBROUTINE W3TAGB(PROG,KYR,JD,LF,ORG)
   2 C$$$   SUBPROGRAM DOCUMENTATION BLOCK
   3 C
   4 C SUBPROGRAM: W3TAGB        OPERATIONAL JOB IDENTIFIER
   5 C   PRGMMR: FARLEY          ORG: NP11          DATE: 1998-03-17
   6 C
   7 C ABSTRACT: PRINTS IDENTIFYING INFORMATION FOR OPERATIONAL
   8 C   codes. CALLED AT THE BEGINNING OF A code, W3TAGB PRINTS
   9 C   THE program NAME, THE YEAR AND JULIAN DAY OF ITS
  10 C   COMPILATION, AND THE RESPONSIBLE ORGANIZATION. ON A 2ND
  11 C   LINE IT PRINTS THE STARTING DATE-TIME. CALLED AT THE
  12 C   END OF A JOB, entry routine, W3TAGE PRINTS A LINE WITH THE
  13 C   ENDING DATE-TIME AND A 2ND LINE STATING THE program name
  14 C   AND THAT IT HAS ENDED.
  15 C
  16 C PROGRAM HISTORY LOG:
  17 C   85-10-29  J.NEWELL
  18 C   89-10-20  R.E.JONES   CONVERT TO CRAY CFT77 FORTRAN
  19 C   91-03-01  R.E.JONES   ADD MACHINE NAME TO ENDING LINE
  20 C   92-12-02  R.E.JONES   ADD START-ENDING TIME-DATE
  21 C   93-11-16  R.E.JONES   ADD DAY OF YEAR, DAY OF WEEK, AND JULIAN DAY
  22 C                         NUMBER.
  23 C   97-12-24  M.FARLEY    PRINT STATEMENTS MODIFIED FOR 4-DIGIT YR
  24 C   98-03-17  M.FARLEY    REPLACED DATIMX WITH CALLS TO W3LOCDAT/W3DOXDAT
  25 C   99-01-29  B. VUONG    CONVERTED TO IBM RS/6000 SP
  26 C
  27 C   99-06-17  A. Spruill  ADJUSTED THE SIZE OF PROGRAM NAME TO ACCOMMODATE
  28 C                         THE 20 CHARACTER NAME CONVENTION ON THE IBM SP.
  29 C 1999-08-24  Gilbert     added call to START() in W3TAGB and a call
  30 C                         to SUMMARY() in W3TAGE to print out a
  31 C                         resource summary list for the program using
  32 C                         W3TAGs.
  33 C
  34 C USAGE:  CALL W3TAGB(PROG, KYR, JD, LF, ORG)
  35 C         CALL W3TAGE(PROG)
  36 C
  37 C   INPUT VARIABLES:
  38 C     NAMES  INTERFACE DESCRIPTION OF VARIABLES AND TYPES
  39 C     ------ --------- -----------------------------------------------
  40 C     PROG   ARG LIST  PROGRAM NAME   CHARACTER*1
  41 C     KYR    ARG LIST  YEAR OF COMPILATION   INTEGER
  42 C     JD     ARG LIST  JULIAN DAY OF COMPILATION   INTEGER
  43 C     LF     ARG LIST  HUNDRETHS OF JULIAN DAY OF COMPILATION
  44 C                      INTEGER     (RANGE IS 0 TO 99 INCLUSIVE)
  45 C     ORG    ARG LIST  ORGANIZATION CODE (SUCH AS WD42)
  46 C                      CHARACTER*1
  47 C
  48 C   OUTPUT VARIABLES:
  49 C     NAMES  INTERFACE DESCRIPTION OF VARIABLES AND TYPES
  50 C     ----------------------------------------------------------------
  51 C     DDATE  PRINT     YEAR AND JULIAN DAY (NEAREST HUNDRETH)
  52 C            FILE      OF COMPILATION  REAL
  53 C
  54 C   SUBPROGRAMS CALLED: CLOCK, DATE
  55 C
  56 C   REMARKS: FULL WORD USED IN ORDER TO HAVE AT LEAST
  57 C            SEVEN DECIMAL DIGITS ACCURACY FOR VALUE OF DDATE.
  58 C            SUBPROGRAM CLOCK AND DATE MAY DIFFER FOR EACH TYPE
  59 C            COMPUTER. YOU MAY HAVE TO CHANGE THEM FOR ANOTHER
  60 C            TYPE OF COMPUTER.
  61 C
  62 C ATTRIBUTES:
  63 C   LANGUAGE: FORTRAN 90
  64 C
  65 C$$$
  66 C
  67          CHARACTER *(*) PROG,ORG
  68          CHARACTER * 3 JMON(12)
  69          CHARACTER * 3 DAYW(7)
  70 C
  71          INTEGER       IDAT(8), JDOW, JDOY, JDAY
  72 C
  73          SAVE
  74 C
  75          DATA  DAYW/'SUN','MON','TUE','WEN','THU','FRI','SAT'/
  76          DATA  JMON  /'JAN','FEB','MAR','APR','MAY','JUN',
  77      &                'JUL','AUG','SEP','OCT','NOV','DEC'/
  78 C
  79          CALL START()
  80
  81          DYR   = KYR
  82          DYR   = 1.0E+03 * DYR
  83          DJD   = JD
  84          DLF   = LF
  85          DLF   = 1.0E-02 * DLF
  86          DDATE = DYR + DJD + DLF
  87          PRINT 600
  88   600    FORMAT(//,10('* . * . '))
  89          PRINT 601, PROG, DDATE, ORG
  90   601    FORMAT(5X,'PROGRAM ',A,' HAS BEGUN. COMPILED ',F10.2,
  91      &   5X, 'ORG: ',A)
  92 C
  93          CALL W3LOCDAT(IDAT)
  94          CALL W3DOXDAT(IDAT,JDOW,JDOY,JDAY)
  95          PRINT 602, JMON(IDAT(2)),IDAT(3),IDAT(1),IDAT(5),IDAT(6),
  96      &   IDAT(7),IDAT(8),JDOY,DAYW(JDOW),JDAY
  97   602    FORMAT(5X,'STARTING DATE-TIME  ',A3,1X,I2.2,',',
  98      &   I4.4,2X,2(I2.2,':'),I2.2,'.',I3.3,2X,I3,2X,A3,2X,I8,//)
  99          RETURN
 100 C
 101          ENTRY W3TAGE(PROG)
 102 C
 103          CALL W3LOCDAT(IDAT)
 104          CALL W3DOXDAT(IDAT,JDOW,JDOY,JDAY)
 105          PRINT 603, JMON(IDAT(2)),IDAT(3),IDAT(1),IDAT(5),IDAT(6),
 106      &   IDAT(7),IDAT(8),JDOY,DAYW(JDOW),JDAY
 107   603    FORMAT(//,5X,'ENDING DATE-TIME    ',A3,1X,I2.2,',',
 108      &   I4.4,2X,2(I2.2,':'),I2.2,'.',I3.3,2X,I3,2X,A3,2X,I8)
 109          PRINT 604, PROG
 110   604    FORMAT(5X,'PROGRAM ',A,' HAS ENDED.  IBM RS/6000 SP')
 111 C 604    FORMAT(5X,'PROGRAM ',A,' HAS ENDED.  CRAY J916/2048')
 112 C 604    FORMAT(5X,'PROGRAM ',A,' HAS ENDED.  CRAY Y-MP EL2/256')
 113          PRINT 605
 114   605    FORMAT(10('* . * . '))
 115
 116          CALL SUMMARY()
 117 C
 118          RETURN
 119          END