pro p2sw_loadct, r, g, b, load = load

;+
;
; NAME: p2sw_loadct
;
; PURPOSE:
;      Load standard SWAP color table (identical to AIA 171 Ang.)
;
; INPUTS:
;      NONE
;
; OUTPUTS:
;      R, G, B:    Color table elements for red, green, and blue channels.
;
; KEYWORD PARAMETERS:
;      LOAD:       Load the color table into active use
;
; MODIFICATION HISTORY:
;      Written by:   D. B. Seaton, 23-Jul-2013.
;-

  ; Check for LOAD keyword
  load = KEYWORD_SET(load)

  ; Generate color table
  loadct,3
  tvlct,r0,g0,b0,/get
  r = r0
  g = byte(findgen(256))
  b = b0

  ; load color table if requested
  IF load THEN tvlct, r, g, b

  RETURN
END