INTERFACE
SUBROUTINE GCDIS(PLA1,PLO1,PLA2,PLO2,PDIS)
USE PARKIND1 ,ONLY : JPRB
REAL(KIND=JPRB) ,INTENT(IN) :: PLA1
REAL(KIND=JPRB) ,INTENT(IN) :: PLO1
REAL(KIND=JPRB) ,INTENT(IN) :: PLA2
REAL(KIND=JPRB) ,INTENT(IN) :: PLO2
REAL(KIND=JPRB) ,INTENT(OUT) :: PDIS
END SUBROUTINE GCDIS
END INTERFACE
