double precision d1
      complex cx1
      complex*16 dcx1
      r1=5.8
      i= int(r1)
      j=ifix(r1)
      print *,i,j
      d1=5.8
      i=int(d1)
      j=idint(d1)
      print *,i,j
      cx1=(1.1,2.2)
      i=int(cx1)
      print *,i
      dcx1=(1.1,2.2)
      i=int(dcx1)
      print *,i
      stop
      end