Skip to content

Commit a0ec7a8

Browse files
committed
Removing unused variables and un-needed comment strings.
1 parent eda0f52 commit a0ec7a8

File tree

1 file changed

+0
-5
lines changed

1 file changed

+0
-5
lines changed

src/utils/string_utils.F90

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -17,10 +17,6 @@ module string_utils
1717
public :: to_str ! Convert integer to left justified string
1818
public :: stringify ! Convert one or more values of any intrinsic data types to a character string for pretty printing
1919

20-
! Private module variables
21-
integer, parameter :: lower_to_upper = iachar("A") - iachar("a")
22-
integer, parameter :: upper_to_lower = iachar("a") - iachar("A")
23-
2420
CONTAINS
2521

2622
subroutine strlist_get_ind(strlist, str, ind, abort)
@@ -39,7 +35,6 @@ subroutine strlist_get_ind(strlist, str, ind, abort)
3935
integer :: m
4036
logical :: abort_on_error
4137
character(len=*), parameter :: sub='strlist_get_ind'
42-
!----------------------------------------------------------------------------
4338

4439
! Find string in list
4540
do m = 1, size(strlist)

0 commit comments

Comments
 (0)