2,652
edits
LIB: Difference between revisions
→Client code example: separate assignment of cformat from its definition. Reason: otherwise, a static variable results
No edit summary |
(→Client code example: separate assignment of cformat from its definition. Reason: otherwise, a static variable results) |
||
| Line 184: | Line 184: | ||
! local variables | ! local variables | ||
INTEGER k,i,dummy | INTEGER k,i,dummy | ||
CHARACTER :: fn*132,cformat*6='(i4.4)' | CHARACTER :: fn*132,cformat*6 | ||
cformat='(i4.4)' | |||
fn=fn_template | fn=fn_template | ||
WRITE(cformat(3:5),'(i1,a1,i1)')lastqm-firstqm+1,'.',lastqm-firstqm+1 | WRITE(cformat(3:5),'(i1,a1,i1)')lastqm-firstqm+1,'.',lastqm-firstqm+1 | ||