Question

怎么给fortran公共区中的数组赋值

SUBROUTINE PUTIN
COMMON /COM/CD(10,11)
CHARACTER *20 INFILE
WRITE(*,*) 'PLEASE ENTER NAME OF DATA FILE :'
READ(*,'(A)')INFILE
OPEN(1,FILE=INFILE,STATUS='OLD')
READ(1,*) ((CD(I,J), J=1,11),I=1,10)
CLOSE(1)
END
可不可以这样从文件中读值？？？

Answer 1

可以。

如果在主程序用公用区的值，别忘了也要写公用说明并调用CALL putin()。例如：

program a
COMMON /COM/CD(10,11)
CALL putin()
do i=1,10,1
do j=1,11,1
write(*,*) cd(i,j)
end do
end do
end

SUBROUTINE PUTIN()
COMMON /COM/CD(10,11)