From 5b4b1c1933812bcf750fad8a6db73008ba43fc61 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 5 Aug 2021 20:32:58 +0200 Subject: [PATCH] enforce correct shape --- src/material.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/material.f90 b/src/material.f90 index 4bf994987..2af1e47fb 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -171,7 +171,7 @@ subroutine parse() do co = 1, constituents%length constituent => constituents%get(co) call material_O_0(ma)%data(co)%fromQuaternion(constituent%get_as1dFloat('O',requiredSize=4)) - material_F_i_0(ma)%data(1:3,1:3,co) = constituent%get_as2dFloat('F_i',defaultVal=math_I3) ! requiredShape=(3,3) + material_F_i_0(ma)%data(1:3,1:3,co) = constituent%get_as2dFloat('F_i',defaultVal=math_I3,requiredShape=[3,3]) enddo enddo