;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; PROCEDURE OMVST     ;;;
;;; By Darrin Casebeer  ;;;
;;;    Kevin Tubbs      ;;;
;;;    Summer 98        ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

PRO OMVST

COMMON COSMO,Omegamass,OmegaLambda,Ho,LIMITS

SET_PLOT,'X'
LIMITS=500
OM=DBLARR(LIMITS)
OL=DBLARR(LIMITS)
t=DBLARR(LIMITS)
Omegamass=0.2
OmegaLambda=0.8
OVST,OM,OL,t
SET_PLOT,'X'
PLOT,t,OM,TITLE='Omega Mass and Omega Lambda vs t',YTITLE='Om,Ol',XTITLE='t',XRANGE=[2.0e10,0] 
OPLOT,t,OL,LINE=2
XYOUTS,1.35e10,0.9,'Omega Mass'
XYOUTS,1.3e10,0.1,'Omega Lambda'

END