
### 顼ޥåפޤβˤĤ

ʣΥ顼ޥåפѰդ, ѤեֹǻǤ褦
ޤ. 

ѤǤ륫顼ޥå(Ȥֹ)ϰʲ̤Ǥ. 

 01: dcl_original
 02: black-orange-yellow-white
 03: black-blue-cyan-white
 04: blue-cyan-white-yellow-red
 05: gray_scale
 06: pastel_rainbow
 07: black-rainbow-black
 08: white_yellow_red
 09: white_blue_black
 10: short_green_original
 11: black-rainbow-white
 12: pink-rainbow-pink
 13: short_green_rainbow

ʤ, ΥꥹȤ $BINDIR/dclcmap ($BINDIR ˤĤƤ, Mkinclude )
ɽǤޤ. 顼ޥåפֹ, swpack ѿ
'ICLRMAP' ѹǤޤ(ǥեȤ1). Ȥ, 顼ޥåפɽ
ץ $BINDIR/dclclr ޤ, 

	% dclclr -sw:iclrmap=6

ʤɤȤ, 06: pastel_rainbow Υ顼ޥåפѤޤ. 

ץǤ, SGOPN Ƥ, 顼ޥåפֹѹ륵
롼 SGSCMN ʲΤ褦˸ƤӤޤ. 

	CALL SGSCMN(6)

, ʲǤ. (ǥեȰʳΥ顼ޥåפѤˤ,
ǽ1٥顼ޥåפΥꥹȤ SWCMLL ˤäɤ߹ɬפޤ.
ޤ, SWISTX ƤǤΤ, 嵭Τ褦, ¹Ի˥ޥɥ
ͤѹǽǤ. )

	CALL SWCMLL
	CALL SWISTX('ICLRMAP',6)

ץ

	demo/grph2/umpack/test09.f

򸫤Ƥ. 

ޤ, 顼ޥåפ0ܤ1ܤɤѤ뤳Ȥ, Хå饦ɤ
ե饦ɥ顼촹뤳ȤǤ褦ˤʤޤ. ,
swpack ѿ 'LFGBG'  .true. ˤ뤳ȤǼ¸Ǥޤ.
(ǥեȤ .false.) Ȥ, 

	% dclclr -sw:iclrmap=6 -sw:lfgbg=.true.

ȤƤߤƤ. 

顼ޥåפΥꥹȤΥե, $BINDIR/dcldbs  CMAPLIST Ȥ
֤ޤ. Ʊǥ쥯ȥ˥顼ޥåץեɲä֤, 
Υե˲ɮ, 顼ޥåץեѤǤޤ.
(Τ褦ʥե뤬, dcusers-ml ˤǤꤲƤ. 
ä褦ˤޤ. )

