anchor.diff:        iErr = .true.
         return
       end if
  -#ifdef BOINC
  -    call boincrf(load_file,filename)
  -    open(loadunit,file=filename,status='old',form='formatted')
  -#else
  -    open(loadunit,file=trim(load_file),status='old',form='formatted')
  -#endif
  +    call units_openUnit(unit=loadunit,fileName=load_file,formatted=.true.,mode='r',err=err)
       write(lout,"(a)") "LIMI> Apertures will be read from file '"//trim(load_file)//"'"
   
     case("PRIN")
  
positive.code: ! ================================================================================================ !
  subroutine aperture_init
  
    implicit none
  
  #ifdef BOINC
    character(len=256) filename
  #endif
  
  #ifdef HDF5
    type(h5_dataField), allocatable :: setFields(:)
  #endif
    logical isOpen
  
  #ifdef HDF5
    if(h5_useForAPER) then
  
negative.code:   use string_tools
    use file_units
    use sixtrack_input
    use mod_units, only: units_openUnit
  
    implicit none
  
  