Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Andrew10

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
program test                                      
integer n
 
n = 1000000
call foo(n)
stop
end program test
 
 
subroutine foo(N)                               !1
integer N                                           !2
                                                        !3
!   real*8 :: local_array(1000000)        !4
real*8 :: local_array(N)                       !5
                                                         !6
local_array(1:N) = 1.0d0                     !7
return                                                !8
end subroutine foo                              !9
 
Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 21:34 31-10-2009 | Исправлено: Andrew10, 22:48 31-10-2009
Открыть новую тему     Написать ответ в эту тему

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

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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru