You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
955 B
26 lines
955 B
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
COMMON /MASS/ IM, IR, IX, IS, ID, IV, IC, IZ, IXXX, IXG,
|
||
|
|
* IXINI, IAJ, IECEN, IW
|
||
|
|
|
||
|
|
C POINTERS USED IN MASS PROPERTIES CALCULATION:
|
||
|
|
|
||
|
|
C IM Material block array
|
||
|
|
C IR Coordinate array
|
||
|
|
C IX Connectivity array
|
||
|
|
C IS Element block Mass array
|
||
|
|
C ID Element block Density array
|
||
|
|
C IV Element block Volume array
|
||
|
|
C IC Location of centroid
|
||
|
|
C IZ Moments of inertia
|
||
|
|
C IXXX Shape function array
|
||
|
|
C IXG Global quadrature point locations
|
||
|
|
C IXINI Sum of shape function functions
|
||
|
|
C IAJ Jacobian matrix
|
||
|
|
C IECEN Element Centroid location
|
||
|
|
C IW Element Wave Speed Array
|