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