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