Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/loadf.f4
There are no other files named loadf.f4 in the archive.
SUBROUTINE LOADF (IB,B,LIST,N)
C DEFINES AND LOADS A FILE WHOSE FILE PARAMETERS ARE ON CARDS
C FOLLOWED BY A LIST OF CATEGORIES TO BE LOADED THAT SET UP EACH
C RECORD IN FILE.
DIMENSION IB(1),B(1),IPAR(10),IFRMAT(1)
DIMENSION LIST (1)
COMMON IPAR,IFRMAT
1 READ 100,IDF,NSPR,MAX,NCPR
100 FORMAT(A5,3I10)
40 CALL DIO(1,1,IPAR,1)
IF(IFIND(IDF,1,0))5,4,5
4 CALL DFINEF (IDF,NSPR,MAX,NCPR)
5 CALL SLECTF (IDF)
IPAR(3)=IPAR(2)
IPAR(6)=IPAR(2)
DO 50 J=1,NCPR
K=ISUB(1,J)
50 READ 101,IFRMAT(K ),IFRMAT(K+1),IFRMAT(K+2)
101 FORMAT(3I10)
CALL DFINER
CALL CLEAR (IB)
3 CALL ADDR (IB,B,LIST,N)
IF(SSWITCH(6).NE.1)GOTO 3
2 IPAR(6)=IPAR(2)
20 CALL SAVEF
RETURN
END