c  interface function 
c   ********************
       subroutine  comm
c
      include '../stack.h'
c
      buf='Communication toolbox GeCi no more supported'
      call error(999)
       end