anchor.diff:      type(RotPermList), intent(in) :: dperms
       type(RotPermList), pointer :: RPList(:)
       real(dp), pointer :: latts(:,:,:)
  -
       integer nD
  -    real(dp), allocatable:: sgrots(:,:,:), sgshift(:,:)
       real(dp), dimension(3,3) :: test_latticei, test_latticej
       integer i, Nhnf, iuq, irot, j, nRot, Nq, status
       integer, allocatable :: temp_hnf(:,:,:)
  
positive.code:     logical, optional, intent(in) :: polya
      logical, optional, intent(in) :: origCrossOutAlgorithm
  
      integer :: iD, i, ivol, LatDim, Scnt, Tcnt, iBlock, HNFcnt, status, iC, j
      integer, pointer, dimension(:,:,:) :: HNF => null(),SNF => null(), L => null(), R => null()
      integer, pointer :: SNF_labels(:) =>null(), uqSNF(:,:,:) => null()
      integer, pointer, dimension(:,:,:) :: rdHNF =>null()
  
negative.code:     integer             :: nD
      !Had to change character to 80 from 10 to match the definition in io_utils.read_input
      character(80), intent(in) :: title
      real(dp), intent(in) :: parLV(3,3), eps
      real(dp), allocatable :: dFull(:,:), d(:,:)
      character(1), intent(in) :: pLatTyp
  