fortran - サブルーチン内でのパラメーター ステートメントの計算

Question

サブルーチンがあるとします:

subroutine calledalot()
   real, parameter :: dir1=1./3., dir2=2./3., dir3=3./3.

   random_number=random_function(seed)
   if ( random_number <= dir1 ) then
      command1
   else if ( random_number <= dir2 ) then
      command2
   else if ( random_number <= dir3 ) then
      command3
   end if
end

変数宣言ステートメントの除算は、サブルーチンが呼び出されるたびに計算されますか?