From be319c5a83bcffc1184466ef683838181fec298b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 25 Dec 2019 09:24:42 +0100 Subject: [PATCH] single source of truth --- src/lattice.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 025a1f8a5..4aab12fc9 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -371,7 +371,7 @@ module lattice 1,-1, 1, -2,-1, 1, & -1, 1, 1, -1,-2, 1, & 1, 1, 1, 1,-2, 1 & - ],pReal),[ 3 + 3,LATTICE_BCT_NSLIP]) !< slip systems for bct sorted by Bieler + ],pReal),shape(LATTICE_BCT_SYSTEMSLIP)) !< slip systems for bct sorted by Bieler !-------------------------------------------------------------------------------------------------- ! isotropic @@ -387,7 +387,7 @@ module lattice 0, 1, 0, 1, 0, 0, & 0, 0, 1, 0, 1, 0, & 1, 0, 0, 0, 0, 1 & - ],pReal),[ 3 + 3,LATTICE_ISO_NCLEAVAGE]) + ],pReal),shape(LATTICE_ISO_SYSTEMCLEAVAGE)) !-------------------------------------------------------------------------------------------------- @@ -404,7 +404,7 @@ module lattice 0, 1, 0, 1, 0, 0, & 0, 0, 1, 0, 1, 0, & 1, 0, 0, 0, 0, 1 & - ],pReal),[ 3 + 3,LATTICE_ORT_NCLEAVAGE]) + ],pReal),shape(LATTICE_ORT_SYSTEMCLEAVAGE))