C
C **  Programm zur Operation "Cube-Op" : X := "op" Y 
C                                    ueber alle Proc.
C     op = Plus,Mult,Max,Min
C     mit Vektoroperationen  ueber alle Prozessoren
C     (Laenge N ist in allen  gleich)
C     fuer Doppelworte : Cube_DoD
C     ( fuer  Worte : Cube_DoI )
C
        SUBROUTINE Cube_DoD(N,X,Y,H,VDop)
        DIMENSION  X(*),Y(*),H(*)
        INCLUDE 'trnet.inc'
	LOGICAL Btest
        External VDop
        L=2*N
        CALL VDcopy(N,X,1,Y,1)
        DO 1 I=1,NCUBE
        IF ( Btest(ICH,I-1) ) THEN
          CALL  Recv_Chan_0(L,H,I)
          CALL  Send_Chan_0(L,X,I)
        ELSE
          CALL  Send_Chan_0(L,X,I)
          CALL  Recv_Chan_0(L,H,I)
        ENDIF
        CALL VDop(N,X,1,X,1,H,1)
1       CONTINUE
        RETURN
        END