Lines Matching refs:i
30 do i=1,nintb(lcsyst)
31 call shpTet(ipord,Qptb(1,1:3,i),shpb(1,:,i),
32 & shglb(1,:,:,i))
39 do i=1,nintb(lcsyst)
40 call shpHex (ipord, Qptb(2,1:3,i),shpb(2,:,i),
41 & shglb(2,:,:,i))
46 do i=1,nintb(lcsyst)
47 call shp6w (ipord,Qptb(3,1:3,i),
48 & shpb(3,:,i),shglb(3,:,:,i))
53 do i=1,nintb(lcsyst)
54 call shp6w (ipord,Qptb(4,1:3,i),
55 & shpb(4,:,i),shglb(4,:,:,i))
59 do i=1,nintb(lcsyst)
60 call shppyr (ipord,Qptb(5,1:3,i),
61 & shpb(5,:,i),shglb(5,:,:,i))
66 do i=1,nintb(lcsyst)
67 call shppyr (ipord,Qptb(6,1:3,i),
68 & shpb(6,:,i),shglb(6,:,:,i))