Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/clear.f4
There is 1 other file named clear.f4 in the archive. Click here to see a list.
C      CLEARS 10*NSPR OF CORE
C     INPUTS IB
C     OUTPUTS IB=0
C     THIS FUNCTION USES NO OTHER ROUTINES
      SUBROUTINE CLEAR(IB)
      DIMENSION IB(1), IPARF(10),IFRMTF(1)
      COMMON IPARF,IFRMTF
      N=IPARF(5)*10
      DO 1 I=1,N
    1 IB(I)=0
      RETURN
	END