diff --git a/src/material.f90 b/src/material.f90 index ceb67a177..d1d9ca43e 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -134,7 +134,7 @@ subroutine parse() allocate(ph_of(materials%length,homogenization_maxNconstituents),source=-1) allocate( v_of(materials%length,homogenization_maxNconstituents),source=0.0_pReal) - ! parse YAML structure + ! Parse YAML structure. Manual loop over linked list to have O(n) instead of O(n^2) complexity item => materials%first do ma = 1, materials%length material => item%node%asDict()