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

4
README
View File

@ -1,3 +1,5 @@
visit damask.mpie.de for installation and usage instructions
CONTACT INFORMATION CONTACT INFORMATION
Max-Planck-Institut für Eisenforschung GmbH Max-Planck-Institut für Eisenforschung GmbH
@ -6,4 +8,4 @@ Max-Planck-Str. 1
Germany Germany
Email: DAMASK@mpie.de Email: DAMASK@mpie.de
http://damask.mpie.de http://damask.mpie.de

View File

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

View File

@ -169,6 +169,9 @@ module material
PLASTICITY_nonlocal_ID, & PLASTICITY_nonlocal_ID, &
HOMOGENIZATION_none_ID, & HOMOGENIZATION_none_ID, &
HOMOGENIZATION_isostrain_ID, & HOMOGENIZATION_isostrain_ID, &
#ifdef HDF
material_NconstituentsPhase, &
#endif
HOMOGENIZATION_RGC_ID HOMOGENIZATION_RGC_ID
private :: & private :: &
@ -1164,4 +1167,12 @@ subroutine material_populateGrains
end 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 end module material