!　学習目的：サブルーチン
! ex401.f
      a=2.
      b=3.
      call wa(a,b,c)
      write(*,*) c
      write(*,*)

      call seki(a,b,c)
      write(*,*) c
      write(*,*)

      stop
      end   !ここまでの文をメイン文という

      subroutine wa(a,b,c)
      c=a+b
      return
      end

      subroutine seki(a,b,c)
      c=a*b
      return
      end

!その他：メイン文での実行文は少なくし，計算はサブルーチンで行うような構成にすると
!　　　　プログラムは読みやすくなる．