{
{    The purpose of this request is to find the cycle directory within the
{ cycle array extended record.  The cycle array extended record may be found
{ by use of the PFP$FIND_CYCLE_ARRAY_EXTENDED procedure.  The cycle directory
{ may be used in conjunction with the PFP$FIND_DIRECT_INFO_RECORD procedure
{ to get a pointer to the cycle info.
{
{      PFP$FIND_CYCLE_DIRECTORY (P_CYCLE_ARRAY_EXTENDED_RECORD,
{           P_CYCLE_DIRECTORY_ARRAY, STATUS)
{
{ P_CYCLE_ARRAY_EXTENDED_RECORD: (input) This parameter specifies the info
{      record to search for the directory in.
{
{ P_CYCLE_DIRECTORY_ARRAY: (output) This parameter returns the pointer to
{     cycle directory. This may be NIL if there are no cycles.
{
{ STATUS: (output) This parameter returns the request status.
{       CONDITIONS: pfe$bad_info_record_format
{                   pfe$unknown_info_record
{
