Commit 3a902221 authored by Pavel Kus's avatar Pavel Kus
Browse files

some more stop -> stop 1 changes

There are also at least those files, where stops without 1 are present

src/elpa1/legacy_interface/elpa_cholesky_template_legacy.X90:
src/elpa1/legacy_interface/elpa_invert_trm_legacy.X90:
src/elpa1/legacy_interface/elpa_multiply_a_b_legacy.X90:
src/elpa1/legacy_interface/elpa_solve_tridi_legacy.X90:

should they be also changed?
parent b88d8788
...@@ -150,7 +150,7 @@ ...@@ -150,7 +150,7 @@
print *," " print *," "
if (create_directories() .ne. 1) then if (create_directories() .ne. 1) then
write(error_unit,*) "Unable to create directory for stdout and stderr!" write(error_unit,*) "Unable to create directory for stdout and stderr!"
stop stop 1
endif endif
endif endif
#ifdef WITH_MPI #ifdef WITH_MPI
......
...@@ -136,7 +136,7 @@ program read_real ...@@ -136,7 +136,7 @@ program read_real
print *," " print *," "
if (create_directories() .ne. 1) then if (create_directories() .ne. 1) then
write(error_unit,*) "Unable to create directory for stdout and stderr!" write(error_unit,*) "Unable to create directory for stdout and stderr!"
stop stop 1
endif endif
endif endif
call MPI_BARRIER(MPI_COMM_WORLD, mpierr) call MPI_BARRIER(MPI_COMM_WORLD, mpierr)
...@@ -239,7 +239,7 @@ program read_real ...@@ -239,7 +239,7 @@ program read_real
if(na<=0 .or. na>10000000) then if(na<=0 .or. na>10000000) then
if(myid==0) write(error_unit,*) 'Illegal value for matrix size: ',na if(myid==0) write(error_unit,*) 'Illegal value for matrix size: ',na
call mpi_finalize(mpierr) call mpi_finalize(mpierr)
stop stop 1
endif endif
if(myid==0) print *,'Matrix size: ',na if(myid==0) print *,'Matrix size: ',na
......
...@@ -198,7 +198,7 @@ program test_real ...@@ -198,7 +198,7 @@ program test_real
print *," " print *," "
if (create_directories() .ne. 1) then if (create_directories() .ne. 1) then
write(error_unit,*) "Unable to create directory for stdout and stderr!" write(error_unit,*) "Unable to create directory for stdout and stderr!"
stop stop 1
endif endif
endif endif
#ifdef WITH_MPI #ifdef WITH_MPI
......
...@@ -101,7 +101,7 @@ module mod_read_input_parameters ...@@ -101,7 +101,7 @@ module mod_read_input_parameters
input_options%datatype=2 input_options%datatype=2
else else
print *,"datatype unknown! use either --datatype=real or --datatpye=complex" print *,"datatype unknown! use either --datatype=real or --datatpye=complex"
stop stop 1
endif endif
endif endif
endif endif
...@@ -204,7 +204,7 @@ module mod_read_input_parameters ...@@ -204,7 +204,7 @@ module mod_read_input_parameters
input_options%doTransposeMultiply=.true. input_options%doTransposeMultiply=.true.
else else
print *,"unknown test specified" print *,"unknown test specified"
stop stop 1
endif endif
endif endif
......
Markdown is supported
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