INTERFACE
SUBROUTINE FPVIEW(KPROMA,KST,KND,KOPLEV,PSP1,PSP2,PRES2,PDPBLC,PALFA)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
INTEGER(KIND=JPIM),INTENT(IN) :: KOPLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KST
INTEGER(KIND=JPIM),INTENT(IN) :: KND
REAL(KIND=JPRB) ,INTENT(IN) :: PSP1(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PSP2(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PRES2(KPROMA,KOPLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PDPBLC
REAL(KIND=JPRB) ,INTENT(OUT) :: PALFA(KPROMA,KOPLEV)
END SUBROUTINE FPVIEW
END INTERFACE
