!　学習目的：サブルーチン(引数の型の対応)
! ex402.f
      integer a,b,c
      a=1
      b=2
      call wa(a,b,c) !（）内を引数と呼ぶ
      write(*,*) c

      stop
      end

      subroutine wa(a2,b2,c2) !変数名は異なっていてもよい
      integer a2,b2,c2 !ただし，引数の型はcall文の中と対応していなければいけない
      c2=a2+b2
      return
      end