Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2014, 00:48   #1
Freemandes
 
Регистрация: 02.05.2013
Сообщений: 8
По умолчанию Fortran выдает ошибку

Пытаюсь сделать простенькую программку, которая считывает данные из файла и выводит их в консоль.
Код:
	program BoundCond

	integer v
 	parameter (v=37) 

	real lat, o2, n2, o, h, Oh, ros, tn
 	dimension o2(v), n2(v), o(v), h(v), Oh(v), ros(v), tn(v), lat(v)

	open (11,file='msissr.dat')

21	format(2x,f4.0,6(2x,1pe9.3),2x,0pf6.0)

	do i = 1, v
 
	read (11, 21) lat(i), o2(i), n2(i), o(i), h(i), Oh(i), ros(i)
     *, tn(i) 
        write (*, 21) lat(i), o2(i), n2(i), o(i), h(i), Oh(i), ros(i) 
	*, tn(i)
	read (*,*)
 
	end do
	end
Но появляется ошибка в консоли:
run-time error F6103: READ<msissr.dat>
- invalid REAL

Пожалуйста, помогите с ответом. В чем может быть проблема?

Последний раз редактировалось Freemandes; 04.06.2014 в 00:52.
Freemandes вне форума Ответить с цитированием
Старый 04.06.2014, 01:00   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

судя по ошибке - ему ваше число в файле msissr.dat не нравится, ожидается вещественное, а там - не вещественное.
я бы начал с того, что поигрался с десятичным разделителем...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.06.2014, 02:03   #3
Freemandes
 
Регистрация: 02.05.2013
Сообщений: 8
По умолчанию

Разобрался. Спасибо!
Freemandes вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выдает ошибку! Настюша 1991 Помощь студентам 0 27.04.2014 22:09
выдает ошибку dell2014 PHP 1 20.01.2014 12:08
выдает ошибку (C++) Carter Помощь студентам 2 10.03.2012 17:37
выдает ошибку(( aanaaa Общие вопросы C/C++ 3 26.05.2011 07:13
Выдает ошибку( И.А.А. Общие вопросы C/C++ 1 21.05.2010 19:10