Hi Doctor, how can i call IMSL function statement in my routine. Please take a look in this example.
PROGRAM
plastico_bingham_dif
USE
MSIMSLMD
IMPLICIT
REAL*8(A-H,O-Z)
PARAMETER
(NROOT=1)
DIMENSION
XGUES(NROOT), X(NROOT), INFO(NROOT)
EXTERNAL
Func
COMMON
/P1/Re
COMMON
/P2/y
open
(unit=3,file='exer.01.dat',status='unknown')
y =0.d0
Re = 1.d4
X1 = 0.005d0
X2 = 0.01d0
tol = 1.d-2
ERABS = 1.D-30
EREL = tol
EPS = 1.D-10
ETA = EPS
ITMAX = 5.d0
XGUES(1)=0.5D0*(x1+x2)
write
(3,*) ' Re fat '
do
Re=1.d4,1.d6,500
CALL DZREAL(Func,ERABS,EREL,EPS,ETA,NROOT,ITMAX,XGUES,X,INFO)
fat = X(1)
XGUES(1)= fat
write (*,*)' fat = ', fat
write(3,*) Re, fat
end do
close
(3)
stop
end
! Funao transcendental para o calculo do fator de atrito de um fluido
! tipo plstico de Bingham
function
Func(fat)
IMPLICIT
REAL*8(A-H,O-Z)
COMMON
/P1/ Re
COMMON
/P2/y
a = 2.d0*y/(Re*f)
ARG1 = (1.d0-a)*
dsqrt((Re**2*f/8.d0) - (Re*y/4.d0) )
DENOM1 =
dsqrt( f- 2.d0*y/Re )
TROMB = 5.5d0/
dsqrt(2.d0) - (1.d0-a)*(3.d0+a)/3.28d0
Func = DENOM1*(4.073d0*
dlog10(ARG1) + TROMB ) - 1.0d0
return
end function
The compiler send a message like this:
Error1 Error: Error in opening the compiled module file. Check INCLUDE paths. [MSIMSLMD]
C:Documents and SettingsAmorimMeus documentosVisual Studio 2005ProjectsConsole6Console6DebugRAIZES_plastico_bingham_ZREAL.f902
When i click in this error, the error go to USE MSIMSLMD
Thanks Doctor
