_RL     lwdownperiod

     &       lwdownperiod,      lwdownStartTime,

     I     lwdownStartTime, lwdownperiod, lwdownRepCycle,

     I                    'exf', 'lwdown', lwdownperiod,

     I     lwdownperiod, exf_inscal_lwdown, lwdownconst,

     &         lwdownRepCycle,    lwdownperiod,    lwdownStartTime,

      lwdownperiod       = 0.0 _d 0

     I      lwdownfile, lwdownRepCycle, lwdownperiod,