anchor.diff:  !
   !###################################################################################
   !
  -  subroutine define_rad_from_file(FIELDFILE, radius_type)
  +  subroutine define_rad_from_file(FIELDFILE, radius_type_in)
     !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"DLL_DEFINE_RAD_FROM_FILE" :: DEFINE_RAD_FROM_FILE
   
     !*define_rad_from_file:* reads in a radius field associated with an aiway tree
  
positive.code:    sub_name = 'define_rad_from_geom'
      call enter_exit(sub_name,1)
      !define list of elements you are going to operate on
      if(present(GROUP_TYPE))then
      else!default to all
        GROUP_TYPE='all'
      endif
      if(GROUP_TYPE.eq.'all')then
         ne_min=1
         ne_max=num_elems
      elseif(GROUP_TYPE.eq.'efield')then
  
      endif
      !Define start element
      if(START_FROM.eq.'inlet')then
        inlet_count=0
  
negative.code: 
      sub_name = 'define_rad_from_file'
      call enter_exit(sub_name,1)
      if(present(radius_type_in))then
        radius_type = radius_type_in
      else
        radius_type = 'no_taper'
      endif
  
  !!! note that 'constrict' should not be used here (so is set to 1.0).
  