Update System.f95

added SYSTEM_STRING_LENGTH_SHORT
libAtoms · Mar 20, 2024 · 467ba0f · 467ba0f
1 parent 33cdd69
commit 467ba0f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/libAtoms/System.f95 b/src/libAtoms/System.f95
@@ -109,6 +109,7 @@ module system_module
 
   integer,private                   :: mpi_n, mpi_myid    ! Number of processes and local process ID
   real(dp),private                  :: start_time         ! Initial time
+  integer, parameter, private       :: SYSTEM_STRING_LENGTH_SHORT = 32 !when a shorter strong is enough and we have lots of them
   integer, parameter, private       :: SYSTEM_STRING_LENGTH = 1024 !max line length read
   integer, parameter, private       :: SYSTEM_STRING_LENGTH_LONG = 102400 !max line length read
   character(SYSTEM_STRING_LENGTH_LONG),public           :: line               ! 'line' is global and is used by other modules