| /dports/cad/feappv/feappv-4.1i/plot/ |
| H A D | plfacn.f | 38 integer nen,numel,nface,nie, i,j,m,n, iel,iiel, ien,nel,pstyp local
80 iiel = inord(iel)
82 iiel = exord(-iel)
87 if(iiel.eq.7) then
95 if (iiel.lt.0) then
103 if( iiel.gt.0 .and. iiel.le.3 ) then
128 if (iiel .eq. 9) then
147 elseif (iiel .eq. 15) then
166 elseif (iiel .eq. 46 .and. .not.nurbfl) then
186 elseif (iiel .gt. 10 ) then
|
| H A D | plfacx.f | 35 integer nen,numel,nie, i,j,j1,m,n, nf, iel,iiel,ien,nel,pstyp local
78 iiel = inord(iel)
80 iiel = exord(-iel)
85 if(iiel.eq.7) then
93 if (iiel.lt.0) then
101 if( iiel.gt.0 .and. iiel.le.3 ) then
175 if (iiel .eq. 9) then
213 elseif (iiel .eq. 15) then
251 elseif (iiel .eq. 46 .and. .not.nurbfl) then
281 elseif (iiel .gt. 10 ) then
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/mrpt/fci/ |
| H A D | fci_diags.F | 21 $ nonel, iiel
60 do 40 iiel = kkel+1,keltop
61 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
66 50 do 60 iiel = iello,ielhi
67 iel = kpt(iiel)
|
| H A D | fci_hami.F | 56 $ jprev, kkel, kel, k, l, kl, jdet, jjdet, ieltop, iel, iiel,
93 do 40 iiel = kkel+1,keltop
94 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
99 50 do 60 iiel = kelbas,ieltop
100 iel = kpt(iiel)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/mrpt/fci/ |
| H A D | fci_diags.F | 21 $ nonel, iiel
60 do 40 iiel = kkel+1,keltop
61 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
66 50 do 60 iiel = iello,ielhi
67 iel = kpt(iiel)
|
| H A D | fci_hami.F | 56 $ jprev, kkel, kel, k, l, kl, jdet, jjdet, ieltop, iel, iiel,
93 do 40 iiel = kkel+1,keltop
94 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
99 50 do 60 iiel = kelbas,ieltop
100 iel = kpt(iiel)
|
| /dports/science/madness/madness-ebb3fd7/src/apps/moldft/fci/ |
| H A D | fci_diags.F | 21 $ nonel, iiel
60 do 40 iiel = kkel+1,keltop
61 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
66 50 do 60 iiel = iello,ielhi
67 iel = kpt(iiel)
|
| H A D | fci_hami.F | 56 $ jprev, kkel, kel, k, l, kl, jdet, jjdet, ieltop, iel, iiel,
93 do 40 iiel = kkel+1,keltop
94 if (ionel(4,kpt(iiel)).ne.jdet) goto 50
99 50 do 60 iiel = kelbas,ieltop
100 iel = kpt(iiel)
|
| /dports/cad/feappv/feappv-4.1i/program/ |
| H A D | pnorml.f | 27 integer iel,iiel,iu,i,j,k,l,m,n, i1,i2,i3,i4 local
80 iiel = inord(iel)
82 iiel = exord(-iel)
112 if (iiel .eq. 9 ) then
152 elseif (iiel .gt. 10 ) then
|
| H A D | prj3dl.f | 57 integer i,j,k,l,n, i1,i2, iel,iiel,ifac,lint
300 iiel = inord(iel)
302 iiel = exord(-iel)
310 100 if(iiel.lt.0) then
314 elseif(iiel .eq. 9 ) then
|