!=================================================================
!  一次元 CO2 大気放射対流平衡計算プログラム; 
!  DCL による描画(動画セットアップ)
!
!  1999/05/31  小高正嗣
!  1999/06/04  小高正嗣
!=================================================================

      subroutine dclset

c      CALL swiset('IWIDTH', 700)                                        
c      CALL swiset('IHEIGHT', 600)                                       
      CALL swiset('IWIDTH', 800)                                        
      CALL swiset('IHEIGHT', 500)                                       
      CALL sglset('LCORNER', .FALSE.)                                   
      CALL SWLSET( 'LALT', .TRUE. )
      CALL SWLSET( 'LWAIT', .FALSE. )
      CALL gropn(1)                                                   
      call SLDIV ('T', 2, 2 )
c      call SLDIV ('T', 2, 1 )

      return
      end


