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

doxygen comments for homogenization.f90, unified naming ip->i, el->e

This commit is contained in:
Martin Diehl 2013-01-29 10:28:01 +00:00
parent 97eb6d6f68
commit 08a2aa79f7
4 changed files with 424 additions and 349 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/DAMASK_spectral_driver.f90
View File

@ -143,7 +143,7 @@ program DAMASK_spectral_Driver
read(myUnit,'(a1024)',END = 100) line read(myUnit,'(a1024)',END = 100) line
if (IO_isBlank(line)) cycle ! skip empty lines if (IO_isBlank(line)) cycle ! skip empty lines
positions = IO_stringPos(line,maxNchunks) positions = IO_stringPos(line,maxNchunks)
do i = 1_pInt, maxNchunks, 1_pInt ! reading compulsory parameters for loadcase do i = 1_pInt, maxNchunks ! reading compulsory parameters for loadcase
select case (IO_lc(IO_stringValue(line,positions,i))) select case (IO_lc(IO_stringValue(line,positions,i)))
case('l','velocitygrad','velgrad','velocitygradient') case('l','velocitygrad','velgrad','velocitygradient')
N_l = N_l + 1_pInt N_l = N_l + 1_pInt
@ -170,7 +170,7 @@ program DAMASK_spectral_Driver
if (IO_isBlank(line)) cycle ! skip empty lines if (IO_isBlank(line)) cycle ! skip empty lines
currentLoadCase = currentLoadCase + 1_pInt currentLoadCase = currentLoadCase + 1_pInt
positions = IO_stringPos(line,maxNchunks) positions = IO_stringPos(line,maxNchunks)
do i = 1_pInt,maxNchunks do i = 1_pInt, maxNchunks
select case (IO_lc(IO_stringValue(line,positions,i))) select case (IO_lc(IO_stringValue(line,positions,i)))
case('fdot','dotf','l','velocitygrad','velgrad','velocitygradient') ! assign values for the deformation BC matrix case('fdot','dotf','l','velocitygrad','velgrad','velocitygradient') ! assign values for the deformation BC matrix
temp_valueVector = 0.0_pReal temp_valueVector = 0.0_pReal
@ -374,7 +374,7 @@ program DAMASK_spectral_Driver
endif endif
timeinc = timeinc / 2.0_pReal**real(cutBackLevel,pReal) ! depending on cut back level, decrease time step timeinc = timeinc / 2.0_pReal**real(cutBackLevel,pReal) ! depending on cut back level, decrease time step
if(totalIncsCounter >= restartInc) then ! do calculations (otherwise just forwarding) forwarding: if(totalIncsCounter >= restartInc) then
stepFraction = 0_pInt stepFraction = 0_pInt
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! loop over sub incs ! loop over sub incs
@ -472,10 +472,10 @@ program DAMASK_spectral_Driver
restartWrite = .true. restartWrite = .true.
lastRestartWritten = inc lastRestartWritten = inc
endif endif
else !just time forwarding else forwarding
time = time + timeinc time = time + timeinc
guess = .true. guess = .true.
endif ! end calculation/forwarding endif forwarding
enddo incLooping enddo incLooping
enddo loadCaseLooping enddo loadCaseLooping

2
code/DAMASK_spectral_solverBasic.f90
View File

@ -6,7 +6,7 @@
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Basic scheme solver !> @brief Basic scheme solver
!> @details this solver follows closely the original large strain formulation presented by !> @details this solver follows closely the original large strain formulation presented by
!> Suquet. The iterative procedure is solved using a fix-point iteration !> Suquet. The iterative procedure is solved using a fix-point iteration.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module DAMASK_spectral_SolverBasic module DAMASK_spectral_SolverBasic
use prec, only: & use prec, only: &

1
code/IO.f90
View File

@ -797,6 +797,7 @@ logical function IO_globalTagInPart(myFile,part,myTag)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief locate at most N space-separated parts in line return array containing number of parts !> @brief locate at most N space-separated parts in line return array containing number of parts
!> in line and the left/right positions of at most N to be used by IO_xxxVal !> in line and the left/right positions of at most N to be used by IO_xxxVal
!> IMPORTANT: first element contains number of chunks!
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
pure function IO_stringPos(line,N) pure function IO_stringPos(line,N)

760
code/homogenization.f90
View File

File diff suppressed because it is too large Load Diff