19       subroutine cc_r12vunpack(vijkl,isymv,vsing,vtrip,lprojv,  argument
51       real vijkl(*),vsing(*)
54       double precision vijkl(*),vsing(*)
132                                  vsing(klij)=vijkl(idxijkl)+
133      &                                vijkl(idxijlk)
134                                  vtrip(klij)=vijkl(idxijkl)-
135      &                                vijkl(idxijlk)
148      &                                  + vijkl(idxjikl)+vijkl(idxjilk))
150      &                                  + vijkl(idxjilk)-vijkl(idxjikl))
187       subroutine cc_r12vpack(vijkl,isymv,vsing,vtrip,nr12orb,nrhforb,  argument
205       real vijkl(*),vsing(*)
209       double precision vijkl(*),vsing(*)
257       call dzero(vijkl,nijkl(isymv))
309                                  vijkl(idxijkl) = ff*half*(vsing(klij)
311                                  vijkl(idxijlk) = ff*half*(vsing(klij)
313                                  vijkl(idxjilk) = vijkl(idxijkl)
314                                  vijkl(idxjikl) = vijkl(idxijlk)
339             call output(vijkl(iijkl(isymij,isymkl)+1),1,nij(isymij),
349       subroutine ccrhs_ep_old(vijkl,isymv,lcont,cont,work,lwork,  argument
387       real vijkl(*),work(*), cont(2), ddot, basscl1, basscl2
389       double precision vijkl(*),work(*), cont(2), ddot, basscl1,
437       call cc_r12vunpack(vijkl,isymv,work(ksing),work(ktrip),lprojv,
450          call cc_r12vpack(vijkl,isymv,work(ksing),work(ktrip),nrhfb,
453          call cc_prsqr12(vijkl,isymv,'T',1,.false.)
601          call cc_r12vpack(vijkl,isymv,work(ksing),work(ktrip),nrhfb,
604          call cc_prsqr12(vijkl,isymv,'T',1,.false.)
606      &   ddot(ntr12sq(isymv),vijkl,1,vijkl,1)
709       subroutine ccrhs_ep(vijkl,isymv,lcont,cont,work,lwork,  argument
750       real vijkl(*),work(*), cont(2), ddot, basscl1, basscl2, one,
753       double precision vijkl(*),work(*), cont(2), ddot, basscl1,
784       call cc_r12pklij(vijkl,isymv,'T',work(kend1),lwrk1)
785       call dscal(ntr12sq(isymv),0.5D0,vijkl,1)
788         call ccr12pck2(work(kpckv),isymv,.false.,vijkl,'T',iopt)
792          call cc_prsqr12(vijkl,isymv,'T',1,.false.)
794      &   ddot(ntr12sq(isymv),vijkl,1,vijkl,1)
865         call cc_r12xi2b(vijkl,'T',work(kbmatsq),1,'N',work(ktr12sq),
961      &                       vijkl(koffv+(i-1)*nmatij(isymij))
967      &                 one,vijkl(koffv),max(nmatij(isymij),1))
977          call cc_prsqr12(vijkl,isymv,'T',1,.false.)
979      &   ddot(ntr12sq(isymv),vijkl,1,vijkl,1)
988         call ccr12pck2(work(kpck),isymv,.false.,vijkl,'T',iopt)
1001         call ccr12pck2(work(ktr12),isymv,.false.,vijkl,'T',iopt)