anchor.diff:      real(dp), intent(in) :: A(3,3)
       integer, intent(in), dimension(:,:,:) :: HNF, L, SNF
       type(OpList), intent(in) :: Op(:)
  -    type(RotPermList) :: RPlist(:)
  +    type(RotPermList) :: RPlist(:) ! input
       type(RotPermList), intent(in) :: dperms
       real(dp), intent(in) :: eps
       type(RotPermList), optional, pointer :: aperms(:)
       logical, optional, intent(in) :: use_arrows, surf
   
       !!<local name="taperms">Temporary storage of the arrow permutations.</local>
  -    !!<local name="arrows">Logigal, true if arrows are to be used.</local>
  +    !!<local name="arrows">Logical; .true. if arrows are to be used.</local>
       type(RotPermList) :: rperms, tperms, taperms
       integer, pointer :: g(:,:) => null()
       integer, allocatable :: gp(:,:), dgp(:,:), ag(:,:), dap(:) ! G prime; the "rotated"
  
positive.code:        enddo perms
         if (exists)write(11,*) iL,"The permutations form a group"
         if(.not. exists) write(11,*) iL,"failed"
      enddo lists ! Loop over lists
      !if(exists) then; do_rotperms_form_groups = .true.
      !else; do_rotperms_form_groups = .false.
      !endif
    ENDFUNCTION do_rotperms_form_groups
  
    !!<summary>This routine takes a list of permutation lists and
  
negative.code:        call adjust_crange_for_inactive_sites(cRange,inactives,labelFull,nDFull)
         !GLHW Mar 2019. Experimenting with applying the "inactives" fix for concentration restricted stuff by modifying
         ! cRange so that it applies only to "active" sites
      endif
  
      write(*,'("Volume",7x,"CPU",8x,"#HNFs",2x,"#SNFs",&
  