строка для реального преобразования в gfortran

Question

Я сделал программу gfortran, которая использовала инструкцию READ, чтобы передать строку в реальную.

Проблема: Когда строка ('1.00000E-03') считывается из файла с помощью команды READ (строка (54:67), *) т возвращений программы для T: 1.76617300510772955878279319145152225E-0003. Это неправильное обращение.

Но когда я пишу READ ('1.00000E-03', *) t, то программа возвращает 1.00000000000366461737654319145152225E-0003. Все нормально.

Кто-нибудь признает этот провал? Кто может мне помочь?

Answer 1

Джон,

вы должны прочитать AS реальным. ли что-то вроде этого (и, как вы не показали заявления типа):

Program so 
Implicit None 
character(8)::fchar 
real(kind=4):: rnum 

write(20,'(a6)') "1.2345" 
close(20) 
open(22,file='fort.20') 
!fchar=line(54:67) 
read(22,'(f8.4)') rnum 
close(22) 
write(*,'(f8.4)')rnum 
End Program so 

Надеется, что это поможет.