Array assignments in DAP Fortran
Leave subscripts empty for array expression. + or – subscript used for nearest neighbour access:
U(,) = 0.25 * (U(,-) + U(,+) + U(-,) + U(+,))
Masked assignment by using logical matrix as subscript:
LOGICAL L(,)
...
L(,) = BB(,) .LT. 0
B(L) = -B(,)