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

avoid imports

This commit is contained in:
Martin Diehl 2019-12-19 07:49:53 +01:00
parent f0ad075802
commit befd4e2adf
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/homogenization.f90
View File

@ -23,7 +23,6 @@ module homogenization
use damage_local use damage_local
use damage_nonlocal use damage_nonlocal
use results use results
use HDF5_utilities
implicit none implicit none
private private
@ -801,18 +800,18 @@ subroutine homogenization_results
do p=1,size(config_name_homogenization) do p=1,size(config_name_homogenization)
group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p)) group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))
call HDF5_closeGroup(results_addGroup(group)) call results_closeGroup(results_addGroup(group))
group = trim(group)//'/mech' group = trim(group)//'/mech'
call HDF5_closeGroup(results_addGroup(group)) call results_closeGroup(results_addGroup(group))
select case(material_homogenization_type(p)) select case(material_homogenization_type(p))
case(HOMOGENIZATION_rgc_ID) case(HOMOGENIZATION_rgc_ID)
call mech_RGC_results(homogenization_typeInstance(p),group) call mech_RGC_results(homogenization_typeInstance(p),group)
end select end select
group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))//'/generic' group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))//'/generic'
call HDF5_closeGroup(results_addGroup(group)) call results_closeGroup(results_addGroup(group))
!temp = reshape(materialpoint_F,[3,3,discretization_nIP*discretization_nElem]) !temp = reshape(materialpoint_F,[3,3,discretization_nIP*discretization_nElem])
!call results_writeDataset(group,temp,'F',& !call results_writeDataset(group,temp,'F',&

3
src/mesh_marc.f90
View File

@ -18,7 +18,6 @@ module mesh
use element use element
use discretization use discretization
use geometry_plastic_nonlocal use geometry_plastic_nonlocal
use HDF5_utilities
use results use results
implicit none implicit none
@ -151,7 +150,7 @@ subroutine writeGeometry(elemType, &
coordinates_temp coordinates_temp
call results_openJobFile call results_openJobFile
call HDF5_closeGroup(results_addGroup('geometry')) call results_closeGroup(results_addGroup('geometry'))
connectivity_temp = connectivity_elem connectivity_temp = connectivity_elem
call results_writeDataset('geometry',connectivity_temp,'T_e',& call results_writeDataset('geometry',connectivity_temp,'T_e',&