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