subroutine clear_screen 
        common /tt/terminal
        character*12 terminal
C
C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
C
C	This subroutine clears the screen
C
C*******************************************************************************
C
        if (terminal .eq. 'VT100' ) then
	  write (6,100) 27
 100      format(' ',a1,'[2J')
        end if
	end