How to repeat the IF statement

[260791]

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 flow",aflowrate(2),"m3/hr, pressure is ",ac1c2(2)


else
WRITE(*,*) "The end"
endif


In the "IF then" block I'd like to add "TRY AGAIN?" and if the user wants to try again, it will go back to the beginning of everything and he can input new values.

What statement do I need to use (Fortran 90/95) to go back to the beginning of IF ?

Thanks

 

[GerritGroot]

Looks like homework, but okay

CHARACTER(1) :: TryAgain

TryAgain='Y'
DO WHILE(TryAgain=='Y'.OR.TryAgain=='y')
Your code
WRITE(*,*)'Try Again?'
READ(*,*)TryAgain
END DO