输出例子:
PROGRAM EX04220
INTEGER A
A=1000
WRITE(*,100) A
100 FORMAT(I4)
END
100 FORMA(I4) 是格式化输出,常用的格式化输出包括:
Aw 字符串,w个字符来输出; Iw[.m] w个宽度输出整数,最少输出m个数字;
Ew.d 用指数形式输出浮点数,小数部分占d个宽度 ,同样可以用 Dw.d 两者差别在于有的编译器再输出双精度时要求用Dw;
Fw.d 输出浮点数,其中d个宽度的小数 ;nX 输出的位置向右跳过n个位置。
当然上面的例子同样可以改写成
WRITE(*,"(I4)") A 或者
FMTSTRING="(I4)"
WRITE(*,FMTSTRING) A
WRITE 与PRINT的用法相似,只是在使用PRINT只能向屏幕输出,例如 PRINT "(A10)","Hello" ! 直接把个数字符串放在语句中
输入的例子:
PROGRAM EX0412
CHARACTER(LEN=80) STRING
READ(*,"(A80)") STRING
WRITE(*,"(A80)") STRING
END
这个例子可以读入字符长度小于80的字符串,可以包含空格或者逗号等字符,特别注意 当读入例如"Hello,World"这样带有逗号的字符串时,一定要给定输入格式,否则会把字符串按照逗号拆开Hello和Word两部分。