INTERFACE
SUBROUTINE COMMFCE2(PEGRID,KNPTE,KNFLDS)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KNPTE
INTEGER(KIND=JPIM),INTENT(IN) :: KNFLDS
REAL(KIND=JPRB),INTENT(INOUT) :: PEGRID(KNPTE*KNFLDS)
END SUBROUTINE COMMFCE2
END INTERFACE
