anchor.diff:     FUNCTION Mean ( Ary, AryLen )
   
   
  +   !NOTE: We should make AryLen an optional argument and use SIZE( Ary ) if it is not present.
  +
         ! This routine calculates the mean value of an array.
   
   
  
positive.code: 
     RETURN
     END FUNCTION Cross_Product
  !=======================================================================
  !   SUBROUTINE GetPermMat ( InpMat, PMat, ErrStat )
  !
  
negative.code: 
        ! Global numeric-related variables.
  
     REAL(DbKi)                                :: D2R_D                         ! Factor to convert degrees to radians in double precision
     REAL(DbKi)                                :: Inf_D                         ! IEEE value for NaN (not-a-number) in double precision
     REAL(DbKi)                                :: Inv2Pi_D                      ! 0.5/Pi (1/(2*Pi)) in double precision
     REAL(DbKi)                                :: NaN_D                         ! IEEE value for Inf (infinity) in double precision
     REAL(DbKi)                                :: Pi_D                          ! Ratio of a circle's circumference to its diameter in double precision
     REAL(DbKi)                                :: PiBy2_D                       ! Pi/2 in double precision
     REAL(DbKi)                                :: R2D_D                         ! Factor to convert radians to degrees in double precision
     REAL(DbKi)                                :: RPM2RPS_D                     ! Factor to convert revolutions per minute to radians per second in double precision
     REAL(DbKi)                                :: RPS2RPM_D                     ! Factor to convert radians per second to revolutions per minute in double precision
     REAL(DbKi)                                :: TwoByPi_D                     ! 2/Pi in double precision
     REAL(DbKi)                                :: TwoPi_D                       ! 2*Pi in double precision
  
  
     REAL(ReKi)                                :: D2R                           ! Factor to convert degrees to radians
     REAL(ReKi)                                :: Inf                           ! IEEE value for NaN (not-a-number)
     REAL(ReKi)                                :: Inv2Pi                        ! 0.5/Pi = 1 / (2*pi)
     REAL(ReKi)                                :: NaN                           ! IEEE value for Inf (infinity)
     REAL(ReKi)                                :: Pi                            ! Ratio of a circle's circumference to its diameter
     REAL(ReKi)                                :: PiBy2                         ! Pi/2
     REAL(ReKi)                                :: R2D                           ! Factor to convert radians to degrees
     REAL(ReKi)                                :: RPM2RPS                       ! Factor to convert revolutions per minute to radians per second
     REAL(ReKi)                                :: RPS2RPM                       ! Factor to convert radians per second to revolutions per minute
     REAL(ReKi)                                :: TwoByPi                       ! 2/Pi
     REAL(ReKi)                                :: TwoPi                         ! 2*Pi
  
     INTEGER, ALLOCATABLE                      :: IntIndx  (:,:)                ! The array of indices holding that last index used for interpolation in IntBlade()
     INTEGER, PARAMETER                        :: BITS_IN_ADDR  = C_INTPTR_T*8  ! The number of bits in an address (32-bit or 64-bit).
  
     TYPE, PUBLIC               :: CubSplineType                                ! This derived type is used to hold data for performing cubic splines.
        INTEGER                                :: NumPts                        ! The number of points in the XAry and YAry arrays.
        REAL(ReKi), ALLOCATABLE                :: Coef      (:,:)               ! The NumPts-1 length array of cubic coefficients.  The second dimension must be "0:3".
        REAL(ReKi), ALLOCATABLE                :: XAry      (:)                 ! The NumPts length array of x values for the interpolation.
        REAL(ReKi), ALLOCATABLE                :: YAry      (:)                 ! The NumPts length array of y values for the interpolation.
     END TYPE CubSplineType
  
     TYPE, PUBLIC               :: RegCubSplineType                             ! This derived type is used to hold data for performing cubic splines wuth regularly-spaced data.
        INTEGER                                :: NumPts                        ! The number of points in the XAry and YAry arrays.
        REAL(ReKi), ALLOCATABLE                :: Coef      (:,:)               ! The NumPts-1 length array of cubic coefficients.  The second dimension must be "0:3".
        REAL(ReKi)                             :: DelX                          ! The distance between the equally spaced points in XAry.
        REAL(ReKi), ALLOCATABLE                :: XAry      (:)                 ! The NumPts length array of x values for the interpolation.
        REAL(ReKi), ALLOCATABLE                :: YAry      (:)                 ! The NumPts length array of y values for the interpolation.
     END TYPE RegCubSplineType
  
     TYPE, PUBLIC               :: RegGridType                                  ! This derived type is used to hold the contents of a regular grid of data.
        INTEGER                                :: NumDims                       ! The number of dimensions for this grid.
        REAL(ReKi), ALLOCATABLE                :: Mins      (:)                 ! The set of minimums for the grid in each NumDims dimensions.
        REAL(ReKi), ALLOCATABLE                :: Steps     (:)                 ! The set of step sizes for the grid in each NumDims dimensions.
        REAL(ReKi), ALLOCATABLE                :: Grid      (:)                 ! The NumDims dimensional grid.
     END TYPE RegGridType
  
  
  !=======================================================================
  