求教。。如何将将一个值同时赋给多个变量？

tytccn · 发表于 2014-2-9 11:35:20

CHARACTER(len=10) :: string_1,string_2
CHARACTER(len=5) :: string_3
CHARACTER(len=15) :: string_4,string_5
READ (*,'(A)') string_1
READ (*,'(A10)') string_2
READ (*,'(A10)') string_3
READ (*,'(A10)') string_4
READ (*,'(A)') string_5
这是书上的一个例题，要将abcdefghijklmno同时赋给这5个值，来看差异。单输入时就要输5遍，有没有什么简单的方法？

fcode · 发表于 2014-2-9 11:52:48

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

 character(len=10) :: string_1,string_2
 character(len=5) :: string_3
 character(len=15) :: string_4,string_5
 character(len=15) :: string_input !// 定义一个输入变量
 READ (*,'(A15)') string_input  !// 先输入它
 READ (string_input,'(A)') string_1  !// 在从它输入其他变量
 READ (string_input,'(A10)') string_2
 READ (string_input,'(A10)') string_3
 READ (string_input,'(A10)') string_4
 READ (string_input,'(A)') string_5
 pause
 end

tytccn · 发表于 2014-2-9 12:13:09

fcode 发表于 2014-2-9 11:52
[mw_shl_code=fortran,true] character(len=10) :: string_1,string_2
character(len=5) :: string_3
cha ...

[求助] 求教。。如何将将一个值同时赋给多个变量？

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章