fortran - 对`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

代码可以在这个 dropbox中找到。谢谢您的帮助

Answer 1

您已在第 15 行声明rindex为 an integer*4，但nd2=rindex(entete,'/')在第 62 行中使用它。Fortran 期望第 62 行表示这rindex是一个函数，而不是整数。

Answer 2

尝试这个：

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

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