8 lines
135 B
Text
8 lines
135 B
Text
|
DO i = 1, 10
|
||
|
|
IF( MOD(i, 5) == 1 ) THEN
|
||
|
|
WRITE(Format="i3") i
|
||
|
|
ELSE
|
||
|
|
WRITE(APPend, Format=" ',', i3 ") i
|
||
|
|
ENDIF
|
||
|
|
ENDDO
|