if (ratio < 0.2) then
WRITE(*,*) "We need mixing."
WRITE(*,*)"Please enter the data:"
WRITE(*,*)
WRITE(*,*)"Mix:"
READ(*,*)mix
WRITE(*,*)
WRITE(*,*)"Diameter:"
READ(*,*)diameter
WRITE(*,*)
WRITE(*,*)"At the flow",aflowrate(1),"m3/hr, pressure is ",ac1c2(1)
WRITE(*,*)"At the...