作者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)