bubanoid Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: module Rho implicit none contains   real(8) function Rho_my(xi)     implicit none     real(8), intent(in) :: xi     integer nf     common/n_float/nf     ... end function Rho_my       subroutine Rho_subra(f,z)     implicit none     real(8) f,z     external f     common/n_float/nf     common/n/n          nf=func(n)     z=f(0.0d0)          contains     integer function func(n)        ...     end function     end subroutine Rho_subra     end module Rho end Всего записей: 101 | Зарегистр. 22-11-2007 | Отправлено: 19:55 02-12-2010

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование