C DEFINES A FILE ON PACK 0.EXITS WITH NEWLY DEFINED FILE PARAMETERS C IN COMMON. C ID********FILE ID C NSPR******NUMBER OF SECTORS PER RECORD IN FILE C MAXR******MAXIMUM NUMBER OF RECORDS IN FILE C NCPR******NUMBER OF CATEGORIES IN RECORD. MAY BE =0. SUBROUTINE DFINEF(ID,NSPR,MAXR,NCPR) COMMON IPAR(10),IFRMAT(1) CALL DFNF(ID,NSPR,MAXR,NCPR,0) RETURN END