sta_loop Subroutine

private subroutine sta_loop()

Starting the loop

Arguments

None

Called by

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

Source Code

   subroutine sta_loop()
   !! Starting the loop
   implicit none

      read(JOB,*) NB_ITER ; LINE_READ = LINE_READ +1

      write(SPY,*) LINE_READ, I_ITER, '/', NB_ITER

      I_ITER         = 1         ! the account begins
      SAVE_LINE_READ = LINE_READ ! remember where to go when rewinding

   return
   endsubroutine sta_loop