- Timestamp:
- 09/13/23 15:57:39 (11 months ago)
- Location:
- IOIPSL/trunk
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/getincom.f90
r5616 r6619 1520 1520 !- 1521 1521 dummy = "" 1522 READ (UNIT=unitf,FMT='(A)', ADVANCE='NO', SIZE=readlength,ERR=9998,END=7778,IOSTAT=ioerr) dummy 1522 READ (UNIT=unitf,FMT='(A)', ADVANCE='NO', SIZE=readlength,END=7778,IOSTAT=ioerr) dummy 1523 1523 1524 IF ((ioerr==IOSTAT_EOR).OR.(ioerr==IOSTAT_END)) ioerr = 0 1524 1525 !- … … 1537 1538 RETURN 1538 1539 !- 1539 9998 CONTINUE 1540 CALL ipslerr (3,'getin_readline','Error while reading file',' ',' ') 1541 !- 1540 ! IOSTAT gives a positive value if an error occurs. 1541 IF (ioerr.GT. 0) CALL ipslerr (3,'getin_readline','Error while reading file',' ',' ') 1542 1543 !- 1542 1544 7778 CONTINUE 1543 1545 out_string = TRIM(dummy)
Note: See TracChangeset
for help on using the changeset viewer.