1      program showxyz
2C$Id$
3      implicit none
4      integer Lvalm,Lval
5      integer nxyz(3)
6      integer icrng, ic
7c
8      Lvalm = 5
9c
10      call defnxyz(Lvalm)
11c
12      do 00100 Lval = 0,Lvalm*4
13        icrng = ((Lval+1)*(Lval+2))/2
14        do 00200 ic = 1,icrng
15          call getNxyz(lval,ic,nxyz)
16          call prntnxyz(lval,ic,nxyz)
1700200   continue
18        write(6,*)'  '
1900100 continue
20      end
21      subroutine prntnxyz(lval,ic,nxyz)
22      implicit none
23      integer lval, ic, nxyz(3)
24      character*30 cxyz
25      character*1 pxyz(3)
26      integer i,j, icnt
27c
28      pxyz(1) = 'x'
29      pxyz(2) = 'y'
30      pxyz(3) = 'z'
31      cxyz=' '
32      icnt = 1
33      do 00100 i=1,3
34        do 00200 j=1,nxyz(i)
35          cxyz(icnt:icnt) = pxyz(i)
36          icnt = icnt + 1
3700200   continue
3800100 continue
39      write(6,*)'<',lval,',',ic,'>= ',cxyz
40      end
41