!　学習目的：サブルーチン(配列:その１)
! ex404.f
      dimension a(5),b(5)

      do i=1,5
         a(i)=i
      end do
      call sub1(a,b) !配列全体をsub1に渡す場合
      do i=1,5
        write(*,*) b(i)
      end do
      write(*,*)

      do i=1,5
        call sub2(a(i),c) !配列の要素のみ渡す場合
        write(*,*) c
      end do
      stop
      end

      subroutine sub1(a,b)
      dimension a(5),b(5)
      do i=1,5
        b(i)=a(i)
      end do
      return
      end

      subroutine sub2(a,b) !aは配列ではない
      b=a
      return
      end