Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/savef.f4
There are no other files named savef.f4 in the archive.
SUBROUTINE SAVEF
C PUTS FILE PARAMETERS IN COMMON BACK IN POINTER FILE
DIMENSION NDATE(2),MONTB(12)
DATA MONTB/'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG'
1,'SEP','OCT','NOV','DEC'/
COMMON IPAR(10)
IF(IPAR(9).EQ.0)GO TO 1
CALL DATE(NDATE)
CALL TIME(IT)
DECODE(9,101,NDATE)NDAY,MONTH,IYR
101 FORMAT(I2,1X,A3,1X,I2)
DO 2 NM=1,12
2 IF(MONTH.EQ.MONTB(NM))GO TO 3
3 DECODE(5,102,IT)NHR,NSEC
102 FORMAT(I2,1X,I2)
IPAR(10)=(NM*10000+NDAY*100+IYR)*10000+NHR*100+NSEC
LR=IPAR(9)
MOD=LR/1000000
CALL SUBMSK(MOD)
CALL DIO(LR,0,IPAR,1)
CALL DIO(LR,2,IPAR,1)
CALL ADDMSK(MOD)
RETURN
1 TYPE 100
100 FORMAT(1X,'ERROR IN SAVEF LPFR=0')
CALL EXIT
END
COMMON IPAR(10)
DO 1 I=1,9
IF(I.EQ.1.OR.I.EQ.5.OR.I.EQ.8)GO TO 1
IPAR(I)=IPAR(I)-MOD*1000000
1 CONTINUE
RETURN
END