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

adjusting indentation

This commit is contained in:
Martin Diehl 2019-06-15 20:32:53 +02:00
parent 6370dd1a43
commit 2c4f1eb173
6 changed files with 750 additions and 750 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/IO.f90
View File

@ -50,6 +50,7 @@ module IO
IO_countNumericalDataLines IO_countNumericalDataLines
#endif #endif
#endif #endif
private :: & private :: &
IO_verifyFloatValue, & IO_verifyFloatValue, &
IO_verifyIntValue IO_verifyIntValue
@ -769,23 +770,23 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
case (810) case (810)
msg = 'FFTW plan creation' msg = 'FFTW plan creation'
case (831) case (831)
msg = 'mask consistency violated in spectral loadcase' msg = 'mask consistency violated in grid load case'
case (832) case (832)
msg = 'ill-defined L (line partly defined) in spectral loadcase' msg = 'ill-defined L (line partly defined) in grid load case'
case (834) case (834)
msg = 'negative time increment in spectral loadcase' msg = 'negative time increment in grid load case'
case (835) case (835)
msg = 'non-positive increments in spectral loadcase' msg = 'non-positive increments in grid load case'
case (836) case (836)
msg = 'non-positive result frequency in spectral loadcase' msg = 'non-positive result frequency in grid load case'
case (837) case (837)
msg = 'incomplete loadcase' msg = 'incomplete loadcase'
case (838) case (838)
msg = 'mixed boundary conditions allow rotation' msg = 'mixed boundary conditions allow rotation'
case (841) case (841)
msg = 'missing header length info in spectral mesh' msg = 'missing header length info in grid mesh'
case (842) case (842)
msg = 'incomplete information in spectral mesh header' msg = 'incomplete information in grid mesh header'
case (843) case (843)
msg = 'microstructure count mismatch' msg = 'microstructure count mismatch'
case (846) case (846)

9
src/quit.f90
View File

@ -7,16 +7,15 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine quit(stop_id) subroutine quit(stop_id)
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
#ifdef _OPENMP
use MPI, only: &
MPI_finalize
#endif
use PetscSys use PetscSys
#ifdef _OPENMP
use MPI
#endif
use hdf5 use hdf5
implicit none implicit none
integer, intent(in) :: stop_id integer, intent(in) :: stop_id
integer, dimension(8) :: dateAndTime ! type default integer integer, dimension(8) :: dateAndTime
integer :: error integer :: error
PetscErrorCode :: ierr = 0 PetscErrorCode :: ierr = 0