anchor.diff:        !! The equation is given by:
         !!
         !! \f$ B_{nm}^-(z, \omega_n, \omega_m, \theta_n, \theta_m) =\frac{g^2}{\omega_n \omega_m}
  -      !!             \cdot    \frac{1}{4} \frac{\cosh\left[k_{nm}^-(h+z)\right]}{\cosh\left[k_{nm}^-(h)\right]}
  +      !!             \cdot    \frac{1}{8} \frac{\cosh\left[k_{nm}^-(h+z)\right]}{\cosh\left[k_{nm}^-(h)\right]}
         !!                      \frac{D_{nm}^-}{\omega_n - \omega_m}   \f$
         !!
         FUNCTION TransFuncB_minus(n,m,k_n,k_m,z)
  
positive.code:    PRIVATE
  
  !   INTEGER(IntKi), PARAMETER                             :: DataFormatID = 1  !< Update this value if the data types change (used in Waves2_Pack)
     TYPE(ProgDesc), PARAMETER                             :: Waves2_ProgDesc = ProgDesc( 'Waves2', 'v1.00.00b-adp', '30-Sept-2014' )
                                                                                !< This holds the name of the program, version info, and date.
                                                                                !! It is used by the DispNVD routine in the library and as header
                                                                                !! information in output files.
  
negative.code: 
  
                 ! Calculation of B_plus
              TransFuncB_plus  =  InitInp%Gravity*InitInp%Gravity / ( 8.0_ReKi * Omega_n * Omega_m ) &
                                   * COSHNumOvrCOSHDen(k_nm, InitInp%WtrDpth, z)  * D_plus / ( Omega_n + Omega_m )        ! 4.0_ReKi
  
  
           ENDIF
  