stat_quad_mp.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	stat_quad_mp (itab, ipart, igeo, ixq, ipartq, ipart_state, nodtag, stat_indxq, iparg, elbuf_tab)

Function/Subroutine Documentation

stat_quad_mp()

subroutine stat_quad_mp	(	integer, dimension(*)	itab,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(npropgi,*)	igeo,
		integer, dimension(nixq,*)	ixq,
		integer, dimension(*)	ipartq,
		integer, dimension(*)	ipart_state,
		integer, dimension(*)	nodtag,
		integer, dimension(*)	stat_indxq,
		integer, dimension(nparg,*)	iparg,
		type (elbuf_struct_), dimension(ngroup), target	elbuf_tab )

Definition at line 33 of file stat_quad_mp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod 
      USE my_alloc_mod
      use element_mod , only : nixq
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      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ITAB(*), IPART(LIPART1,*),IPARTQ(*),
     .        IGEO(NPROPGI,*), IXQ(NIXQ,*), IPART_STATE(*),
     .        NODTAG(*), STAT_INDXQ(*),
     .        IPARG(NPARG,*)
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, N, JJ, IPRT
      INTEGER NG, NEL, NFT, LFT, LLT, ITY
      INTEGER,DIMENSION(:),ALLOCATABLE::NP
      INTEGER,DIMENSION(:,:),ALLOCATABLE:: CLEF
      TYPE(G_BUFEL_)  ,POINTER :: GBUF     
C-----------------------------------------------
C     QUAD
C-----------------------------------------------
      CALL my_alloc(np,4*numelq)
      CALL my_alloc(clef,2,numelq)
C-----------------------------------------------
      jj = 0
      IF(numelq/=0)THEN
 
       DO ng=1,ngroup
        ity   =iparg(5,ng)
        nel   =iparg(2,ng)
        nft   =iparg(3,ng)
        gbuf => elbuf_tab(ng)%GBUF   
        lft=1
        llt=nel
        IF(ity == 2) THEN
          DO i=lft,llt
            n  = i + nft
            iprt=ipartq(n)
            IF(ipart_state(iprt)==0)cycle
 
              nodtag(ixq(2,n))=1
              nodtag(ixq(3,n))=1
              nodtag(ixq(4,n))=1
              nodtag(ixq(5,n))=1
 
 
          END DO
        END IF
       END DO
 
      ENDIF
C-----------------------------------------------
      DEALLOCATE(np)
      DEALLOCATE(clef)
C-----------------------------------------------
      RETURN