!　学習目的：format文
! ex706.f
      implicit real*8 (a-h,o-z)

      open(10,file='ex706.txt')
      do x=0.d0,1.d0,0.1d0
        write(10,20) x,x*x
        write(*,20) x,x*x
   20   format('x=',f5.2,' x^2=',f10.7) ! E型，I型，A型，x,/も同様に使える
      end do
      close(10)
      a=1.2d0
      b=3.4d0
      i=1
      j=2
      k=3
      write(*,'(/2(a,f3.1),3(i2))') 'a=',a,' b=',b,i,j,k  !書式の繰り返しの場合（）を使うと便利

      stop
      end