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