home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 13.ddi / OFILES.FOR < prev    next >
Encoding:
Text File  |  1987-08-17  |  903 b   |  42 lines
  1.       SUBROUTINE OFILES(IERROR)
  2.       COMMON/PLT/DUMMY1(20),IDAT,IPL2,IPLT,IDFL
  3.       COMMON/STRESS/IFLOK
  4.       COMMON/IFORMT/IFORM
  5.       COMMON/NSAP6/ISAP6
  6.       COMMON/WHICHF/IB,LO
  7.       IPLT=0
  8.       READ(31,10,ERR=100,END=100)IDOMY
  9. 10    FORMAT(A4)
  10.       IFORM=1
  11.       REWIND 31
  12. 19    READ(34,22,ERR=23,END=23)IDOMY
  13. 22    FORMAT(I5)
  14.       REWIND 34
  15.       IF(IDOMY.LT.-5)GO TO 23
  16.       IB=1
  17.       GO TO 15
  18. 23    IB=0
  19. 15    READ(33,22,ERR=25,END=25)IDOMY
  20.       REWIND 33
  21.       IF(IDOMY.LT.-5)GO TO 25
  22.       IPLT=33
  23.       GO TO 30
  24. 25    IDFL=0
  25. 30    READ(35,22,ERR=40,END=40)IDOMY
  26.       REWIND 35
  27.       IF(IDOMY.LT.-5)GO TO 40
  28.       IFLOK=1
  29. 77    ISAP6=0
  30.       GO TO 50
  31. 40    IFLOK=0
  32.       GO TO 77
  33. 50    READ(32,22,ERR=60,END=60)IDOMY
  34.       REWIND 32
  35.       IF(IDOMY.LT.-5)GO TO 60
  36.       ISAP6=1
  37.       IDFL=32
  38. 60    RETURN
  39. 100   IERROR=1
  40.       RETURN
  41.       END
  42.