2 SUBROUTINE
SUFFTP(KDLON,KFFTP0,LDODD)
4 INTEGER(KIND=JPIM), INTENT(IN) :: KDLON
5 INTEGER(KIND=JPIM), INTENT(OUT) :: KFFTP0(KDLON)
INTERFACE SUBROUTINE SUFFTP(KDLON, KFFTP0, LDODD) USE PARKIND1
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE ONLY
INTERFACE SUBROUTINE JPRB IMPLICIT NONE LOGICAL