ingrbric_centroids.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	ingrbric_centroids (ibufssg, msv, ixs, nbric)

Function/Subroutine Documentation

ingrbric_centroids()

subroutine ingrbric_centroids	(	integer, dimension(nbric), intent(in)	ibufssg,
		integer, dimension(1:numnod), intent(inout), target	msv,
		integer, dimension(nixs,numels), intent(in)	ixs,
		integer, intent(in)	nbric )

Definition at line 33 of file ingrbric_centroids.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE format_mod , ONLY : fmw_10i
        use element_mod , only : nixs
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,INTENT(IN)    :: NBRIC
      INTEGER,INTENT(IN)    :: IBUFSSG(NBRIC), IXS(NIXS,NUMELS)
      INTEGER,INTENT(INOUT), TARGET :: MSV(1:NUMNOD)
C-----------------------------------------------
C   L o c a l   V a r a i b l e s
C-----------------------------------------------
      INTEGER :: I
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
       
      DO i=1,nbric
        msv(i)=ibufssg(i)
      ENDDO   
 
      !PRINTOUT
      IF(ipri >= 1) THEN
        WRITE(iout,'(/,A,/)')' CENTROID EXTRACTED FROM SOLID ELEMENTS : '
        WRITE(iout,fmt=fmw_10i)(ixs(11,msv(i)),i=1,nbric)
      ENDIF
C------------------------------------------------------------
      RETURN