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

hot fix for terminally ill with gfortran 7.3 

might be a bug in the compiler or in the linked list.
waste some memory at the moment...
check linked list carefully before enabling again and blaming gfortran
This commit is contained in:
Martin Diehl 2018-08-21 07:41:10 +02:00
parent 465d950ab1
commit d146417abe
1 changed files with 38 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
src/config.f90
View File

@ -234,6 +234,7 @@ end subroutine parseFile
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief deallocates the linked lists that store the content of the configuration files !> @brief deallocates the linked lists that store the content of the configuration files
! commenting out removes erratic errors with gfortran 7.3
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine config_deallocate(what) subroutine config_deallocate(what)
use IO, only: & use IO, only: &
@ -243,42 +244,42 @@ subroutine config_deallocate(what)
character(len=*), intent(in) :: what character(len=*), intent(in) :: what
integer(pInt) :: i integer(pInt) :: i
select case(what) ! select case(what)
!
case('material.config/phase') ! case('material.config/phase')
do i=1, size(config_phase) ! do i=1, size(config_phase)
call config_phase(i)%free ! call config_phase(i)%free
enddo ! enddo
deallocate(config_phase) ! deallocate(config_phase)
!
case('material.config/microstructure') ! case('material.config/microstructure')
do i=1, size(config_microstructure) ! do i=1, size(config_microstructure)
call config_microstructure(i)%free ! call config_microstructure(i)%free
enddo ! enddo
deallocate(config_microstructure) ! deallocate(config_microstructure)
!
case('material.config/crystallite') ! case('material.config/crystallite')
do i=1, size(config_crystallite) ! do i=1, size(config_crystallite)
call config_crystallite(i)%free ! call config_crystallite(i)%free
enddo ! enddo
deallocate(config_crystallite) ! deallocate(config_crystallite)
!
case('material.config/homogenization') ! case('material.config/homogenization')
do i=1, size(config_homogenization) ! do i=1, size(config_homogenization)
call config_homogenization(i)%free ! call config_homogenization(i)%free
enddo ! enddo
deallocate(config_homogenization) ! deallocate(config_homogenization)
!
case('material.config/texture') ! case('material.config/texture')
do i=1, size(config_texture) ! do i=1, size(config_texture)
call config_texture(i)%free ! call config_texture(i)%free
enddo ! enddo
deallocate(config_texture) ! deallocate(config_texture)
!
case default ! case default
call IO_error(0_pInt,ext_msg='config_deallocate') ! call IO_error(0_pInt,ext_msg='config_deallocate')
!
end select ! end select
end subroutine config_deallocate end subroutine config_deallocate
@ -342,7 +343,7 @@ end subroutine show
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief cleans entire list !> @brief cleans entire list
!> @details list head is remains alive !> @details list head remains alive
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine free(this) subroutine free(this)