From 5462d2c754cfd8728e3ad1045f3d273496a48f5d Mon Sep 17 00:00:00 2001 From: Denny Tjahjanto Date: Thu, 27 Mar 2008 11:53:53 +0000 Subject: [PATCH] just a correction for a little typo :P --- trunk/constitutive_pheno.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/constitutive_pheno.f90 b/trunk/constitutive_pheno.f90 index ebe1ae633..8314cefd8 100644 --- a/trunk/constitutive_pheno.f90 +++ b/trunk/constitutive_pheno.f90 @@ -45,7 +45,7 @@ real(pReal), dimension(:) , allocatable :: material_w0 real(pReal), dimension(:,:) , allocatable :: material_SlipIntCoeff !* GIA material parameters real(pReal), dimension(:) , allocatable :: material_GrainSize -real(pReal), dimension(:) , allocatable :: material_bg +real(pReal), dimension(:) , allocatable :: material_bg !************************************ !* Definition of texture properties *