子程序+赋值

fcode

参考下面的注释

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

program attempt_initial_fai
  Implicit None
  Real :: fai(300,300)
  open(101,file='E:\试验程序\one dimension random seed\fai.dat')
  call initial_data(fai) !//去掉 i j
  write(101,20) fai
20 FORMAT (1X,300D15.6)
end program attempt_initial_fai

subroutine initial_data(a) !//去掉 i j
  Implicit None
  Real :: a(300,300) !//要定义 a
  integer :: i !//要定义 i
  open(1,file='E:\试验程序\one dimension random seed\data1.dat')
  Do i = 1 , 300
    READ(1,*) a(:,i) !//此处读入 a，用表控读入即可
  End do
  a = mod( a , 1.0 ) !// 此处可以直接对 a 操作，无需循环
  close(1)
end subroutine initial_data

fcode

二师弟不用客气。

fcode

little_kar 发表于 2016-11-14 10:39
大师兄，还有一个问题，我的软件怎么不提示错误行了，比如少了一个单括号，下面的错误提示就只是说少了个 ...

请看“输出（Output）”窗口，永远不要看“错误列表（Error List）”窗口