Removed some blanks after STOP statements, which caused compilation e…

…rrors in gfortran 6.3
geodynamics · Jun 13, 2018 · f547058 · f547058
1 parent c01c981
commit f547058
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 17 deletions.
diff --git a/src/config.f90 b/src/config.f90
@@ -327,7 +327,7 @@ PROGRAM CONFIG
 !		Write(* ,*) "For the OpenMP switch, only y/n are valid options"
 !		Write(88,*) "For the OpenMP switch, only y/n are valid options"
 !		Call stop_config 
-!		Stop	
+!		Stop
 !	Endif
 !  ENDIF  
 !
@@ -451,7 +451,7 @@ PROGRAM CONFIG
 ! 	 Write(* ,*) "Error: OpenMP is not supported by the g95 compiler !"
 !	 Write(88,*) "Error: OpenMP is not supported by the g95 compiler !"
 !	 Call stop_config 
-!	 Stop	       
+!	 Stop
 !       endif
 !       if( ( option_mpi=='y' ) .and. ( option_omp=='n' ) ) then
 !         CompileMpi = "mpif90 -w -DMPI "  
@@ -461,13 +461,13 @@ PROGRAM CONFIG
 ! 	 Write(* ,*) "Error: OpenMP is not supported by the g95 compiler !"
 !	 Write(88,*) "Error: OpenMP is not supported by the g95 compiler !"
 !	 Call stop_config 
-!	 Stop	       
+!	 Stop
 !       endif       
 !    Else   
 !	Write(* ,*) "Error: unknown platform"
 !	Write(88,*) "Error: unknown platform"
 !	Call stop_config 
-!	Stop	       
+!	Stop
 !    EndIf
 !    if( option_mpi == "y" ) then
 !       if( option_sys == "6" ) then
@@ -865,7 +865,7 @@ PROGRAM CONFIG
  	Write(88,*) "  Please use a resolution RES>=12   "
         Write(88,*) 
         call Stop_Config
-	stop 
+	stop
  	endif 
 
 !
@@ -1003,7 +1003,7 @@ PROGRAM CONFIG
 		Write(* ,*) "For the GMT switch, only y/n are valid options"
 		Write(88,*) "For the GMT switch, only y/n are valid options"
 		Call stop_config 
-		Stop	
+		Stop
 	Endif
 
 
@@ -1178,7 +1178,7 @@ PROGRAM CONFIG
 		Write(88,*) "The RSL database has no elements"
 		Write(*, *) "The RSL database has no elements"
 		Call stop_config 
-		Stop	
+		Stop
 	Endif
 !
 !
@@ -1229,7 +1229,7 @@ PROGRAM CONFIG
 				Write(88,*) "The RSL database is badly configured"
 				Write(*, *) "The RSL database is badly configured"
 				Call stop_config 
-				Stop					
+				Stop
 			ENDIF			 		
 			READ(44,'(a10)')CJUNK 	
  			WRITE(82,*) TIME_RSL/1000., RSL_DATUM, D_RSLDATUM		
@@ -1272,7 +1272,7 @@ PROGRAM CONFIG
 				Write(88,*) "The RSL database is badly configured"
 				Write(*, *) "The RSL database is badly configured"
 				Call stop_config 
-				Stop					
+				Stop
 			ENDIF			 		
 			READ(44,'(a10)')CJUNK 	
  			WRITE(82,*) TIME_RSL/1000., RSL_DATUM, D_RSLDATUM		
@@ -1288,7 +1288,7 @@ PROGRAM CONFIG
 		Write(88,*) "The RSL database does not exists"
 		Write(*, *) "The RSL database does not exists"
 		Call stop_config 
-		Stop	
+		Stop
 !     
      	 Endif 	
 !
@@ -1328,7 +1328,7 @@ PROGRAM CONFIG
                         Write(* ,*) "Plotting RSl predictions vs. data requires computing ..." 
 			Write(* ,*) "... RSL predictions -- please modify file config.dat' --"
 			call stop_config 			    
-			stop 
+			stop
 			endif
 ENDIF
 !
@@ -1446,7 +1446,7 @@ PROGRAM CONFIG
                 	Write(88,*) "File ", trim(adjustl(file_region)), " apparently"
 			Write(88,*) "does not exist -  Please check file <config.dat>"
 			Call Stop_Config 
-			stop		 
+			stop
 		endif 
 	endif 
 ENDIF
@@ -1495,7 +1495,7 @@ PROGRAM CONFIG
 		Write(88,*) 'No tide-gauge database has been found...'	
 		Write(*, *) 'No tide-gauge database has been found...'	
                 Call Stop_Config 
-                stop		 		
+                stop
 !			
 		endif	
 !
@@ -1671,7 +1671,7 @@ PROGRAM CONFIG
 !	
         Write(88,*) 'No geodetic database has been found...'	
         Write(*, *) 'No geodetic database has been found...'	
-        Call Stop_Config ; stop	
+        Call Stop_Config ; stop
 !
 	ENDIF   ! On the existence of the database ... 
 !

diff --git a/src/px.f90 b/src/px.f90
@@ -92,7 +92,7 @@ PROGRAM PIX
                       write(*, *) '    - The resolution must be >= 10'
                       WRITE(*, *) '    - P******* JOB ABORTED ********'
           	      call Stop_config 	
-		      Stop		      
+		      Stop
     ENDIF
 !
     write(*, *) '    - The resolution is:', res

diff --git a/src/rsl.f90 b/src/rsl.f90
@@ -152,7 +152,7 @@ PROGRAM SL
 				Write(*, *) "The RSL database is badly configured"
 				Write(*, *) "The program will STOP --------------"
 				Call stop_config 
-				Stop	
+				Stop
 
 			ENDIF	
 !
@@ -206,7 +206,7 @@ PROGRAM SL
 				Write(*, *) "The RSL database is badly configured"
 				Write(*, *) "The program will STOP --------------"
 				Call stop_config 
-				Stop	
+				Stop
 
 			ENDIF	
 !