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 ! You should have received a copy of the GNU General Public License
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>. ! 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 module FEsolving
!##############################################################
use prec, only: & use prec, only: &
pInt, & pInt, &
pReal pReal
@ -37,15 +40,15 @@ module FEsolving
theDelta = 0.0_pReal theDelta = 0.0_pReal
logical, public :: & logical, public :: &
outdatedFFN1 = .false., & outdatedFFN1 = .false., & !< toDo
symmetricSolver = .false., & symmetricSolver = .false., & !< use a symmetric solver (FEM)
restartWrite = .false., & restartWrite = .false., & !< write current state to enable restart
restartRead = .false., & restartRead = .false., & !< restart information to continue calculation from saved state
terminallyIll = .false., & terminallyIll = .false., & !< at least one material point is terminally ill
parallelExecution = .true., & parallelExecution = .true., & !< OpenMP multicore calculation
lastMode = .true., & lastMode = .true., & !< toDo
lastIncConverged = .false., & lastIncConverged = .false., & !< toDo
outdatedByNewInc = .false., & outdatedByNewInc = .false., & !< toDo
cutBack = .false. cutBack = .false.
integer(pInt), dimension(:,:), allocatable, public :: & integer(pInt), dimension(:,:), allocatable, public :: &
@ -64,10 +67,9 @@ module FEsolving
contains contains
!*********************************************************** !--------------------------------------------------------------------------------------------------
! determine whether a symmetric solver is used !> @brief determine whether a symmetric solver is used and whether restart is requested
! and whether restart is requested !--------------------------------------------------------------------------------------------------
!***********************************************************
subroutine FE_init subroutine FE_init
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) 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, ! 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 ! DAMASK is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by ! 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 ! You should have received a copy of the GNU General Public License
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>. ! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
! !
!############################################################## !--------------------------------------------------------------------------------------------------
!* $Id$ !* $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 module debug
!##############################################################
use prec, only: & use prec, only: &
pInt, & pInt, &
pReal, & pReal, &
@ -44,10 +49,10 @@ module debug
debug_debug = 1_pInt, & debug_debug = 1_pInt, &
debug_math = 2_pInt, & debug_math = 2_pInt, &
debug_FEsolving = 3_pInt, & debug_FEsolving = 3_pInt, &
debug_mesh = 4_pInt, & ! stores debug level for mesh 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 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 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 debug_constitutive = 7_pInt, & !< stores debug level for constitutive part of DAMASK bitwise coded
debug_crystallite = 8_pInt, & debug_crystallite = 8_pInt, &
debug_homogenization = 9_pInt, & debug_homogenization = 9_pInt, &
debug_CPFEM = 10_pInt, & debug_CPFEM = 10_pInt, &

579
code/math.f90
View File

File diff suppressed because it is too large Load Diff