PDP-10 Archive: 43,50212/isub.f4 from decuslib10-01

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/isub.f4

There are no other files named isub.f4 in the archive.

      FUNCTION ISUB(I,J )
C		RETURNS WITH 1-DIMENSIONAL SUBSCRPT FOR IFRMAT(I,J)
      DIMENSION IPARF(10),IFRMAT(1)
      COMMON IPARF,IFRMAT
	ISUB=3*(J-1)+I
      RETURN
	END