Constrained arrays in DAP FORTRAN

• First one or two extents could be omitted:
  

  
  
  
      DIMENSION A(), BB(,)
  
  
      INTEGER II(,)
  
      REAL AA(,3), BBB(,,5)
  

• A is a vector.
  

  
  

• BB and II are matrices.
  

  
  

• AA an array of vectors.  BBB an array of matrices.
  

  
  

• Extents of constrained dimensions 64 again (vectors of 4096 also possible).

  
  

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(,)