anchor.diff:  !call read_nth_line_from_enumlist()
   open(11,file=fname,status='old',iostat=ioerr)
   if(ioerr/=0)then; write(*,'("Input file doesn''t exist:",a80)') trim(fname);stop;endif
  +call co_ca(11, co_ca_error)
   ! Read in the title from the struct_enum.out file
   read(11,'(a80)') title; title = trim(title)
   write(13,'("Title: ",a80)') title
  
positive.code: character(80) dummy, specAtoms 
  integer, pointer :: spin(:) ! Occupation variable of the positions
  real(dp), pointer :: x(:) ! Concentration of each component
  logical :: file_exists
  
  open(13,file="readcheck_makestr.out")
  write(13,'(5(/),"This file echoes the input for the makestr.x program and")')
  
negative.code: use numerical_utilities
  use enumeration_utilities ! This maps structures from real space into the group
  use enumeration_types, only: maxLabLength
  use io_utils, only: co_ca
  implicit none
  character(80) fname, title, strname, strNstring
  character(maxLabLength) :: labeling
  integer ioerr, iline, ic, i, ilab, pgOps, nD, hnfN, iAt, jAt, iSpec, nSpec, idx, foutput_unit
  integer k, strN, istrN, strNi, strNf, sizeN, n, diag(3), a,b,c,d,e,f, nType
  integer HNF(3,3), L(3,3), hnf_degen, lab_degen, tot_degen
  integer, pointer :: gIndx(:)
  