ERROR - The program attempts to pass an entire array as a parameter to
  a  subprogram  when:   1)  the array is an item in a record and 2) the
  record is itself dimensioned as a virtual array.  Assign the values of
  the array to another array of the same data type and dimension that is
  not a field of a virtual array record, and pass the  second  array  as
  the parameter.