| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ |
| H A D | tce_mo2e_2emet3_n5.F | 58 integer size_2g2z,l_2g2z,k_2g2z
420 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
441 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
463 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
492 1 dbl_mb(k_2g2z), ! A
505 1 dbl_mb(k_2g2z), ! A
619 1 l_2g2z,k_2g2z))
663 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
688 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
708 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet3.F | 58 integer size_2g2z,l_2g2z,k_2g2z
420 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
441 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
463 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
476 1 dbl_mb(k_2g2z), !A
589 1 l_2g2z,k_2g2z))
633 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
658 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
678 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet4.F | 64 integer size_2g2z,l_2g2z,k_2g2z
429 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
450 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
472 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
485 1 dbl_mb(k_2g2z), !A
595 1 l_2g2z,k_2g2z))
639 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
664 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
684 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet4_n5.F | 64 integer size_2g2z,l_2g2z,k_2g2z
429 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
450 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
472 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
485 1 dbl_mb(k_2g2z), !A
595 1 l_2g2z,k_2g2z))
639 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
664 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
684 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_ga.F | 60 integer size_2g2z,l_2g2z,k_2g2z
422 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
443 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
465 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
478 1 dbl_mb(k_2g2z), !A
591 1 l_2g2z,k_2g2z))
635 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
660 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
680 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_ga_chop.F | 66 integer size_2g2z,l_2g2z,k_2g2z
431 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
452 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
474 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
487 1 dbl_mb(k_2g2z), !A
597 1 l_2g2z,k_2g2z))
641 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
666 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
686 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_2s_new.F | 58 integer size_2g2z,l_2g2z,k_2g2z
421 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
442 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
464 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
477 1 dbl_mb(k_2g2z), !A
676 1 '2g2z',l_2g2z,k_2g2z))
695 dbl_mb(k_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
720 dbl_mb(k_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
739 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_incore_2eorb.F | 59 integer size_2g2z,l_2g2z,k_2g2z
929 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
938 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
954 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_zones_4a_disk_4s_new_patch_m3.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1472 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1483 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1499 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_disk_2eorb.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1447 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1458 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1474 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_incore_2eorb_split.F | 58 integer size_2g2z,l_2g2z,k_2g2z
1399 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1410 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1426 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_hybrid_2eorb_split.F | 58 integer size_2g2z,l_2g2z,k_2g2z
1448 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1459 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1475 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_zones_4a_disk_4s_new_patch_m2.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1448 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1459 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1475 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ |
| H A D | tce_mo2e_2emet3_n5.F | 58 integer size_2g2z,l_2g2z,k_2g2z
420 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
441 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
463 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
492 1 dbl_mb(k_2g2z), ! A
505 1 dbl_mb(k_2g2z), ! A
619 1 l_2g2z,k_2g2z))
663 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
688 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
708 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet3.F | 58 integer size_2g2z,l_2g2z,k_2g2z
420 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
441 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
463 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
476 1 dbl_mb(k_2g2z), !A
589 1 l_2g2z,k_2g2z))
633 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
658 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
678 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet4.F | 64 integer size_2g2z,l_2g2z,k_2g2z
429 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
450 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
472 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
485 1 dbl_mb(k_2g2z), !A
595 1 l_2g2z,k_2g2z))
639 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
664 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
684 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_2emet4_n5.F | 64 integer size_2g2z,l_2g2z,k_2g2z
429 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
450 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
472 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
485 1 dbl_mb(k_2g2z), !A
595 1 l_2g2z,k_2g2z))
639 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
664 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
684 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_ga.F | 60 integer size_2g2z,l_2g2z,k_2g2z
422 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
443 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
465 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
478 1 dbl_mb(k_2g2z), !A
591 1 l_2g2z,k_2g2z))
635 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
660 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
680 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_ga_chop.F | 66 integer size_2g2z,l_2g2z,k_2g2z
431 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
452 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
474 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
487 1 dbl_mb(k_2g2z), !A
597 1 l_2g2z,k_2g2z))
641 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
666 dbl_mb(k_2g2z+offset_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
686 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_zones_4a_disk_2s_new.F | 58 integer size_2g2z,l_2g2z,k_2g2z
421 if (.not.ma_push_get(mt_dbl,size_2g2z,'2g2z',l_2g2z,k_2g2z))
442 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
464 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)*
477 1 dbl_mb(k_2g2z), !A
676 1 '2g2z',l_2g2z,k_2g2z))
695 dbl_mb(k_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
720 dbl_mb(k_2g2z+ii-1)=dbl_mb(k_movecs_orb+ipos1-1)*
739 6 dbl_mb(k_2g2z),nalength(azone1)*nalength(azone2),
|
| H A D | tce_mo2e_incore_2eorb.F | 59 integer size_2g2z,l_2g2z,k_2g2z
929 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
938 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
954 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_disk_2eorb.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1447 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1458 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1474 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_zones_4a_disk_4s_new_patch_m3.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1472 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1483 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1499 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_zones_4a_disk_4s_new_patch_m2.F | 57 integer size_2g2z,l_2g2z,k_2g2z
1448 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1459 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1475 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|
| H A D | tce_mo2e_hybrid_2eorb_split.F | 58 integer size_2g2z,l_2g2z,k_2g2z
1448 if (.not.ma_push_get(mt_dbl,size_amc,'2g2z',l_2g2z,k_2g2z))
1459 dbl_mb(k_2g2z+i-1)=dbl_mb(k_movecs_orb+ipos1-1)
1475 & dbl_mb(k_2g2z),nalength(azone2),0.0d0,
|