SUBROUTINE SET_OPTION(sim,net,act,option,ivalue,dvalue,svalue)
      
#include "dyna.inc"
#include "sim.inc"
#include "network.inc"
#include "activity.inc"
#include "options.inc"
      
      RECORD /Sim_Data/     sim
      RECORD /Road_Network/ net
      RECORD /Activity/     act
      INTEGER               option
      INTEGER               ivalue
      REAL*8                dvalue
      CHARACTER*80          svalue
      
      IF (option.EQ.FRACINF) THEN
         act.dem.fracinf = dvalue
         
        ELSE IF (option.EQ.RIBFA) THEN
         act.dem.ribfa   = dvalue
         
        ELSE
         WRITE(ostr,'(A,I5,A)') 'Unknown option parameter: [',option
     +        ,']...IGNORING'//CHAR(0)
         CALL DYNA_ERROR(ostr
     +        ,DYNA_NONFATAL_WARNING
     +        ,DYNA_INPUT_ERROR
     +        ,DYNA_INVALID_OPTION)
         ENDIF

      RETURN
      END
      


      SUBROUTINE OPTIONS_READ(unit,sim,net,act)
      
#include "dyna.inc"
#include "sim.inc"
#include "network.inc"
#include "activity.inc"
      
      INTEGER unit
      RECORD /Sim_Data/     sim
      RECORD /Road_Network/ net
      RECORD /Activity/     act
      

      CALL FND(unit)
      
      READ(unit,*) act.dem.fracinf,act.dem.ribfa,act.dem.bound
     +     ,sim.iseed,sim.ipinit
      CALL FND(unit)
      READ(unit,*) sim.maxtime,sim.timestep,sim.kay
     +     ,sim.starttm,sim.ENDTM
      CALL FND(unit)
      READ(unit,*) net.use_signals
      CALL FND(unit)
      READ(unit,*) net.normalize_links
      CALL FND(unit)
      READ(unit,*) net.use_link_iden
      CALL FND(unit)
      READ(unit,*) act.dem.startfrom
      CALL FND(unit)
      READ(unit,*,END=966) act.dem.load_factor
      CALL FND(unit)
      READ(unit,*,END=966) sim.watchnode
      CALL FND(unit)
      READ(unit,*,END=966) sim.time.offset_from_midnight
      CALL FND(unit)
      READ(unit,*,END=966) sim.do_inc_det
      CALL FND(unit)
      READ(unit,*,END=966) sim.cms_response_level
      CALL FND(unit)
      READ(unit,*,END=966) sim.kspstep
      CALL FND(unit)
      READ(unit,*,END=966) sim.pustep
      CALL FND(unit)
      READ(unit,*,END=966) sim.keqpstep
      CALL FND(unit)
      READ(unit,*,END=966) sim.route_choice_rule
      CALL FND(unit)
      READ(unit,*,END=966) sim.logit_smooth_factor
      CALL FND(unit)
      READ(unit,*,END=966) sim.sticky_queues
      
  966 RETURN
      END