INTERFACE
SUBROUTINE GATHERTC(KLEN,KDIM,PIN,KOWNI,POUT,KOWNO)
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE MPL_MODULE
INTEGER(KIND=JPIM),INTENT(IN) :: KLEN
INTEGER(KIND=JPIM),INTENT(IN) :: KDIM
REAL(KIND=JPRB) ,INTENT(INOUT) :: PIN(KLEN,KDIM)
INTEGER(KIND=JPIM),INTENT(IN) :: KOWNI(KLEN)
REAL(KIND=JPRB) ,INTENT(OUT) :: POUT(KLEN,KDIM)
INTEGER(KIND=JPIM),INTENT(IN) :: KOWNO(KLEN)
END SUBROUTINE GATHERTC
END INTERFACE
