anchor.diff:        If(.not.MQC_Matrix_HaveComplex(Matrix)) Call MQC_Error('Incoming matrix not real in MQC_Matrix_Copy_Complex2Real')
         Matrix%MatR = Real(Matrix%MatC)
         If(Allocated(Matrix%MatC)) Deallocate(Matrix%MatC)
  -      Matrix%Data_Type = 'Complex'
  +      Matrix%Data_Type = 'Real'
   !
         Return
         End Subroutine MQC_Matrix_Copy_Complex2Real
  
positive.code:       Type(MQC_Matrix)::Matrix
  !
        If(.not.MQC_Matrix_HaveInteger(Matrix)) Call MQC_Error('Incoming matrix not integer in MQC_Matrix_Copy_Int2Real')
        Call MQC_Allocate_Matrix(MQC_Matrix_Rows(Matrix),MQC_Matrix_Columns(Matrix),Matrix, &
          'Real',Matrix%Storage)
        Matrix%MatR = Matrix%MatI
        If(Allocated(Matrix%MatI)) Deallocate(Matrix%MatI)
  !
        Return
        End Subroutine MQC_Matrix_Copy_Int2Real
  
negative.code:       function mqc_matrix_determinant(a) result(det)
  !
  !     This function returns the determinant of MQC matrix A.
  !
  !     Lee M. Thompson, 2016.
  !
  