first make:
administrator@ubuntu:~/dan_code/translate$ make
rm -f ./aaa
test -d ./Obj/ || mkdir ./Obj/
gfortran -g -c -o Obj/reorder.o reorder.f90
gfortran -g -c -o Obj/testtededg.o testtededg.f90
gfortran -g -o ./aaa ./Obj/main.o ./Obj/readdata.o ./Obj/nodetoedge.o ./Obj/convert.o ./Obj/reorder.o ./Obj/testtededg.o
./Obj/reorder.o: In function `calrec':
/home/administrator/dan_code/translate/reorder.f90:212: undefined reference to `eof_'
./Obj/testtededg.o: In function `testtededg':
/home/administrator/dan_code/translate/testtededg.f90:43: undefined reference to `eof_'
/home/administrator/dan_code/translate/testtededg.f90:49: undefined reference to `eof_'
/home/administrator/dan_code/translate/testtededg.f90:55: undefined reference to `eof_'
/home/administrator/dan_code/translate/testtededg.f90:61: undefined reference to `eof_'
collect2: ld returned 1 exit status
make: *** [aaa] 錯誤 1
eof文件尾函數不適用的緣故,參照文末fortran讀文件時判斷文件結束的兩種方法
1. 修改reorder.f90
出錯結果no=0
修改爲:
結果爲:
nted爲173大於172,讀下一個文件的時候超過文件行數
修改爲no=n-1,結果爲:
段錯誤定位於testtededg.f90中Line 69循環當中。
用原Translate_code,做類似本文修改,沒有出現錯誤。執行結果爲:
2. 修改testtededg.f90
改爲
Reference:
fortran讀文件時判斷文件結束的兩種方法