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  Worte : Cube_DoI 
C     ( fuer Doppelworte : Cube_DoD )
C
        SUBROUTINE Cube_DoI(N,X,Y,H,VIop)
        DIMENSION  X(*),Y(*),H(*)
        INCLUDE 'trnet.inc'
	LOGICAL Btest
        External VIop
        L=N
        CALL VIcopy(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 VIop(N,X,1,X,1,H,1)
1       CONTINUE
        RETURN
        END