!　学習目的：common文
! ex406.f
      parameter (nd=5)
      character*2 s1,s2
      common /abc/a(nd),b(nd),c,n,m/str/s1,s2 !common文で配列の宣言もできる．
       !/ブロック名１/変数１/ブロック名２/変数２
       !注意：文字型の変数だけは，他の型のブロックに入れることができない．

      do i=1,nd
        a(i)=i
      end do

      call sub1(d)
      do i=1,nd
        write(*,*) b(i),s1,s2
      end do

      stop
      end

      subroutine sub1(d)
      parameter (nd=5)
      character*2 s1,s2
      common /abc/a(nd),b(nd),c,n,m/str/s1,s2
      do i=1,nd
        b(i)=2*a(i)
      end do
      s1='ab'
      s2='CD'
      return
      end