c====================================================================

      subroutine stdout0(iout,nwl,nz) 1
      if(iout.eq.1 .or.
     &   iout.eq.5 .or.
     &   iout.eq.6) write(*,'(/,a)') '"tbf'
      if(iout.eq.2) write(*,'(i5,a4,12a11)') nwl,'wl',
     &     'h2o','co2','o3','n2o','co','ch4','o2+n2','trace',
     &     'total gas','rayleigh','aerosol','cloud'
      if(iout.eq.7) then
        write(*,'(/,a)') '"fzw'
        write(*,'(i15)') nz        
      endif
      if(iout.eq.1 .or.
     &   iout.eq.5 .or.
     &   iout.eq.6) write(*,'(i15)') nwl
      return
      end