Go to the source code of this file.
|
subroutine | parder (tx, nx, ty, ny, c, kx, ky, nux, nuy, x, mx, y, my, z, wrk, lwrk, iwrk, kwrk, ier) |
|
subroutine parder |
( |
real*8, dimension(nx) |
tx, |
|
|
integer |
nx, |
|
|
real*8, dimension(ny) |
ty, |
|
|
integer |
ny, |
|
|
real*8, dimension((nx-kx-1)*(ny-ky-1)) |
c, |
|
|
integer |
kx, |
|
|
integer |
ky, |
|
|
integer |
nux, |
|
|
integer |
nuy, |
|
|
real*8, dimension(mx) |
x, |
|
|
integer |
mx, |
|
|
real*8, dimension(my) |
y, |
|
|
integer |
my, |
|
|
real*8, dimension(mx*my) |
z, |
|
|
real*8, dimension(lwrk) |
wrk, |
|
|
integer |
lwrk, |
|
|
integer, dimension(kwrk) |
iwrk, |
|
|
integer |
kwrk, |
|
|
integer |
ier |
|
) |
| |