H A D | cc_r12a2.F | 1237 real work(*), t2am(*), omega(*),factor,ddot,two,one 1304 call cc_t2pk(work(kt2pck),t2am,isymt2am,iopt) 1361 call cc_t2sq(work(kt2pck),t2am,isymt2am) 1560 subroutine cc_t2xe(t2am,work,lwork) argument 1587 real t2am(*), work(lwork) 1589 double precision t2am(*), work(lwork) 1662 t2am(naibj) = t2am(naibj) * 1679 subroutine cc_r12mi2(omega,xkint,t2am,isymkint,isymt2am, argument 1697 real work(*), xkint(*),t2am(*), omega(*),factor 1700 double precision work(*), xkint(*),t2am(*), omega(*),factor [all …]
|