Add calls to MPI_Abort and make indentation consistent
@@ -122,12 +122,15 @@ C initialize SPGMR linear solver module
IF (IER .NE. 0) THEN
WRITE(6,25) IER
25 FORMAT(///' SUNDIALS_ERROR: FSUNSPGMRINIT IER = ', I5)
+ CALL MPI_ABORT(MPI_COMM_WORLD, 1, IER)
STOP
ENDIF
+C
call FSUNSPGMRSETGSTYPE(4, IGS, IER)
IF (IER .NE. 0) THEN
WRITE(6,27) IER
27 FORMAT(///' SUNDIALS_ERROR: FSUNSPGMRSETGSTYPE IER = ', I5)
+ CALL MPI_ABORT(MPI_COMM_WORLD, 1, IER)
STOP
ENDIF
C
