Compare commits

..

No commits in common. 'ed138c8afd74bc5587779d59206d43bed1dbbce7' and '35ff98d1ab8491d3ac9507431ff733a866d515ae' have entirely different histories.

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

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

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

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

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

Loading…
Cancel
Save