read_mrconne: allocate MULTB_DS

RQC-HU · Nov 21, 2024 · 205259b · 205259b
1 parent 115a4aa
commit 205259b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/read_mrconee.f90 b/src/read_mrconee.f90
@@ -434,6 +434,9 @@ subroutine create_multiplication_table
                 print '(50I3)', (SD(i, j), j=1, nsymrpa)
             End do
         end if
+        if (.not. allocated(MULTB_DS)) then
+            allocate (MULTB_DS(1:NSYMRPA, 1:NSYMRPA)); Call memplus(size(MULTB_DS), kind(MULTB_DS), 1)
+        end if
         MULTB_DS = transpose(SD)
         if (debug .and. rank == 0) then
             print *, 'MULTB_DS'