program ch1502
implicit none
real :: x, y, x1, y1, x2, y2, x3, y3, zmod
complex :: z, z1, z2, z3, zbar

  print *, 'input x1,y1,x2,y2,x3,y3'
  read *, x1, y1, x2, y2, x3, y3
  z1 = cmplx(1.0,2.0)
  z2 = cmplx(x2,y2)
  print *, 'z2 = ', z2
  z3 = cmplx(x3-x1,(y3+y1)**2)
  print *, 'z3 = ', z3
  z = z1*z2/z3
  x = real(z)
  y = aimag(z)
  zmod = abs(z)
  zbar = conjg(z)
  print *, 'z =', z
  print *, 'modulus of z =', zmod
  print *, 'complex conjugate of z = ', zbar
end program ch1502