未定义的引用`rindex_`

Question

我在Fortran 77（*。f）中有一个代码。我使用编译器fort77，但它给我以下错误：

   geodv.o: In function `main__ ':
   fort77-10104-1.c: (. text +0 x287): reference to `rindex_ 'undefined
   collect2: error: ld returned 1 exit status

可以找到代码at this dropbox。谢谢你的帮助

Answer 1

您已在第15行声明rindex为integer*4，但在第62行中将其用作nd2=rindex(entete,'/') .Fortran预计第62行意味着rindex是函数，不是整数。

Answer 2

试试这个：

        nd1 = index(entete,'/')
    nd2 = index(entete(nd1+1:),'/')+nd1

请注意，这将给出第二个'/'的位置，而不是最后一个，所以只有当你的字符串只有两个'/'时它才是相同的。