Need program statement for FORD
grid for interpolated data center grid points at zero try a 333d interpolation dump results to a file so we can check things
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(hdf5_file) | :: | hout | ||||
| integer, | parameter | :: | lx1 | = | 80 | |
| integer, | parameter | :: | lx2 | = | 90 | |
| integer, | parameter | :: | lx3 | = | 100 | |
| integer, | parameter | :: | lx1i | = | 256 | |
| integer, | parameter | :: | lx2i | = | 256 | |
| integer, | parameter | :: | lx3i | = | 256 | |
| real(kind=wp), | parameter | :: | stride | = | 0.5_wp | |
| real(kind=wp) | :: | x1(lx1) | ||||
| real(kind=wp) | :: | x2(lx2) | ||||
| real(kind=wp) | :: | x3(lx3) | ||||
| real(kind=wp) | :: | f(lx1,lx2,lx3) | ||||
| real(kind=wp) | :: | x1i(lx1i) | ||||
| real(kind=wp) | :: | x2i(lx2i) | ||||
| real(kind=wp) | :: | x3i(lx3i) | ||||
| real(kind=wp) | :: | fi(lx1i,lx2i,lx3i) | ||||
| real(kind=wp), | dimension(1:lx1i*lx2i*lx3i) | :: | x1ilist | |||
| real(kind=wp), | dimension(1:lx1i*lx2i*lx3i) | :: | x2ilist | |||
| real(kind=wp), | dimension(1:lx1i*lx2i*lx3i) | :: | x3ilist | |||
| real(kind=wp), | dimension(1:lx1i*lx2i*lx3i) | :: | filist | |||
| integer | :: | ix1 | ||||
| integer | :: | ix2 | ||||
| integer | :: | ix3 | ||||
| integer | :: | ik | ||||
| integer | :: | ierr |