- Als neu kennzeichnen
- Lesezeichen
- Abonnieren
- Stummschalten
- RSS-Feed abonnieren
- Kennzeichnen
- Anstößigen Inhalt melden
Hello!
Intel Fortran 11.1.051, Visual Studio 2008, Windows 7 HB.
Implemented full installation. We are trying to link the project:
Program Csptrs_ex
! Solution of system of linear equations with complex symmetric matrix
use lapack95
Integer,parameter::m=200,mm=m*(m+1)/2
Complex R(m,1),A(mm)
Dimension Rran(2*mm),Ipiv(m)
Call Random_seed()
Call Random_number(Rran(1:2*m))
R(:,1)=(Cmplx(Rran(1:m),Rran(m+1:2*m))-(.5,.5))/.382 !Right part
Call Random_number(Rran)
A=(Cmplx(Rran(1:mm),Rran(mm+1:2*mm))-(.5,.5))/.382 !Packed matrix
! Call CSPTRS('U',m,1,A,Ipiv,R,m,info) ! Fortran 77
Call CSPTRS(A,R,Ipiv,'U',info) ! Fortran 95
! Test solutions:
Print "('CSPTRS/MKL(LAPACK)/:'/' info=',i4)",info
If (info/=0) Stop
pause 'OK'
End program Csptrs_ex
As a result of error:
Error 1 error LNK2019: unresolved external symbol CSPTRS referenced in function MAIN__ Csptrs_ex.obj
Error 2 fatal error LNK1120: 1 unresolved externals x64 \ Debug \ Console3.exe
What's wrong?
Thanks, Wladimir.
Intel Fortran 11.1.051, Visual Studio 2008, Windows 7 HB.
Implemented full installation. We are trying to link the project:
Program Csptrs_ex
! Solution of system of linear equations with complex symmetric matrix
use lapack95
Integer,parameter::m=200,mm=m*(m+1)/2
Complex R(m,1),A(mm)
Dimension Rran(2*mm),Ipiv(m)
Call Random_seed()
Call Random_number(Rran(1:2*m))
R(:,1)=(Cmplx(Rran(1:m),Rran(m+1:2*m))-(.5,.5))/.382 !Right part
Call Random_number(Rran)
A=(Cmplx(Rran(1:mm),Rran(mm+1:2*mm))-(.5,.5))/.382 !Packed matrix
! Call CSPTRS('U',m,1,A,Ipiv,R,m,info) ! Fortran 77
Call CSPTRS(A,R,Ipiv,'U',info) ! Fortran 95
! Test solutions:
Print "('CSPTRS/MKL(LAPACK)/:'/' info=',i4)",info
If (info/=0) Stop
pause 'OK'
End program Csptrs_ex
As a result of error:
Error 1 error LNK2019: unresolved external symbol CSPTRS referenced in function MAIN__ Csptrs_ex.obj
Error 2 fatal error LNK1120: 1 unresolved externals x64 \ Debug \ Console3.exe
What's wrong?
Thanks, Wladimir.
Link kopiert
1 Antworten
- Als neu kennzeichnen
- Lesezeichen
- Abonnieren
- Stummschalten
- RSS-Feed abonnieren
- Kennzeichnen
- Anstößigen Inhalt melden
Quoting - wladimir47
! Call CSPTRS('U',m,1,A,Ipiv,R,m,info) ! Fortran 77
Call CSPTRS(A,R,Ipiv,'U',info) ! Fortran 95
http://software.intel.com/en-us/articles/intel-mkl-link-line-advisor/
in your choice of MKL libraries?

Antworten
Themen-Optionen
- RSS-Feed abonnieren
- Thema als neu kennzeichnen
- Thema als gelesen kennzeichnen
- Diesen Thema für aktuellen Benutzer floaten
- Lesezeichen
- Abonnieren
- Drucker-Anzeigeseite