Question

使用g96编译器，我收到错误消息：

INTENT(OUT) at variable 'SIZE' is never set.

以下是我的子程序。你知道我怎么能解决这个错误吗？非常感谢！

SUBROUTINE getFileItems(size,itemarray,pricearray,quantityarray)

INTEGER:: iost=0, i=0
INTEGER, INTENT(OUT):: quantityarray(50)
INTEGER, INTENT(OUT):: size
REAL, INTENT(OUT):: pricearray(50)
CHARACTER(20),INTENT(OUT)::itemarray(50)
CHARACTER(20)::namefiletoread

PRINT*,"Enter the name of file you would like to read: "
READ*,namefiletoread

OPEN(UNIT=44,FILE = namefiletoread, ACTION = "READ", !POSITION="REWIND",IOSTAT=iost)
IF(iost>0)STOP "Problem opening the file!"

DO i=1, size
READ(44,'(A,F6.2,I8)',IOSTAT=iost), itemarray(i), pricearray(i),quantityarray(i)
IF(iost<0)STOP
END DO


END SUBROUTINE

Answer 1

您需要以某种方式初始化“大小”的值。几种可能的方法： 1）如果子程序外部已知大小，则使大小意图（in）并在调用例程中设置值， 2）提示用户输入值， 3）将数组的长度放在文件的第一行并读取它。 4）如果文件可能有可变数量的项目，请阅读它，直到您点击EOF，计算项目数。使用无限循环并在按下EOF时退出，将大小设置为读取的项目数。

从文件读取并存储在数组中的问题

1 个答案: