surface_buffer.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	surface_buffer (ixs, ixs10, ixc, sh4tree, sh3tree, ixtg, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, nseg, iext, ipartc, iparts, ipartg, clause, buftmpsurf, iad_surf, opt_o, ipart, knod2elq, nod2elq, x, ixq, keyset)

Function/Subroutine Documentation

surface_buffer()

subroutine surface_buffer	(	integer, dimension(nixs,*)	ixs,
		integer, dimension(6,*)	ixs10,
		integer, dimension(nixc,*)	ixc,
		integer, dimension(*)	sh4tree,
		integer, dimension(*)	sh3tree,
		integer, dimension(nixtg,*)	ixtg,
		integer, dimension(*)	knod2els,
		integer, dimension(*)	nod2els,
		integer, dimension(*)	knod2elc,
		integer, dimension(*)	nod2elc,
		integer, dimension(*)	knod2eltg,
		integer, dimension(*)	nod2eltg,
		integer	nseg,
		integer	iext,
		integer, dimension(*)	ipartc,
		integer, dimension(*)	iparts,
		integer, dimension(*)	ipartg,
		type (set_)	clause,
		integer, dimension(*)	buftmpsurf,
		integer	iad_surf,
		integer	opt_o,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	knod2elq,
		integer, dimension(*)	nod2elq,
			x,
		integer, dimension(nixq,*)	ixq,
		character(len=ncharfield)	keyset )

Definition at line 34 of file surface_buffer.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE setdef_mod
      USE names_and_titles_mod , ONLY : ncharfield
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
#include      "remesh_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IXS(NIXS,*),KNOD2ELS(*),NOD2ELS(*),IXS10(6,*),
     .        KNOD2ELC(*),NOD2ELC(*),KNOD2ELTG(*),NOD2ELTG(*),
     .        IXC(NIXC,*),IXTG(NIXTG,*),IPARTC(*),IPARTG(*),
     .        BUFTMPSURF(*),IPARTS(*),SH4TREE(*),SH3TREE(*),
     .        IPART(LIPART1,*),KNOD2ELQ(*),NOD2ELQ(*),IXQ(NIXQ,*)
      INTEGER IEXT,NSEG,IAD_SURF,OPT_O
      CHARACTER(LEN=NCHARFIELD) :: KEYSET
      my_real x(3,*)
!
      TYPE (SET_) ::  CLAUSE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C=======================================================================
!------------------
!             counting / buffering CLAUSE surface segments from elems ( EXT / ALL )
!---
!
!     ---  solid ---
      IF ( clause%NB_SOLID > 0 ) CALL solid_surface_buffer(
     .                            ixs      ,ixs10    ,ixc      ,ixtg      ,clause   ,
     .                            knod2els ,nod2els  ,knod2elc ,nod2elc   ,knod2eltg,
     .                            nod2eltg ,nseg     ,iext     ,buftmpsurf,iparts   ,
     .                            iad_surf ,keyset)
!
!     ---  shell + sh3n ---
!
      IF (nadmesh == 0) THEN
        IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer(
     .                             ixc     ,nixc      ,2         ,5         ,3     ,
     .                             nseg    ,iad_surf  ,opt_o     ,buftmpsurf,clause)
        IF ( clause%NB_SH3N > 0 .AND. numeltria == 0) 
     .                            CALL shell_surface_buffer(
     .                             ixtg     ,nixtg     ,2        ,4         ,7     ,
     .                             nseg     ,iad_surf  ,opt_o    ,buftmpsurf,clause)
      ELSE
        IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer_remesh(
     .                             ixc     ,nixc      ,2   ,5      ,3     ,
     .                             nseg    ,iad_surf  ,buftmpsurf,clause    ,ipartc ,
     .                             ipart   ,ksh4tree  ,sh4tree   )
        IF ( clause%NB_SH3N > 0 .AND. numeltria == 0) 
     .                            CALL shell_surface_buffer_remesh(
     .                             ixtg     ,nixtg     ,2         ,4         ,7     ,
     .                             nseg     ,iad_surf  ,buftmpsurf,clause    ,ipartg,
     .                             ipart    ,ksh3tree  ,sh3tree   )
      ENDIF ! IF (NADMESH == 0)
!
!     ---  quad --- external surface only ( EXT )
!
      IF ( clause%NB_QUAD > 0 ) CALL quad_surface_buffer(
     .                           ixq     ,iad_surf ,buftmpsurf ,nseg  ,knod2elq ,
     .                           nod2elq ,iext     ,x          ,clause)
!---
      RETURN