From d40e89ef6616571bf59f5552eb873f45d973cb80 Mon Sep 17 00:00:00 2001
From: Houtan Bastani <houtan@dynare.org>
Date: Thu, 16 Oct 2014 12:33:27 +0200
Subject: [PATCH] fix typo
---
input.for | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/input.for b/input.for
index 2c645bd..c14229d 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
--
GitLab