Skip to content

Commit 98d15b9

Browse files
committed
Added PRIVATE/PUBLIC attribute explicitly.
1 parent 1878d25 commit 98d15b9

File tree

3 files changed

+33
-6
lines changed

3 files changed

+33
-6
lines changed

sparse_ir.f90

Lines changed: 18 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,8 @@ MODULE sparse_ir
44
!
55
IMPLICIT NONE
66
!
7+
PRIVATE
8+
!
79
INTEGER, PARAMETER :: DP = KIND(0d0)
810
REAL(KIND = DP), PARAMETER :: one = 1.0D0
911
REAL(KIND = DP), PARAMETER :: zero = 0.0D0
@@ -57,6 +59,13 @@ MODULE sparse_ir
5759
MODULE PROCEDURE evaluate_matsubara_b_from_dlr_zz, evaluate_matsubara_b_from_dlr_dz
5860
END INTERFACE evaluate_matsubara_b_from_dlr
5961
!
62+
PUBLIC :: DecomposedMatrix_z, DecomposedMatrix_d, IR
63+
PUBLIC :: init_ir, set_beta, finalize_ir
64+
PUBLIC :: evaluate_tau, evaluate_matsubara_f, evaluate_matsubara_b
65+
PUBLIC :: fit_tau, fit_matsubara_f, fit_matsubara_b
66+
PUBLIC :: to_dlr
67+
PUBLIC :: evaluate_tau_from_dlr, evaluate_matsubara_f_from_dlr, evaluate_matsubara_b_from_dlr
68+
!
6069
!-----------------------------------------------------------------------
6170
TYPE DecomposedMatrix_z
6271
!-----------------------------------------------------------------------
@@ -393,6 +402,7 @@ SUBROUTINE finalize_ir(obj)
393402
!
394403
TYPE(IR) :: obj
395404
!! contains all the IR-basis objects
405+
!
396406
IF (ALLOCATED(obj%x)) DEALLOCATE(obj%x)
397407
IF (ALLOCATED(obj%tau)) DEALLOCATE(obj%tau)
398408
IF (ALLOCATED(obj%s)) DEALLOCATE(obj%s)
@@ -430,7 +440,7 @@ SUBROUTINE finalize_dmat_z(dmat)
430440
IF (ALLOCATED(dmat%a_odd)) DEALLOCATE(dmat%a_odd)
431441
IF (ALLOCATED(dmat%a_even)) DEALLOCATE(dmat%a_even)
432442
IF (ALLOCATED(dmat%inv_s)) DEALLOCATE(dmat%inv_s)
433-
IF (ALLOCATED(dmat%inv_s)) DEALLOCATE(dmat%inv_s_dl)
443+
IF (ALLOCATED(dmat%inv_s_dl)) DEALLOCATE(dmat%inv_s_dl)
434444
IF (ALLOCATED(dmat%ut)) DEALLOCATE(dmat%ut)
435445
IF (ALLOCATED(dmat%v)) DEALLOCATE(dmat%v)
436446
IF (ALLOCATED(dmat%ut_real)) DEALLOCATE(dmat%ut_real)
@@ -455,7 +465,7 @@ SUBROUTINE finalize_dmat_d(dmat)
455465
IF (ALLOCATED(dmat%a)) DEALLOCATE(dmat%a)
456466
IF (ALLOCATED(dmat%a_real)) DEALLOCATE(dmat%a_real)
457467
IF (ALLOCATED(dmat%inv_s)) DEALLOCATE(dmat%inv_s)
458-
IF (ALLOCATED(dmat%inv_s)) DEALLOCATE(dmat%inv_s_dl)
468+
IF (ALLOCATED(dmat%inv_s_dl)) DEALLOCATE(dmat%inv_s_dl)
459469
IF (ALLOCATED(dmat%ut)) DEALLOCATE(dmat%ut)
460470
IF (ALLOCATED(dmat%v)) DEALLOCATE(dmat%v)
461471
IF (ALLOCATED(dmat%ut_real)) DEALLOCATE(dmat%ut_real)
@@ -1271,6 +1281,7 @@ SUBROUTINE evaluate_matsubara_f_zz(obj, arr, res)
12711281
ENDIF
12721282
DEALLOCATE(res_r)
12731283
DEALLOCATE(res_i)
1284+
DEALLOCATE(arr_half)
12741285
!
12751286
!-----------------------------------------------------------------------
12761287
END SUBROUTINE evaluate_matsubara_f_zz
@@ -1355,6 +1366,7 @@ SUBROUTINE evaluate_matsubara_f_dz(obj, arr, res)
13551366
res = CMPLX(res_r, res_i, KIND = DP)
13561367
DEALLOCATE(res_r)
13571368
DEALLOCATE(res_i)
1369+
DEALLOCATE(arr_half)
13581370
!
13591371
!-----------------------------------------------------------------------
13601372
END SUBROUTINE evaluate_matsubara_f_dz
@@ -1472,6 +1484,7 @@ SUBROUTINE evaluate_matsubara_b_zz(obj, arr, res)
14721484
ENDIF
14731485
DEALLOCATE(res_r)
14741486
DEALLOCATE(res_i)
1487+
DEALLOCATE(arr_half)
14751488
!
14761489
!-----------------------------------------------------------------------
14771490
END SUBROUTINE evaluate_matsubara_b_zz
@@ -1556,6 +1569,7 @@ SUBROUTINE evaluate_matsubara_b_dz(obj, arr, res)
15561569
res = CMPLX(res_r, res_i, KIND = DP)
15571570
DEALLOCATE(res_r)
15581571
DEALLOCATE(res_i)
1572+
DEALLOCATE(arr_half)
15591573
!
15601574
!-----------------------------------------------------------------------
15611575
END SUBROUTINE evaluate_matsubara_b_dz
@@ -1896,7 +1910,7 @@ SUBROUTINE fit_tau_zd(obj, arr, res)
18961910
DEALLOCATE(ut_arr, arr_tmp)
18971911
!
18981912
!-----------------------------------------------------------------------
1899-
END SUBROUTINE
1913+
END SUBROUTINE fit_tau_zd
19001914
!-----------------------------------------------------------------------
19011915
!
19021916
!-----------------------------------------------------------------------
@@ -1989,7 +2003,7 @@ SUBROUTINE fit_tau_dd(obj, arr, res)
19892003
DEALLOCATE(ut_arr)
19902004
!
19912005
!-----------------------------------------------------------------------
1992-
END SUBROUTINE
2006+
END SUBROUTINE fit_tau_dd
19932007
!-----------------------------------------------------------------------
19942008
!
19952009
!-----------------------------------------------------------------------

sparse_ir_io.f90

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,12 @@ MODULE sparse_ir_io
66
!
77
IMPLICIT NONE
88
!
9+
PRIVATE
10+
!
11+
INTEGER, PARAMETER :: DP = KIND(0d0)
12+
!
13+
PUBLIC :: read_ir
14+
!
915
CONTAINS
1016
!
1117
!-----------------------------------------------------------------------
@@ -46,7 +52,6 @@ FUNCTION read_ir(unit, beta, positive_only) RESULT(obj)
4652
END FUNCTION read_ir
4753
!-----------------------------------------------------------------------
4854
!
49-
!
5055
!-----------------------------------------------------------------------
5156
FUNCTION read_v1(unit, beta, positive_only) RESULT(obj)
5257
!-----------------------------------------------------------------------
@@ -207,7 +212,7 @@ FUNCTION read_v1(unit, beta, positive_only) RESULT(obj)
207212
CALL init_ir(obj, beta, lambda, eps, s, tau, freq_f, freq_b, u, uhat_f, uhat_b, omega, v, dlr, 1d-16, positive_only)
208213
ENDIF
209214
!
210-
DEALLOCATE(u, uhat_f, uhat_b, v, dlr)
215+
DEALLOCATE(s, tau, u, freq_f, uhat_f, freq_b, uhat_b, omega, v, dlr)
211216
!
212217
!-----------------------------------------------------------------------
213218
END FUNCTION read_v1

test_sparse_ir.f90

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,14 @@ PROGRAM test
77
!
88
IMPLICIT NONE
99
!
10+
INTEGER, PARAMETER :: DP = KIND(0d0)
11+
REAL(KIND = DP), PARAMETER :: one = 1.0D0
12+
REAL(KIND = DP), PARAMETER :: zero = 0.0D0
13+
REAL(KIND = DP), PARAMETER :: pi = 4.D0*ATAN(1.D0)
14+
COMPLEX(KIND = DP), PARAMETER :: cone = (1.0D0, 0.0D0)
15+
COMPLEX(KIND = DP), PARAMETER :: ci = (0.0D0, 1.0D0)
16+
COMPLEX(KIND = DP), PARAMETER :: czero = (0.0D0, 0.0D0)
17+
!
1018
! use preset
1119
CALL test_fermion(.true., .false., .false., .false.)
1220
CALL test_boson (.true., .false., .false., .false.)

0 commit comments

Comments
 (0)