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

consistent capitalization

This commit is contained in:
Martin Diehl 2023-12-09 14:22:14 +01:00
parent b5f71d2328
commit 7063c59b6a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/quit.f90
View File

@ -27,10 +27,10 @@ subroutine quit(stop_id)
PetscErrorCode :: err_PETSc PetscErrorCode :: err_PETSc
call h5open_f(err_HDF5) ! prevents error if not opened yet call H5Open_f(err_HDF5) ! prevents error if not opened yet
if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5open_f ',err_HDF5 if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in H5Open_f ',err_HDF5
call h5close_f(err_HDF5) call H5Close_f(err_HDF5)
if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in h5close_f ',err_HDF5 if (err_HDF5 < 0) write(ERROR_UNIT,'(a,i5)') ' Error in H5Close_f ',err_HDF5
call PetscFinalize(err_PETSc) call PetscFinalize(err_PETSc)