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