!
! s_uvfit.ima
!   Save results of UV_FIT
! 
begin procedure uvf_subarr
  say "&1 = " /noadv /format a
  for j 1 to 6
    say " " '&1[j]' /noadv /format A F12.4
  next
  say " "'&1[7]'
end procedure uvf_subarr

begin procedure uvf_subsay
  say "&1%NAME = "'&1%NAME'
  @ uvf_subarr &1%PAR
  @ uvf_subarr &1%RANGE
  @ uvf_subarr &1%START
  if exist(&1%results) then
    @ uvf_subarr &1%RESULTS
    @ uvf_subarr &1%ERRORS
  endif  
end procedure uvf_subsay
!
sic output &1
SAY "! Result of UV_FIT command"
SAY "UVF%NF = "'UVF%NF'
FOR I 1 to UVF%NF
  @ uvf_subsay UVF%PAR'i'
next
sic output
