anchor.diff:        MODULE PROCEDURE LAPACK_sgbsv
      END INTERFACE
   
  +   INTERFACE LAPACK_gemm   ! Computes scalar1*op( A )*op( B ) + scalar2*C where op(x) = x or op(x) = x**T for matrices A, B, and C
  +      MODULE PROCEDURE LAPACK_dgemm
  +      MODULE PROCEDURE LAPACK_sgemm
  +   END INTERFACE
  +   
  +   
      INTERFACE LAPACK_gesv ! Computes the solution to system of linear equations A * X = B for GE matrices
         MODULE PROCEDURE LAPACK_dgesv
         MODULE PROCEDURE LAPACK_sgesv
  
positive.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: 2014-09-18 15:01:50 -0600 (Thu, 18 Sep 2014) $
  ! (File) Revision #: $Rev: 257 $
  ! 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:
  
negative.code:    !      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
  