{
{   The purpose of this request is to find a cycle array sub-record within
{ an info record and return a pointer to it.
{
{       PFP$FIND_CYCLE_ARRAY (P_INFO_RECORD, P_CYCLE_ARRAY, STATUS)
{
{ P_INFO_RECORD: (input) This parameter specifies the info record in which
{       the cycle array sub-record is to be found.
{
{ P_CYCLE_ARRAY: (output) This parameter returns a pointer to the desired
{       cycle array.
{
{ STATUS: (output) This parameter returns the request status.
{
{        CONDITIONS: pfe$unknown_cycle_array
{                    pfe$bad_info_record_format
{
