i2chk3.F File Reference

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
C---------------------------------------------------------------------
C     CHECK ELEMENT FOR TYPE 2 (ISEARCH=2)
C     LE NOEUD GLOBAL N'EST PAS REMPLACE PAR LE NOEUD LOCAL DANS 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, L, JJ, NN
      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