作者m710387 (古大大)
看板Programming
標題[問題] 關於fortran開函式庫的問題
時間Sun May 20 15:34:37 2007
最近在練習寫fotran的東西
在學校的電腦試都ok~
但是在家裡就一整個很怪~@@a~不知道哪裡出問題
以下是debug後的訊息，感覺上像是開imsl出了一點問題
也解決不了，不知道要怎麼解決~
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [NUMERICAL_LIBRARIES]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [BUILD_ERROR_STRUCTURE_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [ERROR_OPTION_PACKET]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [ERROR_POST_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [FAST_2DFT_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [FAST_3DFT_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [FAST_DFT_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_EIG_GEN_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_GEIG_GEN_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_SOL_GEN_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_SOL_LSQ_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_SOL_SVD_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_SOL_TRI_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LIN_SVD_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [LINEAR_OPERATORS]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [RAND_GEN_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [SORT_REAL_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [SPLINE_FITTING_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [SURFACE_FITTING_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [PBLSQ_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [PNLSQ_INT]
use imsl
----^
H:\fortran\tension\tension\tension1.f90(2) : Error: Error in opening the Librar
y module file. [PDE_1D_MG_INT]
use imsl
----^
Error executing df.exe.
以下是我的程式碼
program main
use imsl
INTEGER LDR, NOBS, NPARM
PARAMETER (NOBS=7, NPARM=2, LDR=NPARM)
INTEGER IDERIV, IRANK, NOUT
REAL DFE, R(LDR,NPARM), SSE, THETA(NPARM)
EXTERNAL EXAMPL
DATA THETA/1,1/
CALL UMACH (2, NOUT)
IDERIV = 0
CALL RNLIN (EXAMPL, NPARM, IDERIV, THETA, R, LDR, IRANK, DFE, SSE)
WRITE (NOUT,*) 'THETA = ', THETA
WRITE (NOUT,*) 'IRANK = ', IRANK, ' DFE = ', DFE, ' SSE = ', SSE
CALL WRRRN ('R', NPARM, NPARM, R, LDR, 0)
WRITE (*,*) THETA , SSE
END
SUBROUTINE EXAMPL (NPARM, THETA, IOPT, IOBS, FRQ, WT, E, DE, IEND)
INTEGER NPARM, IOPT, IOBS, IEND
REAL THETA(NPARM), FRQ, WT, E, DE(NPARM)
INTEGER NOBS
PARAMETER (NOBS=7)
REAL EXP, r(NOBS),Tr(NOBS)
INTRINSIC EXP
OPEN(UNIT=10,FILE='r.txt')
OPEN(UNIT=20,FILE='Tr.txt')
DO 1 I=1,7
READ(10,*) r(I)
READ(20,*) Tr(I)
1 continue
close(10)
close(20)
IF (IOBS .LE. NOBS) THEN
WT = 1.0E0
FRQ = 1.0E0
IEND = 0
IF (IOPT .EQ. 0) THEN
E = r(IOBS) - Theta(1)*(1-Tr(IOBS))** Theta(2)
ELSE
END IF
ELSE
IEND = 1
END IF
RETURN
END SUBROUTINE
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.183.228
※ 編輯: m710387 來自: 220.136.183.228 (05/20 15:38)