From 1779cb2be4783c14e42b133958250c8dd1c2770c Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Fri, 11 Oct 2013 15:07:29 +0000
Subject: [PATCH] corrected dimensions of spline coefficients cc01,cc10 for psi
 derivatives

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

diff --git a/src/gray.f b/src/gray.f
index 93f3ef9..0805c49 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -3414,7 +3414,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