src/tce/ccsd_imaginary.F

1       subroutine ccsd_imaginary(d_a0,d_f1,d_v2,d_d1,  argument
25       integer d_a0,d_f1,d_v2,d_d1(3)
84      1             d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
94      1               d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
102      1             d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
114      1             d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
128      1               d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
140      1               d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
151      1               d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
169      1               d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
184      1             d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
197         call  ccsd_ir_eval(omegacount,d_a0,d_f1,d_v2,d_d1,
257      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
282       integer d_f1,d_v2,d_d1(3),d_t1,d_t2
327         call eomccsd_x1_old(d_f1,d_ir1(axis),d_t1,d_t2,d_v2,
337         call eomccsd_x2_old(d_f1,d_ir2(axis),d_t1,d_t2,d_v2,
353         call eomccsd_x1_old(d_f1,d_rr1(axis),d_t1,d_t2,d_v2,
360         call eomccsd_x2_old(d_f1,d_rr2(axis),d_t1,d_t2,d_v2,
468      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
490       integer d_f1,d_v2,d_d1(3),d_t1,d_t2
532         call eomccsd_x1_old(d_f1,d_ir1(axis),d_t1,d_t2,d_v2,
539         call eomccsd_x2_old(d_f1,d_ir2(axis),d_t1,d_t2,d_v2,
555         call eomccsd_x1_old(d_f1,d_rr1(axis),d_t1,d_t2,d_v2,
561         call eomccsd_x2_old(d_f1,d_rr2(axis),d_t1,d_t2,d_v2,
683      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
707       integer d_f1,d_v2,d_d1(3),d_t1,d_t2
754         call eomccsd_x1_old(d_f1,d_rr1(axis),d_t1,d_t2,d_v2,
767         call eomccsd_x2_old(d_f1,d_rr2(axis),d_t1,d_t2,d_v2,
863      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
887       integer d_f1,d_v2,d_d1(3),d_t1,d_t2,d_tr1(9),d_tr2(9)
931         call eomccsd_x1_old(d_f1,d_rr1(axis),d_t1,d_t2,d_v2,
941         call eomccsd_x2_old(d_f1,d_rr2(axis),d_t1,d_t2,d_v2,
1038      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
1060       integer d_f1,d_v2,d_d1(3),d_t1,d_t2
1099           call ccsd_lr_guess(d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
1125         call eomccsd_x1_old(d_f1,d_rr1(axis),d_t1,d_t2,d_v2,
1138         call eomccsd_x2_old(d_f1,d_rr2(axis),d_t1,d_t2,d_v2,
1159         call eomccsd_x1_old(d_f1,d_ir1(axis),d_t1,d_t2,d_v2,
1169         call eomccsd_x2_old(d_f1,d_ir2(axis),d_t1,d_t2,d_v2,
1231      1           d_f1,d_v2,d_d1,d_t1,d_t2,d_tr1,d_tr2,
1250       integer d_f1,d_v2,d_d1(3),d_t1,d_t2
1291         call eomccsd_x1_old(d_f1,d_tr1(axis+0),d_t1,d_t2,d_v2,
1300         call eomccsd_x2_old(d_f1,d_tr2(axis+0),d_t1,d_t2,d_v2,
1332       subroutine ccsd_ir_eval(omegacount,d_a0,d_f1,d_v2,d_d1,  argument
1356       integer d_a0,d_f1,d_v2,d_d1(3)
1467               call alpha_2(d_f1,d_a0,d_t1,d_t2,
1481               call alpha_2(d_f1,d_a0,d_t1,d_t2,
1500             call alpha_2(d_f1,d_a0,d_t1,d_t2,