Lines Matching refs:nintf
32 nintf(1) = 1 ! tets
33 nintf(2) = 1 ! hexes
34 nintf(3) = 1 ! wedges
35 nintf(5) = 1 ! pyramids
37 nintf(1) = 4
38 nintf(2) = 8
39 nintf(3) = 6
40 nintf(5) = 8
42 nintf(1) = 16
43 nintf(2) = 27
44 nintf(3) = 18
45 nintf(5) = 27
47 nintf(1) = 29
48 nintf(2) = 64
49 nintf(3) = 48
50 nintf(5) = 64
54 allocate ( shpf(MAXTOP,maxsh,maxval(nintf)) )
55 allocate ( shglf(MAXTOP,nsd,maxsh,maxval(nintf)) )
56 allocate ( Qptf(MAXTOP,4,maxval(nintf)) )
57 allocate ( Qwtf(MAXTOP,maxval(nintf)) )
94 allocate (tmpQwtf(nintf(1)))
95 call symtet(nintf(1),tmpQptf,tmpQwtf,nerr)
96 Qptf(1,1:4,1:nintf(1)) = tmpQptf(1:4,1:nintf(1))
97 Qwtf(1,1:nintf(1)) = tmpQwtf(1:nintf(1))
102 do i = 1, nintf(1)
111 allocate (tmpQwtf(nintf(2)))
112 call symhex(nintf(2),tmpQptf,tmpQwtf,nerr)
113 Qptf(2,1:4,1:nintf(2)) = tmpQptf(1:4,1:nintf(2))
114 Qwtf(2,1:nintf(2)) = tmpQwtf(1:nintf(2))
118 allocate (tmpQptf(4,nintf(3)))
119 allocate (tmpQwtf(nintf(3)))
120 call symwdg(nintf(3),tmpQptf,tmpQwtf,nerr)
121 Qptf(3,1:4,1:nintf(3)) = tmpQptf(1:4,1:nintf(3))
122 Qwtf(3,1:nintf(3)) = tmpQwtf(1:nintf(3))
126 allocate (tmpQptf(4,nintf(5)))
127 allocate (tmpQwtf(nintf(5)))
128 call sympyr(nintf(5),tmpQptf,tmpQwtf,nerr)
129 Qptf(5,1:4,1:nintf(5)) = tmpQptf(1:4,1:nintf(5))
130 Qwtf(5,1:nintf(5)) = tmpQwtf(1:nintf(5))
148 do i=1,nintf(1)
155 shglf(1,:,1:nshl,1:nintf(1)) =
156 & shglf(1,:,1:nshl,1:nintf(1))/two
163 do i=1,nintf(2)
171 do i=1,nintf(3)
178 do i=1,nintf(5)