!COMPILER-GENERATED INTERFACE MODULE: Wed Jun 21 09:16:12 2017
        MODULE CALPERC__genmod
          INTERFACE 
            SUBROUTINE CALPERC(ARRAY,NARR,MV,PERC,P)
              INTEGER(KIND=4) :: NARR
              REAL(KIND=4) :: ARRAY(NARR)
              REAL(KIND=4) :: MV
              REAL(KIND=4) :: PERC
              REAL(KIND=4) :: P
            END SUBROUTINE CALPERC
          END INTERFACE 
        END MODULE CALPERC__genmod