messlog.f

Go to the documentation of this file.

C$PROG MESSLOG   - General message logger with 4-digit yr 
C
C     ******************************************************************
C     BY W.T. MILNER AT HRIBF - LAST MODIFIED 06/19/2002 - for gnu
C     ******************************************************************
C
      SUBROUTINE messlog(LUA,LUB)
C
      IMPLICIT NONE
C
C     ------------------------------------------------------------------
      common/lll/ mssg(28),namprog(2),logut,logup,lisflg,msgf
      INTEGER*4   MSSG,NAMPROG,LOGUT,LOGUP
      CHARACTER*4 LISFLG,MSGF
      CHARACTER*112 CMSSG
      equivalence(cmssg,mssg)
C     ------------------------------------------------------------------
      INTEGER*4 LUA,LUB,N,I,NTRY

C     UNUSED VARIABLES
C     INTEGER*4 YR2,YR4
C
      INTEGER*4    DATIM(5),MSS20(20)
C
      equivalence(mss20,mssg)
C     ------------------------------------------------------------------
      INTEGER*4    BLANK
      CHARACTER*4  CBLANK
C
      equivalence(blank,cblank)
      DATA         cblank/'    '/
C
      SAVE
C
C     ------------------------------------------------------------------
C
      IF(lua.LE.0) GO TO 20
C
      WRITE(lua,10)mss20
   10 FORMAT(1h ,19a4,a3)
C
   20 IF(lub.LE.0.OR.lisflg.NE.'LON ') GO TO 100
C
      CALL mildatim(datim)
C
      ntry=0
      n=1
      DO 40 i=1,26
      IF(mssg(i).NE.blank) n=i
   40 CONTINUE
C

      CALL fseek(lub,0,2)
C
   50 WRITE(lub,55,err=60)namprog,datim,(mssg(i),i=1,n)
   55 FORMAT(a4,a3,5a4,1x,26a4)
      GO TO 100
C
   60 ntry=ntry+1
      IF(ntry.LT.10) GO TO 50
      WRITE(logut,65)
   65 FORMAT(1h ,'10 FAILURES WRITING FOLLOWING TO LOG-FILE')
      WRITE(logut,70)namprog,datim
   70 FORMAT(1h ,a4,a3,5a4)
      WRITE(logut,10)mss20
C
  100 cmssg=' '
C
      RETURN
      END