diff --git a/src/elpa.F90 b/src/elpa.F90 index 3a763610b4792c66f9b1657b3ba85df6b03ec98f..68517418d969e475bfd432c7cee49c12bf641557 100644 --- a/src/elpa.F90 +++ b/src/elpa.F90 @@ -116,13 +116,13 @@ !> stop !> endif !> elpa => elpa_allocate(success) -!> if (success != ELPA_OK) then +!> if (success /= ELPA_OK) then !> print *,"Could not allocate ELPA" !> endif !> !> ! set parameters decribing the matrix and it's MPI distribution !> call elpa%set("na", na, success, success) -!> if (success != ELPA_OK) then +!> if (success /= ELPA_OK) then !> print *,"Could not set entry" !> endif !> call elpa%set("nev", nev, success, success) @@ -139,7 +139,7 @@ !> !> ! set up the elpa object !> success = elpa%setup() -!> if (succes != ELPA_OK) then +!> if (succes /= ELPA_OK) then !> print *,"Could not setup ELPA object" !> endif !>