Question

大神，请教个fortran程序问题~~

!主程序
PROGRAM main
character *20filename1
PARAMETER(ND=15,NE=16,ND1=12)
DIMENSION I3(3,16),XY(2,15),U1(12),NB1(12),SK(15,15),U(15)
OPEN(11,FILE='NE.txt',STATUS='old')
DO 1 J=1,NE
1 READ(11,*)(I3(I,J),I=1,3)
READ(11,*)(U1(i),i=1,ND1)
DO 2 J=1,ND
2 READ(11,*)(XY(I,J),I=1,2)
READ(11,*)(NB1(I),I=1,ND1)
CLOSE(11)
CALL MBW(NE,I3,IW)
CALL UK1(ND,NE,IW,I3,XY,SK)
CALL UB1(ND1,NB1,U1,ND,IW,SK,U)
CALL LDLT(SK,ND,IW,U,IE)
write(*,*)'请输入保存计算后的数据文件名：'
read(*,*)filename1
open(6,file=filename1,status='unknown')
write(6,510)U
close(6)
510 format(/3e15.6)
END
这是个主程序，里面调用子程序，其中好几个地方我看不懂
character *20filename1
OPEN(11,FILE='NE.txt',STATUS='old')
还有read（6，*）里面的6都是啥意思呀，我初学，看不懂，还有老师说这是77版本编的，让我们自己用90编，您能不能帮我把这程序再编一下呀，感激不尽~~

Answer 1

77版本编的，可以直接在90编译器下用。
character *20 filename1
定义字符型变量 filename1，长度为20
OPEN(11,FILE='NE.txt',STATUS='old')
打开文件 NE.txt，通道号是11，STATUS='old'文件是已经有的老文件。
还有read（6，*）里面的6都是啥意思呀
6 就是 open(6,file=filename1,status='unknown') 已经打开的文件，文件名是字符型变量filename1的值（前一句已经输入read(*,*)filename1）

追问

通道号是什么，老文件有什么用，能不能帮我把这程序改一下，改成老师所谓的90版本，让我们自己编感觉真的是无从下手，什么调用文件之类的我们都还没学呢~麻烦你了

追答

! 其实F77可以直接在F90下运行
! 前半部分稍微改一下
PROGRAM main
IMPLICIT NONE
character*20 filename1
INTEGER,PARAMETER(ND=15,NE=16,ND1=12)
DIMENSION I3(3,16),XY(2,15),U1(12),NB1(12),SK(15,15),U(15)
real::xy,U1,NB1,SK,U
INTEGER::I3,I,J

OPEN(11,FILE='NE.txt',STATUS='old')
DO J=1,NE
READ(11,*)(I3(I,J),I=1,3)
ENDDO
READ(11,*)(U1(i),i=1,ND1)
DO J=1,ND
READ(11,*)(XY(I,J),I=1,2)
ENDDO
READ(11,*)(NB1(I),I=1,ND1)
CLOSE(11)
! 后边不用改

追问

恩，太谢谢了，以后再请教你这方面的问题~~

Answer 2

6 表示文件通道，可以理解为 6号文件，*号表示 以默认格式读入， 那你就用f90编吧 很简单。