INTERFACE
SUBROUTINE ASCATIF&
 & (K_ISATID,KCELL,KS0QF,KKPQF,PAZI,PINC,PSIGM,PKP,PLFR,KNWIND,&
 & KFLAG,PURET,PVRET,PRES,PSKILL,PKPM,PWE,&
 & LDNOSOL) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE PARERSCA , ONLY : JPANT ,JPSOLMAX , JPSPEEDMAX, JPASCAT,&
 & JPAMETOPA, JPAMETOPB, JPAMETOPC 
INTEGER(KIND=JPIM),INTENT(IN) :: KNWIND
INTEGER(KIND=JPIM),INTENT(IN) :: K_ISATID
INTEGER(KIND=JPIM),INTENT(IN) :: KCELL
INTEGER(KIND=JPIM),INTENT(IN) :: KS0QF(JPANT)
INTEGER(KIND=JPIM),INTENT(IN) :: KKPQF(JPANT)
REAL(KIND=JPRB) ,INTENT(IN) :: PAZI(JPANT)
REAL(KIND=JPRB) ,INTENT(IN) :: PINC(JPANT)
REAL(KIND=JPRB) ,INTENT(IN) :: PSIGM(JPANT)
REAL(KIND=JPRB) ,INTENT(IN) :: PKP(JPANT)
REAL(KIND=JPRB) ,INTENT(IN) :: PLFR(JPANT)
INTEGER(KIND=JPIM),INTENT(OUT) :: KFLAG
REAL(KIND=JPRB) ,INTENT(OUT) :: PURET(KNWIND)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVRET(KNWIND)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRES(KNWIND)
REAL(KIND=JPRB) ,INTENT(OUT) :: PSKILL
REAL(KIND=JPRB) ,INTENT(OUT) :: PKPM(JPANT)
REAL(KIND=JPRB) ,INTENT(OUT) :: PWE
LOGICAL ,INTENT(OUT) :: LDNOSOL
END SUBROUTINE ASCATIF
END INTERFACE
