SUBROUTINE DELETR(ID,IB)
C		DELETES ARECORD SPECIFIED BY ID FROM FILE
C		SHOULD ONLY BE USED OCCASIONALLY AND NEVER IN A LOOP
C		IF MORE THAN ONE OR TWO RECORDS ARE TO BE DELETED USE PULLF.
      DIMENSION IPAR (10), IFRMTF(1), IB(1)
      COMMON IPAR , IFRMTF
      IF(IFIND(ID,1,0))1,2,1
1     IPAR(6)=IPAR(6)+IPAR(5)
10    CALL SHRNKF(IB,1)
      GO TO 3
 2    TYPE100,ID
 100  FORMAT(I10,2X,12HNOT ON DISC.)
 3    RETURN
	END