anchor.diff:               if (i .ge. lo(1) .and. j .ge. lo(2) .and. k .ge. lo(3) .and. &
                    i .le. hi(1) .and. j .le. hi(2) .and. k .le. hi(3)) then
                   bernoulli_2 = bernoulli_2 + c(i-rloc(1,2),j-rloc(2,2),k-rloc(3,2),2) &
  -                            * (phi(i,j,k) - HALF * omega**2 * sum(d_vector(:,2)**2))
  +                            * (phi(i,j,k) - HALF * sum(cross_product(omega, d_vector(:,2))**2))
                endif
             enddo
          enddo
  
positive.code:     use prob_params_module, only: center
      use probdata_module, only: star_axis, get_ambient, h_max_P, h_max_S, enthalpy_min
      use eos_module
  
      implicit none
      
  
negative.code:     use meth_params_module, only: NVAR, URHO, rot_period
      use prob_params_module, only: center
      use probdata_module, only: c, d_vector, rloc
      use rot_sources_module, only: get_omega, cross_product
  
      implicit none
      
      integer          :: lo(3), hi(3), domlo(3), domhi(3)
      integer          :: state_l1,state_h1,state_l2,state_h2,state_l3,state_h3
      integer          :: phi_l1,phi_h1,phi_l2,phi_h2,phi_l3,phi_h3
      double precision :: problo(3), probhi(3), dx(3)
      double precision :: state(state_l1:state_h1,state_l2:state_h2,state_l3:state_h3,NVAR)
      double precision :: phi(phi_l1:phi_h1,phi_l2:phi_h2,phi_l3:phi_h3)
      double precision :: bernoulli_1, bernoulli_2
  
      integer          :: i, j, k
      double precision :: omega(3)
  
      omega = get_omega()
  
      phi(lo(1):hi(1),lo(2):hi(2),lo(3):hi(3)) = -phi(lo(1):hi(1),lo(2):hi(2),lo(3):hi(3))
  
  