INTERFACE
SUBROUTINE PEREREV(KPAR,PLEV1,PLAT,POBTIM,&
 & PWEIGHT,&
 & KOUT,KVNUMB,KVNUMBL,PLAT20,PP700,PP250,&
 & PREDPERR,PMINPHOU,PADIANS,PMDI,&
 & PERERR) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KVNUMBL
INTEGER(KIND=JPIM),INTENT(IN) :: KPAR
REAL(KIND=JPRB) ,INTENT(IN) :: PLEV1
REAL(KIND=JPRB) ,INTENT(IN) :: PLAT
REAL(KIND=JPRB) ,INTENT(IN) :: POBTIM
REAL(KIND=JPRB) ,INTENT(IN) :: PWEIGHT
INTEGER(KIND=JPIM),INTENT(IN) :: KOUT
INTEGER(KIND=JPIM),INTENT(IN) :: KVNUMB(KVNUMBL)
REAL(KIND=JPRB) ,INTENT(IN) :: PLAT20
REAL(KIND=JPRB) ,INTENT(IN) :: PP700
REAL(KIND=JPRB) ,INTENT(IN) :: PP250
REAL(KIND=JPRB) ,INTENT(IN) :: PREDPERR
REAL(KIND=JPRB) ,INTENT(IN) :: PMINPHOU
REAL(KIND=JPRB) ,INTENT(IN) :: PADIANS
REAL(KIND=JPRB) ,INTENT(IN) :: PMDI
REAL(KIND=JPRB) ,INTENT(OUT) :: PERERR
END SUBROUTINE PEREREV
END INTERFACE
