作者illiway (illiway)
看板Fortran
标题[问题] USE IMSL 变成USE NUMERICAL_LIBRARY
时间Wed Sep 17 18:38:34 2008
想请问版上高手～
以前CVF时，都在程式开头用USE IMSL
之後才能call IMSL的函式
我有看到换成IVF後，要改成 USE NUMERICAL_LIBRARY
可是我改成
USE NUMERICAL_LIBRARY 却不能用（出现错误）
一定要用我前一篇提的
Include 'link_fnl_shared.h' 才可以执行
我是不是在哪个地方设定错了
有高手可以指点我一下吗？？
以下附上一个例子，我是随便复制IMSL pdf档中其中一个例子
出现的错误是
Error 1 Error The same named entity from different modules and
/or program units cannot be referenced. [CSCON]
Error 2 Error The same named entity from different modules and
/or program units cannot be referenced. [WRRRL]
Error 3 Error: The same named entity from different modules and
/or program units cannot be referenced. [UMACH]
Error 4 Compilation Aborted (code 1)
----
PROGRAM main
!Include 'link_fnl_shared.h'
[用这一个的话，可以执行]
USE NUMERICAL_LIBRARIES
[用这一个的话，会出现错误]
USE CSCON_INT
USE UMACH_INT
USE WRRRL_INT
IMPLICIT NONE
! Specifications
INTEGER NDATA
PARAMETER (NDATA=9)
!
INTEGER IBREAK, NOUT
REAL BREAK(2*NDATA), CSCOEF(4,2*NDATA), FDATA(NDATA),&
XDATA(NDATA)
CHARACTER CLABEL(14)*2, RLABEL(4)*2
!
DATA XDATA/0.0, .1, .2, .3, .4, .5, .6, .8, 1./
DATA FDATA/0.0, .9, .95, .9, .1, .05, .05, .2, 1./
DATA RLABEL/' 1', ' 2', ' 3', ' 4'/
DATA CLABEL/' ', ' 1', ' 2', ' 3', ' 4', ' 5', ' 6',&
' 7', ' 8', ' 9', '10', '11', '12', '13'/
! Compute cubic spline interpolant
CALL CSCON (XDATA, FDATA, IBREAK, BREAK, CSCOEF)
! Get output unit number
CALL UMACH (2, NOUT)
! Print the BREAK points and the
! coefficients (CSCOEF) for
! checking purposes.
WRITE (NOUT,'(1X,A,I2)') 'IBREAK = ', IBREAK
CALL WRRRL ('BREAK', BREAK, RLABEL, CLABEL, 1, IBREAK, 1, FMT='(F9.3)')
CALL WRRRL ('CSCOEF', CSCOEF, RLABEL, CLABEL, 4, IBREAK, 4, FMT='(F9.3)')
END
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.223.153
※ 编辑: illiway 来自: 140.113.223.153 (09/17 18:41)
1F：→ andachi:Project setting link 添加以下 09/18 03:34
2F：→ andachi:imsl.lib imsls_err.lib imslmpistub.lib kernel32.lib 09/18 03:34
3F：→ illiway:非常感谢楼上的回答，但有没有人可以告诉我，要从哪设订> 09/18 10:00
4F：推 k1942:以我的经验 加include 'link_fnl_shared.h ' 是对的 09/18 11:06
5F：→ k1942:我从来没加过 USE NUMERICAL_LIBRARY 09/18 11:07