From 8a2524b5d26aa81cb74148304607c82b6e4310f4 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Mon, 28 Jan 2019 15:56:05 +0100 Subject: [PATCH] requiredShape outdated: use requiredSize --- src/homogenization_RGC.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/homogenization_RGC.f90 b/src/homogenization_RGC.f90 index ef81043eb..8ac76606a 100644 --- a/src/homogenization_RGC.f90 +++ b/src/homogenization_RGC.f90 @@ -177,15 +177,15 @@ subroutine homogenization_RGC_init() endif #endif - prm%Nconstituents = config%getInts('clustersize',requiredShape=[3]) + prm%Nconstituents = config%getInts('clustersize',requiredSize=3) if (homogenization_Ngrains(h) /= product(prm%Nconstituents)) & call IO_error(211_pInt,ext_msg='clustersize ('//HOMOGENIZATION_RGC_label//')') prm%xiAlpha = config%getFloat('scalingparameter') prm%ciAlpha = config%getFloat('overproportionality') - prm%dAlpha = config%getFloats('grainsize', requiredShape=[3]) - prm%angles = config%getFloats('clusterorientation',requiredShape=[3]) + prm%dAlpha = config%getFloats('grainsize', requiredSize=3) + prm%angles = config%getFloats('clusterorientation',requiredSize=3) outputs = config%getStrings('(output)',defaultVal=emptyStringArray) allocate(prm%outputID(0))