76       integer shift_mu,shift_nu  local
312          shift_mu = 0
344      S           shift_mu,shift_nu,shift_rho,shift_sigma,
355          shift_mu    = shift_mu + mu_range
1789      S     shift_mu,shift_nu,shift_rho,shift_sigma,  argument
1795       integer shift_mu,shift_nu,shift_rho,shift_sigma  local
1805       do imu1     = shift_mu+1,shift_mu+mu_range
1998       integer shift_mu,shift_nu,shift_rho,shift_sigma  local
2018       shift_mu = 0
2051      S                    shift_mu,shift_nu,shift_rho,shift_sigma,
2061          shift_mu    = shift_mu + mu_range