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

syntax polish for ifdef

This commit is contained in:
zhangc43 2016-08-22 17:45:05 -04:00
parent 4dfc8d0132
commit 3d0e19de0a
1 changed files with 4 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

@ -712,7 +712,9 @@ program DAMASK_spectral
#ifdef _OPENMP #ifdef _OPENMP
call MPI_finalize(i) call MPI_finalize(i)
if (i /= 0_pInt) call IO_error(error_ID=894, el=i, ext_msg="Finalize()") if (i /= 0_pInt) then
call IO_error(error_ID=894, el=i, ext_msg="Finalize()")
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