      SUBROUTINE INODAT(MDATA,FNAME,NTYPE,NDATA,NUNI1,NUNI2,NMUL,
     *                  NSTEP,DURTN,NDVA,NST,LINT,LINW,LINA,NDFILE,
     *                  NDDATA,NDLINE,IPAPER,IX0,IY0,NFILE,NOVRW,
     *                  NINIT,NTERM)

      DIMENSION MDATA(NDFILE,NDDATA),
     *          NTYPE(NDFILE),NDATA(NDFILE),
     *          NUNI1(NDFILE),NUNI2(NDFILE),NMUL(NDFILE),
     *          NDVA(3),NST(2),NSTEP(NDFILE),DURTN(NDFILE),
     *          LINT(NDLINE),LINW(NDLINE),LINA(NDLINE)
      CHARACTER FNAME(NDFILE)*30,FFN*30

      COMMON /SPEC/ XSI,XEI,YSI,YEI,IXSPN,IXUT1,IXUT2,
     *              IYSPN,IYUT1,IYUT2,IFPX,IFPY,IGRID,MAPNG
     *       /TIME/ XSJ,XEJ,YSJ,YEJ,JXSPN,JXUT1,JXUT2,JYSPN,JYUT1,
     *              JYUT2,JFPX,JFPY,NXOFF,NYOFF,NXSAB,NYSAB,N0AXIS
     *       /STYLE/ NSTYLE,IXR,IYR,JXR,JYR,NSX,NSTY

C     **********  INPUT OPERATION FILE NAME  **********

   10 WRITE(*,*)
      WRITE(*,'(A\)')' input operation file.....'
      READ(*,'(A)')FFN 
      WRITE(*,*) 

C     **********  READ OPERATION DATA  **********

      OPEN(4,FILE=FFN,ERR=30,STATUS='OLD')

      READ(4,4005)
      READ(4,4000)NFILE

      DO 100 I = 1, NFILE
        READ(4,4005)
        READ(4,4010)FNAME(I)
        READ(4,4000)NTYPE(I)
        READ(4,4000)NUNI1(I),NUNI2(I) 
        READ(4,4000)NDATA(I)
        READ(4,4003)(MDATA(I,J),J=1,NDATA(I))
        IF(NTYPE(I).NE.3) THEN
          READ(4,4000)NMUL(I)
        ELSE
          READ(4,4040)NMUL(I),NSTEP(I),DURTN(I)
        END IF
  100 CONTINUE

      READ(4,4006)
      READ(4,4005)
      READ(4,4000)(NDVA(I),I=1,3)
      READ(4,4000)NSTY
      READ(4,4000)NSX
      READ(4,4000)(NST(I),I=1,2)
      READ(4,4000)NOVRW
      READ(4,4000)NSTYLE 

      READ(4,4006)
      READ(4,4020)XSI,XEI
      READ(4,4020)YSI,YEI
      READ(4,4030)IXSPN,IXUT1,IXUT2
      READ(4,4030)IYSPN,IYUT1,IYUT2
      READ(4,4030)IFPX,IFPY
      READ(4,4030)IGRID,MAPNG

      READ(4,4006)
      READ(4,4020)XSJ,XEJ
      READ(4,4020)YSJ,YEJ
      READ(4,4030)JXSPN,JXUT1,JXUT2
      READ(4,4030)JYSPN,JYUT1,JYUT2
      READ(4,4030)JFPX,JFPY
      READ(4,4030)NXOFF
      READ(4,4030)NYOFF
      READ(4,4030)NXSAB
      READ(4,4030)NYSAB
      READ(4,4030)N0AXIS

      READ(4,4006)
      READ(4,4000)IPAPER
      READ(4,4030)IX0,IY0
      READ(4,4030)IXR,IYR
      READ(4,4030)JXR,JYR
      READ(4,4050)(LINT(I),I=1,NDLINE)
      READ(4,4050)(LINW(I),I=1,NDLINE)
      READ(4,4050)(LINA(I),I=1,NDLINE)
      READ(4,4030)NINIT
      READ(4,4030)NTERM

      CLOSE(4)

 4000 FORMAT(45X,6I5)
 4003 FORMAT(45X,40I5)
 4005 FORMAT()
 4006 FORMAT(//)
 4010 FORMAT(49X,A)
 4020 FORMAT(40X,2F10.2)
 4030 FORMAT(40X,3I10)
 4040 FORMAT(45X,2I5,F10.3)
 4050 FORMAT(47X,8I3)

      RETURN

C     ***  ERROR  ***

   30 WRITE(*,*) 'File access error.  try again.'
      GO TO 10  

      END
 