7 lines
135 B
Text
7 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
|