istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

corrected dimensions of spline coefficients cc01,cc10 for psi derivatives

Browse Source
This commit is contained in:
Lorenzo Figini 2013-10-11 15:07:29 +00:00
parent e76c036ba2
commit 1779cb2be4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gray.f
View File

@ -3414,7 +3414,7 @@ c
parameter(lw20=nnw*2+nnh*4+nnw*nnh,lw02=nnw*4+nnh*2+nnw*nnh) parameter(lw20=nnw*2+nnh*4+nnw*nnh,lw02=nnw*4+nnh*2+nnw*nnh)
parameter(lw11=nnw*3+nnh*3+nnw*nnh) parameter(lw11=nnw*3+nnh*3+nnw*nnh)
parameter(nrs=1,nzs=1) 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) dimension tfp(nrest),cfp(nrest),wrkfd(nrest)
c c
common/eqnn/nr,nz,npp,nintp common/eqnn/nr,nz,npp,nintp