insurf23.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	insurf23 (nrt, msn, ir, irect, noint, surf_nodes, itab, msv, nrtnew, x, ntag)

Function/Subroutine Documentation

insurf23()

subroutine insurf23	(	integer	nrt,
		integer	msn,
		integer	ir,
		integer, dimension(4,*)	irect,
		integer	noint,
		integer, dimension(nrt,4)	surf_nodes,
		integer, dimension(*)	itab,
		integer, dimension(*)	msv,
		integer	nrtnew,
			x,
		integer, dimension(2*numnod+1), intent(inout)	ntag )

Definition at line 33 of file insurf23.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE format_mod , ONLY : fmw_4i
C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C     READING SURFACE AND NUMBERING SEGMENTS
C           IN :  NRT NUMBER OF ITEMS TO READ
C           OUT : IRECT
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      "com01_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, IR, MSN, NRTNEW
      INTEGER IRECT(4,*), ITAB(*), MSV(*),SURF_NODES(NRT,4)
      INTEGER, DIMENSION(2*NUMNOD+1), INTENT(INOUT) ::  NTAG
      my_real x(3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, K, K4, N1, N2, N3, N4
C=======================================================================
      nrtnew=0
 
      i=1                                                   
      DO j=1,nrt
        n1=surf_nodes(j,1)
        n2=surf_nodes(j,2)
        n3=surf_nodes(j,3)
        n4=surf_nodes(j,4)
        nrtnew=nrtnew+1
        irect(1,nrtnew)=n1
        irect(2,nrtnew)=n2
        irect(3,nrtnew)=n3
        irect(4,nrtnew)=n4
      ENDDO                                                 
C-------          
      IF(ipri>=1) THEN                                              
        WRITE(iout,'(/,A,/)')' SEGMENTS USED FOR SURFACE DEFINITION'  
        k=1                                                           
        k4=4                                                          
        IF(n2d/=0)k4=2                                              
        DO i=1,nrtnew                                                    
          WRITE(iout,fmt=fmw_4i)(itab(irect(k,i)),k=1,k4)             
        ENDDO                                                         
      ENDIF                                                           
      IF (nrtnew/=0) CALL count3(irect,msv,msn,nrtnew,ntag)                         
C------------------------------------------------------------
      RETURN