123      $                                arctab, elv )
130       integer elv(nel)
140           iorb = elv(iel)
206       subroutine detci_elv2occ( norb, nel, elv, occ )  argument
210       integer elv(nel)  local
216         if ((iel.le.nel).and.(i.eq.elv(iel))) then
232       subroutine detci_occ2elv( norb, nel, occ, elv )  argument
236       integer elv(nel)  local
244           elv(iel) = i
260       subroutine detci_elv2holv( norb, nel, elv, holv )  argument
264       integer elv(nel)  local
271         if ((iel.le.nel).and.(i.eq.elv(iel))) then
287       integer function detci_elvsymm( norb, nel, nsym, osym, elv )
293       integer elv(nel)  local
301         detci_elvsymm = MULX(detci_elvsymm,osym(elv(i)))
380       logical function detci_getnextelv( norb, nel, elv )
384       integer elv(nel)
390       call detci_nextelv_( norb, nel, iel, elv, status )
398       subroutine detci_nextelv_( norb, nel, iel, elv, status )  argument
403       integer elv(nel)  local
406       elv(iel) = elv(iel) + 1
407       if (elv(iel).le.(norb-nel+iel)) return
413       call detci_nextelv_( norb, nel, iel, elv, status )
415       elv(iel) = elv(iel-1) + 1
421       logical function detci_getnextelv( norb, nel, elv )
425       integer elv(nel)  local
432       elv(iel) = elv(iel) + 1
433       if (elv(iel).gt.(norb-nel+iel)) then
442         elv(i) = elv(i-1) + 1
487       integer elv(detci_maxelec)
501         elv(i) = i
507       istr = detci_elv2str( norb, nel, nsym, osym, atab, elv )
514          write(6,*) ' elv  ', (elv(i), i=1, nel)
517       isym = detci_elvsymm( norb, nel, nsym, osym, elv )
518       call detci_elv2occ( norb, nel, elv, occv )
519       call detci_elv2holv( norb, nel, elv, holv )
528           occv(elv(iel)) = 0
532               icreate = elv(iel) ! E_ii 
549               ex(3,iex,istr) = ijmap(elv(iel),icreate)
552               ex(6,iex,istr) = elv(iel)
556           occv(elv(iel)) = 1
559       if (detci_getnextelv( norb, nel, elv )) goto 100
609       subroutine detci_ptr2elv(norb,nel,np,nlab,ip,lab,k,elv,iph)  argument
617       integer elv(nel)  local
625           elv(iel) = lab(ip(i))
630       elv(iel) = k
634           elv(iel) = lab(ip(i))
988       integer elv(detci_maxelec)
996         elv(i) = i
999       isym = detci_elvsymm( norb, nel, nsym, osym, elv )
1000       istr = detci_elv2str( norb, nel, nsym, osym, atab, elv )
1001       write(6,988) isym,istr,(elv(i),i=1,nel)
1003       if (detci_getnextelv( norb, nel, elv )) goto 101