Merge pull request #55 from hphratchian/master

Updates from Hrant.
MQCPack · May 24, 2023 · c2b0bb1 · c2b0bb1
2 parents 60ab416 + 36e1200
commit c2b0bb1
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/src/mqc_algebra2.F03 b/src/mqc_algebra2.F03
@@ -595,7 +595,6 @@ end function MQC_Variable_getRank
 !PROCEDURE MQC_Variable_getSize
       function MQC_Variable_getSize(mqcVariable,iDimension) result(mySize)
 !
-!     This function operates on MQC_Variable opjects in an analogous manner to
 !     the fortran intrinsic funciotn SIZE. When called, this function will
 !     return an integer corresponding to the size of dimension iDimension. If
 !     iDimension is NOT sent or is sent <= 0, this function returns the full

diff --git a/src/mqc_matwrapper.F03 b/src/mqc_matwrapper.F03
@@ -1,4 +1,4 @@
-!#define UCMGAUOPEN
+!hph#define UCMGAUOPEN
       Module MQC_MatWrapper
 !
 !     **********************************************************************