diff --git a/Source/func.f90 b/Source/func.f90
index 50fbd848967..0cffda7af4b 100644
--- a/Source/func.f90
+++ b/Source/func.f90
@@ -285,7 +285,7 @@ SUBROUTINE SEARCH_INPUT_FILE(LU,TEXT,FOUND)
 INTEGER, INTENT(IN) :: LU
 LOGICAL, INTENT(OUT) :: FOUND
 CHARACTER(*), INTENT(IN) :: TEXT
-CHARACTER(180) :: LINE
+CHARACTER(NAMELIST_LENGTH) :: LINE
 INTEGER :: IND
 
 FOUND = .FALSE.
diff --git a/Source/prec.f90 b/Source/prec.f90
index 2243dd51cd2..0dcd9c583ec 100644
--- a/Source/prec.f90
+++ b/Source/prec.f90
@@ -25,7 +25,8 @@ MODULE PRECISION_PARAMETERS
 INTEGER, PARAMETER :: MESSAGE_LENGTH=200             !< Maximum length of error and warning labels
 INTEGER, PARAMETER :: FORMULA_LENGTH=255             !< Maximum length of chemical formulae
 INTEGER, PARAMETER :: CHID_LENGTH=50                 !< Maximum length of job ID
-INTEGER, PARAMETER :: FILE_LENGTH=200                      !< Maximum length of filenames ID
+INTEGER, PARAMETER :: FILE_LENGTH=200                !< Maximum length of filenames ID
+INTEGER, PARAMETER :: NAMELIST_LENGTH=300            !< Maximum length of NAMELIST line in input file (see SEARCH_INPUT_FILE)
 INTEGER, PARAMETER :: MESH_STRING_LENGTH=LABEL_LENGTH + 80 !< Length for storage of strings
 INTEGER, PARAMETER :: FN_LENGTH=FILE_LENGTH+CHID_LENGTH    !< Length for output filename strings (includes output directory)
 INTEGER, PARAMETER :: N_OUTPUT_QUANTITIES=600        !< Dimension of array that holds names of output quantities