0

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

コードはこのドロップボックスにあります。ご協力ありがとうございました

4

2 に答える 2

0

これを試して：

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

これは、最後ではなく 2 番目の '/' の位置を示すことに注意してください。そのため、文字列に 2 つの '/' しかない場合にのみ同じになります。

于 2013-07-13T17:30:50.620 に答える