diff --git a/input.for b/input.for
index 2c645bded31e34df1de29124504b5ad290cd77d3..c14229d50d35fb6ca4a6ec2552c95f80090c319b 100644
--- a/input.for
+++ b/input.for
@@ -593,10 +593,10 @@ C FIND namelist S4
 	 CLOSE(1)
 	 IF (IFAIL.EQ.-1) THEN
 #ifdef __GFORTRAN__
-        WRITE(*,*) ' Namlist S4 not found'
+        WRITE(*,*) ' Namelist S4 not found'
         WRITE(*,*) ' Program aborting'
 #else
-	  TYPE *, ' Namlist S4 not found'
+	  TYPE *, ' Namelist S4 not found'
 	  TYPE *, ' Program aborting'
 	  PAUSE
 #endif
@@ -719,10 +719,10 @@ C FIND namelist S5
 	 CLOSE(1)
 	 IF (IFAIL.EQ.-1) THEN
 #ifdef __GFORTRAN__
-        WRITE(*,*) ' Namlist S5 not found'
+        WRITE(*,*) ' Namelist S5 not found'
         WRITE(*,*) ' Program aborting'
 #else
-	  TYPE *, ' Namlist S5 not found'
+	  TYPE *, ' Namelist S5 not found'
 	  TYPE *, ' Program aborting'
 	  PAUSE
 #endif
@@ -845,10 +845,10 @@ C FIND namelist S6
 	 CLOSE(1)
 	 IF (IFAIL.EQ.-1) THEN
 #ifdef __GFORTRAN__
-        WRITE(*,*) ' Namlist S6 not found'
+        WRITE(*,*) ' Namelist S6 not found'
         WRITE(*,*) ' Program aborting'
 #else
-	  TYPE *, ' Namlist S6 not found'
+	  TYPE *, ' Namelist S6 not found'
 	  TYPE *, ' Program aborting'
 	  PAUSE
 #endif