anchor.diff:        character(len=100) :: fname
         character(len=100) :: ofname
         logical ofoutput
  +      logical hasInputFile
         integer ounit
   !----------------------------------------------------------------------
         ofoutput = .FALSE.
  
positive.code:          cmdarg_i = cmdarg_i+1
        end do
        
  !--open fort.190
        nfile=190
        n=0
        open(nfile,file=fname,form='UNFORMATTED',status='OLD')
  
        if (ofoutput .eqv. .TRUE.) then
           open(191,file=ofname,action='WRITE',status='REPLACE')
           ounit = 191
  
negative.code: ! Always returns 17 or less characters as requested
        write (*,10000)
        write (*,*) 'Routine dtoa[f] returned string length ',ilen,'!!!'
        stop 18
  10000 format(5x///t10,'++++++++++++++++++++++++'/ t10,                  &
       &'+++++ERROR DETECTED+++++'/ t10,'++++++++++++++++++++++++'/ t10)
        endif
  