From ee98ed5eb5e9fe857daace21aadc11ff39e0930d Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Fri, 11 Oct 2013 15:11:52 +0000
Subject: [PATCH] merged correction from trunk rev 52 (spline coefficients
 dimensions)

---
 src/gray.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gray.f b/src/gray.f
index c678a24..58d7bf3 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -3459,7 +3459,7 @@ c
       parameter(lw20=nnw*2+nnh*4+nnw*nnh,lw02=nnw*4+nnh*2+nnw*nnh)
       parameter(lw11=nnw*3+nnh*3+nnw*nnh)
       parameter(nrs=1,nzs=1)
-      dimension cc01(lw10),cc10(lw01),cc02(lw02),cc20(lw20),cc11(lw11)
+      dimension cc01(lw01),cc10(lw10),cc02(lw02),cc20(lw20),cc11(lw11)
       dimension tfp(nrest),cfp(nrest),wrkfd(nrest)
 c
       common/eqnn/nr,nz,npp,nintp