fixed RGC homogenization in case dt==0

removed misplaced parameter statement in IO.f90
This commit is contained in:
Franz Roters 2013-02-13 09:36:06 +00:00
parent 0856a7aa32
commit 35346b70b5
2 changed files with 6 additions and 1 deletions

View File

@ -226,7 +226,7 @@ subroutine IO_open_inputFile(myUnit,model)
integer(pInt) :: myStat
character(len=1024) :: path
character(len=4), parameter :: InputFileExtension2 = '.pes'
character(len=4) :: InputFileExtension2 = '.pes'
#ifdef Abaqus
path = trim(getSolverWorkingDirectoryName())//trim(model)//InputFileExtension2 ! attempt .pes, if it exists: it should be used

View File

@ -384,6 +384,11 @@ function homogenization_RGC_updateState(&
!
real(pReal), dimension(:,:), allocatable :: tract,jmatrix,jnverse,smatrix,pmatrix,rmatrix
real(pReal), dimension(:), allocatable :: resid,relax,p_relax,p_resid,drelax
if (dt==0.0_pReal) then ! no need to do anything if time increment is zero (thgis is usually the first call in FEM)
homogenization_RGC_updateState = .true. ! pretend everything is fine
return
endif
!* -------------------------------------------------------------------------------------------------------------
!*** Initialization of RGC update state calculation