INTERFACE
SUBROUTINE FLSPEEDBAD(PLAT1,PLON1,PLAT2,PLON2,KMINDIFF,PFLMAXSPEED,&
 & LDFLSPEEDBAD) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
REAL(KIND=JPRB) ,INTENT(IN) :: PLAT1
REAL(KIND=JPRB) ,INTENT(IN) :: PLON1
REAL(KIND=JPRB) ,INTENT(IN) :: PLAT2
REAL(KIND=JPRB) ,INTENT(IN) :: PLON2
INTEGER(KIND=JPIM),INTENT(IN) :: KMINDIFF
REAL(KIND=JPRB) ,INTENT(IN) :: PFLMAXSPEED
LOGICAL ,INTENT(OUT) :: LDFLSPEEDBAD
END SUBROUTINE FLSPEEDBAD
END INTERFACE
