PRO GetTitles, title, xTitle, yTitle, subTitle

  COMMON OverallVars, titles, d1, d2, d3, d4, d5, d6

  title = titles.main
  xTitle = titles.x
  yTitle = titles.y
  subTitle = titles.sub

END ;  get titles


PRO PutTitles, title, xTitle, yTitle, subTitle

  COMMON OverallVars, titles, d1, d2, d3, d4, d5, d6

  IF N_Elements( title ) EQ 0 THEN title = ''
  IF N_Elements( xTitle ) EQ 0 THEN xTitle = ''
  IF N_Elements( yTitle ) EQ 0 THEN yTitle = ''
  IF N_Elements( subTitle ) EQ 0 THEN subTitle = ''

  titles.main = title
  titles.x = xTitle
  titles.y = yTitle
  titles.sub = subTitle
 
END ; Put titles


PRO GetPSSizes, xPos, yPos, widthP, heightP, landscapeP, colorP, $
	 encapsP, logoP

  COMMON PSVars, pos, width, height, landscape,  color, encaps, logo

  xPos = pos.x & yPos = pos.y
  widthP = width & heightP = height
  landscapeP = landscape
  colorP = color
  encapsP = encaps
  logoP = logo

END ; get postscript sizes


PRO PutPSSizes, xPos, yPos, widthP, heightP, landscapeP, colorP, $
	 encapsP, logoP

  COMMON PSVars, pos, width, height, landscape,  color, encaps, logo
  
  pos.x = xPos & pos.y = yPos
  width = widthP & height = heightP
  landscape = landscapeP
  color = colorP
  encaps = encapsP
  logo = logoP

END ; Put PS sizes


PRO Init_Defaults

  COMMON OverallVars, titles, tickName, ticks, minor, $
	style , type
  COMMON PSVars, pos, width, height, landscape,  color, encaps, logo

  titles = { titlesStruct, main: !p.title, sub: !p.subtitle, $
	x: !x.title, y: !y.title }

  tickName = { xyStr, x: StrArr( 30 ), y: StrArr( 30 ) }
  ticks = { xyInt, x: 0, y: 0 }
  minor = { xyInt }
  style = { xyInt }
  type = {xyInt }

  pos = { xyInt } & pos.x =1 & pos.y = 5
  width = 18 & height = 14
  color = 0
  landscape = 0
  encaps = 0
  logo = 0

END ; Init Defaults