FORTRAN小白，循环方面

胡文刚

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

Program Main
  Implicit None
  real A(1,12)
  character(len=16) :: c
  Integer :: i
  Open(17,FILE='E:\tempabaqus\C.DAT')
  Do i = 1 , 12
    READ(17,*)A(:,i)
  End Do
  Do i = 1 , 8
    write(c,*) i
    Open(99+i,FILE='E:\tempabaqus\'//trim(adjustl(c))//'.DAT')
  End Do
  Do i = 1 , 11
    WRITE(99+i,150)A(:,i)
  End Do
150 FORMAT(F20.10,5X)
End Program Main