!　学習目的：組み込み関数
! ex501.f
      real*8 a8,b8,c8
      real   a,b,c
      complex*16 ia,ib,ic

      write(*,*) '1)---'
      ia=(1.d0,2.d0)
      write(*,*) dble(ia)

      stop
      end