读写错误，请帮忙。

fcode

你把很多问题想复杂了。

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

Program test_wrnf
  implicit none
  real :: epa(9,5)
  call EllipseP(epa)
contains
  subroutine EllipseP(epa)
    implicit none
    real,intent(out) :: epa(:,:)
    integer :: i, j
    epa=0.
    open (103 ,file='cep.txt') 
    call notes103()
    do i = 1 , size(epa,dim=2)
      read(103,*) epa(:,i)
    enddo
    close(103)
  end subroutine EllipseP
  subroutine notes103
    character(len=80) :: ax
    Do
      read(103,'(a80)') ax
      if ( index( ax , ']' ) > 0 ) return
    End Do
  end subroutine notes103
End Program test_wrnf