anchor.diff:  implicit none
   
   ! Arguments
  -integer, intent(in)          :: nvalues
  -integer, intent(out)         :: ierr
  -double precision, intent(in) :: values(nvalues)
  -double precision             :: coefvar
  +integer          :: nvalues
  +integer          :: ierr
  +double precision :: values(nvalues)
  +double precision :: coefvar
   
   ! Local variables
   double precision :: s, m
  
positive.code: implicit none
  
  ! Arguments
  double precision, intent(in)  :: vec_in(3), angle
  double precision, intent(out) :: vec_out(3)
  character(len=*), intent(in)  :: axis
  integer, intent(out)          :: ierr
  
  ! Local variables
  double precision :: vec_tmp(3), rot_matrix(3,3), cosa, sina
  
negative.code: implicit none
  
  ! Arguments
  integer :: n, np
  integer :: nrot, ierr
  double precision :: a(np,np), d(np), v(np,np)
  
  ! Local variables
  