% Circle diagram generation:
%
% Call:  \Torte{arg1}{arg2} .
%
% arg1:  Approximate diameter (in any of TeX's units) .
%
% arg2:  Sector definition (in order) by \Sektor arg3,arg4; .
%
% arg3:  Sector size in percent .
%
% arg4:  Sector label .
%
% NOTE:  Sector sizes MUST add up to 100 percent .
%
\def\Coo#1,#2;{%
\ifnum\count100=1 \point#1,#2;\fi%
\ifnum\count100=2 \point#2,#1;\fi%
\ifnum\count100=3 \point#2,-#1;\fi%
\ifnum\count100=4 \point#1,-#2;\fi%
\ifnum\count100=5 \point-#1,-#2;\fi%
\ifnum\count100=6 \point-#2,-#1;\fi%
\ifnum\count100=7 \point-#2,#1;\fi%
\ifnum\count100=8 \point-#1,#2;\fi}%
%
\def\Kreis{%  Coordinates were generated by the program
%      character*7 h
%      real s(26),c(26)
%      character*4 coo
%      data coo/'\Coo'/
%      pi=4.*atan(1.)
%      do1i=1,26
%      x=float(i-1)/100.*pi
%      s(i)=100.*sin(x)
%  1   c(i)=100.*cos(x)
%      write(7,2)(coo,s(i),c(i),i=1,26)
%  2   format(3(a4,f7.3,',',f7.3,';'),'%')
%      end
\Coo  0.000,100.000;\Coo  3.141, 99.951;\Coo  6.279, 99.803;%
\Coo  9.411, 99.556;\Coo 12.533, 99.211;\Coo 15.643, 98.769;%
\Coo 18.738, 98.229;\Coo 21.814, 97.592;\Coo 24.869, 96.858;%
\Coo 27.899, 96.029;\Coo 30.902, 95.106;\Coo 33.874, 94.088;%
\Coo 36.812, 92.978;\Coo 39.715, 91.775;\Coo 42.578, 90.483;%
\Coo 45.399, 89.101;\Coo 48.175, 87.631;\Coo 50.904, 86.074;%
\Coo 53.583, 84.433;\Coo 56.208, 82.708;\Coo 58.779, 80.902;%
\Coo 61.291, 79.016;\Coo 63.742, 77.051;\Coo 66.131, 75.011;%
\Coo 68.455, 72.897;\Coo 70.711, 70.711;
}
\def\Adjust{\count100=1 
\ifdim\dimen101>12.5pt \advance\count100 by1\fi%
\ifdim\dimen101>25pt \advance\count100 by1\fi%
\ifdim\dimen101>37.5pt \advance\count100 by1\fi%
\ifdim\dimen101>50pt \advance\count100 by1\fi%
\ifdim\dimen101>62.5pt \advance\count100 by1\fi%
\ifdim\dimen101>75pt \advance\count100 by1\fi%
\ifdim\dimen101>87.5pt \advance\count100 by1%
\advance\dimen101 by-25pt\fi\relax%
\ifnum\count100>1 \advance\dimen101 by-25pt\fi\relax%
\ifnum\count100>3 \advance\dimen101 by-25pt\fi\relax%
\ifnum\count100>5 \advance\dimen101 by-25pt\fi\relax%
\ifdim\dimen101<0pt \multiply\dimen101 by-1\fi\relax}%
%
\def\Vorbei{\dimen101=-1pt}%
\def\Sektor#1,#2;{\dimen101=\dimen100%
\advance\dimen100 by #1pt \ifdim\dimen100>100pt %
\message{Sector beyond 100 percent ignored}\else%
\advance\dimen101 by\dimen100\divide\dimen101 by2\Adjust%
\values{\ifnum\count100<5 \ownsymbol{\hbox to1em{#2\hss}}%
\else\ownsymbol{\hbox to1em{\hss#2}}\fi\relax%
%  The following code was generated by the program
%      dimension x1(41),x2(41),x3(41)
%      pi=4.*atan(1.)
%      i=0
%      do1x=12.3,0.1,-.3
%      i=i+1
%      xx=x/50.*pi
%      x1(i)=x
%      x2(i)=120.*sin(xx)
%      x3(i)=120.*cos(xx)
%  1   write(7,2)x,x2(i),x3(i)
%  2   format('\ifdim\dimen101>',f4.1,'pt \Coo',f7.3,',',f7.3,
%     $';\Vorbei\fi\relax%')
%      write(7,3)
%  3   format('\ifdim\dimen101<0pt \else\Coo0.,120.;\fi}%'/
%     $'\dimen101=\dimen100\Adjust\connect{\point0.,0.;%')
%      write(7,2)(x1(i),x2(i)/1.2,x3(i)/1.2,i=1,41)
%      end
%
\ifdim\dimen101>12.3pt \Coo 83.780, 85.912;\Vorbei\fi\relax%
\ifdim\dimen101>12.0pt \Coo 82.146, 87.476;\Vorbei\fi\relax%
\ifdim\dimen101>11.7pt \Coo 80.482, 89.009;\Vorbei\fi\relax%
\ifdim\dimen101>11.4pt \Coo 78.790, 90.510;\Vorbei\fi\relax%
\ifdim\dimen101>11.1pt \Coo 77.070, 91.979;\Vorbei\fi\relax%
\ifdim\dimen101>10.8pt \Coo 75.323, 93.415;\Vorbei\fi\relax%
\ifdim\dimen101>10.5pt \Coo 73.549, 94.819;\Vorbei\fi\relax%
\ifdim\dimen101>10.2pt \Coo 71.749, 96.188;\Vorbei\fi\relax%
\ifdim\dimen101> 9.9pt \Coo 69.923, 97.523;\Vorbei\fi\relax%
\ifdim\dimen101> 9.6pt \Coo 68.072, 98.824;\Vorbei\fi\relax%
\ifdim\dimen101> 9.3pt \Coo 66.197,100.089;\Vorbei\fi\relax%
\ifdim\dimen101> 9.0pt \Coo 64.299,101.319;\Vorbei\fi\relax%
\ifdim\dimen101> 8.7pt \Coo 62.378,102.513;\Vorbei\fi\relax%
\ifdim\dimen101> 8.4pt \Coo 60.435,103.671;\Vorbei\fi\relax%
\ifdim\dimen101> 8.1pt \Coo 58.470,104.792;\Vorbei\fi\relax%
\ifdim\dimen101> 7.8pt \Coo 56.484,105.875;\Vorbei\fi\relax%
\ifdim\dimen101> 7.5pt \Coo 54.479,106.921;\Vorbei\fi\relax%
\ifdim\dimen101> 7.2pt \Coo 52.454,107.929;\Vorbei\fi\relax%
\ifdim\dimen101> 6.9pt \Coo 50.410,108.898;\Vorbei\fi\relax%
\ifdim\dimen101> 6.6pt \Coo 48.349,109.829;\Vorbei\fi\relax%
\ifdim\dimen101> 6.3pt \Coo 46.270,110.721;\Vorbei\fi\relax%
\ifdim\dimen101> 6.0pt \Coo 44.175,111.573;\Vorbei\fi\relax%
\ifdim\dimen101> 5.7pt \Coo 42.064,112.386;\Vorbei\fi\relax%
\ifdim\dimen101> 5.4pt \Coo 39.938,113.159;\Vorbei\fi\relax%
\ifdim\dimen101> 5.1pt \Coo 37.798,113.892;\Vorbei\fi\relax%
\ifdim\dimen101> 4.8pt \Coo 35.645,114.584;\Vorbei\fi\relax%
\ifdim\dimen101> 4.5pt \Coo 33.479,115.235;\Vorbei\fi\relax%
\ifdim\dimen101> 4.2pt \Coo 31.301,115.846;\Vorbei\fi\relax%
\ifdim\dimen101> 3.9pt \Coo 29.112,116.415;\Vorbei\fi\relax%
\ifdim\dimen101> 3.6pt \Coo 26.912,116.943;\Vorbei\fi\relax%
\ifdim\dimen101> 3.3pt \Coo 24.703,117.430;\Vorbei\fi\relax%
\ifdim\dimen101> 3.0pt \Coo 22.486,117.874;\Vorbei\fi\relax%
\ifdim\dimen101> 2.7pt \Coo 20.260,118.277;\Vorbei\fi\relax%
\ifdim\dimen101> 2.4pt \Coo 18.027,118.638;\Vorbei\fi\relax%
\ifdim\dimen101> 2.1pt \Coo 15.788,118.957;\Vorbei\fi\relax%
\ifdim\dimen101> 1.8pt \Coo 13.543,119.233;\Vorbei\fi\relax%
\ifdim\dimen101> 1.5pt \Coo 11.293,119.467;\Vorbei\fi\relax%
\ifdim\dimen101> 1.2pt \Coo  9.039,119.659;\Vorbei\fi\relax%
\ifdim\dimen101> 0.9pt \Coo  6.782,119.808;\Vorbei\fi\relax%
\ifdim\dimen101> 0.6pt \Coo  4.523,119.915;\Vorbei\fi\relax%
\ifdim\dimen101> 0.3pt \Coo  2.262,119.979;\Vorbei\fi\relax%
\ifdim\dimen101<0pt \else\Coo0.,120.;\fi}%
\dimen101=\dimen100\Adjust\connect{\point0.,0.;%
\ifdim\dimen101>12.3pt \Coo 69.817, 71.594;\Vorbei\fi\relax%
\ifdim\dimen101>12.0pt \Coo 68.455, 72.897;\Vorbei\fi\relax%
\ifdim\dimen101>11.7pt \Coo 67.069, 74.174;\Vorbei\fi\relax%
\ifdim\dimen101>11.4pt \Coo 65.659, 75.425;\Vorbei\fi\relax%
\ifdim\dimen101>11.1pt \Coo 64.225, 76.649;\Vorbei\fi\relax%
\ifdim\dimen101>10.8pt \Coo 62.769, 77.846;\Vorbei\fi\relax%
\ifdim\dimen101>10.5pt \Coo 61.291, 79.016;\Vorbei\fi\relax%
\ifdim\dimen101>10.2pt \Coo 59.790, 80.157;\Vorbei\fi\relax%
\ifdim\dimen101> 9.9pt \Coo 58.269, 81.269;\Vorbei\fi\relax%
\ifdim\dimen101> 9.6pt \Coo 56.727, 82.353;\Vorbei\fi\relax%
\ifdim\dimen101> 9.3pt \Coo 55.165, 83.408;\Vorbei\fi\relax%
\ifdim\dimen101> 9.0pt \Coo 53.583, 84.433;\Vorbei\fi\relax%
\ifdim\dimen101> 8.7pt \Coo 51.982, 85.428;\Vorbei\fi\relax%
\ifdim\dimen101> 8.4pt \Coo 50.362, 86.392;\Vorbei\fi\relax%
\ifdim\dimen101> 8.1pt \Coo 48.725, 87.326;\Vorbei\fi\relax%
\ifdim\dimen101> 7.8pt \Coo 47.070, 88.229;\Vorbei\fi\relax%
\ifdim\dimen101> 7.5pt \Coo 45.399, 89.101;\Vorbei\fi\relax%
\ifdim\dimen101> 7.2pt \Coo 43.712, 89.941;\Vorbei\fi\relax%
\ifdim\dimen101> 6.9pt \Coo 42.009, 90.748;\Vorbei\fi\relax%
\ifdim\dimen101> 6.6pt \Coo 40.291, 91.524;\Vorbei\fi\relax%
\ifdim\dimen101> 6.3pt \Coo 38.558, 92.267;\Vorbei\fi\relax%
\ifdim\dimen101> 6.0pt \Coo 36.812, 92.978;\Vorbei\fi\relax%
\ifdim\dimen101> 5.7pt \Coo 35.053, 93.655;\Vorbei\fi\relax%
\ifdim\dimen101> 5.4pt \Coo 33.282, 94.299;\Vorbei\fi\relax%
\ifdim\dimen101> 5.1pt \Coo 31.499, 94.910;\Vorbei\fi\relax%
\ifdim\dimen101> 4.8pt \Coo 29.704, 95.486;\Vorbei\fi\relax%
\ifdim\dimen101> 4.5pt \Coo 27.899, 96.029;\Vorbei\fi\relax%
\ifdim\dimen101> 4.2pt \Coo 26.084, 96.538;\Vorbei\fi\relax%
\ifdim\dimen101> 3.9pt \Coo 24.260, 97.013;\Vorbei\fi\relax%
\ifdim\dimen101> 3.6pt \Coo 22.427, 97.453;\Vorbei\fi\relax%
\ifdim\dimen101> 3.3pt \Coo 20.586, 97.858;\Vorbei\fi\relax%
\ifdim\dimen101> 3.0pt \Coo 18.738, 98.229;\Vorbei\fi\relax%
\ifdim\dimen101> 2.7pt \Coo 16.883, 98.564;\Vorbei\fi\relax%
\ifdim\dimen101> 2.4pt \Coo 15.023, 98.865;\Vorbei\fi\relax%
\ifdim\dimen101> 2.1pt \Coo 13.156, 99.131;\Vorbei\fi\relax%
\ifdim\dimen101> 1.8pt \Coo 11.286, 99.361;\Vorbei\fi\relax%
\ifdim\dimen101> 1.5pt \Coo  9.411, 99.556;\Vorbei\fi\relax%
\ifdim\dimen101> 1.2pt \Coo  7.533, 99.716;\Vorbei\fi\relax%
\ifdim\dimen101> 0.9pt \Coo  5.652, 99.840;\Vorbei\fi\relax%
\ifdim\dimen101> 0.6pt \Coo  3.769, 99.929;\Vorbei\fi\relax%
\ifdim\dimen101> 0.3pt \Coo  1.885, 99.982;\Vorbei\fi\relax%
%
\ifdim\dimen101<0pt \else\Coo0.,100.;\fi}\fi}%
%
\def\Torte#1#2{\diagram{\xaxis#1,-95.,155.,250.,;\noaxis%
\yaxis#1,-125.,125.,250.,;\noaxis\nogrid}{\dimen100=0pt\relax#2%
\advance\dimen100 by-100pt\relax\ifdim\dimen100<0pt %
\multiply\dimen100 by-1\fi\relax\ifdim\dimen100<0.01pt %
\count100=1\connect{\Kreis}\count100=2\connect{\Kreis}%
\count100=3\connect{\Kreis}\count100=4\connect{\Kreis}%
\count100=5\connect{\Kreis}\count100=6\connect{\Kreis}%
\count100=7\connect{\Kreis}\count100=8\connect{\Kreis}\fi}}
%
\vbox{\centerline{\Torte{6truecm}{
\Sektor1.1,Geometry\enspace\&\enspace Basis;
\Sektor23.0,Integrals;\Sektor0.5,Guess;\Sektor12.7,SCF;
\Sektor62.7,Gradient;}}
\noindent{\bf Figure~20. \rm Distribution of CPU time for 
the first optimization cycle in an {\it ab initio\/} SCF 
geometry optimization of $\beta$-Alanine with the 4-31G basis 
set, using the program GAMESS on a CONVEX~C1-XP. 
(Starting on top and proceeding clockwise: geometry and basis 
set definition: 38.9\thinspace s~(=~1.1\%), 
integral calculation: 778.1\thinspace s~(=~23.0\%),
guess of initial density matrix: 16.5\thinspace s~(=~0.5\%),
SCF iteration: 428.7\thinspace s~(=~12.7\%), gradient 
calculation: 2123.0\thinspace s~(=~62.7\%)\thinspace.)}}