anchor.diff:          f%rho = n
           f%p = t
           f%bmag = bmag
  +!BEGIN TESTING 4 VECTOR ROUTINES
   !testing dot product
  -        where(rr.lt.rms)
  -           rrcompare = 0.0
  -        elsewhere
  -           rrcompare = 1.0
  -        endwhere
  -        checkacc = 1e-5
  +!        where(rr.lt.rms)
  +!           rrcompare = 0.0
  +!        elsewhere
  +!           rrcompare = 1.0
  +!        endwhere
  +!        checkacc = 1e-5
           metric=kerr_metric(real(x0%data(2)),real(x0%data(3)),a)
   !        if(maxval(abs(gtt - metric(:,1))).gt.1e-5) then
   !           write(6,*) 'ERROR: gtt Metric'
  
positive.code: !          CASE (DUMMY)
          END SELECT
  ! call source_params stuff here?
          call assign_source_params(sp,ncgs,tcgs,ncgsnth)
  !        write(6,*) 'after convert'
          end subroutine convert_fluid_vars_arr
  
  
negative.code:         real :: lambdae,game 
          real, dimension(size(x0)) :: delta,hhh 
  !checking variables
  !        real :: checkacc
          real, dimension(size(x0),10) :: metric
  !        real, dimension(size(x0)) :: rrcompare, ferret, ferretbb, ferretub
  !        integer :: i,alwingood,alwinbad,idlgood,idlbad
  
          rr = x0%data(2)
          rms = calc_rms(a)
  