Ecuacion de rdw en fortran

DIAGRAMA DE FLUJO.
I
*

“Introduce el valor de la temperatura”
“Introduce el valor de la temperatura critica”

T

Tc

a←0.42748 R2 Tc2.5Pc

“Introduce el valor de lapresión critica”

b← 0.08664 R Tc Pc

Pc

FIN

P← RTV-b- aTV(V+b)

“Introduce el valor del volumen”

“La presión del sistema es”,
P
V

FIN
*

PROGRAMACION EN LEGNGUAJEFORTRAN

! INSTITUTO POLITECNICO NACIONAL
! ESCUELA SUPERIOR DE INGENIERIA QUIMICA E INDUSTRIAS EXTRACTIVAS
! PROGRAMA PARA CALCULAR LA PRESION EN UN SISTEMA CON LA ECUACION DEREDLICH KWONG
! CREADO POR: ING. SUAREZ ROJAS ISAIAS
! Last change: SUR 13 Feb 2011 2:39 pm
PROGRAM ECUACION DE REDLICH KWONG
PRINT *, 'PROGRAMA PARA CALCULAR LA PRESION ENUN SISTEMA CON LA ECUACION DE REDLICH KWONG'
PRINT *, ''
PRINT *, ''
PRINT *, 'INTRODUCE EL VALOR DE LA TEMPERATURA CRITICA----> '
READ (*,*) Tc
PRINT *,''
PRINT *, ''
PRINT*, 'INTRODUCE EL VALOR DE LA PRESION CRITICA--------> '
READ (*,*) Pc
PRINT *, ''
PRINT *, ''
PRINT *, 'INTRODUCE EL VALOR DEL VOLUMEN------------------> '
READ (*,*) VPRINT *, ''
PRINT *, ''
PRINT *, 'INTRODUCE EL VALOR DE LA TEMPERATURA------------> '
READ (*,*) T
a=(0.42748*(((8.314**2)*(Tc**2.5))/Pc))
b=(0.08664*((8.314*Tc)/Pc))P=((8.314*T)/(V-b))+(a/(SQRT((T*V)*(V+b))))
PRINT *, 'LA PRESION DEL SISTEMA ES DE--------------------> ', P
END PROGRAM

EJECUCIÓN DEL PROGRAMA

PROGRAMA PARA CALCULAR LA PRESIONEN UN SISTEMA CON LA ECUACION DE REDLICH KWONG

INTRODUCE EL VALOR DE LA TEMPERATURA CRITICA----> 385

INTRODUCE EL VALOR DE LA PRESION CRITICA--------> 41.25

INTRODUCEEL VALOR DEL VOLUMEN------------------> 3.78

INTRODUCE EL VALOR DE LA TEMPERATURA------------> 473.15

LA PRESION DEL SISTEMA ES DE--------------------> 13863.9736