Skip to content

Commit c9d0bde

Browse files
committed
Make public symbols explicit
1 parent 7dc5636 commit c9d0bde

4 files changed

Lines changed: 365 additions & 357 deletions

File tree

src/mctc/data.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -46,6 +46,7 @@ module mctc_data
4646
use mctc_data_paulingen, only : get_pauling_en
4747
use mctc_data_vdwrad, only : get_vdw_rad
4848
implicit none
49+
private
4950

5051
public :: get_atomic_rad, get_covalent_rad, get_pauling_en, get_vdw_rad
5152
end module mctc_data

src/mctc/env.f90

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,11 @@ module mctc_env
4444
& is_unix, is_windows
4545
use mctc_env_timer, only : timer_type, format_time
4646
implicit none
47-
public
47+
private
48+
49+
public :: sp, dp, wp, i1, i2, i4, i8
50+
public :: error_type, fatal_error, mctc_stat
51+
public :: get_argument, get_variable, is_unix, is_windows
52+
public :: timer_type, format_time
4853

4954
end module mctc_env

src/mctc/env/accuracy.f90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,9 @@
1515
!> Numerical storage size parameters for real and integer values
1616
module mctc_env_accuracy
1717
implicit none
18-
public
18+
private
19+
20+
public :: sp, dp, wp, i1, i2, i4, i8
1921

2022
!> Single precision real numbers
2123
integer, parameter :: sp = selected_real_kind(6)

0 commit comments

Comments
 (0)