3

使用 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
4

1 回答 1

2

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

于 2011-04-18T20:53:02.573 回答