SUBROUTINE SUB(A,B)
      COMPLEX*16 A,B
      B=B+A
      END