i25gapmsave.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i25gapmsave (gap_m, gapmsav, msr, nrtm, itask)

Function/Subroutine Documentation

i25gapmsave()

subroutine i25gapmsave	(		gap_m,
			gapmsav,
		integer, dimension(*)	msr,
		integer	nrtm,
		integer	itask )

Definition at line 29 of file i25gapmsave.F.

C sauvegarde des GAPMSAV et calcul borne domaine
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ITASK, NRTM, MSR(*)
      my_real
     .        gap_m(*), gapmsav(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NRTMF,NRTML,I, J 
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
C
      nrtmf = 1 + itask * nrtm / nthread
      nrtml = (itask+1) * nrtm / nthread
C
      DO i=nrtmf, nrtml
        gapmsav(i) = gap_m(i)
      ENDDO
C
      RETURN