Adjust string length

grimme-lab · Sep 13, 2024 · 5809f8a · 5809f8a
1 parent d16dc3d
commit 5809f8a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/test/unit/molstock.f90 b/test/unit/molstock.f90
@@ -57,7 +57,7 @@ subroutine getMolecule(mol, name)
       case ('mgh2'); call MgH2(mol)
       case ('x06_b'); call x06_benzene(mol)
       case ('mcv15'); call mcv15(mol)
-      case ('Th_1519394'); call Th_1519394(mol)
+      case ('Th_15'); call Th_1519394(mol)
       case ('Ce_0a7745'); call Ce_0a7745(mol)
       end select
 

diff --git a/test/unit/test_gfnff.f90 b/test/unit/test_gfnff.f90
@@ -705,7 +705,7 @@ subroutine test_gfnff_pbc(error)
     logical, parameter :: pbc(3) = [.true., .true., .true. ]
     ! structures from X23, mcVOL22, and GFN-FF for Ln/An paper
     character(len=*), parameter :: pbc_strucs(3) = [&
-       & "x06_b", "mcv15", "Th_1519394"]
+       & "x06_b", "mcv15", "Th_15"]
     !> references for original GFN-FF
     real(wp), parameter :: ref_energies(3) = &
         & [-9.522300429916_wp, -11.059826732607_wp, -46.265672914_wp ]