anchor.diff:    character(len=*),           intent(in)  :: mode
     logical,          optional, intent(out) :: err
     character(len=*), optional, intent(in)  :: status
  +  character(len=*), optional, intent(in)  :: access
     integer,          optional, intent(in)  :: recl
   
     ! type(unitSpec),   allocatable :: tmpUnits(:)
  -  character(len=:), allocatable :: fFileName, fStatus, fAction, fPosition, fMode
  +  character(len=:), allocatable :: fFileName, fStatus, fAction, fPosition, fMode, fAccess
     character(len=256) :: tmpBoinc
     integer i, fRecl, nUnits, ioStat, chkUnit
     logical fFio, isOpen
  
positive.code:     if(fRecl > 0) then
        if(fFio) then
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,round="nearest",recl=fRecl,err=10)
        else
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,recl=fRecl,err=10)
        end if
      else
        if(fFio) then
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,round="nearest",err=10)
        else
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,err=10)
        end if
      end if
    else
      open(unit,file=fFileName,form="unformatted",status=fStatus,iostat=ioStat,&
        action=fAction,position=fPosition,err=10)
    endif
  
    if(ioStat /= 0) then
  
negative.code:     fStatus = status
    else
      fStatus = "unknown"
    end if
  
    if(present(access)) then
      fAccess = access
    else
      fAccess = "sequential"
    end if
  
    if(len_trim(file) > 64) then
  