i21reset.F File Reference

#include "implicit_f.inc"
#include "com08_c.inc"
#include "param_c.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21reset (ipari, intbuf_tab, nin, itask)

Function/Subroutine Documentation

i21reset()

subroutine i21reset	(	integer, dimension(npari,*)	ipari,
		type(intbuf_struct_)	intbuf_tab,
		integer	nin,
		integer	itask )

Definition at line 30 of file i21reset.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE intbufdef_mod 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com08_c.inc"
#include      "param_c.inc"
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NIN, ITASK, IPARI(NPARI,*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, FIRST, LAST,
     .        NSN
C     REAL
      my_real
     .   startt, stopt, tol
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
C---------------------------------------------------- 
C  Calcul des adresses des buffers d'interfaces. 
C----------------------------------------------------
C
      nsn   =ipari(5,nin)
C
      startt=intbuf_tab%VARIABLES(3)
      stopt =intbuf_tab%VARIABLES(11)
      IF(startt>tt) RETURN
      IF(tt>stopt)  RETURN
C
      first = 1 + nsn*itask / nthread
      last = nsn*(itask+1) / nthread
      DO n=first,last
          intbuf_tab%IRTLM(2*(n-1)+1)=0
          intbuf_tab%CSTS(2*(n-1)+1)  =-one
          intbuf_tab%CSTS(2*(n-1)+2)=-one
      END DO
C
      RETURN