Skip to content

Commit

Permalink
Formatting updates and fixes found by massive debug compilation.
Browse files Browse the repository at this point in the history
  • Loading branch information
jsachdev committed Oct 9, 2019
1 parent b78819c commit 14e1cf5
Show file tree
Hide file tree
Showing 24 changed files with 939 additions and 918 deletions.
6 changes: 3 additions & 3 deletions ezspline/ezspline_cinterp.f90
Original file line number Diff line number Diff line change
Expand Up @@ -44,9 +44,9 @@ subroutine EZspline_cinterp(spline_o, k, p1, p2, p3, f, ier)
REAL(fp) , parameter :: three=3.0_fp

integer j1, j2 , j3
REAL(fp) z36th,z216th,xp,xpi,xp2,xpi2,cx,cxi,hx2,cxd,cxdi,yp, &
& ypi,yp2,ypi2,cy,cyi,hy2,cyd,cydi,zp,zpi,zp2,zpi2,cz,czi,hz2, &
& czd,czdi,somme
REAL(fp) z36th,z216th,xp,xpi,xp2,xpi2,cx,cxi,hx2,cxd,cxdi,yp, &
ypi,yp2,ypi2,cy,cyi,hy2,cyd,cydi,zp,zpi,zp2,zpi2,cz,czi,hz2, &
czd,czdi,somme

ier = 0
ifail=0
Expand Down
Loading

0 comments on commit 14e1cf5

Please sign in to comment.