anchor.diff:    end do
   
     ldmpaper            = .false.
  -  aperunit            = 0
  +  aperunit            = -1
     aper_filename(1:16) = ' '
     ldmpaperMem         = .false.
     loadunit            = 3 ! default: read aperture markers in fort.3
  
positive.code:   logical lerror,lopen,err
    character(len=1024) arecord
  
    write(93,*) "SIXTRACR CRCHECK REPOSITIONING file of APERTURE LOSSES to apefilepos_cr=",apefilepos_cr
    flush(93)
  
    inquire( unit=losses_unit, opened=lopen )
    if (.not. lopen) call f_open(unit=losses_unit,file=losses_filename,status='old',formatted=.true.,mode='rw',err=err)
  
    apefilepos = 0
  
negative.code: ! ================================================================================================ !
  subroutine aperture_init
  
    use mod_units, only: f_open, f_requestUnit
    
    implicit none
  
  