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

only needed once

This commit is contained in:
Martin Diehl 2018-08-22 22:52:12 +02:00
parent ab45818d51
commit 8c5f3d4e07
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/config.f90
View File

@ -45,8 +45,6 @@ module config
end type tPartitionedStringList end type tPartitionedStringList
type(tPartitionedStringList), public :: emptyList
type(tPartitionedStringList), public, protected, allocatable, dimension(:) :: & type(tPartitionedStringList), public, protected, allocatable, dimension(:) :: &
config_phase, & config_phase, &
config_microstructure, & config_microstructure, &
@ -197,6 +195,7 @@ subroutine parseFile(line,sectionNames,part,&
character(len=pStringLen), dimension(:), intent(in) :: fileContent character(len=pStringLen), dimension(:), intent(in) :: fileContent
integer(pInt), allocatable, dimension(:) :: partPosition integer(pInt), allocatable, dimension(:) :: partPosition
type(tPartitionedStringList) :: emptyList
integer(pInt) :: i integer(pInt) :: i
logical :: echo logical :: echo
@ -364,11 +363,11 @@ subroutine finalizeArray(this)
type(tPartitionedStringList), pointer :: temp ! bug in Gfortran? type(tPartitionedStringList), pointer :: temp ! bug in Gfortran?
do i=1, size(this) do i=1, size(this)
if (associated(this(i)%next)) then !if (associated(this(i)%next)) then
temp => this(i)%next temp => this(i)%next
!deallocate(this(i)) !internal compiler error: in gfc_build_final_call, at fortran/trans.c:975 !deallocate(this(i)) !internal compiler error: in gfc_build_final_call, at fortran/trans.c:975
deallocate(temp) deallocate(temp)
endif !endif
enddo enddo
end subroutine finalizeArray end subroutine finalizeArray