clear(2)
$wc = wc
$sc = sc
$cf = cf
wc = 0.9*wcmax/nf
sc = wcmax - wcmax/nf
$index = 1
while ($index <= nf) do
   cf = $index
   wft
   dsshn
   sc = sc - wcmax/nf
   $index = $index + 1
endwhile
wc = $wc
sc = $sc
cf = $cf


