i25maind_2.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	i25maind_2 (ipari, itab, sensor_tab, intlist25, intbuf_tab, x, v, kinet, jtask, nb_dst2, icodt, iskew, nsensor)

Function/Subroutine Documentation

i25maind_2()

subroutine i25maind_2	(	integer, dimension(npari,*)	ipari,
		integer, dimension(*)	itab,
		type (sensor_str_), dimension(nsensor), intent(in)	sensor_tab,
		integer, dimension(*)	intlist25,
		type(intbuf_struct_), dimension(ninter)	intbuf_tab,
			x,
			v,
		integer, dimension(*)	kinet,
		integer	jtask,
		integer, dimension(parasiz)	nb_dst2,
		integer, dimension(*)	icodt,
		integer, dimension(*)	iskew,
		integer, intent(in)	nsensor )

Definition at line 36 of file i25maind_2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE tri7box
      USE intbufdef_mod  
      USE mpi_commod
      USE sensor_mod
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      "com04_c.inc"
#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 ,INTENT(IN) :: NSENSOR
      INTEGER IPARI(NPARI,*), ITAB(*), INTLIST25(*), JTASK,
     .        KINET(*), NB_DST2(PARASIZ), ICODT(*), ISKEW(*)
      my_real :: x(3,*), v(3,*)
      TYPE(INTBUF_STRUCT_),DIMENSION(NINTER) :: INTBUF_TAB
      TYPE (SENSOR_STR_)  ,DIMENSION(NSENSOR) ,INTENT(IN) :: SENSOR_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NIN, NI25, ISENS, LINDMAX
      my_real
     .       ts, startt, stopt
C-----------------------------------------------
      DO ni25=1,ninter25
C
        nin = intlist25(ni25)
C
        lindmax = intbuf_tab(nin)%I_STOK(2)
C
        startt=intbuf_tab(nin)%VARIABLES(3)
        stopt =intbuf_tab(nin)%VARIABLES(11)
        IF(startt>tt) cycle
        IF(tt>stopt)  cycle
C
        isens = ipari(64,nin) 
        IF (isens > 0) THEN    ! Interface activated by sensor
           ts = sensor_tab(isens)%TSTART
        ELSE
           ts = tt
        ENDIF
        IF(tt<ts) cycle
 
        CALL i25comp_2(
     1    ipari   ,intbuf_tab(nin),x   ,itab      ,nin          ,
     2    lindmax ,kinet     ,jtask    ,nb_dst2(jtask),v        ,
     3    icodt   ,iskew     )
C
      ENDDO
C-----------------------------------------------------------------------
      RETURN