Interface
   Subroutine CTRPER (XVALT, PCLS)
      Real, Dimension (:), Intent (Inout) :: XVALT
      Real, Intent (In) :: PCLS
   End Subroutine CTRPER
End Interface
Interface
   Function FNDNTH (XDONT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Real (Kind(XDONT)) :: FNDNTH
      Integer, Intent (In) :: NORD
   End Function FNDNTH
End Interface
Interface
   Subroutine INDMED (XDONT, INDM)
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Intent (Out) :: INDM
   End Subroutine INDMED
End Interface
Interface
   Function INDNTH (XDONT, NORD)
      Integer :: INDNTH
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Intent (In) :: NORD
   End Function INDNTH
End Interface
Interface
   Subroutine INSPAR (XDONT, NORD)
      Real, Dimension (:), Intent (Inout) :: XDONT
      Integer, Intent (In) :: NORD
   End Subroutine INSPAR
End Interface
Interface
   Subroutine INSSOR (XDONT)
      Real, Dimension (:), Intent (Inout) :: XDONT
   End Subroutine INSSOR
End Interface
Interface
   Subroutine MRGREF (XVALT, IRNGT)
      Real, Dimension (:), Intent (In) :: XVALT
      Integer, Dimension (:), Intent (Out) :: IRNGT
   End Subroutine MRGREF
End Interface
Interface
   Subroutine MRGRNK (XVALT, IRNGT)
      Real, Dimension (:), Intent (In) :: XVALT
      Integer, Dimension (:), Intent (Out) :: IRNGT
   End Subroutine MRGRNK
End Interface
Interface
   Subroutine MULCNT (XVALT, IMULT)
      Real, Dimension (:), Intent (In) :: XVALT
      Integer, Dimension (Size(XVALT)), Intent (Out) :: IMULT
   End Subroutine MULCNT
End Interface
Interface
   Subroutine REFPAR (XDONT, IRNGT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Dimension (:), Intent (Out) :: IRNGT
      Integer, Intent (In) :: NORD
   End Subroutine REFPAR
End Interface
Interface
   Subroutine REFSOR (XDONT)
      Real, Dimension (:), Intent (Inout) :: XDONT
   End Subroutine REFSOR
End Interface
Interface
   Subroutine RINPAR (XDONT, IRNGT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Dimension (:), Intent (Out) :: IRNGT
      Integer, Intent (In) :: NORD
   End Subroutine RINPAR
End Interface
Interface
   Subroutine RNKPAR (XDONT, IRNGT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Dimension (:), Intent (Out) :: IRNGT
      Integer, Intent (In) :: NORD
   End Subroutine RNKPAR
End Interface
Interface
   Subroutine UNIINV (XVALT, IGOEST)
      Real, Dimension (:), Intent (In) :: XVALT
      Integer, Dimension (:), Intent (Out) :: IGOEST
   End Subroutine UNIINV
End Interface
Interface
   Subroutine UNIPAR (XDONT, IRNGT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Integer, Dimension (:), Intent (Out) :: IRNGT
      Integer, Intent (Inout) :: NORD
   End Subroutine UNIPAR
End Interface
Interface
   Subroutine UNIRNK (XVALT, IRNGT, NUNI)
      Real, Dimension (:), Intent (In) :: XVALT
      Integer, Dimension (:), Intent (Out) :: IRNGT
      Integer, Intent (Out) :: NUNI
   End Subroutine UNIRNK
End Interface
Interface
   Subroutine UNISTA (XVALT, NUNI)
      Real, Dimension (:), Intent (Inout) :: XVALT
      Integer, Intent (Out) :: NUNI
   End Subroutine UNISTA
End Interface
Interface
   Function VALMED (XVALT)
      Real, Dimension (:), Intent (In) :: XVALT
      Real (Kind(XVALT)) :: VALMED
   End Function VALMED
End Interface
Interface
   Function VALNTH (XDONT, NORD)
      Real, Dimension (:), Intent (In) :: XDONT
      Real (Kind(XDONT)) :: VALNTH
      Integer, Intent (In) :: NORD
   End Function VALNTH
End Interface