anchor.diff:    end subroutine config_get_logical
   
     subroutine config_get_param_str(param_name, str, found)
  +    ! Get parameter string from read-in lines from configuration file
  +    !
  +    ! param_name :: name of parameter to find
  +    ! str :: line from read-in corresponding to specified parameter
  +    ! found :: logical indicating whether parameter was found
       character(*), intent(in) :: param_name
       character(*), intent(out) :: str
       logical, intent(out) :: found
  
positive.code: 
      open(newunit=file_unit, file=filename)
  
      ! Second sweep to read in parameters
      i_param = 1
      do
         read(file_unit, *, iostat=io_err) tmp_readin
  
negative.code:       else
           val = .false.
        end if
  
      end function is_valid_param
  
    end subroutine config_init
  