Найдено документов: 41 (1 сайтов) ---- Время поиска: 0.05сек. |
Показаны документы, содержащие фрагменты текста из документа
http://star.arm.ac.uk/f77to90/code/test_qu2.f90.
http://star.arm.ac.uk/f77to90/code/test_qu2.f90.
1. http://star.arm.ac.uk/f77to90/code/test_qu2.f90
PROGRAM TEST_ADAPTIVE_QUAD IMPLICIT NONE INTERFACE FUNCTION F(X) RESULT ( FUNCTION_VALUE ) REAL , INTENT (IN) :: X REAL :: FUNCTION_VALUE END FUNCTION F END INTERFACE INTERFACE RECURSIVE FUNCTION ADAPTIVE_QUAD (F, A, B, FA, FB, TOL , ABS_ERROR ) RESULT ( RESULT ) REAL , EXTERNAL :: F REAL , INTENT (IN) :: A, B, FA, FB, TOL REAL , INTENT (OUT) :: ...
[
Сохраненная копия
]
Ссылки http://star.arm.ac.uk/f77to90/code/test_qu2.f90 -- 2.6 Кб -- 09.01.1996
Похожие документы
Похожие документы
Еще в разделе:
(Показать все результаты (>41) - crydee.sai.msu.ru/ )
Астронет | Научная сеть | ГАИШ МГУ | Поиск по МГУ | О проекте | Авторам
Комментарии, вопросы? Пишите: info@astronet.ru или сюда