C TITLE C R E A T F
C SETS UP FILE PARAMETERS IN POINTER FILE
INTEGER ANSWER
COMMON IPAR(10),IFRMT(3,20)
DIMENSION IB(10)
IDF=ANSWER('FILE ID?')
TYPE 200
200 FORMAT(1X,'INPUT NSPR,MAXR,NCPR'/)
ACCEPT 100,NSPR,MAXR,NCPR
100 FORMAT(3I)
CALL DFINEF(IDF,NSPR,MAXR,NCPR)
CALL EXIT
END