i2chk3.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i2chk3 (x, irect, ixs, nrt, ixc, nint, nsn, nsv, noint, ixtg, irtl, st, dmin, geo, pm, knod2els, knod2elc, knod2eltg, nod2els, nod2elc, nod2eltg, igrsurf, thk, nty, ixs10, ixs16, ixs20, igeo, pm_stack, iworksh)

Function/Subroutine Documentation

i2chk3()

subroutine i2chk3	(		x,
		integer, dimension(4,*)	irect,
		integer, dimension(nixs,*)	ixs,
		integer	nrt,
		integer, dimension(nixc,*)	ixc,
		integer	nint,
		integer	nsn,
		integer, dimension(*)	nsv,
		integer	noint,
		integer, dimension(nixtg,*)	ixtg,
		integer, dimension(*)	irtl,
			st,
			dmin,
			geo,
			pm,
		integer, dimension(*)	knod2els,
		integer, dimension(*)	knod2elc,
		integer, dimension(*)	knod2eltg,
		integer, dimension(*)	nod2els,
		integer, dimension(*)	nod2elc,
		integer, dimension(*)	nod2eltg,
		type (surf_)	igrsurf,
			thk,
		integer	nty,
		integer, dimension(*)	ixs10,
		integer, dimension(*)	ixs16,
		integer, dimension(*)	ixs20,
		integer, dimension(*)	igeo,
			pm_stack,
		integer, dimension(*)	iworksh )

Definition at line 36 of file i2chk3.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE groupdef_mod
      use element_mod , only :nixs,nixc,nixtg
C---------------------------------------------------------------------
C     CHECK ELEMENT FOR TYPE 2 (ISEARCH=2)
C     THE GLOBAL NODE IS NOT REPLACED BY THE LOCAL NODE IN IRECT
C---------------------------------------------------------------------
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      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NRT, NINT, NSN, NOINT,NTY
      INTEGER IRECT(4,*), IXS(NIXS,*), IXC(NIXC,*),
     .   NSV(*), IXTG(NIXTG,*),IRTL(*),
     .   KNOD2ELS(*), KNOD2ELC(*), KNOD2ELTG(*), NOD2ELS(*), NOD2ELC(*), 
     .   NOD2ELTG(*),IXS10(*), IXS16(*), IXS20(*),
     .   IGEO(*),IWORKSH(*)
C
      my_real
     .   x(3,*),st(2,*),dmin(*),geo(npropg,*), pm(npropm,*),thk(*), 
     .   pm_stack(*)
      TYPE (SURF_) :: IGRSURF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, INRT, NELS, NELC, NELTG
      my_real area
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
C
      DO i=1,nrt
        inrt=i
C
        CALL inelts(x           ,irect,ixs  ,nint,nels         ,
     .              inrt        ,area ,noint,0   ,igrsurf%ELTYP,
     .              igrsurf%ELEM)
        CALL ineltc(nelc ,neltg ,inrt ,igrsurf%ELTYP, igrsurf%ELEM)
        IF(nels+nelc+neltg/=0) cycle
C      
        CALL insol3(x,irect,ixs,nint,nels,inrt,
     .              area,noint,knod2els ,nod2els ,0 ,ixs10,
     .              ixs16,ixs20)
        CALL incoq3(irect,ixc ,ixtg ,nint   ,nelc     ,
     .              neltg,inrt,geo  ,pm     ,knod2elc ,
     .              knod2eltg ,nod2elc ,nod2eltg,thk,nty,igeo,
     .              pm_stack  , iworksh )
C
        IF(nels+nelc+neltg==0)THEN
           CALL ancmsg(msgid=93,
     .                 msgtype=msgwarning,
     .                 anmode=aninfo_blind_2,
     .                 i2=noint,
     .                 i1=i)
        ENDIF
      ENDDO
C
      DO i=1,nsn
        irtl(i)=0
        st(1,i)=nine
        st(2,i)=nine
        dmin(i)=ep20
      ENDDO
C
      RETURN