Astronet Поиск по астрономическим сайтам English Russian
       
        Точная форма слов   О проекте   Сайты   Справка
Поиск по:star.arm.ac.uk/   - Поискать по всем серверам
Найдено документов: 17 (1 сайтов) ---- Время поиска: 0.09сек.   

Показаны документы, содержащие фрагменты текста из документа
http://star.arm.ac.uk/f77to90/c10.html.

1. Generic routines
... We now also have the possibility to write our own generic functions or subroutines. ... PROGRAM SWAP _MAIN IMPLICIT NONE INTEGER :: I, J, K, L REAL :: A, B, X, Y CHARACTER :: C, D, E, F INTERFACE SWAP SUBROUTINE SWAP _R(A, B) REAL, INTENT ( INOUT ) :: A, B END SUBROUTINE SWAP _R SUBROUTINE SWAP _I(A, B) INTEGER, INTENT ( INOUT ) :: A, B END SUBROUTINE SWAP _I SUBROUTINE SWAP _C(A, B) CHARACTER, INTENT ( INOUT ) :: A, B END SUBROUTINE SWAP _C ...
[ Сохраненная копия ]  Ссылки http://star.arm.ac.uk/f77to90/c10.html -- 6.2 Кб -- 11.02.1996
Похожие документы
Еще в разделе: (Показать все результаты (>17) - crydee.sai.msu.ru/ )


Астронет | Научная сеть | ГАИШ МГУ | Поиск по МГУ | О проекте | Авторам

Комментарии, вопросы? Пишите: info@astronet.ru или сюда

Rambler's Top100 RFBR Яндекс цитирования