inslin.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"
#include "com04_c.inc"
#include "scr03_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inslin (nrt, msn, irect, noint, slin_nodes, itab, msv, ntag)

Function/Subroutine Documentation

inslin()

subroutine inslin	(	integer	nrt,
		integer	msn,
		integer, dimension(4,*)	irect,
		integer	noint,
		integer, dimension(nrt,2)	slin_nodes,
		integer, dimension(*)	itab,
		integer, dimension(*)	msv,
		integer, dimension(2*numnod+1), intent(inout)	ntag )

Definition at line 33 of file inslin.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C     READING SURFACE AND NUMBERING SEGMENTS
C           IN : NRT
C           OUT :IRECT
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE format_mod , ONLY : fmw_4i
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      "units_c.inc"
#include      "com04_c.inc"
#include      "scr03_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NRT, NOINT,MSN
      INTEGER IRECT(4,*),ITAB(*),MSV(*),SLIN_NODES(NRT,2)
      INTEGER, DIMENSION(2*NUMNOD+1), INTENT(INOUT) ::  NTAG
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, K
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
C=======================================================================
        DO j=1,nrt
          DO k=1,2
            irect(k,j)=slin_nodes(j,k)
          ENDDO
          irect(3,j)=0
          irect(4,j)=0
        ENDDO
        IF(ipri>=1) THEN
          WRITE(iout,'(/,A,/)')' SEGMENTS USED FOR SURFACE DEFINITION'
          k=1
          DO i=1,nrt
            WRITE(iout,fmt=fmw_4i)(itab(irect(k,i)),k=1,2)
          ENDDO      
        ENDIF
        IF (nrt > 0) CALL count3(irect,msv,msn,nrt,ntag)
C------------------------------------------------------------
      RETURN