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

bugfix: 

infinite loop for geom file without new line at end
also, a lot of cleaning
This commit is contained in:
Martin Diehl 2019-02-02 15:10:35 +01:00
parent 933136ec1e
commit 3edbfc1cb5
2 changed files with 339 additions and 1156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/IO.f90
View File

@ -1329,11 +1329,9 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
! DAMASK_marc errors ! DAMASK_marc errors
case (700_pInt) case (700_pInt)
msg = 'invalid materialpoint result requested' msg = 'invalid materialpoint result requested'
case (701_pInt)
msg = 'not supported input file format, use Marc 2016 or earlier'
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! errors related to spectral solver ! errors related to the grid solver
case (809_pInt) case (809_pInt)
msg = 'initializing FFTW' msg = 'initializing FFTW'
case (810_pInt) case (810_pInt)
@ -1355,13 +1353,9 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
case (841_pInt) case (841_pInt)
msg = 'missing header length info in spectral mesh' msg = 'missing header length info in spectral mesh'
case (842_pInt) case (842_pInt)
msg = 'homogenization in spectral mesh'
case (843_pInt)
msg = 'grid in spectral mesh'
case (844_pInt)
msg = 'size in spectral mesh'
case (845_pInt)
msg = 'incomplete information in spectral mesh header' msg = 'incomplete information in spectral mesh header'
case (843_pInt)
msg = 'microstructure count mismatch'
case (846_pInt) case (846_pInt)
msg = 'rotation for load case rotation ill-defined (R:RT != I)' msg = 'rotation for load case rotation ill-defined (R:RT != I)'
case (847_pInt) case (847_pInt)

1483
src/mesh_grid.f90
View File

File diff suppressed because it is too large Load Diff