Commit d40e89ef authored by Houtan Bastani's avatar Houtan Bastani
Browse files

fix typo

parent 4269c72c
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment