Added PRIVATE/PUBLIC attribute explicitly in mk_preset.py.

h-m0r1 · h-m0r1 · commit 09e1eee38481 · 2023-05-23T18:03:11.000-04:00
diff --git a/mk_preset.py b/mk_preset.py
@@ -84,6 +84,12 @@ def run(nlambda_list, ndigit_list):
   !
   IMPLICIT NONE
   !
+  PRIVATE
+  !
+  INTEGER, PARAMETER :: DP = KIND(0d0)
+  !
+  PUBLIC :: mk_ir_preset
+  !
 """, end="")
     for nlambda in nlambda_list:
         for ndigit in ndigit_list:

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,12 @@ def run(nlambda_list, ndigit_list):`
`84`	`84`	`!`
`85`	`85`	`IMPLICIT NONE`
`86`	`86`	`!`
	`87`	`+ PRIVATE`
	`88`	`+ !`
	`89`	`+ INTEGER, PARAMETER :: DP = KIND(0d0)`
	`90`	`+ !`
	`91`	`+ PUBLIC :: mk_ir_preset`
	`92`	`+ !`
`87`	`93`	`""", end="")`
`88`	`94`	`for nlambda in nlambda_list:`
`89`	`95`	`for ndigit in ndigit_list:`