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