Fix Convention Violations (#3133)

cp2k · Nov 27, 2023 · 0b3f9b5 · 0b3f9b5
1 parent bbd14a5
commit 0b3f9b5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 12 deletions.
diff --git a/src/atom_kind_orbitals.F b/src/atom_kind_orbitals.F
@@ -62,17 +62,6 @@ MODULE atom_kind_orbitals
 
    CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'atom_kind_orbitals'
 
-   INTEGER, PARAMETER                                 :: nua = 40, nup = 20
-   REAL(KIND=dp), DIMENSION(nua), PARAMETER :: ugbs = (/0.007299_dp, 0.013705_dp, 0.025733_dp, &
-                                        0.048316_dp, 0.090718_dp, 0.170333_dp, 0.319819_dp, 0.600496_dp, 1.127497_dp, 2.117000_dp, &
-                                                 3.974902_dp, 7.463317_dp, 14.013204_dp, 26.311339_dp, 49.402449_dp, 92.758561_dp, &
-                                                      174.164456_dp, 327.013024_dp, 614.003114_dp, 1152.858743_dp, 2164.619772_dp, &
-                                                4064.312984_dp, 7631.197056_dp, 14328.416324_dp, 26903.186074_dp, 50513.706789_dp, &
-                                         94845.070265_dp, 178082.107320_dp, 334368.848683_dp, 627814.487663_dp, 1178791.123851_dp, &
-                                                      2213310.684886_dp, 4155735.557141_dp, 7802853.046713_dp, 14650719.428954_dp, &
-                                                  27508345.793637_dp, 51649961.080194_dp, 96978513.342764_dp, 182087882.613702_dp, &
-                                                        341890134.751331_dp/)
-
    PUBLIC :: calculate_atomic_orbitals, calculate_atomic_density, &
              calculate_atomic_relkin, gth_potential_conversion
 

diff --git a/src/subsys/external_potential_types.F b/src/subsys/external_potential_types.F
@@ -2870,7 +2870,7 @@ SUBROUTINE write_sgp_potential(potential, output_unit)
 
       CHARACTER(LEN=40)                                  :: string
       INTEGER                                            :: i, l
-      CHARACTER(LEN=1), DIMENSION(0:10) :: &
+      CHARACTER(LEN=1), DIMENSION(0:10), PARAMETER :: &
          slqval = ["s", "p", "d", "f", "g", "h", "j", "k", "l", "m", "n"]
 
       IF (output_unit > 0) THEN