INTERFACE
SUBROUTINE TJQUAA (PAB,PZTOR,K,POI,PCF,PVAR,PEPS)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: K
REAL(KIND=JPRB) ,INTENT(IN) :: PAB(K)
REAL(KIND=JPRB) ,INTENT(IN) :: PZTOR(K)
REAL(KIND=JPRB) ,INTENT(IN) :: POI(K)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PCF(3)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVAR
REAL(KIND=JPRB) ,INTENT(IN) :: PEPS
END SUBROUTINE TJQUAA
END INTERFACE
