complex a,b,c
      complex*16 aa,bb
      double precision x,y,z
      a=cmplx(1)
      b=cmplx(1,2)
      print *,a,b
      c=cmplx(2.2)
      print *,c
      x=2.3
      a=cmplx(x)
      print *,a
      b=cmplx(a)
      print *,b
      aa=dcmplx(1,2)
      bb=dcmplx(x)
      print *,aa,bb
      end