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

      subroutine dclfig1

!-----------------------------------------------------------------      
      implicit real*8 ( a-h,o-z )
!-----------------------------------------------------------------      

      CALL swiset('IWIDTH', 700)                                        
      CALL swiset('IHEIGHT', 600)                                       
      CALL sglset('LCORNER', .FALSE.)                                   
      CALL SWLSET( 'LALT', .TRUE. )
      CALL SWLSET( 'LWAIT', .FALSE. )
      CALL gropn(1)                                                   

      return
      end


