anchor.diff:  !  MODULE : anisotropy_ajn
   !
   !  (C) James Wookey, September 2005 - 2008
  -!  Department of Earth Sciences, University of Bristol
  +!  School of Earth Sciences, University of Bristol
   !  j.wookey@bristol.ac.uk
   !
   !  (C) Andy Nowacki, October 2008 -
  
positive.code:       real(rs), parameter, private :: big_number = 10.e36_rs
  
  !  ** Hide the helper functions and subroutines
        private :: inverse, &
                   determinant
  
        CONTAINS
  
  !===============================================================================
     subroutine thom(vp,vs,rho,eps,gam,del,c)
  
negative.code: !   * Removed the unnecessary rho from arguments to CIJ_VTI2thom
  !     WARNING: This will break codes which use this function,
  !     however none exist that I know of.                        2013/05
  !   * Added CIJ_phase_vels                                      2014/09
  !===============================================================================
     module anisotropy_ajn
  !===============================================================================
  