program matest
use IMSL
implicit none
INTEGER n,lda
parameter(n=4,lda=n)
real A(lda,n)
complex eval(n)
EXTERNAL EVLRG,WRCRN
DATA A/-2.0, -3.0, -2.0, -1.0, 2.0, 3.0, 0.0, 0.0, 2.0, 2.0,4.0, 0.0, 2.0, 2.0, 2.0, 5.0/
CALL EVLRG (N, A, LDA, EVAL)
CALL WRCRN ('EVAL',1,N,EVAL,1,0)
end program matest
我就是对着IMSL fortran90 library helper里的例子做的，但是出现两个错误，求大家帮忙啊
Error: The attributes of this name conflict with those made accessible by a USE statement. [EVLRG]
Error: The attributes of this name conflict with those made accessible by a USE statement. [WRCRN]
[ Last edited by 余泽成 on 2011-9-19 at 17:28 ] |
回复此楼
