SUBROUTINE DFINER
C THIS PROGRAM ALLOWS AT MOST 50 CATEGORIES PER RECORD
C THIS PROGRAM READS THE FORMAT SPECIFICATIONS ONTO THE DISK
C THIS PROGRAM USES DIO AND ISUB
DIMENSION IPAR(10),IFRMT(1)
COMMON IPAR,IFRMT
IF(IPAR(8))3,3,4
4 I=(3*IPAR(8))/10+1
2 K=ISUB(1,1)
CALL DIO(IPAR(7),0,IFRMT (K),I)
3 RETURN
END