CAT_TIDPR - Determine the parent to a component

Description:

Determine the parent to a component. That is, the routine is give the identifier of a component and it will return the identifier of that component's parent catalogue.

If the routine is given a catalogue identifier it will return the null identifier, because catalogues do not have parents.

Invocation:

CALL CAT_TIDPR (GI; CI; STATUS)

Arguments:

GI = INTEGER (Given)

Identifier to a component.

CI = INTEGER (Returned)

Identifier to the parent catalogue of the component.

STATUS = INTEGER (Given and Returned)

The global status.

Copyright

Copyright (C) 1999 Central Laboratory of the Research Councils

Bugs:

None known