From e7d98ed6dbd819ad8ce17e8ac7f24be41ced6416 Mon Sep 17 00:00:00 2001 From: william-dawson Date: Tue, 21 Apr 2020 14:31:50 +0900 Subject: [PATCH] Permutation destructor added to examples. (#146) --- Examples/HydrogenAtom/main.f90 | 1 - Examples/OverlapMatrix/main.f90 | 4 +++- Examples/PremadeMatrix/main.f90 | 4 +++- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Examples/HydrogenAtom/main.f90 b/Examples/HydrogenAtom/main.f90 index 92e3ac65..b7cd2121 100644 --- 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 index 44a53ac7..9a8ec862 100644 --- 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 index 90dd414e..962b9595 100644 --- 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)