27 subroutine cpt(ave,std,csm,xlo,xhi,xin)
42 real*8 ave,std,csm,xlo,xhi,xin
59 spread8 = 2 * csm * std / 8.d0
71 scave = xin * nint(ave / xin)
82 write(6,*)
' ---------------------' 83 write(6,*)
'cpt: ave = ',ave
84 write(6,*)
'cpt: std = ',std
85 write(6,*)
'cpt: csm = ',csm
86 write(6,*)
'cpt: spread8 = ',spread8
87 write(6,*)
'cpt: targ low = ',ave-csm*std
88 write(6,*)
'cpt: targ high= ',ave+csm*std
90 write(6,*)
'cpt: xin = ',xin
91 write(6,*)
'cpt: scave = ',scave
92 write(6,*)
'cpt: xlo = ',xlo
93 write(6,*)
'cpt: xhi = ',xhi
subroutine cpt(ave, std, csm, xlo, xhi, xin)
This subroutine generates the color pallette variables for a GMT color plot.