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

modified formated integer output and added error number in case maximum number of cutbacks is reached

This commit is contained in:
Martin Diehl 2012-10-02 09:30:13 +00:00
parent 9fc46b4950
commit 4c7bcb8df9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/IO.f90
View File

@ -1267,18 +1267,18 @@ function IO_continuousIntValues(myUnit,maxN,lookupName,lookupMap,lookupMaxN)
100 end function IO_continuousIntValues 100 end function IO_continuousIntValues
pure function IO_intOut(intToPrint) pure function IO_intOut(intToPrint)
implicit none implicit none
character(len=64) :: N_Digits character(len=16) :: N_Digits
character(len=64) :: IO_intOut character(len=34) :: IO_intOut
integer(pInt), intent(in) :: intToPrint integer(pInt), intent(in) :: intToPrint
write(N_Digits, '(I16.16)') 1_pInt + int(log10(real(intToPrint)),pInt) write(N_Digits, '(I16.16)') 1_pInt + int(log10(real(intToPrint)),pInt)
IO_intOut = '1x,I'//trim(N_Digits)//'.'//trim(N_Digits)//',1x' IO_intOut = 'I'//trim(N_Digits)//'.'//trim(N_Digits)
end function IO_intOut end function IO_intOut
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief write error statements to standard out and terminate the Marc/spectral run with exit #9xxx !> @brief write error statements to standard out and terminate the Marc/spectral run with exit #9xxx
!> in ABAQUS either time step is reduced or execution terminated !> in ABAQUS either time step is reduced or execution terminated
@ -1426,6 +1426,8 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)
msg = 'not a rotation defined for loadcase rotation' msg = 'not a rotation defined for loadcase rotation'
case (847_pInt) case (847_pInt)
msg = 'updating of gamma operator not possible if it is pre calculated' msg = 'updating of gamma operator not possible if it is pre calculated'
case (850_pInt)
msg = 'max number of cut back exceeded'
case (880_pInt) case (880_pInt)
msg = 'mismatch of microstructure count and a*b*c in geom file' msg = 'mismatch of microstructure count and a*b*c in geom file'
case (890_pInt) case (890_pInt)