chkstifn.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	chkstifn (ipari, ms, intbuf_tab)
subroutine	chkslv (nsn, nsv, stifn, ms)

Function/Subroutine Documentation

chkslv()

subroutine chkslv	(	integer	nsn,
		integer, dimension(*)	nsv,
			stifn,
			ms )

Definition at line 88 of file chkstifn.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NSN, NSV(*)
C     REAL
      my_real
     .        stifn(*), ms(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
C-----------------------------------------------
      DO i = 1, nsn
C si somme masse nulle sur noeuds secnds alors stifn = -1
        IF (ms(nsv(i))==zero) THEN
          stifn(i) = -one
        ENDIF
      ENDDO
      RETURN

chkstifn()

subroutine chkstifn	(	integer, dimension(npari,*)	ipari,
			ms,
		type(intbuf_struct_), dimension(*)	intbuf_tab )

Definition at line 32 of file chkstifn.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      "com04_c.inc"
#include      "task_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*)
C     REAL
      my_real 
     .   ms(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NMN, NSN,
     .        NRTS, NRTM, NTY
C-----------------------------------------------
C
      DO n=1,ninter
       nty   =ipari(7,n)
       IF(nty==5) THEN
C interface type 5 non // en spmd
         IF(ispmd==0) THEN
           nrts   = ipari(3,n)
           nrtm   = ipari(4,n)
           nsn    = ipari(5,n)
           nmn    = ipari(6,n)
           CALL chkslv(nsn,intbuf_tab(n)%NSV,intbuf_tab(n)%STFNS,ms)
         ENDIF
       ELSE
C autres types d'interfaces
       ENDIF
      ENDDO
C
      RETURN