| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/api/ |
| H A D | int_2e3c.F | 102 logical status_rel, ket_rel, j_rel, k_rel local
208 ket_rel = .false.
212 ket_rel = ket .eq. abas
213 if (ket_rel) then
218 ket_rel = ket_rel .and. j_rel .and. k_rel
220 status_rel = status_rel .and. ket_rel
296 & .false.,ket_rel,ss_one_cent,.false.,rel_dbg)
|
| H A D | exactd_mem.F | 462 logical bra_rel, ket_rel, status_rel local
521 ket_rel = infbs_cont(CONT_RELLS ,ikc,ket) .ne. 0
554 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
573 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
608 if (status_rel .and. bra_rel .and. ket_rel) then
627 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
646 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
691 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
710 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
757 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
[all …]
|
| H A D | exact_mem.F | 662 logical ket_cando_sp, ket_rel local
718 ket_rel = infbs_cont(CONT_RELLS ,ikc,ket) .ne. 0
730 if (status_rel .and. (bra_rel .or. ket_rel)) then
748 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
766 if (status_rel .and. bra_rel .and. ket_rel) then
782 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
801 if (status_rel .and. (bra_rel .or. ket_rel)) then
851 & bra_rel.and.ket_rel,ket_rel,ss_one_cent,do_ssss,0)
1188 logical ket_cando_sp, ket_rel local
1302 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
[all …]
|
| H A D | int_2e4c.F | 139 logical status_rel, bra_rel, ket_rel local
270 ket_rel = ket .eq. abas
271 if (ket_rel) then
276 ket_rel = ket_rel .and. k_rel .and. l_rel
278 status_rel = status_rel .and. (bra_rel .or. ket_rel)
376 & bra_rel,ket_rel,ss_one_cent,do_ssss,rel_dbg)
|
| H A D | intd_2e4c.F | 132 logical status_rel, bra_rel, ket_rel local
192 ket_rel = .false.
205 ket_rel = ket .eq. abas
206 if (ket_rel) then
211 ket_rel = ket_rel .and. k_rel .and. l_rel
213 status_rel = status_rel .and. (bra_rel .or. ket_rel)
338 & scr,lscr,bra_rel,ket_rel,ss_one_cent,do_ssss,rel_dbg)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/api/ |
| H A D | int_2e3c.F | 102 logical status_rel, ket_rel, j_rel, k_rel
208 ket_rel = .false.
212 ket_rel = ket .eq. abas
213 if (ket_rel) then
218 ket_rel = ket_rel .and. j_rel .and. k_rel
220 status_rel = status_rel .and. ket_rel
296 & .false.,ket_rel,ss_one_cent,.false.,rel_dbg)
|
| H A D | exactd_mem.F | 462 logical bra_rel, ket_rel, status_rel local
521 ket_rel = infbs_cont(CONT_RELLS ,ikc,ket) .ne. 0
554 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
573 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
608 if (status_rel .and. bra_rel .and. ket_rel) then
627 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
646 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
691 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
710 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
757 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
[all …]
|
| H A D | exact_mem.F | 662 logical ket_cando_sp, ket_rel
718 ket_rel = infbs_cont(CONT_RELLS ,ikc,ket) .ne. 0
730 if (status_rel .and. (bra_rel .or. ket_rel)) then
748 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
766 if (status_rel .and. bra_rel .and. ket_rel) then
782 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
801 if (status_rel .and. (bra_rel .or. ket_rel)) then
851 & bra_rel.and.ket_rel,ket_rel,ss_one_cent,do_ssss,0)
1188 logical ket_cando_sp, ket_rel
1302 & bra_rel,ket_rel,ss_one_cent,do_ssss,0)
[all …]
|
| H A D | int_2e4c.F | 139 logical status_rel, bra_rel, ket_rel
270 ket_rel = ket .eq. abas
271 if (ket_rel) then
276 ket_rel = ket_rel .and. k_rel .and. l_rel
278 status_rel = status_rel .and. (bra_rel .or. ket_rel)
376 & bra_rel,ket_rel,ss_one_cent,do_ssss,rel_dbg)
|
| H A D | intd_2e4c.F | 132 logical status_rel, bra_rel, ket_rel
192 ket_rel = .false.
205 ket_rel = ket .eq. abas
206 if (ket_rel) then
211 ket_rel = ket_rel .and. k_rel .and. l_rel
213 status_rel = status_rel .and. (bra_rel .or. ket_rel)
338 & scr,lscr,bra_rel,ket_rel,ss_one_cent,do_ssss,rel_dbg)
|