討論區快速選單
知識庫快速選單
討論區最近新進100則主題 程式設計俱樂部Facebook粉絲團 軟體開發過程中有哪些資安漏洞?
[ 回上頁 ] [ 討論區發言規則 ]
不懂錯誤之意思?
更改我的閱讀文章字型大小
作者 : 0914476(想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/26 下午 02:17:35
program abd

INTEGER LDRMM, LDRKK ,LDEVEC, M
PARAMETER (M=100, LDRMM=M, LDRKK=M, LDEVEC=M)

INTEGER NOUT
REAL RMM(LDRMM,M), RKK(LDRKK,M), EVAL(M), EVEC(LDEVEC,M),Q(M)
EXTERNAL GVCSP, WRRRN

! The mass matrix
N=M
do 9 j=1,N
do 9 L=1,n
IF (j.EQ.L) THen
RMM(j,L)=1.d0
ELSE
RMM(J,L)=0.d0
endif
9 continue
! The stiffness matrix
do 19 j=1,n
RKK(j,j)=2.d0
RKK(j,j+1)=-1.d0
19 continue
do 21 j=1,n
do 21 L=1,n
RKK(L,J)=RKK(j,L)
21 continue
RKK(1,1)=3.d0
RKK(n,n)=3.d0

 ! This calculate the AX=CBx Eigenproblem

CALL GVCSP (M, RKK, LDRKK, RMM, LDRKK, EVAL, EVEC, LDEVEC)
do 29 I=1,n
Q(I)=sqrt(EVEAL(I))*(N)
write(*,11)Q(i),I
29 continue

11 format(5f10.6)


CALL WRRRN ('EVEC', M, M, EVEC, LDEVEC, 0)
do 49 j=1,5

do 39 I=1,n
rf=EVEC(I,J)

write(*,12)(i-0.5d0)/(N),rf
39 continue
49 continue
 
12 format(3d15.5)
 
stop
end


Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90
Linking...
abd.obj : error LNK2001: unresolved external symbol _EVEAL@4
Debug/abd.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

abd.exe - 2 error(s), 0 warning(s)

請高手們幫幫忙
我看不懂錯誤的意思!!
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人0914476註記此篇回應為最佳解答 2005/7/27 上午 01:21:44
>REAL RMM(LDRMM,M), RKK(LDRKK,M), EVAL(M), EVEC(LDEVEC,M),Q(M)
     ^^^^ ^^^^
...
...
>do 29 I=1,n
>Q(I)=sqrt(EVEAL(I))*(N)
     ^^^^^
     你沒有定義EVEAL為陳列, compiler 會把它視為一個函數。
>write(*,11)Q(i),I
>29 continue

>Compiling Fortran...
>C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90
>Linking...
>abd.obj : error LNK2001: unresolved external symbol _EVEAL@4
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     統找不到 EVEAL 的碼,就會送出這樣的信息。
>Debug/abd.exe : fatal error LNK1120: 1 unresolved externals
>Error executing link.exe.
>
>abd.exe - 2 error(s), 0 warning(s)
>
>請高手們幫幫忙
>我看不懂錯誤的意思!!
作者 : 0914476 (想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/27 上午 11:57:55
program abd

INTEGER LDRMM, LDRKK ,LDEVEC, M
PARAMETER (M=100, LDRMM=M, LDRKK=M, LDEVEC=M)

INTEGER NOUT
REAL RMM(LDRMM,M), RKK(LDRKK,M), EVEC(LDEVEC,M),Q(M),EVAL(M),GPISP
EXTERNAL GPISP, GVCSP, UMACH, WRRRN

! The mass matrix
N=M
do 9 j=1,N
do 9 L=1,n
IF (j.EQ.L) THen
RMM(j,L)=1.d0
ELSE
RMM(J,L)=0.d0
endif
9 continue
! The stiffness matrix
do 19 j=1,n
RKK(j,j)=2.d0
RKK(j,j+1)=-1.d0
19 continue
do 21 j=1,n
do 21 L=1,n
RKK(L,J)=RKK(j,L)
21 continue
RKK(1,1)=3.d0
RKK(n,n)=3.d0

 ! This calculate the AX=CBx Eigenproblem

CALL GVCSP (M, RKK, LDRKK, RMM, LDRMM, EVAL, EVEC, LDEVEC)
CALL UMACH (2, NOUT)
do 29 I=1,n
Q(I)=sqrt(EVAL(I))*(N)

write(*,11)Q(i),I
29 continue

11 format(5f10.6)


CALL WRRRN ('EVEC', M, M, EVEC, LDEVEC, 0)
do 49 j=1,5

do 39 I=1,n
rf=EVEC(I,J)

write(*,12)(i-0.5d0)/(N),rf
39 continue
49 continue
 
12 format(3d15.5)
 
stop
end

大大不好意思喔!我修改之後雖然出現~沒有錯誤~
但也沒有出現答案的說~
大大能幫幫我嗎!
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/27 下午 10:34:07

>大大不好意思喔!我修改之後雖然出現~沒有錯誤~
>但也沒有出現答案的說~
"沒有出現答案"是指螢幕上沒有任何信息? 還是有什麼東西? 如果是後者, 請將之貼上來。

>大大能幫幫我嗎!


作者 : 0914476 (想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/28 上午 12:35:38
forrtl:severe<161>:program Exception-array bounds exceeded
Image Pc Routine Line Source
abd.exe 00401238 ABD 23 abd.f90
abd.exe 0044C419 Unknown Unknown Unknown
abd.exe 0043E824 Unknown Unknown Unknown
kerne132.dll 7c816D4F Unknown Unknown Unknown
Press any key to continue

大大這是執行後的結果~~
我看不懂得說!
希望大大給小弟解惑~~~
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人0914476註記此篇回應為最佳解答 2005/7/28 上午 10:10:41

>forrtl:severe<161>:program Exception-array bounds exceeded
     ^^^^^^^^^^^^^^^^
表示出現陳列指標超過定義的範圍, 例如在
Real X(100)時, 用到 X(101) 就會有這樣的信息
>Image Pc Routine Line Source
>abd.exe 00401238 ABD 23 abd.f90
     ^^^^^^^^^
表示在abd.f90的第23行碰到上述的情況。
>abd.exe 0044C419 Unknown Unknown Unknown
>abd.exe 0043E824 Unknown Unknown Unknown
>kerne132.dll 7c816D4F Unknown Unknown Unknown
>Press any key to continue
>
>大大這是執行後的結果~~
>我看不懂得說!
>希望大大給小弟解惑~~~
作者 : 0914476(想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/28 下午 02:01:42
program abd

INTEGER LDRMM, LDRKK ,LDEVEC, M
PARAMETER (M=100, LDRMM=M, LDRKK=M, LDEVEC=M)

INTEGER NOUT

REAL*8 RMM(LDRMM,M), RKK(LDRKK,M), EVAL(M), EVEC(LDEVEC,M),Q(M)
open(32,file='abd.dat')
EXTERNAL dGVCSP, dWRRRN

! The mass matrix
N=M
do 9 j=1,N
do 9 L=1,n
IF (j.EQ.L) THen
RMM(j,L)=1.d0
ELSE
RMM(J,L)=0.d0
endif
9 continue

! The stiffness matrix
do 19 j=1,n
RKK(j,j)=2.d0
RKK(j,j+1)=-1.d0
19 continue
do 21 j=1,n
do 21 L=1,n
RKK(L,J)=RKK(j,L)
21 continue
RKK(1,1)=3.d0
RKK(n,n)=3.d0

 ! This calculate the AX=CBx Eigenproblem

CALL dGVCSP (M, RKK, LDRKK, RMM, LDRKK, EVAL, EVEC, LDEVEC)
do 29 I=1,n
Q(I)=sqrt(EVEAL(I))*(N)
write(32,11)Q(i),I
29 continue

11 format(5f10.6)
CALL dWRRRN ('EVEC', M, M, EVEC, LDEVEC, 0)
do 49 j=1,5
do 39 I=1,n
rf=EVEC(I,J)
write(32,12)(i-0.5d0)/(N),rf
39 continue
49 continue
12 format(3d15.5)
close(32)
stop
end


Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90
C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90(10) : Error: A specification statement cannot appear in the executable section.
EXTERNAL dGVCSP, dWRRRN
^
Error executing df.exe.

abd.exe - 1 error(s), 0 warning(s)
大大這是我開一個空間給它來做修改之後~
但是還是出現錯誤的說~
希望給小弟指點一下

作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人0914476註記此篇回應為最佳解答 2005/7/28 下午 08:36:02

>REAL*8 RMM(LDRMM,M), RKK(LDRKK,M), EVAL(M), EVEC(LDEVEC,M),Q(M)
>open(32,file=''abd.dat'')
>EXTERNAL dGVCSP, dWRRRN
...
...
>Compiling Fortran...
>C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90
>C:\Program Files\Microsoft Visual Studio\MyProjects\abd\abd.f90(10) : Error: A specification statement cannot appear in the executable section.
>EXTERNAL dGVCSP, dWRRRN
EXTERNAL 是一個宣告指令, 必需放在可執行指令(如﹕ Open) 之前。

>^
>Error executing df.exe.
>
>abd.exe - 1 error(s), 0 warning(s)
>大大這是我開一個空間給它來做修改之後~
你原來的問題不是外部檔案的問題而是第 23 行﹕
    RKK(j,j+1)=-1.d0
想一下當 j = n 時會出現什麼問題!

>
作者 : 0914476(想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/28 下午 09:50:01
大大我是設rkk為(100,100)因為我設m=100且n=m
我知道rkk在等於n的時候~等於rkk(100,101)且它ㄉ值為-1.0
不能這麼做喔!!!
可是我不知道如何去修改的說~
大大能教教我嗎?
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人0914476註記此篇回應為最佳解答 2005/7/29 上午 03:43:55

>大大我是設rkk為(100,100)因為我設m=100且n=m
>我知道rkk在等於n的時候~等於rkk(100,101)且它ㄉ值為-1.0
>不能這麼做喔!!!
  不能。
>可是我不知道如何去修改的說~
   改成﹕
   IF(j < n) RKK(j,j+1)=-1.d0

>大大能教教我嗎?
作者 : 0914476(想學fortran)
[ 貼文 65 | 人氣 7460 | 評價 0 | 評價/貼文 0 | 送出評價 16 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/7/30 上午 01:17:50
謝謝大大滴解答~
我大概了解~
感謝大大不厭其煩滴指導喔!!!!!
 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.078125