COMPLEX*16 Z(0:1)
      Z(0)=(1,2)
      Z(1)=(3,1)
      CALL SUB2(Z)
      PRINT *,Z(0),Z(1)
      END