Need program statement for FORD
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer, | parameter | :: | lx1 | = | 25 | |
| integer, | parameter | :: | lx2 | = | 50 | |
| integer, | parameter | :: | lx1i | = | 200 | |
| integer, | parameter | :: | lx2i | = | 400 | |
| real(kind=wp), | parameter | :: | stride | = | 0.5_wp | |
| real(kind=wp) | :: | x1(lx1) | ||||
| real(kind=wp) | :: | x2(lx2) | ||||
| real(kind=wp) | :: | f(lx1,lx2) | ||||
| real(kind=wp) | :: | x1i(lx1i) | ||||
| real(kind=wp) | :: | x2i(lx2i) | ||||
| real(kind=wp) | :: | fi(lx1i,lx2i) | ||||
| integer | :: | ix1 | ||||
| integer | :: | ix2 |