INTERFACE
SUBROUTINE GP_SPVTL(&
 & LDLADNMI,KST,KEND,&
 & PSPT0,PSPT0L,PSPT0M,PSPT9,&
 & PRE0,PRE0L,PRE0M,PRE9,&
 & PSPT5L,PSPT5M,PRE5,PRE95) 
USE PARKIND1 , ONLY : JPIM ,JPRB
USE YOMDIM , ONLY : NFLEVG ,NPROMA
LOGICAL ,INTENT(IN) :: LDLADNMI
INTEGER(KIND=JPIM),INTENT(IN) :: KST
INTEGER(KIND=JPIM),INTENT(IN) :: KEND
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT0(NPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT0L(NPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT0M(NPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT9(NPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRE0(NPROMA,0:NFLEVG)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRE0L(NPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRE0M(NPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRE9(NPROMA,0:NFLEVG)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT5L(NPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPT5M(NPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PRE5(NPROMA,0:NFLEVG)
REAL(KIND=JPRB) ,INTENT(IN) :: PRE95(NPROMA,0:NFLEVG)
END SUBROUTINE GP_SPVTL
END INTERFACE
