Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Fortran > [General] Где взять SIMQ (FPS 4.0)?

Автор: ForumXXX 13.12.2010, 14:47

Всем доброе время суток.
Пытаюсь написать простую программку, да компилятор (FPS 4.0) не дает.
Ругается:

--------------------Configuration: zadacha2 - Win32 Debug--------------------
Linking...
zadacha2.obj : error LNK2001: unresolved external symbol _SIMQ@16
zadacha2.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
zadacha2.exe - 2 error(s), 0 warning(s)
-----------------------------------------------------------------------------

Подпрограмма SIMQ по идее стандартная. Кто-нибудь, наставьте на путь истинный!

Текст программы:
-----------------------------------------------------------------------------

program ZADACHA2

integer, parameter :: n = 4                  ! Число уравнений в системе
dimension A(n,n)                                  ! Массив коэффициентов при X
dimension B(n)                                         ! Массив свободных членов
integer i                                                ! Параметр цикла
integer IER                                           ! Код ошибки для SIMQ

print *, "ZADANIE 2"

! -- Ввод элементов массивов

print *, "Vvedite koefficzienty pri X po strokam:"
read (*,*) ((a(i,j), j=1,n), i = 1, n)

print *, "Vvedite massiv svobodnyh chlenov:"
read (*,*) (B(i), i = 1, n)

! -- Вызов подпрограммы SIMQ для решения
! системы линейных алгебраических уравнений

call SIMQ(A, B, n, IER)

if (IER.EQ.0) then
print *, "Reshenie najdeno: "
do i = 1, n
write (*, 20) i, B(i)
20 format(2x, "B(", i2, ") = ", f6.3)
end do
end if

if (IER.EQ.1) then
write (*, *) "Reshenie ne najdeno: "
end if

if (IER.EQ.2) then
write (*, *) "Nevernoe kolichestvo uravnenj."
end if

pause "Pause. Press ENTER to continue . . ."

end program ZADACHA2
------------------------------------------------------------------------------
А может быть SIMQ вовсе и не стандартная подпрограмма?

Автор: FCM 13.12.2010, 16:09

Цитата(ForumXXX @ 13.12.2010, 14:47

)

А может быть SIMQ вовсе и не стандартная подпрограмма?

Не стандартная

Автор: ForumXXX 13.12.2010, 16:44

Если можно, аргументируйте.
В литературе подпрограмма SIMQ упоминается как стандартная.
Перерыв Инет, находятся одни материалы где в программе используется SIMQ (как стандартная),
в других подпрограмма SIMQ как пользовательская (приводится юзерский текст подпрограммы).
Help Fortrana (по крайней мере FPS 4.0) не знает такой подпрограммы.
Перепробовал уже несколько компиляторов: и GNU, и Intel, и Compaq - результат один и тот же.
MSDN так же молчит.
Одним словом, МЕНЯ ПЕРЕПОЛНЯЮТ ЭМОЦИИ!!!
Одно дело неразрешимая ссылка когда забыл подключить библиотеку или модуль,
другое - когда даже в документации нет упоминаний о подпрограмме.
Спрашивается, авторы книги - откуда ее выкопали...

Добавлено через 8 минут и 50 секунд
Вот пример
http://s1.ipicture.ru/Gallery/Viewfull/2585070.html

Автор: kemiisto 13.12.2010, 17:14