Use runtime determination of strings len

Signed-off-by: Igor S. Gerasimov <[email protected]>

src/mctc/symbols.f90

@@ -251,11 +251,11 @@ subroutine getIdentitySymbol(nId, identity, symbol)
    !> Chemical identity
    integer, intent(out) :: identity(:)
 
-   character(len=symbolLength), allocatable :: sTmp(:)
+   character(len=:), allocatable :: sTmp(:)
    integer :: nAt, iAt, iId
 
    nAt = size(identity)
-   allocate(sTmp(nAt))
+   allocate(character(len=len(symbol)) :: sTmp(nAt))
    nId = 0
    do iAt = 1, nAt
       iId = findSymbol(sTmp(:nId), symbol(iAt))
@@ -330,10 +330,6 @@ pure subroutine appendSymbol(list, nList, symbol)
    !> Elements symbol
    character(len=*), intent(in) :: symbol
 
-   if (len(symbol) > len(list)) then
-     error stop "Programmer's bug: len(symbol) > len(list)"
-   end if
-
    if (nList >= size(list)) then
       call resize(list)
    end if