double precision d1,d2
      complex cx1
      complex*16 dcx1
      cx1=(2,3)
      dcx1=(2.2,3.3)
      r1=imag(cx1)
      r2=aimag(cx1)
      d1=imag(dcx1)
      d2=dimag(dcx1)
      print *,r1,r2
      print*,d1,d2
      stop
      end