Re: [問題] 程式發生錯誤找很久了高手能幫幫忙嗎?

看板Fortran作者poiuy1203 (po)時間14年前 (2010/05/10 14:39)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/3 (看更多)

※ 引述《poiuy1203 (po)》之銘言： : ※ 引述《poiuy1203 (po)》之銘言： : : 程式跑到掛掉 : : 但小弟功力太弱找不到原因 : : 懇請高手幫看指點 : : 畫面顯示 : : run-time error M6203: MATH : : -csin:OVERFLOW error : : 跑到L=2,M=3,N=4時會掛掉 : : 下面附上程式碼: : : SUBROUTINE IILMN(IL,ML1,NN) : : COMPLEX*16 II(6,5,80),K(6,5,80),Q(6,5,80),AX(6,5),AZ(6,5),DZZ,CI : : REAL*8 DX(6),Z(6,5) : : DIMENSION ML1(6),NN(6) : : COMMON / DAT2 / DX,Z : : COMMON / DAT4 / AX,AZ : : COMMON / DAT5 / K,Q : : COMMON / DAT22 / II : : CI=CMPLX(0.0,1.0) : : DO 1,L=1,IL : : DO 2,N=1,NN(L) : : II(L,2,N)=1.0 : : 2 CONTINUE : : 1 CONTINUE : : DO 3,L=1,IL : : ML1L=ML1(L) : : IF(ML1L.EQ.2) GO TO 3 : : DO 4,M=3,ML1L : : DZZ=(Z(L,M-1)-Z(L,M))*AX(L,M)/AZ(L,M) : : WRITE(*,*)'ML1L',ML1L : : DO 5,N=1,NN(L) : : DZZ=DZZ*K(L,M,N) : : II(L,M,N)=II(L,M-1,N)*(COS(DZZ)+CI*Q(L,M,N)*SIN(DZZ)) : : WRITE(*,*)L,M,N : : 5 CONTINUE : : 4 CONTINUE : : 3 CONTINUE : : RETURN : 目前所知道的是DZZ的值為複數形式 : DZZ=(0.625 , 1.734918577506039E-018) : 帶入SIN(DZZ)和COS(DZZ)時會爆掉將SIN和COS改成DSIN和DCOS後產生以下問題: error LNK2001: unresolved external symbol _DCOS@4 error LNK2001: unresolved external symbol _DSIN@4 Debug/teach.exe : fatal error LNK1120: 2 unresolved externals Error executing link.exe. 因為我其他地方也有一樣的問題 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.117.98.63

Re: [問題] 程式發生錯誤 找很久了 高手能幫幫忙嗎?

Re: [問題] 程式發生錯誤找很久了高手能幫幫忙嗎?