回 帖 发 新 帖 刷新版面

主题:我在编译一个动态链接库时给出了这样的错误

我在编译一个动态链接库时给出了这样的错误,请哪位朋友帮忙看看问题出在哪里。
这个问题困扰了好几天了,非常感谢!
the an error LNK2019, imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj) 
 error LNK2019:   imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj)
 error LNK2019:   imsls_err.lib(flexlm.obj)
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
代码如下:
module  MM
!DEC$ OBJCOMMENT LIB:'libiomp5md.lib'
  include 'link_fnl_static_hpc.h'  
  USE numerical_libraries
  real:: A(2),B(2), INV(2,2)
END MODULE  MM
!
!
MODULE  FF
  INTERFACE
 subroutine Dis
      Use MM
    end subroutine Dis
  END INTERFACE
END MODULE  FF
!
!
subroutine MainSub(AA,BB)
!dec$ attributes dllexport :: MainSub
Use MM
use FF
real:: AA(2),BB(2)
A=AA
B=BB
call Dis
end subroutine MainSub
!
!
subroutine Dis
Use MM
implicit none
real :: C
INV=reshape((/1.0,0.0,0.0,2.0/),(/2,2/))
C=BLINF(2, 2, INV, 2,A, B)
print*,C
end subroutine Dis
 
 

回复列表 (共2个回复)

沙发


用的版本是 IVF11.1.051

板凳

改短subroutin的名字试试

我来回复

您尚未登录,请登录后再回复。点此登录或注册