From 5b4b1c1933812bcf750fad8a6db73008ba43fc61 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
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