i1chk3.F File Reference

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

Go to the source code of this file.

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

Function/Subroutine Documentation

i1chk3()

subroutine i1chk3	(		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,
			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	id,
		character(len=nchartitle)	titr,
		integer, dimension(*)	igeo,
			pm_stack,
		integer, dimension(*)	iworksh )

Definition at line 37 of file i1chk3.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C     CHECK ELEMENT FOR TYPE 1 AND 2 (ISEARCH=1)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE groupdef_mod
      USE message_mod
      USE names_and_titles_mod , ONLY : nchartitle
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,*),
     .   KNOD2ELS(*), KNOD2ELC(*), KNOD2ELTG(*), NOD2ELS(*), NOD2ELC(*), 
     .   NOD2ELTG(*), IXS10(*), IXS16(*), IXS20(*),
     .   IGEO(*), IWORKSH(*)
      my_real
     .   x(3,*),geo(npropg,*), pm(npropm,*),thk(*),pm_stack(*)
      INTEGER ID
      CHARACTER(LEN=NCHARTITLE) :: TITR
      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, J, IG, IL
      my_real area
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO i=1,nrt
        inrt=i
        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
        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 )
        IF(nels+nelc+neltg==0)THEN
           IF(nint>0) THEN
              CALL ancmsg(msgid=92,
     .                    msgtype=msgwarning,
     .                    anmode=aninfo_blind_2,
     .                    i1=id,
     .                    c1=titr,
     .                    i2=i)
           ENDIF
           IF(nint<0) THEN
              CALL ancmsg(msgid=93,
     .                    msgtype=msgwarning,
     .                    anmode=aninfo_blind_2,
     .                    i1=id,
     .                    c1=titr,
     .                    i2=i)
           ENDIF
        ENDIF
      enddo!next I
      !LE NOEUD GLOBAL EST REMPLACE PAR LE NOEUD LOCAL DANS IRECT
      DO i=1,nrt
        DO j=1,4
          ig=irect(j,i)
          CALL local_index(il,ig,nsv,nsn)
          irect(j,i)=il
        ENDDO
      ENDDO
C-----------------------------------------------
      RETURN