stat_quad_spmd.F File Reference

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

Go to the source code of this file.

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

Function/Subroutine Documentation

stat_quad_spmd()

subroutine stat_quad_spmd	(	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,
		integer	lengq,
		type (elbuf_struct_), dimension(ngroup), target	elbuf_tab )

Definition at line 32 of file stat_quad_spmd.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod
      USE my_alloc_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      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
#include      "spmd_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ITAB(*), IPART(LIPART1,*),
     .        IGEO(NPROPGI,*), IXQ(NIXQ,*),
     .        IPARTQ(*), IPART_STATE(*),
     .        NODTAG(*), STAT_INDXQ(*),
     .        IPARG(NPARG,*),LENGQ,IDEL
      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, BUF, IPRT0, K, STAT_NUMELQ_1
      INTEGER NG, NEL, NFT, LFT, LLT, ITY, ISOLNOD, IOFF
      INTEGER WORK(70000)
      INTEGER,DIMENSION(:),ALLOCATABLE::IADD
      INTEGER,DIMENSION(:,:),ALLOCATABLE::IADG
      INTEGER,DIMENSION(:),ALLOCATABLE::NP
      INTEGER,DIMENSION(:),ALLOCATABLE::NPGLOB
      INTEGER,DIMENSION(:,:),ALLOCATABLE:: CLEF
      TYPE(G_BUFEL_)  ,POINTER :: GBUF     
C-----------------------------------------------
C     8 NODES BRICK
C-----------------------------------------------
      CALL my_alloc(iadg,nspmd,npart)
      CALL my_alloc(iadd,npart+1)
      CALL my_alloc(np,24*numelqg)
      CALL my_alloc(npglob,24*numelqg)
      CALL my_alloc(clef,2,numelqg)
C-----------------------------------------------
      jj = 0
      DO ng=1,ngroup
        ity   =iparg(5,ng)
        isolnod = iparg(28,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
 
C-----------------------------------------------
      DEALLOCATE(iadg)
      DEALLOCATE(iadd)
      DEALLOCATE(np)
      DEALLOCATE(npglob)
      DEALLOCATE(clef)
C-----------------------------------------------
      RETURN