[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	character(len=10) :: string_1,string_2

02	character(len=5) :: string_3

03	character(len=15) :: string_4,string_5

04	character(len=15) :: string_input !// 定义一个输入变量

05	READ (*,'(A15)') string_input  !// 先输入它

06	READ (string_input,'(A)') string_1  !// 在从它输入其他变量

07	READ (string_input,'(A10)') string_2

08	READ (string_input,'(A10)') string_3

09	READ (string_input,'(A10)') string_4

10	READ (string_input,'(A)') string_5

11

pause

12

end