贊助廠商

娛樂城推薦

首頁

電腦與網際網路/其他:電腦列表

Fortran- 變數自行改變

如題這個問題困擾我很久了本魯使用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-- 作者 pataricky (專發廢文) 看板 Gossiping 標題 [問卦] 有沒有台南市長榮中學的八卦 時間 Sat Jul 14 20:40:31 2012--
  • 發問日期:2021-06-01 19:10:05

友站連結