SUBROUTINE PICHRT

 PICHRT plots a circular pie chart with optionally shaded wedges, and descriptive legends. One or more of the slices may be "exploded" outward from the pie chart center for emphasis. The chart legend can be character labels only or can include shade legends. Labels can be automatically placed around the pie chart or located at the bottom of the page. Optionally, the user can specify the locations of the legends.

CALL PICHRT(x,y,r,d,iflag,as,ae,n,a,sh,iw,l,nl,cs,sl,
              t,nt,tcs,d,<p,<ic>>)

x,y   (R): location of pie chart center
r     (R): radius of pie chart segments (r>0)
d     (R): distance from chart center for "exploded" segments
iflag (I): option flag
           < 0 : do not close LONGLIB after plotting
           = 0 : close LONGLIB--no plot produced
           > 0 : close LONGLIB after plotting
(magnitude) > 10000 : do not initialize LONGLIB before plotting
   (1's digit)  = 1 : color array not used
                = 2 : color array used
   (100's)      = 0 : Ask which screen device to use
               <> 0 : Screen Device Number (see FRAME)
as    (R): starting angle of first segment
n     (I): number of segments (n>0)
a     (R): array of segment sizes (angular width of jth segment
           is a(j)*360/(Sum a(i),i=1,N))
sh    (R): shade option for each pie segment
              sh            shade pattern
             ____       _________________________
              0               no shading
              1          -45 deg solid lines
              2          horizontal solid lines
              3          +45 deg solid lines
              4          vertical deg solid lines
              5          -45 deg dotted lines
              6          horizontal dotted lines
              7          +45 deg dotted lines
              8          vertical deg dotted lines
              9          +/- 45 deg dotted lines
             10          vertical/horizontal dotted lines
             11          +/- 45 deg solid lines
             12          vertical/horizontal solid lines
iw    (I): array of segment outline linewidths (1-9)
l     (C): array of segment labels for legend (CHARACTER)
nc    (I): maximum number of characters in legend string
cs    (R): legend character height
sl    (R): legend shaded box size
            < 98: legend located below chart w/o box
            < 0 : legend located below chart with shaded box
            = 0 : no legend
            > 0 : legend located around chart with shaded box 
            > 98: legend located around chart w/o box
t     (C): chart title string
nt    (I): number of characters in t
           < 1 : no title plotted
tcs   (R): chart title string height
d     (R): distance between shading lines
p     (R): array containing locations of lower-left corner
           of legend box/string (used only if tc < 0)
ic    (I): color array (used only if mod(|iflag|,10)=2)
            ic(1) : title color (return)
            ic(2) : legend string color
            ic(3) : segment 1 color
            ic(4) : segment 2 color
             ...         ...