parent
1b5623ad6c
commit
ab45818d51
|
@ -47,7 +47,7 @@ module config
|
|||
|
||||
type(tPartitionedStringList), public :: emptyList
|
||||
|
||||
type(tPartitionedStringList), public, allocatable, dimension(:) :: &
|
||||
type(tPartitionedStringList), public, protected, allocatable, dimension(:) :: &
|
||||
config_phase, &
|
||||
config_microstructure, &
|
||||
config_homogenization, &
|
||||
|
@ -82,9 +82,9 @@ module config
|
|||
MATERIAL_configFile = 'material.config', & !< generic name for material configuration file
|
||||
MATERIAL_localFileExt = 'materialConfig' !< extension of solver job name depending material configuration file
|
||||
|
||||
|
||||
public :: &
|
||||
config_init
|
||||
config_init, &
|
||||
config_deallocate
|
||||
|
||||
contains
|
||||
|
||||
|
@ -137,7 +137,7 @@ subroutine config_init()
|
|||
fileContent = IO_recursiveRead('material.config')
|
||||
endif
|
||||
|
||||
do i=1, size(fileContent)
|
||||
do i = 1_pInt, size(fileContent)
|
||||
line = trim(fileContent(i))
|
||||
part = IO_lc(IO_getTag(line,'<','>'))
|
||||
select case (trim(part))
|
||||
|
@ -188,11 +188,7 @@ subroutine parseFile(line,sectionNames,part,&
|
|||
pStringLen
|
||||
use IO, only: &
|
||||
IO_error, &
|
||||
IO_lc, &
|
||||
IO_getTag, &
|
||||
IO_isBlank, &
|
||||
IO_stringValue, &
|
||||
IO_stringPos
|
||||
IO_getTag
|
||||
|
||||
implicit none
|
||||
character(len=pStringLen), intent(out) :: line
|
||||
|
@ -200,44 +196,38 @@ subroutine parseFile(line,sectionNames,part,&
|
|||
type(tPartitionedStringList), allocatable, dimension(:), intent(out) :: part
|
||||
character(len=pStringLen), dimension(:), intent(in) :: fileContent
|
||||
|
||||
character(len=64), allocatable, dimension(:) :: sectionNamesTemp ! Circumvent Gfortran bug
|
||||
integer(pInt), allocatable, dimension(:) :: chunkPos
|
||||
integer(pInt) :: s,i
|
||||
character(len=64) :: tag
|
||||
integer(pInt), allocatable, dimension(:) :: partPosition
|
||||
integer(pInt) :: i
|
||||
logical :: echo
|
||||
|
||||
echo = .false.
|
||||
allocate(part(0))
|
||||
tag=''
|
||||
allocate(sectionNamesTemp(0),source=tag)
|
||||
allocate(partPosition(0))
|
||||
|
||||
s = 0_pInt
|
||||
do i=1, size(fileContent)
|
||||
do i = 1_pInt, size(fileContent)
|
||||
line = trim(fileContent(i))
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit
|
||||
nextSection: if (IO_getTag(line,'[',']') /= '') then
|
||||
s = s + 1_pInt
|
||||
part = [part, emptyList]
|
||||
tag = IO_getTag(line,'[',']')
|
||||
sectionNamesTemp = [sectionNamesTemp,tag]
|
||||
partPosition = [partPosition, i]
|
||||
cycle
|
||||
endif nextSection
|
||||
chunkPos = IO_stringPos(line)
|
||||
tag = IO_lc(IO_stringValue(trim(line),chunkPos,1_pInt)) ! extract key
|
||||
inSection: if (s > 0_pInt) then
|
||||
call part(s)%add(IO_lc(trim(line)))
|
||||
inSection: if (size(part) > 0_pInt) then
|
||||
call part(size(part))%add(trim(adjustl(line)))
|
||||
else inSection
|
||||
echo = (trim(tag) == '/echo/')
|
||||
if (trim(IO_getTag(line,'/','/')) == 'echo') echo = .true.
|
||||
endif inSection
|
||||
enddo
|
||||
|
||||
sectionNames = sectionNamesTemp
|
||||
allocate(sectionNames(size(partPosition)))
|
||||
do i = 1_pInt, size(partPosition)
|
||||
sectionNames(i) = trim(adjustl(fileContent(partPosition(i))))
|
||||
enddo
|
||||
|
||||
if (echo) then
|
||||
do s = 1, size(sectionNames)
|
||||
write(6,*) 'section',s, '"'//trim(sectionNames(i))//'"'
|
||||
call part(s)%show()
|
||||
do i = 1, size(sectionNames)
|
||||
write(6,'(a)') 'section',i, '"'//trim(sectionNames(i))//'"'
|
||||
call part(i)%show()
|
||||
end do
|
||||
end if
|
||||
|
||||
|
@ -252,7 +242,6 @@ subroutine config_deallocate(what)
|
|||
|
||||
implicit none
|
||||
character(len=*), intent(in) :: what
|
||||
integer(pInt) :: i
|
||||
|
||||
select case(trim(what))
|
||||
|
||||
|
@ -336,7 +325,7 @@ end subroutine show
|
|||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief cleans entire list
|
||||
!> @brief empties list and frees associated memory
|
||||
!> @details explicit interface to reset list. Triggers final statement (and following chain reaction)
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine free(this)
|
||||
|
@ -350,8 +339,8 @@ end subroutine free
|
|||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief cleans entire list
|
||||
!> @details called when variable goes out of scope. Triggers chain reaction.
|
||||
!> @brief empties list and frees associated memory
|
||||
!> @details called when variable goes out of scope. Triggers chain reaction for list
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
recursive subroutine finalize(this)
|
||||
|
||||
|
@ -364,15 +353,15 @@ end subroutine finalize
|
|||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief cleans entire list
|
||||
!> @details called when variable goes out of scope. Triggers chain reaction.
|
||||
!> @brief cleans entire array of linke lists
|
||||
!> @details called when variable goes out of scope.
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine finalizeArray(this)
|
||||
|
||||
implicit none
|
||||
integer :: i
|
||||
type(tPartitionedStringList), intent(inout), dimension(:) :: this
|
||||
type(tPartitionedStringList), pointer :: temp ! bug in Gfortran
|
||||
type(tPartitionedStringList), pointer :: temp ! bug in Gfortran?
|
||||
|
||||
do i=1, size(this)
|
||||
if (associated(this(i)%next)) then
|
||||
|
|
|
@ -65,7 +65,8 @@ subroutine constitutive_init()
|
|||
material_Nphase, &
|
||||
material_localFileExt, &
|
||||
phase_name, &
|
||||
material_configFile
|
||||
material_configFile, &
|
||||
config_deallocate
|
||||
use material, only: &
|
||||
material_phase, &
|
||||
phase_plasticity, &
|
||||
|
@ -192,7 +193,7 @@ subroutine constitutive_init()
|
|||
if (any(phase_kinematics == KINEMATICS_hydrogen_strain_ID)) call kinematics_hydrogen_strain_init(FILEUNIT)
|
||||
close(FILEUNIT)
|
||||
|
||||
deallocate(config_phase)
|
||||
call config_deallocate('material.config/phase')
|
||||
|
||||
write(6,'(/,a)') ' <<<+- constitutive init -+>>>'
|
||||
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
||||
|
|
|
@ -172,6 +172,7 @@ subroutine crystallite_init
|
|||
IO_error
|
||||
use material
|
||||
use config, only: &
|
||||
config_deallocate, &
|
||||
config_crystallite, &
|
||||
crystallite_name
|
||||
use constitutive, only: &
|
||||
|
@ -375,7 +376,7 @@ subroutine crystallite_init
|
|||
close(FILEUNIT)
|
||||
endif
|
||||
|
||||
deallocate(config_crystallite)
|
||||
call config_deallocate('material.config/crystallite')
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! initialize
|
||||
|
|
|
@ -103,6 +103,7 @@ subroutine homogenization_init
|
|||
use config, only: &
|
||||
material_configFile, &
|
||||
material_localFileExt, &
|
||||
config_deallocate, &
|
||||
config_homogenization, &
|
||||
homogenization_name
|
||||
use material
|
||||
|
@ -374,7 +375,7 @@ subroutine homogenization_init
|
|||
close(FILEUNIT)
|
||||
endif mainProcess2
|
||||
|
||||
deallocate(config_homogenization)
|
||||
call config_deallocate('material.config/homogenization')
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! allocate and initialize global variables
|
||||
|
|
|
@ -919,6 +919,7 @@ subroutine material_parseTexture
|
|||
IO_floatValue, &
|
||||
IO_stringValue
|
||||
use config, only: &
|
||||
config_deallocate, &
|
||||
config_texture
|
||||
use math, only: &
|
||||
inRad, &
|
||||
|
@ -1058,7 +1059,7 @@ subroutine material_parseTexture
|
|||
endif
|
||||
enddo
|
||||
|
||||
deallocate(config_texture)
|
||||
call config_deallocate('material.config/texture')
|
||||
|
||||
end subroutine material_parseTexture
|
||||
|
||||
|
@ -1090,6 +1091,7 @@ subroutine material_populateGrains
|
|||
use config, only: &
|
||||
config_homogenization, &
|
||||
config_microstructure, &
|
||||
config_deallocate, &
|
||||
homogenization_name, &
|
||||
microstructure_name
|
||||
use IO, only: &
|
||||
|
@ -1426,7 +1428,7 @@ subroutine material_populateGrains
|
|||
deallocate(texture_transformation)
|
||||
deallocate(Nelems)
|
||||
deallocate(elemsOfHomogMicro)
|
||||
deallocate(config_microstructure)
|
||||
call config_deallocate('material.config/microstructure')
|
||||
|
||||
end subroutine material_populateGrains
|
||||
|
||||
|
|
Loading…
Reference in New Issue