您所在位置：主题：IMSL6 中 include 语句位置问题
asymptotic
[专家分：16630] 发布于 2010-09-15 15:57:00
Hello every one, I am wondering why the IMSL6.0 'link_fnl_shared.h' statement must be in the module's specification part, can't in the module procedure's specification part?
(Win7-64bit + IVF11.1.067 + IMSL6.0, Configuration Win32)
Module IMSL_BSJYIK0
! IMSL6.0, Configuration Win32
include 'link_fnl_shared.h' ! right
contains
subroutine Test_BSJ0
! include 'link_fnl_shared.h' ! error, in here
use BSJ0_INT
implicit none
real:: x, y
x = 3.0
write(unit = *, fmt = *) "BSJ0 function --- "
y = BSJ0(x)
write(unit = *, fmt = *) x, y
return
end subroutine
End Module
(Win7-64bit + IVF11.1.067 + IMSL6.0, Configuration Win32)
Module IMSL_BSJYIK0
! IMSL6.0, Configuration Win32
include 'link_fnl_shared.h' ! right
contains
subroutine Test_BSJ0
! include 'link_fnl_shared.h' ! error, in here
use BSJ0_INT
implicit none
real:: x, y
x = 3.0
write(unit = *, fmt = *) "BSJ0 function --- "
y = BSJ0(x)
write(unit = *, fmt = *) x, y
return
end subroutine
End Module