end_loop Subroutine

private subroutine end_loop()

The loop ends here

Arguments

None

Called by

proc~~end_loop~~CalledByGraph proc~end_loop end_loop proc~read_job read_job proc~read_job->proc~end_loop proc~prg_surf prg_surf proc~prg_surf->proc~read_job program~main main program~main->proc~prg_surf

Source Code

   subroutine end_loop()
   !! The loop ends here
   implicit none

      integer(kind=I4) :: i_ligne

      if ( I_ITER < NB_ITER ) then

         rewind(JOB)       ! the maximum number of loops is not reached,
                           ! go to the begining of the script

      else

         I_ITER = NB_ITER  ! the maximum number of loops is reached

         return

      endif

       ! return to the beginning of the loop
      LINE_READ = SAVE_LINE_READ

      do i_ligne = 1, SAVE_LINE_READ

         read(JOB,*)

      enddo

      I_ITER = I_ITER + 1

   return
   endsubroutine end_loop