i1chk2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i1chk2 (x, irect, ixq, nrt, nint, nsn, nsv, noint, id, titr)

Function/Subroutine Documentation

i1chk2()

subroutine i1chk2	(		x,
		integer, dimension(4,*)	irect,
		integer, dimension(*)	ixq,
		integer	nrt,
		integer	nint,
		integer	nsn,
		integer, dimension(*)	nsv,
		integer	noint,
		integer	id,
		character(len=nchartitle)	titr )

Definition at line 34 of file i1chk2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        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   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NRT, NINT, NSN, NOINT
      INTEGER IRECT(4,*), IXQ(*), NSV(*)
      my_real x(3,*)
      INTEGER ID
      CHARACTER(LEN=NCHARTITLE)::TITR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, II, NEL, IG, IL
      my_real ym1, ym2, zm1, zm2, ye(4) ,ze(4)
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
C
      ! LOOP OVER FLUID SEGMENTS (SECND)
      DO i=1,nrt
        ii=i
        !SEARCH FOR QUAD CONNECTED TO CURRENT FLUID SEGMENT
        CALL inrch2(x    , irect, ixq, ii ,  nel,
     .              nint , ym1  , ym2, zm1,
     .              zm2  , ye   , ze , id ,  titr)
 
        !CHECK SEGMENT CONNECTIVITY, REVERSE IT IF NEEDED
        CALL inori2(irect, ii   , nel,  nint,
     .              noint, ym1  , ym2,  zm1,  zm2 ,
     .              ye   , ze )
      ENDDO
C-----------------------------------------------
C     IRECT <- REPLACE INTERNAL IDENTIFIER 'IG' WITH LOCAL ID 'IL' FROM FLUID NODES : NSV(IL)=IG
C-----------------------------------------------
      ! LOOP OVER FLUID SEGMENTS (SECND)
      DO i=1,nrt
 
        ig=irect(1,i)
        ! NSV(IL)=IG , IL \in [1:NSN]
        CALL local_index(il,ig,nsv,nsn)  !NSV:list of fluid nodes (ordered),  !NSN:number of fluid nodes
        irect(1,i)=il
 
        ig=irect(2,i) !also for other segment node.
        ! NSV(IL)=IG , IL \in [1:NSN]
        CALL local_index(il,ig,nsv,nsn)
        irect(2,i)=il
 
      ENDDO
C-----------------------------------------------
      RETURN