FIXME : Add documentation
subroutine try_again implicit none write (6, *) '*****************' write (6, *) 'Please try again.' write (6, *) '*****************' end subroutine try_again