por medio de un programa en fortran clacular presiones de saturacion de una sustancia x

program antoine
!tarea 1
!=================
!carmona rodriguez andrea elizabeth 3Iv5
implicit none
character::sustancia
real::t,p,a,b,c,tmin,tmax
write(*,*)'dame el nombre de la sustancia'
read (*,*)sustancia
write(*,*)'dame el valor de tmin'
read (*,*)tmin
write(*,*)'dame el valor de tmax'
read (*,*)tmax
write(*,*)'dame el valor de a'
read (*,*)a
write(*,*)'dame el valor de b'
read (*,*)b
write(*,*)'dame el valor de c'
read (*,*)c
write(*,*)'dame el valor de t'
read (*,*)t
write(*,*)'A continuacion dse calculan las presion'
if(tmin<=t.and.t<=tmax)then
p=exp(a-(b/(t+c)))
write(*,*)'el valor de las presiones es',p
else
write(*,*)'la temperatura dada no pertenece al intervalo de temperaturas minimas y maximas'
end if
end program