Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/deletr.f4
There are no other files named deletr.f4 in the archive.
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