Re: [問題] 變數自行改變

看板Fortran作者fragmentwing (片翼碎夢)時間4年前 (2019/09/15 11:03)推噓7(7推 0噓 32→)

留言39則, 6人參與討論串2/2 (看更多)

※ 引述《sven1130 (綠色貍貓)》之銘言： : 如題 : 這個問題困擾我很久了 : 本魯使用visual studio : 目前我這個程式的架構 : 是由C++去呼叫一個for的dll : 然後跑dll裡面眾多的subroutine : 重點來了 : 當我跑了六次這個迴圈的時候 : 在跑完!****************************************** : 標示的該行後 : 有一個於這個迴圈都沒有出現的參數NNE(7) : 會自動變為一個很奇怪的數字 : 原本為14跑完後變為一個極大的數字 : 但該行甚至這個迴圈與參數NNE應該是一點關係也沒有 : 為何會這樣求解先謝過大家了 : 附圖 : https://imgur.com/7kf4X9E

: 按一下F11逐步執行後變成 : https://imgur.com/gznxEKU

: 完全沒有道理啊@@ : 附上該迴圈 : DO I=L,1,-1 : OPEN(60,FILE='MANNING.DAT',STATUS='OLD') : OPEN(61,FILE='NCCHECH.OUT',STATUS='UNKNOWN') : READ(60,1002) NC : 1002 FORMAT(5X,F8.5) : CMN(I,J)=NC : !****************************************** : WRITE(61,*)"CMN(",I,",",J,")",CMN(I,J) : !****************************************** : !將CMN寫入NCCHECH.OUT : READ(IIN,1004) NDS(I,J),XL,XR,LL,LR,LC : 1004 FORMAT(8X,F8.0,2F8.2,3F8.0) : C DIST1(I,J)=(LL+LC+LR)/3.0 : DIST1(I,J)=(LL+LC+LR)/3.0*3 : KK=NDS(I,J) : WRITE(5,1006)J,I,NDS(I,J),XL,XR,DIST1(I,J),CMN(I,J) : 1006 FORMAT(//5X,I3,2X,I3,4X,F8.0,2X,F8.2,2X,F8.2,2X,F8.2,2X,F8.4) : READ(IIN,1008)(AY(II,I,J),AX(II,I,J),II=1,KK) : 1008 FORMAT(2X,F6.2,9F8.2) : WRITE(5,1978)(AY(II,I,J),AX(II,I,J),II=1,KK) : 1978 FORMAT(2X,F6.2,9F8.2) : Z(I,J)=100.0 : DO 1010 II=1,KK : IF(AX(II,I,J).EQ.XL) N1(I,J)=II : IF(AX(II,I,J).EQ.XR) N2(I,J)=II : IF(Z(I,J).GE.AY(II,I,J)) THEN : Z(I,J)=AY(II,I,J) : Z919(I,J)=AY(II,I,J) : END IF : 1010 CONTINUE : WRITE(5,1012) N1(I,J),N2(I,J),Z(I,J) : c WRITE(*,1012) N1(I,J),N2(I,J),Z(I,J) : 1012 FORMAT(5X,I8,2X,I8,2X,F8.2) : END DO 經過和認識的工程師討論後，我確定有某個以FORTRAN開始學的人不會發生但是從其他語言過來的人可能會沒注意到的問題那就是，FORTRAN的副程式(subroutine)和函式(function) 並不是單純地call by value而已，call此程式的程式內的變數也會被改變舉個例子： program main implicit none integer :: var var = 10 call FortranVar(var) write(*,*) var stop end subroutine FortranVar(var2)　!var2就是在FortranVar內的var implicit none integer :: var2 var2 = var2**2 return end 出來的結果會是100，其他程式語言應該會變成10（不變）看到變數出問題時我有想到這個可能，可是因為這對從FORTRAN開始學的人來說很正常就忽略這個可能原因了不過，後來想到當我走出FORTRAN看到別的程式語言都是call by value後很不能接受所以反過來說，其他語言的使用者在接觸到FORTRAN時不知道這點的可能性其實不小重點是，要注意到這代表所有在副程式和函式內變更的值都會影響回叫出他們的程式所以有在用Fortran的人，至少我自己在寫的時候只要程式很大，習慣性會寫程式碼把數值複製下來放在別的變數後，將原本的變數原封不動地還回去（也就是自己寫成call by value）寫了這麼多，結論是我懷疑問題根本是出在那一坨subroutine和function之中可能需要把程式碼複製到word上搜尋有NNE的地方把每一行有關於NNE的程式碼都找出來慢慢看了 -- 即使祂每天因人們而墮入滾燙的熱水，麵神也不會製造出地獄來懲罰不信仰祂的人我們崇拜麵神是出於敬佩與感謝，與生前死後諸利益得失皆無任何關係阿麵~ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.77.1.161 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1568516631.A.2F8.html ※ 編輯: fragmentwing (42.77.1.161 臺灣), 09/15/2019 11:14:53 ※ 編輯: fragmentwing (42.77.1.161 臺灣), 09/15/2019 11:17:37

推

sven1130

09/15 13:37, 4年前 , 1^F

09/15 13:37, 1^F

推

sven1130

09/15 13:50, 4年前 , 2^F

09/15 13:50, 2^F

→

sven1130

09/15 13:50, 4年前 , 3^F

09/15 13:50, 3^F