bubanoid Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:  program Rho_new     use Rho, only: Rho_my,Rho_subra     implicit none     integer i,n,nf     real(8) xi,z     common/n/n     common/n_float/nf         n=3     nf=n           Rez=Rho_my(xi)     call Rho_subra(Rho_my,z)     ........         ! далее Rho_my(xi) и Rho_subra(Rho_my,z) используются многократно     ! и что бы использовать Rho_my(xi) с каким-то n, заданном в программе       ! я пишу nf=n после каждого выполения процедуры. Этого хотелось бы избавиться     ! так как программа громоздкая и это присвоение можно прохлопать.     ...... 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование