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