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

added comments for doxygen documentation

This commit is contained in:
Martin Diehl 2012-08-25 11:46:36 +00:00
parent 948ace0661
commit 55a5112f36
3 changed files with 507 additions and 519 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
code/FEsolving.f90
View File

@ -16,11 +16,14 @@
! You should have received a copy of the GNU General Public License
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
!
!##############################################################
!* $Id$
!##############################################################
!--------------------------------------------------------------------------------------------------
! $Id$
!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief reading in of data when doing a restart
!--------------------------------------------------------------------------------------------------
module FEsolving
!##############################################################
use prec, only: &
pInt, &
pReal
@ -37,15 +40,15 @@ module FEsolving
theDelta = 0.0_pReal
logical, public :: &
outdatedFFN1 = .false., &
symmetricSolver = .false., &
restartWrite = .false., &
restartRead = .false., &
terminallyIll = .false., &
parallelExecution = .true., &
lastMode = .true., &
lastIncConverged = .false., &
outdatedByNewInc = .false., &
outdatedFFN1 = .false., & !< toDo
symmetricSolver = .false., & !< use a symmetric solver (FEM)
restartWrite = .false., & !< write current state to enable restart
restartRead = .false., & !< restart information to continue calculation from saved state
terminallyIll = .false., & !< at least one material point is terminally ill
parallelExecution = .true., & !< OpenMP multicore calculation
lastMode = .true., & !< toDo
lastIncConverged = .false., & !< toDo
outdatedByNewInc = .false., & !< toDo
cutBack = .false.
integer(pInt), dimension(:,:), allocatable, public :: &
@ -64,10 +67,9 @@ module FEsolving
contains
!***********************************************************
! determine whether a symmetric solver is used
! and whether restart is requested
!***********************************************************
!--------------------------------------------------------------------------------------------------
!> @brief determine whether a symmetric solver is used and whether restart is requested
!--------------------------------------------------------------------------------------------------
subroutine FE_init
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)

23
code/debug.f90
View File

@ -1,7 +1,7 @@
! Copyright 2011 Max-Planck-Institut für Eisenforschung GmbH
! Copyright 2011,2012 Max-Planck-Institut für Eisenforschung GmbH
!
! This file is part of DAMASK,
! the Düsseldorf Advanced MAterial Simulation Kit.
! the Düsseldorf Advanced Material Simulation Kit.
!
! DAMASK is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
@ -16,11 +16,16 @@
! You should have received a copy of the GNU General Public License
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
!
!##############################################################
!--------------------------------------------------------------------------------------------------
!* $Id$
!##############################################################
!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Reading in and interpretating the debugging settings for the various modules
!--------------------------------------------------------------------------------------------------
module debug
!##############################################################
use prec, only: &
pInt, &
pReal, &
@ -44,10 +49,10 @@ module debug
debug_debug = 1_pInt, &
debug_math = 2_pInt, &
debug_FEsolving = 3_pInt, &
debug_mesh = 4_pInt, & ! stores debug level for mesh part of DAMASK
debug_material = 5_pInt, & ! stores debug level for material part of DAMASK
debug_lattice = 6_pInt, & ! stores debug level for lattice part of DAMASK
debug_constitutive = 7_pInt, & ! stores debug level for constitutive part of DAMASK
debug_mesh = 4_pInt, & !< stores debug level for mesh part of DAMASK bitwise coded
debug_material = 5_pInt, & !< stores debug level for material part of DAMASK bitwise coded
debug_lattice = 6_pInt, & !< stores debug level for lattice part of DAMASK bitwise coded
debug_constitutive = 7_pInt, & !< stores debug level for constitutive part of DAMASK bitwise coded
debug_crystallite = 8_pInt, &
debug_homogenization = 9_pInt, &
debug_CPFEM = 10_pInt, &

579
code/math.f90
View File

File diff suppressed because it is too large Load Diff