!学習目的：implicit,parameter,complex,data
! ex111.f
      implicit real*8 (a-h,k,o-z) !◆１：重要
      parameter (a=123.4d0,m=10)  !固定された変数．途中でa=3.4のようにできない．
      complex*8 ai  ! *8は省略可能．aiは複素数で，実部，虚部ともに単精度実数
      complex*16 bi ! biは複素数で，実部，虚部ともに倍精度実数
      data c1,c2/1.5,2.5/

      write(*,*) a,m

      ai=(1.,2.) !(実部,虚部)
      bi=(3.d0,4.d0)
      write(*,*) ai
      write(*,*) bi
      write(*,'(2f10.5)') bi

      write(*,*) c1,c2

      stop
      end
!◆重要１：a-h,k,o-zで始まる変数は倍精度実数となる．数値計算を行う場合，
!変数は倍精度にするのが望ましい．