Compare commits

...

4 Commits

Author SHA1 Message Date
sfilippone ed138c8afd Fix matrix generation 3 months ago
sfilippone c1ceda1598 Merge branch 'maint-3.9.0' of github.com:sfilippone/psblas3 into maint-3.9.0 3 months ago
sfilippone 914dd33e4a Maintenance fixes 3 months ago
sfilippone 9ef5179ecc Test 3 months ago

@ -1,5 +1,5 @@
include Make.inc include Make.inc
all: dirs mods objs libd all: dirs mods objs libd
@echo "=====================================" @echo "====================================="
@echo "PSBLAS libraries Compilation Successful." @echo "PSBLAS libraries Compilation Successful."

@ -467,8 +467,8 @@ contains
! compute gridpoint coordinates ! compute gridpoint coordinates
call idx2ijk(ix,iy,glob_row,idim,idim) call idx2ijk(ix,iy,glob_row,idim,idim)
! x, y coordinates ! x, y coordinates
x = (ix-1)*deltah x = (ix)*deltah
y = (iy-1)*deltah y = (iy)*deltah
zt(k) = f_(x,y) zt(k) = f_(x,y)
! internal point: build discretization ! internal point: build discretization

@ -496,9 +496,9 @@ contains
! compute gridpoint coordinates ! compute gridpoint coordinates
call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim) call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
! x, y, z coordinates ! x, y, z coordinates
x = (ix-1)*deltah x = (ix)*deltah
y = (iy-1)*deltah y = (iy)*deltah
z = (iz-1)*deltah z = (iz)*deltah
zt(k) = f_(x,y,z) zt(k) = f_(x,y,z)
! internal point: build discretization ! internal point: build discretization
! !

@ -467,8 +467,8 @@ contains
! compute gridpoint coordinates ! compute gridpoint coordinates
call idx2ijk(ix,iy,glob_row,idim,idim) call idx2ijk(ix,iy,glob_row,idim,idim)
! x, y coordinates ! x, y coordinates
x = (ix-1)*deltah x = (ix)*deltah
y = (iy-1)*deltah y = (iy)*deltah
zt(k) = f_(x,y) zt(k) = f_(x,y)
! internal point: build discretization ! internal point: build discretization

@ -496,9 +496,9 @@ contains
! compute gridpoint coordinates ! compute gridpoint coordinates
call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim) call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
! x, y, z coordinates ! x, y, z coordinates
x = (ix-1)*deltah x = (ix)*deltah
y = (iy-1)*deltah y = (iy)*deltah
z = (iz-1)*deltah z = (iz)*deltah
zt(k) = f_(x,y,z) zt(k) = f_(x,y,z)
! internal point: build discretization ! internal point: build discretization
! !

Loading…
Cancel
Save