Fortran文件读入问题

fcode

我想你应该再找找原因。你之前的代码里，都是符合 Open 语句的现今语法的，我认为这不是问题的原因。

hipeilei

fcode 发表于 2015-10-30 22:58
代码不全

我知道问题了，是我Open语法是按照老格式写的，现在改了一下open格式就没问题了，这是测试代码：

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

program main 
    implicit none
    integer::i,x
    real::y,z
    open(12,file="data.txt")
    open(13,file="data1.txt")
    do i=1,100
    read(12,*)x,y,z
    write(*,*)x,y,z
    write(13,*)x,y,z
    enddo
    pause
    end

fcode

代码不全

hipeilei

fcode 发表于 2015-10-30 17:37
任何数据都是可以被读入的。就看你怎么读而已。
所以，给出你的代码吧。
  ...

这是代码，请指教，其中data.txt文件每一行第一个是编号，第二个和第三个分别是x坐标和y坐标，要把编号和坐标读出来。

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

program main
implicit none
integer::i_node,i_element
integer::n_node1,n_elemnet1,
integer,allocatable::ij_element1(:,:)
real(8),allocatable::coordinate_n1(:,:)

open(unit=4,file='data.txt',form='formatted',status='old')
read(4,*)n_node1,n_element1
allocate(ij_element1(n_node1,4),coordinate_n1&(n_node1,2)

!读入数据.

do i_node=1,n_node1
read(4,*)coordinate_n1(i_node,1),coordinate_n1(i_node,2)
end do
do i_element=1,n_element1
read(4,*)ij_element1(i_element,:)

fcode

任何数据都是可以被读入的。就看你怎么读而已。
所以，给出你的代码吧。