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 |