anchor.diff:     !      we need to check this somehow to make sure the right routines are called.
      ! (or define a directive that uses
   
  +   ! http://www.netlib.org/lapack/explore-html/ 
  +   
  +   
      IMPLICIT  NONE
   
      INTERFACE LAPACK_gbsv ! Computes the solution to system of linear equations A * X = B for GB matrices
  
positive.code:    RETURN
     END SUBROUTINE LAPACK_SGBSV
  !=======================================================================
     SUBROUTINE LAPACK_DGESV ( N, A, IPIV, B, ErrStat, ErrMsg )
  
  
  
negative.code: ! This code provides a wrapper for the LAPACK routines currently used at the NWTC (mainly codes in the FAST framework).
  !
  !**********************************************************************************************************************************
  ! File last committed: $Date: 2015-02-18 13:36:26 -0700 (Wed, 18 Feb 2015) $
  ! (File) Revision #: $Rev: 290 $
  ! URL: $HeadURL: https://windsvn.nrel.gov/NWTC_Library/branches/NetLib/NWTC_source/NWTC_LAPACK.f90 $
  !**********************************************************************************************************************************
  MODULE NWTC_LAPACK
  
     USE NWTC_Base        ! we only need the precision and error level constants
     
     
  !   USE, INTRINSIC               :: ISO_C_Binding, only: C_FLOAT, C_DOUBLE          ! this is included in NWTC_Library
  
        ! Notes:
  