admerr.F File Reference

#include "implicit_f.inc"
#include "comlock.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	admerr (ixc, ixtg, x, iparg, elbuf_tab, ipart, ipartc, iparttg, err_thk_sh4, err_thk_sh3, iad_elem, fr_elem, weight, sh4tree, sh3tree, area_sh4, area_sh3, area_nod, thick_sh4, thick_sh3, thick_nod)

Function/Subroutine Documentation

admerr()

subroutine admerr	(	integer, dimension(nixc,*)	ixc,
		integer, dimension(nixtg,*)	ixtg,
			x,
		integer, dimension(nparg,*)	iparg,
		type(elbuf_struct_), dimension(ngroup)	elbuf_tab,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartc,
		integer, dimension(*)	iparttg,
			err_thk_sh4,
			err_thk_sh3,
		integer, dimension(2,*)	iad_elem,
		integer, dimension(*)	fr_elem,
		integer, dimension(*)	weight,
		integer, dimension(ksh4tree,*)	sh4tree,
		integer, dimension(ksh3tree,*)	sh3tree,
			area_sh4,
			area_sh3,
			area_nod,
			thick_sh4,
			thick_sh3,
			thick_nod )

Definition at line 36 of file admerr.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE elbufdef_mod           
      use element_mod , only : nixc,nixtg 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.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-----------------------------------------------
C     REAL
      INTEGER  
     .   IXC(NIXC,*), IXTG(NIXTG,*),IPARG(NPARG,*),
     .   IAD_ELEM(2,*), FR_ELEM(*), WEIGHT(*), 
     .   IPART(LIPART1,*), IPARTC(*), IPARTTG(*),
     .   SH4TREE(KSH4TREE,*), SH3TREE(KSH3TREE,*)
      my_real
     .   x(3,*), err_thk_sh4(*), err_thk_sh3(*)
      TYPE(ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
      my_real area_sh4(numelc)
      my_real area_sh3(numeltg)
      my_real area_nod(numnod)
      my_real thick_sh4(numelc)
      my_real thick_sh3(numeltg)
      my_real thick_nod(numnod)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IERROR
C     REAL
C-----------------------------------------------
C
      IF(ierror/=0) THEN
        CALL ancmsg(msgid=153,anmode=aninfo_blind,
     .            i1=ierror)
        CALL arret(2)
      END IF
C
      area_sh4=zero
      area_sh3=zero
C
      area_nod =zero
      thick_nod=zero
C
      err_thk_sh4(1:numelc) =zero
      err_thk_sh3(1:numeltg)=zero
C     elts belonging to adapted parts
      CALL admthke(
     .       ixc     ,ixtg    ,x       ,iparg   ,elbuf_tab,
     .       ipart   ,ipartc  ,iparttg ,iad_elem,fr_elem ,
     .       weight  ,area_sh4,area_sh3,area_nod,thick_sh4 ,
     .       thick_sh3 ,thick_nod , err_thk_sh4, err_thk_sh3,
     .       sh4tree ,sh3tree )
 
c-----------
      RETURN