Changeset 313 for palm/trunk/UTIL
- Timestamp:
- May 12, 2009 10:55:07 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/interpret_config.f90
r72 r313 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! bugfix in WRITE (2010) statement 6 7 ! mrun environment variables are read from NAMELIST instead of using GETENV. 7 8 ! Variables are allways assigned a value, also if they already got one. These … … 42 43 iic = 0, iicf, iin = 0, iinput_list, il, ilocalhost, ioc = 0, & 43 44 ios, iout = 0, ioutput_list, is1, is2, is2a, is2b, is2c, & 44 is3, is3cond, is4, is5, is6, ivalue, ivar, izeile 45 is3, is3cond, is4, is5, is6, ivalue, ivar, izeile, linenr 45 46 46 47 LOGICAL :: found … … 53 54 OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' ) 54 55 READ ( 1, mrun_environment ) 56 CLOSE ( 1 ) 55 57 56 58 icond1 = LEN_TRIM( cond1 ) … … 82 84 83 85 READ ( 1, '(A)', IOSTAT=ios ) zeile 86 linenr = 1 84 87 85 88 … … 499 502 ! 500 503 !-- Kein gueltiger Wert fuer I/O-Feld 501 WRITE (2,2010) bs, bs, config_file(1:il), bs, bs, s2a(1:is2a), &502 bs, bs, bs, bs, bs, bs, bs504 WRITE (2,2010) bs, bs, config_file(1:il), linenr, bs, bs, & 505 s2a(1:is2a), bs, bs, bs, bs, bs 503 506 2010 FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', & 504 'file ',A, ' has the illegal"'/&507 'file ',A, ', line ', I5, ' has the illegal"'/ & 505 508 'printf "',A,'n value ',A,'"',A,A,'". Only ', & 506 509 A,'"in',A,'" or ',A,'"out',A,'" are allowed!"' & … … 513 516 514 517 READ( 1, '(A)', IOSTAT=ios ) zeile 518 linenr = linenr + 1 515 519 516 520 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.