计算子例程中的参数语句

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

每次调用子程序时，是否会计算变量声明语句中的除法？