SUBROUTINE DOTPRO(NPTS, X, Y, Z) REAL X(NPTS), Y(NPTS), Z(NPTS) DO 15, I = 1,NPTS * etc.In this case the calling sequence would be something like:
CALL DOTPRO(100, A, B, C)
SUBROUTINE MULTI(MAP, K1, L1, K2, L2, TRACE) DOUBLE PRECISION MAP(K1:L1, K2:L2) REAL TRACE(L1-K1+1)The adjustable array mechanism can, of course, be used for arrays of any data type; an adjustable array can also be passed as an actual argument of a procedure with, if necessary, the array bounds passed on in parallel.
Each array bound of a dummy argument array may be an integer expression involving not only constants but also integer variables passed in to the procedure either as arguments or by means of a common block. The extent of each dimension of the array must not be less than one and must not be greater than the extent of the corresponding dimension of the actual argument array.
If any integer variable (or named constant) used in an array-bound expression has a name which does not imply integer type then the INTEGER statement which specifies its type must precede its use in a dimension-bound expression.