c subroutine setplt(ibox_clabs,spval) c c Set some plot parameters for the run: c (this routine called only once, before any plots are made) c c call cpseti('LLP',3) ! line label positioning call cpseti('LLP',2) ! line label positioning call cpseti('LLO',1) ! line label orientation (1=local direction) call cpsetr('LLS',.015) ! line label size (default = .01) call cpsetc('HIT',' ') ! high label text string call cpsetc('LOT',' ') ! low label text string if (ibox_clabs.gt.0) + call cpseti('LLB',3) ! line label box (3=draw and fill) c call cpseti('ILP',0) ! info label position flag (0=center of box) call cpsetc('ILT',' ') ! info label text string call mapstc('OU','CO') call mapsti('DO',1) call cpsetr('ORV',1.e12) ! for polar and satv projection maps call vvsetr('USV -- U special value',spval) call vvsetr('VSV -- V special value',spval) call vvseti('SVF -- special value flag',3) call cpsetr('SPV -- special value',spval) call pcsetc('FC','$') c return end