        integer*4       lunmsg, vecrec
	integer*4	vlun, tlun
        character*40    vplot, tplot
        common /plot01/ lunmsg, vlun, tlun, vecrec, vplot, tplot
