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

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