Révision 7 src/Io_module.f90

Io_module.f90 (revision 7)
8 8
  SAVE
9 9

  
10 10
  INTEGER(KINT) :: IOIN=11, IOOUT=12, IOCART=14
11
  INTEGER(KINT) :: IOGEOM=15
11
  INTEGER(KINT) :: IOGEOM=15, IODAT=16
12 12
  INTEGER(KINT), PARAMETER :: IOTMP=21,IOTMP2=22, IOTMP3=23
13 13
  INTEGER(KINT), PARAMETER :: IOERR=19
14

  
15
  TYPE Input_Line
16
     CHARACTER(LCHARS) :: Line
17
     TYPE (Input_Line), POINTER :: Prev
18
     TYPE (Input_Line), POINTER :: Next
19
  END TYPE Input_Line
20

  
21 14
  CHARACTER(SCHARS) :: RunMode
22 15

  
23 16
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Formats disponibles : Unified diff