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

README

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

code/IO.f90

@@ -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)

code/material.f90

@@ -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