small improvement in readability
This commit is contained in:
Claudio Zambaldi
parent
948c119ee9
commit
418bb9ecbe
|
|
@ -24,46 +24,58 @@ character(len=32), parameter :: material_partTexture = 'texture'
|
||||||
!* Definition of material properties *
|
!* Definition of material properties *
|
||||||
!*************************************
|
!*************************************
|
||||||
!* Number of materials
|
!* Number of materials
|
||||||
integer(pInt) material_Nhomogenization, & ! number of homogenizations
|
integer(pInt) &
|
||||||
material_Nmicrostructure, & ! number of microstructures
|
material_Nhomogenization, & ! number of homogenizations
|
||||||
material_Ncrystallite, & ! number of crystallite settings
|
material_Nmicrostructure, & ! number of microstructures
|
||||||
material_Nphase, & ! number of phases
|
material_Ncrystallite, & ! number of crystallite settings
|
||||||
material_Ntexture, & ! number of textures
|
material_Nphase, & ! number of phases
|
||||||
microstructure_maxNconstituents, & ! max number of constituents in any phase
|
material_Ntexture, & ! number of textures
|
||||||
homogenization_maxNgrains, & ! max number of grains in any USED homogenization
|
microstructure_maxNconstituents,&! max number of constituents in any phase
|
||||||
texture_maxNgauss, & ! max number of Gauss components in any texture
|
homogenization_maxNgrains, & ! max number of grains in any USED homogenization
|
||||||
texture_maxNfiber ! max number of Fiber components in any texture
|
texture_maxNgauss, & ! max number of Gauss components in any texture
|
||||||
character(len=64), dimension(:), allocatable :: homogenization_name, & ! name of each homogenization
|
texture_maxNfiber ! max number of Fiber components in any texture
|
||||||
homogenization_type, & ! type of each homogenization
|
character(len=64), dimension(:), allocatable :: &
|
||||||
microstructure_name, & ! name of each microstructure
|
homogenization_name, & ! name of each homogenization
|
||||||
crystallite_name, & ! name of each crystallite setting
|
homogenization_type, & ! type of each homogenization
|
||||||
phase_name, & ! name of each phase
|
microstructure_name, & ! name of each microstructure
|
||||||
phase_constitution, & ! constitution of each phase
|
crystallite_name, & ! name of each crystallite setting
|
||||||
texture_name ! name of each texture
|
phase_name, & ! name of each phase
|
||||||
character(len=256),dimension(:), allocatable :: texture_ODFfile ! name of each ODF file
|
phase_constitution, & ! constitution of each phase
|
||||||
integer(pInt), dimension(:), allocatable :: homogenization_Ngrains, & ! number of grains in each homogenization
|
texture_name ! name of each texture
|
||||||
homogenization_typeInstance, & ! instance of particular type of each homogenization
|
character(len=256),dimension(:), allocatable :: &
|
||||||
homogenization_Noutput, & ! number of '(output)' items per homogenization
|
texture_ODFfile ! name of each ODF file
|
||||||
microstructure_Nconstituents, & ! number of constituents in each microstructure
|
integer(pInt), dimension(:), allocatable :: &
|
||||||
crystallite_Noutput, & ! number of '(output)' items per crystallite setting
|
homogenization_Ngrains, & ! number of grains in each homogenization
|
||||||
phase_constitutionInstance, & ! instance of particular constitution of each phase
|
homogenization_typeInstance, & ! instance of particular type of each homogenization
|
||||||
phase_Noutput, & ! number of '(output)' items per phase
|
homogenization_Noutput, & ! number of '(output)' items per homogenization
|
||||||
texture_symmetry, & ! number of symmetric orientations per texture
|
microstructure_Nconstituents, & ! number of constituents in each microstructure
|
||||||
texture_Ngauss, & ! number of Gauss components per texture
|
crystallite_Noutput, & ! number of '(output)' items per crystallite setting
|
||||||
texture_Nfiber ! number of Fiber components per texture
|
phase_constitutionInstance, & ! instance of particular constitution of each phase
|
||||||
logical, dimension(:), allocatable :: homogenization_active, & !
|
phase_Noutput, & ! number of '(output)' items per phase
|
||||||
microstructure_active, & !
|
texture_symmetry, & ! number of symmetric orientations per texture
|
||||||
microstructure_elemhomo, & ! flag to indicate homogeneous microstructure distribution over element's IPs
|
texture_Ngauss, & ! number of Gauss components per texture
|
||||||
phase_localConstitution ! flags phases with local constitutive law
|
texture_Nfiber ! number of Fiber components per texture
|
||||||
integer(pInt), dimension(:), allocatable :: microstructure_crystallite ! crystallite setting ID of each microstructure
|
logical, dimension(:), allocatable :: &
|
||||||
integer(pInt), dimension(:,:), allocatable :: microstructure_phase, & ! phase IDs of each microstructure
|
homogenization_active, & !
|
||||||
microstructure_texture ! texture IDs of each microstructure
|
microstructure_active, & !
|
||||||
real(pReal), dimension(:,:), allocatable :: microstructure_fraction ! vol fraction of each constituent in microstructure
|
microstructure_elemhomo, & ! flag to indicate homogeneous microstructure distribution over element's IPs
|
||||||
real(pReal), dimension(:,:,:), allocatable :: material_volume ! volume of each grain,IP,element
|
phase_localConstitution ! flags phases with local constitutive law
|
||||||
integer(pInt), dimension(:,:,:), allocatable :: material_phase ! phase of each grain,IP,element
|
integer(pInt), dimension(:), allocatable :: &
|
||||||
real(pReal), dimension(:,:,:,:), allocatable :: material_EulerAngles ! initial orientation of each grain,IP,element
|
microstructure_crystallite ! crystallite setting ID of each microstructure
|
||||||
real(pReal), dimension(:,:,:), allocatable :: texture_Gauss, & ! data of each Gauss component
|
integer(pInt), dimension(:,:), allocatable :: &
|
||||||
texture_Fiber ! data of each Fiber component
|
microstructure_phase, & ! phase IDs of each microstructure
|
||||||
|
microstructure_texture ! texture IDs of each microstructure
|
||||||
|
real(pReal), dimension(:,:), allocatable :: &
|
||||||
|
microstructure_fraction ! vol fraction of each constituent in microstructure
|
||||||
|
real(pReal), dimension(:,:,:), allocatable :: &
|
||||||
|
material_volume ! volume of each grain,IP,element
|
||||||
|
integer(pInt), dimension(:,:,:), allocatable :: &
|
||||||
|
material_phase ! phase of each grain,IP,element
|
||||||
|
real(pReal), dimension(:,:,:,:), allocatable :: &
|
||||||
|
material_EulerAngles ! initial orientation of each grain,IP,element
|
||||||
|
real(pReal), dimension(:,:,:), allocatable :: &
|
||||||
|
texture_Gauss, & ! data of each Gauss component
|
||||||
|
texture_Fiber ! data of each Fiber component
|
||||||
|
|
||||||
CONTAINS
|
CONTAINS
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue