在XP64位一直不能成功调用IMSL真的很郁闷，经过无数次尝试以及好多网友的帮忙，终于成功调用了IMSL，希望对你有所帮助 ！

            [size=6][color=FF0000]看贴不回  我会鄙视你地[/color][/size]

    我的配置是XP64位（个人版），VS2005，IVF9.1（标准版），IMSL5.0 以下是实现的步骤：
   第一步：设置平台
            工具--选项----Intel(R) fortran--Compiler Selection--Target Platform 改为X64 （原为Win32）；
   第二步：设置选项
            工具--选项--Libraries：C:\Program Files(x86)\VNI\CTT6.0\lib\EM64T
                        Includes： C:\Program Files(x86)\VNI\CTT6.0\include\EM64T
                                   C:\Program Files(x86)\VNI\CTT6.0\include\EM64T_s
   第三步：设置代码
           在你的程序代码前加上include 'link_f90_static.h'
                                use numerical_libraries
   第四步：设置配置管理器
            配置管理器---活动解决方案平台---（新建） 输入 X64，直到下面显示的平台是X64，才说明设置成功。
    第五步：注意---注意---注意 第一步与第二步不能更改次序，如果更改了，那么在选项里的Libraries与Includes里的路径也随着改变了，希望我的这个64位设置也能对32位系统的朋友也有所帮助！
       
  附一个调试成功的例子供大家参考：
     program main
  include 'link_f90_static.h'
  use numerical_libraries
  
  implicit none
  real A, B
  real, parameter :: ERRABS = 0.001
  real, parameter :: ERRREL = 0.001
  integer, parameter :: IRULE = 6
  real, external :: F,G,H
  real :: ANS
  real :: ERREST
  A = 0.0
  B = 5.0
  call TWODQ (F, A, B, G, H, ERRABS, ERRREL, IRULE, ANS, ERREST)
  write(*,*) ANS
  stop
end program

real function F(X,Y)
  implicit none
  real X, Y
  F = X+Y
  return
end function

real function G(X)
  implicit none
  real X
  G = 0.0
  return
end function

real function H(X)
  implicit none
  real X
  H = 5.0
  return
end function
[em6][em6][em6][em6]