bubanoid Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: program correct_and_simple use mod   implicit none   real(8) x1, x2, z1, z2, z3, z4, z5, z6   x1 = -Pi x2 = Pi   ptrF = LOC(f1) z1 = integration(f0, x1, x2) CALL D_QDAGS(f0, x1, x2, z2) call problematic(f0, x1, x2, z3)  ! при запуске выдаёт ошибку write (*, '(3ES14.4)')  z1, z2, z3   ptrF = LOC(f2) z4 = integration(f0, x1, x2) CALL D_QDAGS(f0, x1, x2, z5) call problematic(f0, x1, x2, z6)  ! при запуске выдаёт ошибку write (*, '(3ES14.4)')  z4, z5, z6   pause end program correct_and_simple Всего записей: 101 | Зарегистр. 22-11-2007 | Отправлено: 03:07 23-12-2012 | Исправлено: bubanoid, 03:10 23-12-2012

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

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

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