C
      FUNCTION proper(np,label)
*     recursive function
      IMPLICIT NONE
      INTEGER np(1000), label, proper
      IF(np(label) .EQ. label) THEN
         proper = label
      ELSE
         proper = proper(np,np(label))
      END IF
      END