The TELEMAC-MASCARET system  trunk
Functions/Subroutines
centre_mass_seg.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine centre_mass_seg (X, Y, COORD_G, IKLE, NPOIN, ELTSEG, ORISEG, NELEM, NSEG, JMI, CMI, GLOSEG, IFABOR, MESH)
 

Function/Subroutine Documentation

◆ centre_mass_seg()

subroutine centre_mass_seg ( double precision, dimension(npoin), intent(in)  X,
double precision, dimension(npoin), intent(in)  Y,
double precision, dimension(nseg,4), intent(inout)  COORD_G,
integer, dimension(nelem,3), intent(in)  IKLE,
integer, intent(in)  NPOIN,
integer, dimension(nelem,3), intent(in)  ELTSEG,
integer, dimension(nelem,3), intent(in)  ORISEG,
integer, intent(in)  NELEM,
integer, intent(in)  NSEG,
integer, dimension(nseg), intent(inout)  JMI,
double precision, dimension(2,nseg), intent(inout)  CMI,
integer, dimension(nseg,2), intent(in)  GLOSEG,
integer, dimension(nelem,3), intent(in)  IFABOR,
type(bief_mesh), intent(inout)  MESH 
)
Parameters
[in]nsegORISEG Orientation of segments forming an ELEMENT 1:ANTI 2:CLOCKWISE
[in]XAbscissae of points in the mesh
[in]YOrdinates of points in the mesh
[in]nelemORISEG Orientation of segments forming an ELEMENT 1:ANTI 2:CLOCKWISE
[in]XAbscissae of points in the mesh
[in]YOrdinates of points in the mesh
[in]npoinORISEG Orientation of segments forming an ELEMENT 1:ANTI 2:CLOCKWISE
[in]XAbscissae of points in the mesh
[in]YOrdinates of points in the mesh

Definition at line 8 of file centre_mass_seg.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: