!学習目的：文字型変数
! ex106.f
      character*5 s1,s2      !s1,s2とも５文字で宣言．
      character  s3*2,s4*3  !s3は２文字，s4は３文字で宣言

      s1='abcde'
      s2='ABCDE'
      write(*,*) s1
      write(*,*) s2

      s1='     '
      s2='     '
      write(*,*) s1
      write(*,*) s2

      s3='AB'
      s4='cde'
      s1=s3//s4 ! 文字型変数の結合
      write(*,*) s1

      write(*,*) s1(2:2) ! 文字型変数の頭から２番目を取り出す．
      write(*,*) s1(2:4) ! 文字型変数の頭から２番目から4番目までを取り出す．

      i=1
      write(s4,'(i1)') i ! 文字型変数への変換
      write(*,*) s4

      write(s4,'(i2)') i ! 文字型変数への変換
      write(*,*) s4

      a=1.2
      write(s4,'(f3.1)') a ! 文字型変数への変換
      write(*,*) s4

      stop
      end