small changes to HDF5, put link to homepage into README not to have double effort

This commit is contained in:
Martin Diehl 2014-03-25 17:21:47 +00:00
parent e6e74b2c6f
commit 99fe2dfccd
3 changed files with 16 additions and 3 deletions

2
README
View File

@ -1,3 +1,5 @@
visit damask.mpie.de for installation and usage instructions
CONTACT INFORMATION
Max-Planck-Institut für Eisenforschung GmbH

View File

@ -2209,7 +2209,7 @@ subroutine HDF5_mappingHomogenization(mapping)
!--------------------------------------------------------------------------------------------------
! create dataspace
call h5screate_simple_f(2, int([NmatPoints],HSIZE_T), space_id, hdf5err, &
call h5screate_simple_f(1, int([NmatPoints],HSIZE_T), space_id, hdf5err, &
int([NmatPoints],HSIZE_T))
if (hdf5err < 0) call IO_error(1_pInt,ext_msg='IO_mappingHomogenization')
@ -2230,7 +2230,7 @@ subroutine HDF5_mappingHomogenization(mapping)
!--------------------------------------------------------------------------------------------------
! create Dataset
call h5dcreate_f(mapping_id, "Homogenization", dtype_id, space_id, dset_id, hdf5err)
if (hdf5err < 0) call IO_error(1_pInt,ext_msg='IO_addAttribute')
if (hdf5err < 0) call IO_error(1_pInt,ext_msg='IO_mappingHomogenization')
!--------------------------------------------------------------------------------------------------
! Create memory types (one compound datatype for each member)

View File

@ -169,6 +169,9 @@ module material
PLASTICITY_nonlocal_ID, &
HOMOGENIZATION_none_ID, &
HOMOGENIZATION_isostrain_ID, &
#ifdef HDF
material_NconstituentsPhase, &
#endif
HOMOGENIZATION_RGC_ID
private :: &
@ -1164,4 +1167,12 @@ subroutine material_populateGrains
end subroutine material_populateGrains
integer(pInt) pure function material_NconstituentsPhase(matID)
implicit none
integer(pInt), intent(in) :: matID
material_NconstituentsPhase = count(microstructure_phase == matID)
end function
end module material