i14ist.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	i14ist (ipari, intbuf_tab, igrsurf, bufsf)

Function/Subroutine Documentation

i14ist()

subroutine i14ist	(	integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
		type (surf_), dimension(nsurf)	igrsurf,
			bufsf )

Definition at line 31 of file i14ist.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE intbufdef_mod
      USE groupdef_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      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*)
      my_real 
     .  bufsf(*)
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
      TYPE (SURF_)   , DIMENSION(NSURF)   :: IGRSURF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NRTM, NTY, NRTS
      INTEGER ISRF, ADRBUF
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO n=1,ninter
        nty=ipari(7,n)
        IF (nty==14 .OR. nty==15) THEN
          !Surfaces mains (une seule surface ...).
          nrtm   = ipari(4,n)
          isrf   = intbuf_tab(n)%KSURF(1)
          adrbuf = igrsurf(isrf)%IAD_BUFR
          !Forces exercees sur l'ellipsoide (somme des ... / interfaces).
          bufsf(adrbuf+25)=zero
          bufsf(adrbuf+26)=zero
          bufsf(adrbuf+27)=zero   
          !Moments exerces sur l'ellipsoide (somme des ... / interfaces).
          bufsf(adrbuf+28)=zero
          bufsf(adrbuf+29)=zero
          bufsf(adrbuf+30)=zero   
          !Rigidites d'interface en translation (somme des ... / interfaces).
          bufsf(adrbuf+31)=zero
          !Rigidites d'interface en rotation (somme des ... / interfaces).
          bufsf(adrbuf+32)=zero
        ENDIF
      ENDDO !next n
C-----------------------------------------------
      RETURN