SYarD
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста, кто может, решить проблему с подключением IMSL библиотек.
Параметры компьютера: Win XP SP2, Microsoft VS 2005, Intel Fortran Compiler 9.1 (совместимый с VS), Еще есть установленные библиотеки IMSL 5.0 под этот компилятор.
Суть проблемы такая. Не работают функци IMSL библиотеки.
Все пути для библиотек попрописывал в Tools - Options - Intel Fortran Includes и Libraries.
В Progects - Properties - Linker - Input - Additional dependencies записал все библиотеки IMSL, которые были в директории C:\Program Files\VNI\CTT6.0\lib\IA32 (это директория библиотек IMSL). Некоторые процедуры из библиотеки работают (например все функции для вычисления сплайнов и производных, можно взять любую программу для аппроксимации из руководства по IMSl) НО! беру из руководства самую первую программу (пример использования функции lin_sol_gen для решения систем линейных алгебраических уравнений).
use lin_sol_gen_int
use rand_gen_int
use error_option_packet
implicit none
! This is Example 1 for LIN_SOL_GEN.
integer, parameter :: n=32
real(kind(1e0)), parameter :: one=1e0
real(kind(1e0)) err
real(kind(1e0)) A(n,n), b(n,n), x(n,n), res(n,n), y(n**2)
! Generate a random matrix.
call rand_gen(y)
A = reshape(y,(/n,n/))
! Generate random right-hand sides.
call rand_gen(y)
b = reshape(y,(/n,n/))
! Compute the solution matrix of Ax=b.
call lin_sol_gen(A, b, x)
! Check the results for small residuals.
res = b - matmul(A,x)
err = maxval(abs(res))/sum(abs(A)+abs(b))
if (err <= sqrt(epsilon(one))) then
write (*,*) 'Example 1 for LIN_SOL_GEN is correct.'
end if
end
и вот что получаю
1>------ Build started: Project: Console1, Configuration: Debug Win32 ------
1>Compiling with Intel Fortran 9.1 C:\Program Files\Intel\Compiler\Fortran\9.1\IA32\...
1>Source1.F90
1>Linking...
1>imsl.lib(s_lin_sol_gen.obj) : error LNK2019: unresolved external symbol __FIlog referenced in function _S_LIN_SOL_GEN
1>imsls_err.lib(e1pos.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsls_err.lib(e1psh.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsls_err.lib(s_error_post.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsls_err.lib(e1init.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsls_err.lib(erset.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsl.lib(s_lin_sol_gen.obj) : error LNK2019: unresolved external symbol __OtsMove referenced in function _S_LIN_SOL_GEN
1>imsl.lib(AMACH.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsl.lib(SGEMV.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsl.lib(SGEMM.obj) : error LNK2001: unresolved external symbol __OtsMove
1>imsls_err.lib(e1psh.obj) : error LNK2019: unresolved external symbol __OtsMoveMinimum referenced in function _E1PSH
1>imsls_err.lib(s_error_post.obj) : error LNK2001: unresolved external symbol __OtsMoveMinimum
1>imsls_err.lib(m1vech.obj) : error LNK2001: unresolved external symbol __OtsMoveMinimum
1>imsls_err.lib(e1psh.obj) : error LNK2019: unresolved external symbol __OtsFill referenced in function _E1PSH
1>imsls_err.lib(s_error_post.obj) : error LNK2001: unresolved external symbol __OtsFill
1>imsls_err.lib(e1init.obj) : error LNK2001: unresolved external symbol __OtsFill
1>imsls_err.lib(m1vech.obj) : error LNK2001: unresolved external symbol __OtsFill
1>imsls_err.lib(e1pop.obj) : error LNK2019: unresolved external symbol __OtsStringCompareEqlPadded referenced in function _E1POP
1>imsls_err.lib(s_error_post.obj) : error LNK2019: unresolved external symbol _GETENV@16 referenced in function _S_ERROR_POST
1>imsls_err.lib(s_error_post.obj) : error LNK2019: unresolved external symbol _for_trim@16 referenced in function _S_ERROR_POST
1>imsls_err.lib(s_error_post.obj) : error LNK2001: unresolved external symbol _for_trim@16
1>imsls_err.lib(c1tci.obj) : error LNK2019: unresolved external symbol __OtsStringIndex referenced in function _C1TCI
1>imsls_err.lib(e1ucs.obj) : error LNK2019: unresolved external symbol __FXDMOD referenced in function _E1UCS
1>imsls_err.lib(e1ucs.obj) : error LNK2001: unresolved external symbol __FXDMOD
1>imsls_err.lib(e1ucs.obj) : error LNK2001: unresolved external symbol __FXDMOD
1>Debug/Console1.exe : fatal error LNK1120: 9 unresolved externals
1>
1>Build log written to "file://D:\UpProgects\IMSL\Console1\Console1\Debug\BuildLog.htm"
1>Console1 build failed.
1>
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========
Такая вот проблема... Если кто-то что-то может сказать по этому поводу, пишите.
|
Всего записей: 15 | Зарегистр. 20-05-2008 | Отправлено: 17:01 20-05-2008 | Исправлено: SYarD, 17:03 20-05-2008 |
|
