let ir frec /new integer
set receiver ir
if (frec.eq.2).and.(do_external) then
  set phase external
else
  set phase internal
endif
def real cf
FOR I 1 TO N_cals
  symb sss "fl_"'i'
  if .not.fix_'sss' then
     let tmp cal_'sss' /new double
     let in_'sss'  '0.001*nint(1000*tmp)'
     del /var tmp
  endif
  del /symb sss
NEXT