findgroup.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	findgroupc (iparg, igrouc, ngrouc, igroupc, igrouptg)
subroutine	findgroups (iparg, igroups)

Function/Subroutine Documentation

findgroupc()

subroutine findgroupc	(	integer, dimension(nparg,*)	iparg,
		integer, dimension(*)	igrouc,
		integer	ngrouc,
		integer, dimension(numelc)	igroupc,
		integer, dimension(numeltg)	igrouptg )

Definition at line 28 of file findgroup.F.

C----6---------------------------------------------------------------7---------8
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 IPARG(NPARG,*), NGROUC, IGROUC(*)
      INTEGER IGROUPC(NUMELC), IGROUPTG(NUMELTG)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, IG, NG, NEL, NFT, ITY
C-----------------------------------------------
C
       DO ig = 1, ngrouc
         ng  =igrouc(ig)
         nel =iparg(2,ng)
         nft =iparg(3,ng)
         ity =iparg(5,ng)
         IF(ity==3) THEN
           DO i=1,nel
             igroupc(i+nft)=ng
           ENDDO
         ELSEIF(ity==7) THEN
           DO i=1,nel
             igrouptg(i+nft)=ng
           ENDDO
         ENDIF
       ENDDO
C
       RETURN

findgroups()

subroutine findgroups	(	integer, dimension(nparg,*)	iparg,
		integer, dimension(numels)	igroups )

Definition at line 73 of file findgroup.F.

C----6---------------------------------------------------------------7---------8
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"
C-----------------------------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARG(NPARG,*)
      INTEGER IGROUPS(NUMELS)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, NG, NEL, NFT, ITY
C-----------------------------------------------
C
      DO ng = 1, ngroup
         nel =iparg(2,ng)
         nft =iparg(3,ng)
         ity =iparg(5,ng)
         IF(ity == 1) THEN
           DO i=1,nel
             igroups(i+nft)=ng
           ENDDO
         ENDIF
      ENDDO
C
      RETURN