
exists('ival','parameter'):$ival
if ($ival=0) then 
   create('ival')
   ival=0.5
endif

if ((ival=0.5) or (ival = 1.5) or (ival = 2.5) or (ival = 3.5)) then 
   daslp=0.0
endif 

if (ival=3.5) then
   daslp=-(31/6)*360.0*(sw/sw1)
endif



