SUBROUTINECLEARF(ID,IB)
C		ZEROS OUT THE RECORDS OF A FILE SPECIFIED BY ID. LEAVES
C		IB(1) AS IT WAS.
      DIMENSIONIPAR(10),IFRMT(1),IB(10)
      COMMON IPAR,IFRMT
	DIMENSION IR(10)
      EQUIVALENCE(IPAR(5),NSPR)
C*****BRINGS ID@S POINTER FILE INTO COMMON
20	CALL SLECTF(ID)
C*****INITIALIZES IB TO ZERO
   21 DO22I=2,10*IPAR(5)
   22 IB(I)=0
C*****SETS FIRST RECORD IA=LFR
      IA=IPAR(2)
C*****SETS LAST RECORD IC=IPAR(3)-IPAR(5)
      IC=IPAR(3)-NSPR
C*****LOOPS THROUGH ALL RECORDS AND STORES ZEROS.
      DO2I=IA,IC,IPAR(5)
	CALL DIO(I,1,IR,1)
	IB(1)=IR(1)
    2 CALLDIO(I,0,IB,IPAR(5))
      RETURN
	END