Permutation destructor added to examples. (#146)

william-dawson · Apr 21, 2020 · e7d98ed · e7d98ed
1 parent 3c06b9a
commit e7d98ed
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/Examples/HydrogenAtom/main.f90 b/Examples/HydrogenAtom/main.f90
@@ -3,7 +3,6 @@
 PROGRAM HydrogenAtom
   USE DataTypesModule, ONLY : NTREAL
   USE DensityMatrixSolversModule, ONLY : TRS2
-  USE PermutationModule, ONLY : Permutation_t, ConstructRandomPermutation
   USE ProcessGridModule, ONLY : ConstructProcessGrid, DestructProcessGrid
   USE PSMatrixModule, ONLY : Matrix_ps, WriteMatrixToMatrixMarket, &
        & ConstructEmptyMatrix, FillMatrixFromTripletList, CopyMatrix, &

diff --git a/Examples/OverlapMatrix/main.f90 b/Examples/OverlapMatrix/main.f90
@@ -2,7 +2,8 @@
 !> An example that shows how to compute the overlap matrix.
 PROGRAM OverlapExample
   USE DataTypesModule, ONLY : NTREAL
-  USE PermutationModule, ONLY : Permutation_t, ConstructRandomPermutation
+  USE PermutationModule, ONLY : Permutation_t, ConstructRandomPermutation, &
+       & DestructPermutation
   USE ProcessGridModule, ONLY : ConstructProcessGrid, global_grid, &
        & DestructProcessGrid
   USE PSMatrixModule, ONLY : Matrix_ps, ConstructEmptyMatrix, &
@@ -124,6 +125,7 @@ PROGRAM OverlapExample
 
   !! Cleanup
   CALL PrintAllTimers()
+  CALL DestructPermutation(permutation)
   CALL DestructMatrix(Overlap)
   CALL DestructMatrix(ISQOverlap)
   CALL DestructProcessGrid

diff --git a/Examples/PremadeMatrix/main.f90 b/Examples/PremadeMatrix/main.f90
@@ -4,7 +4,8 @@ PROGRAM PremadeMatrixProgram
   USE DataTypesModule, ONLY : NTREAL
   USE DensityMatrixSolversModule, ONLY : TRS2
   USE LoggingModule, ONLY : EnterSubLog, ExitSubLog, WriteElement, WriteHeader
-  USE PermutationModule, ONLY : Permutation_t, ConstructRandomPermutation
+  USE PermutationModule, ONLY : Permutation_t, ConstructRandomPermutation, &
+       & DestructPermutation
   USE ProcessGridModule, ONLY : ConstructProcessGrid, IsRoot, &
        & DestructProcessGrid
   USE PSMatrixModule, ONLY : Matrix_ps, ConstructMatrixFromMatrixMarket, &
@@ -111,6 +112,7 @@ PROGRAM PremadeMatrixProgram
   CALL WriteMatrixToMatrixMarket(Density,density_file_out)
 
   !! Cleanup
+  CALL DestructPermutation(permutation)
   CALL DestructMatrix(Overlap)
   CALL DestructMatrix(ISQOverlap)
   CALL DestructMatrix(Hamiltonian)