223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

remove space before preprocessor

This commit is contained in:
zhangc43 2016-08-23 08:29:42 -04:00
parent 3d0e19de0a
commit af10f92041
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/DAMASK_spectral.f90
View File

@ -710,12 +710,12 @@ program DAMASK_spectral
call PETScFinalize(ierr); CHKERRQ(ierr) call PETScFinalize(ierr); CHKERRQ(ierr)
#ifdef _OPENMP #ifdef _OPENMP
call MPI_finalize(i) call MPI_finalize(i)
if (i /= 0_pInt) then if (i /= 0_pInt) then
call IO_error(error_ID=894, el=i, ext_msg="Finalize()") call IO_error(error_ID=894, el=i, ext_msg="Finalize()")
endif endif
#endif #endif
if (notConvergedCounter > 0_pInt) call quit(3_pInt) ! error if some are not converged if (notConvergedCounter > 0_pInt) call quit(3_pInt) ! error if some are not converged
call quit(0_pInt) ! no complains ;) call quit(0_pInt) ! no complains ;)