Dudus Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору character(10) ch ! поскольку файл текстовый, последовательный, вводим временную переменную (внутренний файл) real f(2) integer itmp open(1,file='test.txt') do i=1,2    read(1,'(a)') ch    read(ch,'(i)',iostat=er) itmp    if (er == 0) then       read(ch,'(i)',iostat=er) itmp         f(i)=real(itmp)    else       read(ch,'(f)') f(i)    end if    print *,f(i) end do end ! содержимое сильно укороченного test.txt: ! 12.4   ! 6 Всего записей: 126 | Зарегистр. 10-12-2004 | Отправлено: 22:33 09-03-2010

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

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

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