| Найдено документов: 961 (2 сайтов) ---- Время поиска: 0.06сек. |
Показаны документы, содержащие фрагменты текста из документа
http://star.arm.ac.uk/f77to90/code/solve.f90.
http://star.arm.ac.uk/f77to90/code/solve.f90.
1. http://star.arm.ac.uk/f77to90/code/solve.f90
SUBROUTINE SOLVE_LINEAR_SYSTEM(A, X, B, ERROR) IMPLICIT NONE ! Array specifications DOUBLE PRECISION, DIMENSION (:, :), INTENT (IN) :: A DOUBLE PRECISION, DIMENSION (:), INTENT (OUT) :: X DOUBLE PRECISION, DIMENSION (:), INTENT (IN) :: B LOGICAL, INTENT (OUT) :: ERROR ! The work area M is A extended with B DOUBLE PRECISION, DIMENSION (SIZE (B), SIZE (B) + 1) :: M INTEGER, DIMENSION (1) :: MAX_LOC DOUBLE PRECISION, DIMENSION (SIZE (B) + 1) :: TEMP_ROW INTEGER :: N, K ! ...
[
Сохраненная копия
]
Ссылки http://star.arm.ac.uk/f77to90/code/solve.f90 -- 3.0 Кб -- 09.01.1996
Похожие документы
Похожие документы
Еще в разделе:
(Показать все результаты (>45) - crydee.sai.msu.ru/ )
2. IYA Astronomy Competition - deadline extended to 15 December 2009 |
... IYA 2009 FREE TO ENTER COMPETITION: deadline extended . Due to a late surge of interest, the closing date for this competition has been given one FINAL extension - . to 15 December 2009. ... Thursday, 3 December 2009 16:10 . International Year of Astronomy, Ireland National Node . ...
[
Сохраненная копия
]
Ссылки http://star.arm.ac.uk/scholars/iya/competitions/astronomy_competition.html -- 8.2 Кб -- 31.12.2009
Похожие документы
Похожие документы
Еще в разделе:
(Показать все результаты (>916) - star.arm.ac.uk/ )