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

fcode

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

 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