Merge pull request #137 from HratchianGroup/master

Fixed a gfortan compile-time error in MQC_Binary.

releaseNotes.txt

@@ -11,6 +11,7 @@ in that case will be set to 0.
 September 9, 2024
 * MQCPack version set to 24.9.1
 * Added MQC_Binary to the build list.
+* Fixed a bug in MQC_Binary that caused a compile-time error with gfortran.
 
 August 26, 2024
 * MQCPack version set to 24.8.1

src/mqc_binary.F03

@@ -82,7 +82,7 @@ function MQC_Bits_Initialize(nBits) result(mqc_bits_out)
 !
 !
       implicit none
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
       integer(kind=int64),intent(in),optional::nBits
 !
       integer(kind=int64)::my_nBits,nIntegers
@@ -237,7 +237,7 @@ function MQC_BTest(mqc_bits_in,bitnum) result(bitValue)
       implicit none
       type(mqc_bits),intent(In)::mqc_bits_in
       integer(kind=int64),intent(in)::bitNum
-      logical,intent(out)::bitValue
+      logical::bitValue
 !
       integer(kind=int64)::iInteger,iBitNum
 !
@@ -310,7 +310,7 @@ function MQC_IAnd(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !
@@ -343,7 +343,7 @@ function MQC_IEOR(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !
@@ -376,7 +376,7 @@ function MQC_IOR(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !