Called by :
1. parent :: TYPE , INTENT( IN ) 2. nestid :: INTEGER , INTENT( OUT ) 3. kid :: INTEGER , INTENT( OUT )