!COMPILER-GENERATED INTERFACE MODULE: Wed Jun 21 09:15:02 2017
        MODULE SORTEM__genmod
          INTERFACE 
            SUBROUTINE SORTEM(IB,IE,A,IPERM,B,C,D,E,F,G,H)
              INTEGER(KIND=4) :: IB
              INTEGER(KIND=4) :: IE
              REAL(KIND=4) :: A(*)
              INTEGER(KIND=4) :: IPERM
              REAL(KIND=4) :: B(*)
              REAL(KIND=4) :: C(*)
              REAL(KIND=4) :: D(*)
              REAL(KIND=4) :: E(*)
              REAL(KIND=4) :: F(*)
              REAL(KIND=4) :: G(*)
              REAL(KIND=4) :: H(*)
            END SUBROUTINE SORTEM
          END INTERFACE 
        END MODULE SORTEM__genmod