anchor.diff:  
     use crcoall
   
  -  implicit none
  -
     integer,                    intent(in)  :: unit
     character(len=*),           intent(in)  :: file
     logical,                    intent(in)  :: formatted
  
positive.code: ! ================================================================================================ !
  !  FILE UNITS MODULE
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Last modified: 2018-12-13
  !
  !  Module for keeping track of opened file units, their file names, and open the files correctly
  !  depending on build flags like BOINC or FIO.
  ! ================================================================================================ !
  module mod_units
  
  
negative.code: 
    unit = -1
    do i=units_minUnit,units_maxUnit
      if(allocated(units_uList(i)%file)) then
        if(units_uList(i)%file == file) then
          unit = i
          exit
        end if
      end if
    end do
  
  