Skip to content
Snippets Groups Projects
Commit d40e89ef authored by Houtan Bastani's avatar Houtan Bastani
Browse files

fix typo

parent 4269c72c
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment