5 lines
285 B
Text
5 lines
285 B
Text
OPEN(FIle=input, SEQuential, UNFormatted, OLD, LENgth=len, ERror=31) ! on error branch to label 31 (not shown)
|
|
OPEN(FIle=output, SEQuential, UNFormatted, ERror=32) ! on error branch to label 32 (not shown)
|
|
ALLOCATE(c, len)
|
|
READ(FIle=input, CLoSe=1) c
|
|
WRITE(FIle=output, CLoSe=1) c END
|