Array of Reals: procedure SET_R_ARRAY (C : ADDRESS; VAL : REAL_ARR);
procedure SET_R_ARRAY (C : ADDRESS; VAL : REAL_ARR);