формат вывода

На примере данной программы написанной на Fortran'e скажите пожалуйста что сделать, чтобы при вводе дробных значений исходных данных результат не округливался, а выдавался тоже с дробной частью? Желательно на примере нижеприведенного кода.









program lr3 !ia?aei i?ia?aiiu

character povtor !iienaiea ia?aiaiiuo
character(16), parameter :: input1='Please, input C '
character(17), parameter :: input2='Please, input S1 '
character(17), parameter :: input3='Please, input S2 '
character(17), parameter :: input4='Please, input S3 '
character(17), parameter :: input5='Please, input S4 '
character(16), parameter :: input6='Please, input Y '
character(17), parameter :: input7='Please, input RR '
character(18), parameter :: input8='Please, input RPR '
character(18), parameter :: input9='Please, input RBN '
character(16), parameter :: input10='Please, input A '
character(16), parameter :: input11='Please, input B '
character(17), parameter :: input12='Please, input RF '
character(17), parameter :: input13='Please, input RK '
character(40) right

real b, c, d, e, g, h, i, l, m, a, j, k, f, n, o, p !iienaiea ia?aiaiiuo
logical:: log


data right / 'OTBET HA RESHENIE:' /
write(*, '(T10,8hHello!!!, //)') !auaia i?eaaonoaey

1 write(*,'(T10,a,//)')'Laboratory work 3' !iacaaiea ?aaiou

33 format(a50,i3,a9,f3.5) !oi?iaou aaiaa
34 format(a50,f8.3)
44 format(a15,i2,x,a4,o3,x,a4,b5,f2.8)

66 format (5x,a,f9.2,3x)


write (*,45) "vvedite ishodnie dannie" !Aaia aaiiuo e i?iaa?ea
45 format (\, Tr5, a, /) !Oaaoee?iaaiea auaiaeiuo aaiiuo - oi?iaoiue aaia


log=.true.
write(*,'(1x,tl5,a,\)')input1 !aaia ia?aiaiiuo
read(*,'(i, bn)') a
write(*,'(1x,tr1,a,\)')input2
read(*,'(i, bz)') b
write(*,'(1x,tr3,a,\)')input3
read(*,'(i)') c

write(*,'(1x,tl5,a,\)')input4
read(*,'(i, bn)') d
write(*,'(1x,tr1,a,\)')input5
read(*,'(i, bz)') e
write(*,'(1x,tr3,a,\)')input6
read(*,'(i)') f


write(*,'(1x,tl5,a,\)')input7
read(*,'(i, bn)') g
write(*,'(1x,tr1,a,\)')input8
read(*,'(i, bz)') h
write(*,'(1x,tr3,a,\)')input9
read(*,'(i)') i

write(*,'(1x,tl5,a,\)')input10
read(*,'(i, bn)') j
write(*,'(1x,tr1,a,\)')input11
read(*,'(i, bz)') k
write(*,'(1x,tr3,a,\)')input12
read(*,'(i)') l

write(*,'(1x,tl5,a,\)')input13
read(*,'(i, bn)') m
write(*,'(1x,tr1,a,\)')input14


n=a-b+c+d+e !iniiaiua au?eneaiey
write (*,45) right
write(*,66) 'S=',n
if (n.gt.f) then
write(*,44) 'S bolshe Y' !i?eiaaea?iinou e Y
else if (n.lt.f) then
write(*,44) 'S menshe Y'
else
write(*,44) 'S ravno Y'
End if

o=g+h+i-n
write(*,66) 'RB=',o
if (o.ge.j .and. o.le.k) then
write(*,45) ' RB prinadlegit intervaly [a,b] ' !i?eiaaea?iinou e eioa?aaeo [a,b]
else
write(*,45) 'RB ne prinadlegit intervaly [a,b] '
end if

p=o-l-m
write(*,66) 'PPC=',p
if (p.ge.j .and. p.le.a) then
write(*,45) ' PPC prinadlegit intervaly [a,c] ' !i?eiaaea?iinou e eioa?aaeo [a,c]
else
write(*,45) 'PPC ne prinadlegit intervaly [a,c] '
end if

print*
print*,'=================================='
print*

print* !cai?in ia iiaoi?aiea caaa?e
write(*,'(1x,a,\)')'Do you want to repeat calculations? '
read*, povtor
select case (povtor)
case ('YES','yes','Yes','Y','y')
write(*,'(//,a,/)')'========================================='
goto 1
end select

end program lr3 !caaa?oaiea ?aaiou i?ia?aiiu