← Back to branch summary

~ubuntu-branches/ubuntu/trusty/nwchem/trusty-proposed

« back to all changes in this revision

Viewing changes to src/tce/ccsd_lambda/ccsd_lambda2.F

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Daniel Leidert, Andreas Tille, Michael Banck
  • Date: 2013-07-04 12:14:55 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20130704121455-5tvsx2qabor3nrui
Tags: 6.3-1
http://bugs.debian.org/696361
* New upstream release.
* Fixes anisotropic properties (Closes: #696361).
* New features include:
  + Multi-reference coupled cluster (MRCC) approaches
  + Hybrid DFT calculations with short-range HF 
  + New density-functionals including Minnesota (M08, M11) and HSE hybrid
    functionals
  + X-ray absorption spectroscopy (XAS) with TDDFT
  + Analytical gradients for the COSMO solvation model
  + Transition densities from TDDFT 
  + DFT+U and Electron-Transfer (ET) methods for plane wave calculations
  + Exploitation of space group symmetry in plane wave geometry optimizations
  + Local density of states (LDOS) collective variable added to Metadynamics
  + Various new XC functionals added for plane wave calculations, including
    hybrid and range-corrected ones
  + Electric field gradients with relativistic corrections 
  + Nudged Elastic Band optimization method
  + Updated basis sets and ECPs 

[ Daniel Leidert ]
* debian/watch: Fixed.

[ Andreas Tille ]
* debian/upstream: References

[ Michael Banck ]
* debian/upstream (Name): New field.
* debian/patches/02_makefile_flags.patch: Refreshed.
* debian/patches/06_statfs_kfreebsd.patch: Likewise.
* debian/patches/07_ga_target_force_linux.patch: Likewise.
* debian/patches/05_avoid_inline_assembler.patch: Removed, no longer needed.
* debian/patches/09_backported_6.1.1_fixes.patch: Likewise.
* debian/control (Build-Depends): Added gfortran-4.7 and gcc-4.7.
* debian/patches/10_force_gcc-4.7.patch: New patch, explicitly sets
  gfortran-4.7 and gcc-4.7, fixes test suite hang with gcc-4.8 (Closes:
  #701328, #713262).
* debian/testsuite: Added tests for COSMO analytical gradients and MRCC.
* debian/rules (MRCC_METHODS): New variable, required to enable MRCC methods.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tce/ccsd_lambda/ccsd_lambda2.F
1
1
      SUBROUTINE ccsd_lambda2(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_of
2
2
     &fset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k
3
3
     &_y2_offset)
4
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5
5
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6
6
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7
7
C     i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v
303
303
      RETURN
304
304
      END
305
305
      SUBROUTINE ccsd_lambda2_1(d_a,k_a_offset,d_c,k_c_offset)
306
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
306
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
307
307
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
308
308
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
309
309
C     i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v
317
317
      INTEGER k_a_offset
318
318
      INTEGER d_c
319
319
      INTEGER k_c_offset
320
 
      INTEGER NXTVAL
 
320
      INTEGER NXTASK
321
321
      INTEGER next
322
322
      INTEGER nprocs
323
323
      INTEGER count
339
339
      INTEGER k_a
340
340
      INTEGER l_c
341
341
      INTEGER k_c
342
 
      EXTERNAL NXTVAL
 
342
      EXTERNAL NXTASK
343
343
      nprocs = GA_NNODES()
344
344
      count = 0
345
 
      next = NXTVAL(nprocs)
 
345
      next = NXTASK(nprocs,1)
346
346
      DO h3b = 1,noab
347
347
      DO h4b = h3b,noab
348
348
      DO p1b = noab+1,noab+nvab
397
397
      END IF
398
398
      END IF
399
399
      END IF
400
 
      next = NXTVAL(nprocs)
 
400
      next = NXTASK(nprocs,1)
401
401
      END IF
402
402
      count = count + 1
403
403
      END DO
404
404
      END DO
405
405
      END DO
406
406
      END DO
407
 
      next = NXTVAL(-nprocs)
 
407
      next = NXTASK(-nprocs,1)
408
408
      call GA_SYNC()
409
409
      RETURN
410
410
      END
411
411
      SUBROUTINE ccsd_lambda2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
412
412
     &fset)
413
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
413
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
414
414
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
415
415
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
416
416
C     i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f
426
426
      INTEGER k_b_offset
427
427
      INTEGER d_c
428
428
      INTEGER k_c_offset
429
 
      INTEGER NXTVAL
 
429
      INTEGER NXTASK
430
430
      INTEGER next
431
431
      INTEGER nprocs
432
432
      INTEGER count
456
456
      INTEGER k_b
457
457
      INTEGER l_c
458
458
      INTEGER k_c
459
 
      EXTERNAL NXTVAL
 
459
      EXTERNAL NXTASK
460
460
      nprocs = GA_NNODES()
461
461
      count = 0
462
 
      next = NXTVAL(nprocs)
 
462
      next = NXTASK(nprocs,1)
463
463
      DO h3b = 1,noab
464
464
      DO h4b = 1,noab
465
465
      DO p1b = noab+1,noab+nvab
559
559
      END IF
560
560
      END IF
561
561
      END IF
562
 
      next = NXTVAL(nprocs)
 
562
      next = NXTASK(nprocs,1)
563
563
      END IF
564
564
      count = count + 1
565
565
      END DO
566
566
      END DO
567
567
      END DO
568
568
      END DO
569
 
      next = NXTVAL(-nprocs)
 
569
      next = NXTASK(-nprocs,1)
570
570
      call GA_SYNC()
571
571
      RETURN
572
572
      END
573
573
      SUBROUTINE ccsd_lambda2_2_1(d_a,k_a_offset,d_c,k_c_offset)
574
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
574
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
575
575
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
576
576
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
577
577
C     i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f
585
585
      INTEGER k_a_offset
586
586
      INTEGER d_c
587
587
      INTEGER k_c_offset
588
 
      INTEGER NXTVAL
 
588
      INTEGER NXTASK
589
589
      INTEGER next
590
590
      INTEGER nprocs
591
591
      INTEGER count
603
603
      INTEGER k_a
604
604
      INTEGER l_c
605
605
      INTEGER k_c
606
 
      EXTERNAL NXTVAL
 
606
      EXTERNAL NXTASK
607
607
      nprocs = GA_NNODES()
608
608
      count = 0
609
 
      next = NXTVAL(nprocs)
 
609
      next = NXTASK(nprocs,1)
610
610
      DO h3b = 1,noab
611
611
      DO p1b = noab+1,noab+nvab
612
612
      IF (next.eq.count) THEN
645
645
      END IF
646
646
      END IF
647
647
      END IF
648
 
      next = NXTVAL(nprocs)
 
648
      next = NXTASK(nprocs,1)
649
649
      END IF
650
650
      count = count + 1
651
651
      END DO
652
652
      END DO
653
 
      next = NXTVAL(-nprocs)
 
653
      next = NXTASK(-nprocs,1)
654
654
      call GA_SYNC()
655
655
      RETURN
656
656
      END
657
657
      SUBROUTINE OFFSET_ccsd_lambda2_2_1(l_a_offset,k_a_offset,size)
658
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
658
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
659
659
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
660
660
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
661
661
C     i1 ( h3 p1 )_f
711
711
      END
712
712
      SUBROUTINE ccsd_lambda2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
713
713
     &offset)
714
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
714
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
715
715
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
716
716
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
717
717
C     i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v
727
727
      INTEGER k_b_offset
728
728
      INTEGER d_c
729
729
      INTEGER k_c_offset
730
 
      INTEGER NXTVAL
 
730
      INTEGER NXTASK
731
731
      INTEGER next
732
732
      INTEGER nprocs
733
733
      INTEGER count
759
759
      INTEGER k_b
760
760
      INTEGER l_c
761
761
      INTEGER k_c
762
 
      EXTERNAL NXTVAL
 
762
      EXTERNAL NXTASK
763
763
      nprocs = GA_NNODES()
764
764
      count = 0
765
 
      next = NXTVAL(nprocs)
 
765
      next = NXTASK(nprocs,1)
766
766
      DO h3b = 1,noab
767
767
      DO p1b = noab+1,noab+nvab
768
768
      IF (next.eq.count) THEN
889
889
      END IF
890
890
      END IF
891
891
      END IF
892
 
      next = NXTVAL(nprocs)
 
892
      next = NXTASK(nprocs,1)
893
893
      END IF
894
894
      count = count + 1
895
895
      END DO
896
896
      END DO
897
 
      next = NXTVAL(-nprocs)
 
897
      next = NXTASK(-nprocs,1)
898
898
      call GA_SYNC()
899
899
      RETURN
900
900
      END
901
901
      SUBROUTINE ccsd_lambda2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
902
902
     &fset)
903
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
903
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
904
904
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
905
905
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
906
906
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v
916
916
      INTEGER k_b_offset
917
917
      INTEGER d_c
918
918
      INTEGER k_c_offset
919
 
      INTEGER NXTVAL
 
919
      INTEGER NXTASK
920
920
      INTEGER next
921
921
      INTEGER nprocs
922
922
      INTEGER count
949
949
      INTEGER k_b
950
950
      INTEGER l_c
951
951
      INTEGER k_c
952
 
      EXTERNAL NXTVAL
 
952
      EXTERNAL NXTASK
953
953
      nprocs = GA_NNODES()
954
954
      count = 0
955
 
      next = NXTVAL(nprocs)
 
955
      next = NXTASK(nprocs,1)
956
956
      DO h3b = 1,noab
957
957
      DO h4b = h3b,noab
958
958
      DO p1b = noab+1,noab+nvab
1041
1041
      END IF
1042
1042
      END IF
1043
1043
      END IF
1044
 
      next = NXTVAL(nprocs)
 
1044
      next = NXTASK(nprocs,1)
1045
1045
      END IF
1046
1046
      count = count + 1
1047
1047
      END DO
1048
1048
      END DO
1049
1049
      END DO
1050
1050
      END DO
1051
 
      next = NXTVAL(-nprocs)
 
1051
      next = NXTASK(-nprocs,1)
1052
1052
      call GA_SYNC()
1053
1053
      RETURN
1054
1054
      END
1055
1055
      SUBROUTINE ccsd_lambda2_3_1(d_a,k_a_offset,d_c,k_c_offset)
1056
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1056
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1057
1057
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1058
1058
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1059
1059
C     i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v
1067
1067
      INTEGER k_a_offset
1068
1068
      INTEGER d_c
1069
1069
      INTEGER k_c_offset
1070
 
      INTEGER NXTVAL
 
1070
      INTEGER NXTASK
1071
1071
      INTEGER next
1072
1072
      INTEGER nprocs
1073
1073
      INTEGER count
1089
1089
      INTEGER k_a
1090
1090
      INTEGER l_c
1091
1091
      INTEGER k_c
1092
 
      EXTERNAL NXTVAL
 
1092
      EXTERNAL NXTASK
1093
1093
      nprocs = GA_NNODES()
1094
1094
      count = 0
1095
 
      next = NXTVAL(nprocs)
 
1095
      next = NXTASK(nprocs,1)
1096
1096
      DO h3b = 1,noab
1097
1097
      DO h4b = h3b,noab
1098
1098
      DO p1b = noab+1,noab+nvab
1149
1149
      END IF
1150
1150
      END IF
1151
1151
      END IF
1152
 
      next = NXTVAL(nprocs)
 
1152
      next = NXTASK(nprocs,1)
1153
1153
      END IF
1154
1154
      count = count + 1
1155
1155
      END DO
1156
1156
      END DO
1157
1157
      END DO
1158
1158
      END DO
1159
 
      next = NXTVAL(-nprocs)
 
1159
      next = NXTASK(-nprocs,1)
1160
1160
      call GA_SYNC()
1161
1161
      RETURN
1162
1162
      END
1163
1163
      SUBROUTINE OFFSET_ccsd_lambda2_3_1(l_a_offset,k_a_offset,size)
1164
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1164
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1165
1165
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1166
1166
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1167
1167
C     i1 ( h3 h4 h7 p1 )_v
1231
1231
      END
1232
1232
      SUBROUTINE ccsd_lambda2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1233
1233
     &offset)
1234
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1234
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1235
1235
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1236
1236
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1237
1237
C     i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v
1247
1247
      INTEGER k_b_offset
1248
1248
      INTEGER d_c
1249
1249
      INTEGER k_c_offset
1250
 
      INTEGER NXTVAL
 
1250
      INTEGER NXTASK
1251
1251
      INTEGER next
1252
1252
      INTEGER nprocs
1253
1253
      INTEGER count
1280
1280
      INTEGER k_b
1281
1281
      INTEGER l_c
1282
1282
      INTEGER k_c
1283
 
      EXTERNAL NXTVAL
 
1283
      EXTERNAL NXTASK
1284
1284
      nprocs = GA_NNODES()
1285
1285
      count = 0
1286
 
      next = NXTVAL(nprocs)
 
1286
      next = NXTASK(nprocs,1)
1287
1287
      DO h3b = 1,noab
1288
1288
      DO h4b = h3b,noab
1289
1289
      DO p1b = noab+1,noab+nvab
1386
1386
      END IF
1387
1387
      END IF
1388
1388
      END IF
1389
 
      next = NXTVAL(nprocs)
 
1389
      next = NXTASK(nprocs,1)
1390
1390
      END IF
1391
1391
      count = count + 1
1392
1392
      END DO
1393
1393
      END DO
1394
1394
      END DO
1395
1395
      END DO
1396
 
      next = NXTVAL(-nprocs)
 
1396
      next = NXTASK(-nprocs,1)
1397
1397
      call GA_SYNC()
1398
1398
      RETURN
1399
1399
      END
1400
1400
      SUBROUTINE ccsd_lambda2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1401
1401
     &fset)
1402
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1402
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1403
1403
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1404
1404
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1405
1405
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v
1415
1415
      INTEGER k_b_offset
1416
1416
      INTEGER d_c
1417
1417
      INTEGER k_c_offset
1418
 
      INTEGER NXTVAL
 
1418
      INTEGER NXTASK
1419
1419
      INTEGER next
1420
1420
      INTEGER nprocs
1421
1421
      INTEGER count
1448
1448
      INTEGER k_b
1449
1449
      INTEGER l_c
1450
1450
      INTEGER k_c
1451
 
      EXTERNAL NXTVAL
 
1451
      EXTERNAL NXTASK
1452
1452
      nprocs = GA_NNODES()
1453
1453
      count = 0
1454
 
      next = NXTVAL(nprocs)
 
1454
      next = NXTASK(nprocs,1)
1455
1455
      DO h3b = 1,noab
1456
1456
      DO h4b = 1,noab
1457
1457
      DO p1b = noab+1,noab+nvab
1549
1549
      END IF
1550
1550
      END IF
1551
1551
      END IF
1552
 
      next = NXTVAL(nprocs)
 
1552
      next = NXTASK(nprocs,1)
1553
1553
      END IF
1554
1554
      count = count + 1
1555
1555
      END DO
1556
1556
      END DO
1557
1557
      END DO
1558
1558
      END DO
1559
 
      next = NXTVAL(-nprocs)
 
1559
      next = NXTASK(-nprocs,1)
1560
1560
      call GA_SYNC()
1561
1561
      RETURN
1562
1562
      END
1563
1563
      SUBROUTINE ccsd_lambda2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1564
1564
     &fset)
1565
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1565
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1566
1566
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1567
1567
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1568
1568
C     i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f
1578
1578
      INTEGER k_b_offset
1579
1579
      INTEGER d_c
1580
1580
      INTEGER k_c_offset
1581
 
      INTEGER NXTVAL
 
1581
      INTEGER NXTASK
1582
1582
      INTEGER next
1583
1583
      INTEGER nprocs
1584
1584
      INTEGER count
1611
1611
      INTEGER k_b
1612
1612
      INTEGER l_c
1613
1613
      INTEGER k_c
1614
 
      EXTERNAL NXTVAL
 
1614
      EXTERNAL NXTASK
1615
1615
      nprocs = GA_NNODES()
1616
1616
      count = 0
1617
 
      next = NXTVAL(nprocs)
 
1617
      next = NXTASK(nprocs,1)
1618
1618
      DO h3b = 1,noab
1619
1619
      DO h4b = 1,noab
1620
1620
      DO p1b = noab+1,noab+nvab
1714
1714
      END IF
1715
1715
      END IF
1716
1716
      END IF
1717
 
      next = NXTVAL(nprocs)
 
1717
      next = NXTASK(nprocs,1)
1718
1718
      END IF
1719
1719
      count = count + 1
1720
1720
      END DO
1721
1721
      END DO
1722
1722
      END DO
1723
1723
      END DO
1724
 
      next = NXTVAL(-nprocs)
 
1724
      next = NXTASK(-nprocs,1)
1725
1725
      call GA_SYNC()
1726
1726
      RETURN
1727
1727
      END
1728
1728
      SUBROUTINE ccsd_lambda2_5_1(d_a,k_a_offset,d_c,k_c_offset)
1729
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1729
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1730
1730
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1731
1731
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1732
1732
C     i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f
1740
1740
      INTEGER k_a_offset
1741
1741
      INTEGER d_c
1742
1742
      INTEGER k_c_offset
1743
 
      INTEGER NXTVAL
 
1743
      INTEGER NXTASK
1744
1744
      INTEGER next
1745
1745
      INTEGER nprocs
1746
1746
      INTEGER count
1758
1758
      INTEGER k_a
1759
1759
      INTEGER l_c
1760
1760
      INTEGER k_c
1761
 
      EXTERNAL NXTVAL
 
1761
      EXTERNAL NXTASK
1762
1762
      nprocs = GA_NNODES()
1763
1763
      count = 0
1764
 
      next = NXTVAL(nprocs)
 
1764
      next = NXTASK(nprocs,1)
1765
1765
      DO h3b = 1,noab
1766
1766
      DO h9b = 1,noab
1767
1767
      IF (next.eq.count) THEN
1800
1800
      END IF
1801
1801
      END IF
1802
1802
      END IF
1803
 
      next = NXTVAL(nprocs)
 
1803
      next = NXTASK(nprocs,1)
1804
1804
      END IF
1805
1805
      count = count + 1
1806
1806
      END DO
1807
1807
      END DO
1808
 
      next = NXTVAL(-nprocs)
 
1808
      next = NXTASK(-nprocs,1)
1809
1809
      call GA_SYNC()
1810
1810
      RETURN
1811
1811
      END
1812
1812
      SUBROUTINE OFFSET_ccsd_lambda2_5_1(l_a_offset,k_a_offset,size)
1813
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1813
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1814
1814
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1815
1815
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1816
1816
C     i1 ( h3 h9 )_f
1866
1866
      END
1867
1867
      SUBROUTINE ccsd_lambda2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1868
1868
     &offset)
1869
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1869
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1870
1870
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1871
1871
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1872
1872
C     i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f
1882
1882
      INTEGER k_b_offset
1883
1883
      INTEGER d_c
1884
1884
      INTEGER k_c_offset
1885
 
      INTEGER NXTVAL
 
1885
      INTEGER NXTASK
1886
1886
      INTEGER next
1887
1887
      INTEGER nprocs
1888
1888
      INTEGER count
1911
1911
      INTEGER k_b
1912
1912
      INTEGER l_c
1913
1913
      INTEGER k_c
1914
 
      EXTERNAL NXTVAL
 
1914
      EXTERNAL NXTASK
1915
1915
      nprocs = GA_NNODES()
1916
1916
      count = 0
1917
 
      next = NXTVAL(nprocs)
 
1917
      next = NXTASK(nprocs,1)
1918
1918
      DO h3b = 1,noab
1919
1919
      DO h9b = 1,noab
1920
1920
      IF (next.eq.count) THEN
1983
1983
      END IF
1984
1984
      END IF
1985
1985
      END IF
1986
 
      next = NXTVAL(nprocs)
 
1986
      next = NXTASK(nprocs,1)
1987
1987
      END IF
1988
1988
      count = count + 1
1989
1989
      END DO
1990
1990
      END DO
1991
 
      next = NXTVAL(-nprocs)
 
1991
      next = NXTASK(-nprocs,1)
1992
1992
      call GA_SYNC()
1993
1993
      RETURN
1994
1994
      END
1995
1995
      SUBROUTINE ccsd_lambda2_5_2_1(d_a,k_a_offset,d_c,k_c_offset)
1996
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
1996
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
1997
1997
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1998
1998
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1999
1999
C     i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f
2007
2007
      INTEGER k_a_offset
2008
2008
      INTEGER d_c
2009
2009
      INTEGER k_c_offset
2010
 
      INTEGER NXTVAL
 
2010
      INTEGER NXTASK
2011
2011
      INTEGER next
2012
2012
      INTEGER nprocs
2013
2013
      INTEGER count
2025
2025
      INTEGER k_a
2026
2026
      INTEGER l_c
2027
2027
      INTEGER k_c
2028
 
      EXTERNAL NXTVAL
 
2028
      EXTERNAL NXTASK
2029
2029
      nprocs = GA_NNODES()
2030
2030
      count = 0
2031
 
      next = NXTVAL(nprocs)
 
2031
      next = NXTASK(nprocs,1)
2032
2032
      DO h3b = 1,noab
2033
2033
      DO p5b = noab+1,noab+nvab
2034
2034
      IF (next.eq.count) THEN
2067
2067
      END IF
2068
2068
      END IF
2069
2069
      END IF
2070
 
      next = NXTVAL(nprocs)
 
2070
      next = NXTASK(nprocs,1)
2071
2071
      END IF
2072
2072
      count = count + 1
2073
2073
      END DO
2074
2074
      END DO
2075
 
      next = NXTVAL(-nprocs)
 
2075
      next = NXTASK(-nprocs,1)
2076
2076
      call GA_SYNC()
2077
2077
      RETURN
2078
2078
      END
2079
2079
      SUBROUTINE OFFSET_ccsd_lambda2_5_2_1(l_a_offset,k_a_offset,size)
2080
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2080
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2081
2081
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2082
2082
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2083
2083
C     i2 ( h3 p5 )_f
2133
2133
      END
2134
2134
      SUBROUTINE ccsd_lambda2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
2135
2135
     &c_offset)
2136
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2136
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2137
2137
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2138
2138
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2139
2139
C     i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v
2149
2149
      INTEGER k_b_offset
2150
2150
      INTEGER d_c
2151
2151
      INTEGER k_c_offset
2152
 
      INTEGER NXTVAL
 
2152
      INTEGER NXTASK
2153
2153
      INTEGER next
2154
2154
      INTEGER nprocs
2155
2155
      INTEGER count
2181
2181
      INTEGER k_b
2182
2182
      INTEGER l_c
2183
2183
      INTEGER k_c
2184
 
      EXTERNAL NXTVAL
 
2184
      EXTERNAL NXTASK
2185
2185
      nprocs = GA_NNODES()
2186
2186
      count = 0
2187
 
      next = NXTVAL(nprocs)
 
2187
      next = NXTASK(nprocs,1)
2188
2188
      DO h3b = 1,noab
2189
2189
      DO p5b = noab+1,noab+nvab
2190
2190
      IF (next.eq.count) THEN
2311
2311
      END IF
2312
2312
      END IF
2313
2313
      END IF
2314
 
      next = NXTVAL(nprocs)
 
2314
      next = NXTASK(nprocs,1)
2315
2315
      END IF
2316
2316
      count = count + 1
2317
2317
      END DO
2318
2318
      END DO
2319
 
      next = NXTVAL(-nprocs)
 
2319
      next = NXTASK(-nprocs,1)
2320
2320
      call GA_SYNC()
2321
2321
      RETURN
2322
2322
      END
2323
2323
      SUBROUTINE ccsd_lambda2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2324
2324
     &offset)
2325
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2325
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2326
2326
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2327
2327
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2328
2328
C     i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v
2338
2338
      INTEGER k_b_offset
2339
2339
      INTEGER d_c
2340
2340
      INTEGER k_c_offset
2341
 
      INTEGER NXTVAL
 
2341
      INTEGER NXTASK
2342
2342
      INTEGER next
2343
2343
      INTEGER nprocs
2344
2344
      INTEGER count
2370
2370
      INTEGER k_b
2371
2371
      INTEGER l_c
2372
2372
      INTEGER k_c
2373
 
      EXTERNAL NXTVAL
 
2373
      EXTERNAL NXTASK
2374
2374
      nprocs = GA_NNODES()
2375
2375
      count = 0
2376
 
      next = NXTVAL(nprocs)
 
2376
      next = NXTASK(nprocs,1)
2377
2377
      DO h3b = 1,noab
2378
2378
      DO h9b = 1,noab
2379
2379
      IF (next.eq.count) THEN
2470
2470
      END IF
2471
2471
      END IF
2472
2472
      END IF
2473
 
      next = NXTVAL(nprocs)
 
2473
      next = NXTASK(nprocs,1)
2474
2474
      END IF
2475
2475
      count = count + 1
2476
2476
      END DO
2477
2477
      END DO
2478
 
      next = NXTVAL(-nprocs)
 
2478
      next = NXTASK(-nprocs,1)
2479
2479
      call GA_SYNC()
2480
2480
      RETURN
2481
2481
      END
2482
2482
      SUBROUTINE ccsd_lambda2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2483
2483
     &offset)
2484
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2484
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2485
2485
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2486
2486
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2487
2487
C     i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v
2497
2497
      INTEGER k_b_offset
2498
2498
      INTEGER d_c
2499
2499
      INTEGER k_c_offset
2500
 
      INTEGER NXTVAL
 
2500
      INTEGER NXTASK
2501
2501
      INTEGER next
2502
2502
      INTEGER nprocs
2503
2503
      INTEGER count
2535
2535
      INTEGER l_c
2536
2536
      INTEGER k_c
2537
2537
      DOUBLE PRECISION FACTORIAL
2538
 
      EXTERNAL NXTVAL
 
2538
      EXTERNAL NXTASK
2539
2539
      EXTERNAL FACTORIAL
2540
2540
      nprocs = GA_NNODES()
2541
2541
      count = 0
2542
 
      next = NXTVAL(nprocs)
 
2542
      next = NXTASK(nprocs,1)
2543
2543
      DO h3b = 1,noab
2544
2544
      DO h9b = 1,noab
2545
2545
      IF (next.eq.count) THEN
2660
2660
      END IF
2661
2661
      END IF
2662
2662
      END IF
2663
 
      next = NXTVAL(nprocs)
 
2663
      next = NXTASK(nprocs,1)
2664
2664
      END IF
2665
2665
      count = count + 1
2666
2666
      END DO
2667
2667
      END DO
2668
 
      next = NXTVAL(-nprocs)
 
2668
      next = NXTASK(-nprocs,1)
2669
2669
      call GA_SYNC()
2670
2670
      RETURN
2671
2671
      END
2672
2672
      SUBROUTINE ccsd_lambda2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2673
2673
     &fset)
2674
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2674
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2675
2675
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2676
2676
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2677
2677
C     i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f
2687
2687
      INTEGER k_b_offset
2688
2688
      INTEGER d_c
2689
2689
      INTEGER k_c_offset
2690
 
      INTEGER NXTVAL
 
2690
      INTEGER NXTASK
2691
2691
      INTEGER next
2692
2692
      INTEGER nprocs
2693
2693
      INTEGER count
2720
2720
      INTEGER k_b
2721
2721
      INTEGER l_c
2722
2722
      INTEGER k_c
2723
 
      EXTERNAL NXTVAL
 
2723
      EXTERNAL NXTASK
2724
2724
      nprocs = GA_NNODES()
2725
2725
      count = 0
2726
 
      next = NXTVAL(nprocs)
 
2726
      next = NXTASK(nprocs,1)
2727
2727
      DO h3b = 1,noab
2728
2728
      DO h4b = h3b,noab
2729
2729
      DO p1b = noab+1,noab+nvab
2823
2823
      END IF
2824
2824
      END IF
2825
2825
      END IF
2826
 
      next = NXTVAL(nprocs)
 
2826
      next = NXTASK(nprocs,1)
2827
2827
      END IF
2828
2828
      count = count + 1
2829
2829
      END DO
2830
2830
      END DO
2831
2831
      END DO
2832
2832
      END DO
2833
 
      next = NXTVAL(-nprocs)
 
2833
      next = NXTASK(-nprocs,1)
2834
2834
      call GA_SYNC()
2835
2835
      RETURN
2836
2836
      END
2837
2837
      SUBROUTINE ccsd_lambda2_6_1(d_a,k_a_offset,d_c,k_c_offset)
2838
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2838
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2839
2839
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2840
2840
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2841
2841
C     i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f
2849
2849
      INTEGER k_a_offset
2850
2850
      INTEGER d_c
2851
2851
      INTEGER k_c_offset
2852
 
      INTEGER NXTVAL
 
2852
      INTEGER NXTASK
2853
2853
      INTEGER next
2854
2854
      INTEGER nprocs
2855
2855
      INTEGER count
2867
2867
      INTEGER k_a
2868
2868
      INTEGER l_c
2869
2869
      INTEGER k_c
2870
 
      EXTERNAL NXTVAL
 
2870
      EXTERNAL NXTASK
2871
2871
      nprocs = GA_NNODES()
2872
2872
      count = 0
2873
 
      next = NXTVAL(nprocs)
 
2873
      next = NXTASK(nprocs,1)
2874
2874
      DO p10b = noab+1,noab+nvab
2875
2875
      DO p1b = noab+1,noab+nvab
2876
2876
      IF (next.eq.count) THEN
2909
2909
      END IF
2910
2910
      END IF
2911
2911
      END IF
2912
 
      next = NXTVAL(nprocs)
 
2912
      next = NXTASK(nprocs,1)
2913
2913
      END IF
2914
2914
      count = count + 1
2915
2915
      END DO
2916
2916
      END DO
2917
 
      next = NXTVAL(-nprocs)
 
2917
      next = NXTASK(-nprocs,1)
2918
2918
      call GA_SYNC()
2919
2919
      RETURN
2920
2920
      END
2921
2921
      SUBROUTINE OFFSET_ccsd_lambda2_6_1(l_a_offset,k_a_offset,size)
2922
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2922
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2923
2923
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2924
2924
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2925
2925
C     i1 ( p10 p1 )_f
2976
2976
      END
2977
2977
      SUBROUTINE ccsd_lambda2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2978
2978
     &offset)
2979
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
2979
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
2980
2980
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2981
2981
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2982
2982
C     i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v
2992
2992
      INTEGER k_b_offset
2993
2993
      INTEGER d_c
2994
2994
      INTEGER k_c_offset
2995
 
      INTEGER NXTVAL
 
2995
      INTEGER NXTASK
2996
2996
      INTEGER next
2997
2997
      INTEGER nprocs
2998
2998
      INTEGER count
3024
3024
      INTEGER k_b
3025
3025
      INTEGER l_c
3026
3026
      INTEGER k_c
3027
 
      EXTERNAL NXTVAL
 
3027
      EXTERNAL NXTASK
3028
3028
      nprocs = GA_NNODES()
3029
3029
      count = 0
3030
 
      next = NXTVAL(nprocs)
 
3030
      next = NXTASK(nprocs,1)
3031
3031
      DO p10b = noab+1,noab+nvab
3032
3032
      DO p1b = noab+1,noab+nvab
3033
3033
      IF (next.eq.count) THEN
3124
3124
      END IF
3125
3125
      END IF
3126
3126
      END IF
3127
 
      next = NXTVAL(nprocs)
 
3127
      next = NXTASK(nprocs,1)
3128
3128
      END IF
3129
3129
      count = count + 1
3130
3130
      END DO
3131
3131
      END DO
3132
 
      next = NXTVAL(-nprocs)
 
3132
      next = NXTASK(-nprocs,1)
3133
3133
      call GA_SYNC()
3134
3134
      RETURN
3135
3135
      END
3136
3136
      SUBROUTINE ccsd_lambda2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3137
3137
     &offset)
3138
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3138
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3139
3139
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3140
3140
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3141
3141
C     i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v
3151
3151
      INTEGER k_b_offset
3152
3152
      INTEGER d_c
3153
3153
      INTEGER k_c_offset
3154
 
      INTEGER NXTVAL
 
3154
      INTEGER NXTASK
3155
3155
      INTEGER next
3156
3156
      INTEGER nprocs
3157
3157
      INTEGER count
3189
3189
      INTEGER l_c
3190
3190
      INTEGER k_c
3191
3191
      DOUBLE PRECISION FACTORIAL
3192
 
      EXTERNAL NXTVAL
 
3192
      EXTERNAL NXTASK
3193
3193
      EXTERNAL FACTORIAL
3194
3194
      nprocs = GA_NNODES()
3195
3195
      count = 0
3196
 
      next = NXTVAL(nprocs)
 
3196
      next = NXTASK(nprocs,1)
3197
3197
      DO p10b = noab+1,noab+nvab
3198
3198
      DO p1b = noab+1,noab+nvab
3199
3199
      IF (next.eq.count) THEN
3314
3314
      END IF
3315
3315
      END IF
3316
3316
      END IF
3317
 
      next = NXTVAL(nprocs)
 
3317
      next = NXTASK(nprocs,1)
3318
3318
      END IF
3319
3319
      count = count + 1
3320
3320
      END DO
3321
3321
      END DO
3322
 
      next = NXTVAL(-nprocs)
 
3322
      next = NXTASK(-nprocs,1)
3323
3323
      call GA_SYNC()
3324
3324
      RETURN
3325
3325
      END
3326
3326
      SUBROUTINE ccsd_lambda2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3327
3327
     &offset)
3328
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3328
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3329
3329
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3330
3330
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3331
3331
C     i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt
3341
3341
      INTEGER k_b_offset
3342
3342
      INTEGER d_c
3343
3343
      INTEGER k_c_offset
3344
 
      INTEGER NXTVAL
 
3344
      INTEGER NXTASK
3345
3345
      INTEGER next
3346
3346
      INTEGER nprocs
3347
3347
      INTEGER count
3370
3370
      INTEGER k_b
3371
3371
      INTEGER l_c
3372
3372
      INTEGER k_c
3373
 
      EXTERNAL NXTVAL
 
3373
      EXTERNAL NXTASK
3374
3374
      nprocs = GA_NNODES()
3375
3375
      count = 0
3376
 
      next = NXTVAL(nprocs)
 
3376
      next = NXTASK(nprocs,1)
3377
3377
      DO p10b = noab+1,noab+nvab
3378
3378
      DO p1b = noab+1,noab+nvab
3379
3379
      IF (next.eq.count) THEN
3442
3442
      END IF
3443
3443
      END IF
3444
3444
      END IF
3445
 
      next = NXTVAL(nprocs)
 
3445
      next = NXTASK(nprocs,1)
3446
3446
      END IF
3447
3447
      count = count + 1
3448
3448
      END DO
3449
3449
      END DO
3450
 
      next = NXTVAL(-nprocs)
 
3450
      next = NXTASK(-nprocs,1)
3451
3451
      call GA_SYNC()
3452
3452
      RETURN
3453
3453
      END
3454
3454
      SUBROUTINE ccsd_lambda2_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3455
3455
     &c_offset)
3456
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3456
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3457
3457
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3458
3458
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3459
3459
C     i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v
3469
3469
      INTEGER k_b_offset
3470
3470
      INTEGER d_c
3471
3471
      INTEGER k_c_offset
3472
 
      INTEGER NXTVAL
 
3472
      INTEGER NXTASK
3473
3473
      INTEGER next
3474
3474
      INTEGER nprocs
3475
3475
      INTEGER count
3501
3501
      INTEGER k_b
3502
3502
      INTEGER l_c
3503
3503
      INTEGER k_c
3504
 
      EXTERNAL NXTVAL
 
3504
      EXTERNAL NXTASK
3505
3505
      nprocs = GA_NNODES()
3506
3506
      count = 0
3507
 
      next = NXTVAL(nprocs)
 
3507
      next = NXTASK(nprocs,1)
3508
3508
      DO h6b = 1,noab
3509
3509
      DO p1b = noab+1,noab+nvab
3510
3510
      IF (next.eq.count) THEN
3631
3631
      END IF
3632
3632
      END IF
3633
3633
      END IF
3634
 
      next = NXTVAL(nprocs)
 
3634
      next = NXTASK(nprocs,1)
3635
3635
      END IF
3636
3636
      count = count + 1
3637
3637
      END DO
3638
3638
      END DO
3639
 
      next = NXTVAL(-nprocs)
 
3639
      next = NXTASK(-nprocs,1)
3640
3640
      call GA_SYNC()
3641
3641
      RETURN
3642
3642
      END
3643
3643
      SUBROUTINE OFFSET_ccsd_lambda2_6_4_1(l_a_offset,k_a_offset,size)
3644
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3644
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3645
3645
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3646
3646
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3647
3647
C     i2 ( h6 p1 )_vt
3697
3697
      END
3698
3698
      SUBROUTINE ccsd_lambda2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
3699
3699
     &fset)
3700
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3700
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3701
3701
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3702
3702
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3703
3703
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v
3713
3713
      INTEGER k_b_offset
3714
3714
      INTEGER d_c
3715
3715
      INTEGER k_c_offset
3716
 
      INTEGER NXTVAL
 
3716
      INTEGER NXTASK
3717
3717
      INTEGER next
3718
3718
      INTEGER nprocs
3719
3719
      INTEGER count
3752
3752
      INTEGER l_c
3753
3753
      INTEGER k_c
3754
3754
      DOUBLE PRECISION FACTORIAL
3755
 
      EXTERNAL NXTVAL
 
3755
      EXTERNAL NXTASK
3756
3756
      EXTERNAL FACTORIAL
3757
3757
      nprocs = GA_NNODES()
3758
3758
      count = 0
3759
 
      next = NXTVAL(nprocs)
 
3759
      next = NXTASK(nprocs,1)
3760
3760
      DO h3b = 1,noab
3761
3761
      DO h4b = h3b,noab
3762
3762
      DO p1b = noab+1,noab+nvab
3847
3847
      END IF
3848
3848
      END IF
3849
3849
      END IF
3850
 
      next = NXTVAL(nprocs)
 
3850
      next = NXTASK(nprocs,1)
3851
3851
      END IF
3852
3852
      count = count + 1
3853
3853
      END DO
3854
3854
      END DO
3855
3855
      END DO
3856
3856
      END DO
3857
 
      next = NXTVAL(-nprocs)
 
3857
      next = NXTASK(-nprocs,1)
3858
3858
      call GA_SYNC()
3859
3859
      RETURN
3860
3860
      END
3861
3861
      SUBROUTINE ccsd_lambda2_7_1(d_a,k_a_offset,d_c,k_c_offset)
3862
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3862
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3863
3863
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3864
3864
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3865
3865
C     i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v
3873
3873
      INTEGER k_a_offset
3874
3874
      INTEGER d_c
3875
3875
      INTEGER k_c_offset
3876
 
      INTEGER NXTVAL
 
3876
      INTEGER NXTASK
3877
3877
      INTEGER next
3878
3878
      INTEGER nprocs
3879
3879
      INTEGER count
3895
3895
      INTEGER k_a
3896
3896
      INTEGER l_c
3897
3897
      INTEGER k_c
3898
 
      EXTERNAL NXTVAL
 
3898
      EXTERNAL NXTASK
3899
3899
      nprocs = GA_NNODES()
3900
3900
      count = 0
3901
 
      next = NXTVAL(nprocs)
 
3901
      next = NXTASK(nprocs,1)
3902
3902
      DO h3b = 1,noab
3903
3903
      DO h4b = h3b,noab
3904
3904
      DO h9b = 1,noab
3952
3952
      END IF
3953
3953
      END IF
3954
3954
      END IF
3955
 
      next = NXTVAL(nprocs)
 
3955
      next = NXTASK(nprocs,1)
3956
3956
      END IF
3957
3957
      count = count + 1
3958
3958
      END DO
3959
3959
      END DO
3960
3960
      END DO
3961
3961
      END DO
3962
 
      next = NXTVAL(-nprocs)
 
3962
      next = NXTASK(-nprocs,1)
3963
3963
      call GA_SYNC()
3964
3964
      RETURN
3965
3965
      END
3966
3966
      SUBROUTINE OFFSET_ccsd_lambda2_7_1(l_a_offset,k_a_offset,size)
3967
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
3967
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
3968
3968
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3969
3969
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3970
3970
C     i1 ( h3 h4 h9 h10 )_v
4034
4034
      END
4035
4035
      SUBROUTINE ccsd_lambda2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
4036
4036
     &offset)
4037
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4037
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4038
4038
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4039
4039
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4040
4040
C     i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v
4050
4050
      INTEGER k_b_offset
4051
4051
      INTEGER d_c
4052
4052
      INTEGER k_c_offset
4053
 
      INTEGER NXTVAL
 
4053
      INTEGER NXTASK
4054
4054
      INTEGER next
4055
4055
      INTEGER nprocs
4056
4056
      INTEGER count
4083
4083
      INTEGER k_b
4084
4084
      INTEGER l_c
4085
4085
      INTEGER k_c
4086
 
      EXTERNAL NXTVAL
 
4086
      EXTERNAL NXTASK
4087
4087
      nprocs = GA_NNODES()
4088
4088
      count = 0
4089
 
      next = NXTVAL(nprocs)
 
4089
      next = NXTASK(nprocs,1)
4090
4090
      DO h3b = 1,noab
4091
4091
      DO h4b = h3b,noab
4092
4092
      DO h9b = 1,noab
4175
4175
      END IF
4176
4176
      END IF
4177
4177
      END IF
4178
 
      next = NXTVAL(nprocs)
 
4178
      next = NXTASK(nprocs,1)
4179
4179
      END IF
4180
4180
      count = count + 1
4181
4181
      END DO
4182
4182
      END DO
4183
4183
      END DO
4184
4184
      END DO
4185
 
      next = NXTVAL(-nprocs)
 
4185
      next = NXTASK(-nprocs,1)
4186
4186
      call GA_SYNC()
4187
4187
      RETURN
4188
4188
      END
4189
4189
      SUBROUTINE ccsd_lambda2_7_2_1(d_a,k_a_offset,d_c,k_c_offset)
4190
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4190
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4191
4191
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4192
4192
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4193
4193
C     i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v
4201
4201
      INTEGER k_a_offset
4202
4202
      INTEGER d_c
4203
4203
      INTEGER k_c_offset
4204
 
      INTEGER NXTVAL
 
4204
      INTEGER NXTASK
4205
4205
      INTEGER next
4206
4206
      INTEGER nprocs
4207
4207
      INTEGER count
4223
4223
      INTEGER k_a
4224
4224
      INTEGER l_c
4225
4225
      INTEGER k_c
4226
 
      EXTERNAL NXTVAL
 
4226
      EXTERNAL NXTASK
4227
4227
      nprocs = GA_NNODES()
4228
4228
      count = 0
4229
 
      next = NXTVAL(nprocs)
 
4229
      next = NXTASK(nprocs,1)
4230
4230
      DO h3b = 1,noab
4231
4231
      DO h4b = h3b,noab
4232
4232
      DO h10b = 1,noab
4281
4281
      END IF
4282
4282
      END IF
4283
4283
      END IF
4284
 
      next = NXTVAL(nprocs)
 
4284
      next = NXTASK(nprocs,1)
4285
4285
      END IF
4286
4286
      count = count + 1
4287
4287
      END DO
4288
4288
      END DO
4289
4289
      END DO
4290
4290
      END DO
4291
 
      next = NXTVAL(-nprocs)
 
4291
      next = NXTASK(-nprocs,1)
4292
4292
      call GA_SYNC()
4293
4293
      RETURN
4294
4294
      END
4295
4295
      SUBROUTINE OFFSET_ccsd_lambda2_7_2_1(l_a_offset,k_a_offset,size)
4296
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4296
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4297
4297
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4298
4298
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4299
4299
C     i2 ( h3 h4 h10 p5 )_v
4363
4363
      END
4364
4364
      SUBROUTINE ccsd_lambda2_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
4365
4365
     &c_offset)
4366
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4366
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4367
4367
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4368
4368
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4369
4369
C     i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v
4379
4379
      INTEGER k_b_offset
4380
4380
      INTEGER d_c
4381
4381
      INTEGER k_c_offset
4382
 
      INTEGER NXTVAL
 
4382
      INTEGER NXTASK
4383
4383
      INTEGER next
4384
4384
      INTEGER nprocs
4385
4385
      INTEGER count
4412
4412
      INTEGER k_b
4413
4413
      INTEGER l_c
4414
4414
      INTEGER k_c
4415
 
      EXTERNAL NXTVAL
 
4415
      EXTERNAL NXTASK
4416
4416
      nprocs = GA_NNODES()
4417
4417
      count = 0
4418
 
      next = NXTVAL(nprocs)
 
4418
      next = NXTASK(nprocs,1)
4419
4419
      DO h3b = 1,noab
4420
4420
      DO h4b = h3b,noab
4421
4421
      DO h10b = 1,noab
4518
4518
      END IF
4519
4519
      END IF
4520
4520
      END IF
4521
 
      next = NXTVAL(nprocs)
 
4521
      next = NXTASK(nprocs,1)
4522
4522
      END IF
4523
4523
      count = count + 1
4524
4524
      END DO
4525
4525
      END DO
4526
4526
      END DO
4527
4527
      END DO
4528
 
      next = NXTVAL(-nprocs)
 
4528
      next = NXTASK(-nprocs,1)
4529
4529
      call GA_SYNC()
4530
4530
      RETURN
4531
4531
      END
4532
4532
      SUBROUTINE ccsd_lambda2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
4533
4533
     &offset)
4534
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4534
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4535
4535
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4536
4536
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4537
4537
C     i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v
4547
4547
      INTEGER k_b_offset
4548
4548
      INTEGER d_c
4549
4549
      INTEGER k_c_offset
4550
 
      INTEGER NXTVAL
 
4550
      INTEGER NXTASK
4551
4551
      INTEGER next
4552
4552
      INTEGER nprocs
4553
4553
      INTEGER count
4586
4586
      INTEGER l_c
4587
4587
      INTEGER k_c
4588
4588
      DOUBLE PRECISION FACTORIAL
4589
 
      EXTERNAL NXTVAL
 
4589
      EXTERNAL NXTASK
4590
4590
      EXTERNAL FACTORIAL
4591
4591
      nprocs = GA_NNODES()
4592
4592
      count = 0
4593
 
      next = NXTVAL(nprocs)
 
4593
      next = NXTASK(nprocs,1)
4594
4594
      DO h3b = 1,noab
4595
4595
      DO h4b = h3b,noab
4596
4596
      DO h9b = 1,noab
4687
4687
      END IF
4688
4688
      END IF
4689
4689
      END IF
4690
 
      next = NXTVAL(nprocs)
 
4690
      next = NXTASK(nprocs,1)
4691
4691
      END IF
4692
4692
      count = count + 1
4693
4693
      END DO
4694
4694
      END DO
4695
4695
      END DO
4696
4696
      END DO
4697
 
      next = NXTVAL(-nprocs)
 
4697
      next = NXTASK(-nprocs,1)
4698
4698
      call GA_SYNC()
4699
4699
      RETURN
4700
4700
      END
4701
4701
      SUBROUTINE ccsd_lambda2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
4702
4702
     &fset)
4703
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4703
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4704
4704
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4705
4705
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4706
4706
C     i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v
4716
4716
      INTEGER k_b_offset
4717
4717
      INTEGER d_c
4718
4718
      INTEGER k_c_offset
4719
 
      INTEGER NXTVAL
 
4719
      INTEGER NXTASK
4720
4720
      INTEGER next
4721
4721
      INTEGER nprocs
4722
4722
      INTEGER count
4752
4752
      INTEGER k_b
4753
4753
      INTEGER l_c
4754
4754
      INTEGER k_c
4755
 
      EXTERNAL NXTVAL
 
4755
      EXTERNAL NXTASK
4756
4756
      nprocs = GA_NNODES()
4757
4757
      count = 0
4758
 
      next = NXTVAL(nprocs)
 
4758
      next = NXTASK(nprocs,1)
4759
4759
      DO h3b = 1,noab
4760
4760
      DO h4b = 1,noab
4761
4761
      DO p1b = noab+1,noab+nvab
4890
4890
      END IF
4891
4891
      END IF
4892
4892
      END IF
4893
 
      next = NXTVAL(nprocs)
 
4893
      next = NXTASK(nprocs,1)
4894
4894
      END IF
4895
4895
      count = count + 1
4896
4896
      END DO
4897
4897
      END DO
4898
4898
      END DO
4899
4899
      END DO
4900
 
      next = NXTVAL(-nprocs)
 
4900
      next = NXTASK(-nprocs,1)
4901
4901
      call GA_SYNC()
4902
4902
      RETURN
4903
4903
      END
4904
4904
      SUBROUTINE ccsd_lambda2_8_1(d_a,k_a_offset,d_c,k_c_offset)
4905
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
4905
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
4906
4906
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4907
4907
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4908
4908
C     i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v
4916
4916
      INTEGER k_a_offset
4917
4917
      INTEGER d_c
4918
4918
      INTEGER k_c_offset
4919
 
      INTEGER NXTVAL
 
4919
      INTEGER NXTASK
4920
4920
      INTEGER next
4921
4921
      INTEGER nprocs
4922
4922
      INTEGER count
4938
4938
      INTEGER k_a
4939
4939
      INTEGER l_c
4940
4940
      INTEGER k_c
4941
 
      EXTERNAL NXTVAL
 
4941
      EXTERNAL NXTASK
4942
4942
      nprocs = GA_NNODES()
4943
4943
      count = 0
4944
 
      next = NXTVAL(nprocs)
 
4944
      next = NXTASK(nprocs,1)
4945
4945
      DO h3b = 1,noab
4946
4946
      DO p7b = noab+1,noab+nvab
4947
4947
      DO p1b = noab+1,noab+nvab
4998
4998
      END IF
4999
4999
      END IF
5000
5000
      END IF
5001
 
      next = NXTVAL(nprocs)
 
5001
      next = NXTASK(nprocs,1)
5002
5002
      END IF
5003
5003
      count = count + 1
5004
5004
      END DO
5005
5005
      END DO
5006
5006
      END DO
5007
5007
      END DO
5008
 
      next = NXTVAL(-nprocs)
 
5008
      next = NXTASK(-nprocs,1)
5009
5009
      call GA_SYNC()
5010
5010
      RETURN
5011
5011
      END
5012
5012
      SUBROUTINE OFFSET_ccsd_lambda2_8_1(l_a_offset,k_a_offset,size)
5013
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5013
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5014
5014
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5015
5015
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5016
5016
C     i1 ( h3 p7 h9 p1 )_v
5080
5080
      END
5081
5081
      SUBROUTINE ccsd_lambda2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
5082
5082
     &offset)
5083
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5083
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5084
5084
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5085
5085
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5086
5086
C     i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v
5096
5096
      INTEGER k_b_offset
5097
5097
      INTEGER d_c
5098
5098
      INTEGER k_c_offset
5099
 
      INTEGER NXTVAL
 
5099
      INTEGER NXTASK
5100
5100
      INTEGER next
5101
5101
      INTEGER nprocs
5102
5102
      INTEGER count
5129
5129
      INTEGER k_b
5130
5130
      INTEGER l_c
5131
5131
      INTEGER k_c
5132
 
      EXTERNAL NXTVAL
 
5132
      EXTERNAL NXTASK
5133
5133
      nprocs = GA_NNODES()
5134
5134
      count = 0
5135
 
      next = NXTVAL(nprocs)
 
5135
      next = NXTASK(nprocs,1)
5136
5136
      DO h3b = 1,noab
5137
5137
      DO p7b = noab+1,noab+nvab
5138
5138
      DO p1b = noab+1,noab+nvab
5235
5235
      END IF
5236
5236
      END IF
5237
5237
      END IF
5238
 
      next = NXTVAL(nprocs)
 
5238
      next = NXTASK(nprocs,1)
5239
5239
      END IF
5240
5240
      count = count + 1
5241
5241
      END DO
5242
5242
      END DO
5243
5243
      END DO
5244
5244
      END DO
5245
 
      next = NXTVAL(-nprocs)
 
5245
      next = NXTASK(-nprocs,1)
5246
5246
      call GA_SYNC()
5247
5247
      RETURN
5248
5248
      END
5249
5249
      SUBROUTINE ccsd_lambda2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
5250
5250
     &offset)
5251
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5251
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5252
5252
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5253
5253
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5254
5254
C     i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v
5264
5264
      INTEGER k_b_offset
5265
5265
      INTEGER d_c
5266
5266
      INTEGER k_c_offset
5267
 
      INTEGER NXTVAL
 
5267
      INTEGER NXTASK
5268
5268
      INTEGER next
5269
5269
      INTEGER nprocs
5270
5270
      INTEGER count
5300
5300
      INTEGER k_b
5301
5301
      INTEGER l_c
5302
5302
      INTEGER k_c
5303
 
      EXTERNAL NXTVAL
 
5303
      EXTERNAL NXTASK
5304
5304
      nprocs = GA_NNODES()
5305
5305
      count = 0
5306
 
      next = NXTVAL(nprocs)
 
5306
      next = NXTASK(nprocs,1)
5307
5307
      DO h3b = 1,noab
5308
5308
      DO p7b = noab+1,noab+nvab
5309
5309
      DO p1b = noab+1,noab+nvab
5466
5466
      END IF
5467
5467
      END IF
5468
5468
      END IF
5469
 
      next = NXTVAL(nprocs)
 
5469
      next = NXTASK(nprocs,1)
5470
5470
      END IF
5471
5471
      count = count + 1
5472
5472
      END DO
5473
5473
      END DO
5474
5474
      END DO
5475
5475
      END DO
5476
 
      next = NXTVAL(-nprocs)
 
5476
      next = NXTASK(-nprocs,1)
5477
5477
      call GA_SYNC()
5478
5478
      RETURN
5479
5479
      END
5480
5480
      SUBROUTINE ccsd_lambda2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
5481
5481
     &fset)
5482
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5482
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5483
5483
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5484
5484
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5485
5485
C     i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v
5495
5495
      INTEGER k_b_offset
5496
5496
      INTEGER d_c
5497
5497
      INTEGER k_c_offset
5498
 
      INTEGER NXTVAL
 
5498
      INTEGER NXTASK
5499
5499
      INTEGER next
5500
5500
      INTEGER nprocs
5501
5501
      INTEGER count
5534
5534
      INTEGER l_c
5535
5535
      INTEGER k_c
5536
5536
      DOUBLE PRECISION FACTORIAL
5537
 
      EXTERNAL NXTVAL
 
5537
      EXTERNAL NXTASK
5538
5538
      EXTERNAL FACTORIAL
5539
5539
      nprocs = GA_NNODES()
5540
5540
      count = 0
5541
 
      next = NXTVAL(nprocs)
 
5541
      next = NXTASK(nprocs,1)
5542
5542
      DO h3b = 1,noab
5543
5543
      DO h4b = h3b,noab
5544
5544
      DO p1b = noab+1,noab+nvab
5636
5636
      END IF
5637
5637
      END IF
5638
5638
      END IF
5639
 
      next = NXTVAL(nprocs)
 
5639
      next = NXTASK(nprocs,1)
5640
5640
      END IF
5641
5641
      count = count + 1
5642
5642
      END DO
5643
5643
      END DO
5644
5644
      END DO
5645
5645
      END DO
5646
 
      next = NXTVAL(-nprocs)
 
5646
      next = NXTASK(-nprocs,1)
5647
5647
      call GA_SYNC()
5648
5648
      RETURN
5649
5649
      END
5650
5650
      SUBROUTINE ccsd_lambda2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
5651
5651
     &ffset)
5652
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5652
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5653
5653
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5654
5654
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5655
5655
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( h4 h9 p1 p2 )_v
5665
5665
      INTEGER k_b_offset
5666
5666
      INTEGER d_c
5667
5667
      INTEGER k_c_offset
5668
 
      INTEGER NXTVAL
 
5668
      INTEGER NXTASK
5669
5669
      INTEGER next
5670
5670
      INTEGER nprocs
5671
5671
      INTEGER count
5698
5698
      INTEGER k_b
5699
5699
      INTEGER l_c
5700
5700
      INTEGER k_c
5701
 
      EXTERNAL NXTVAL
 
5701
      EXTERNAL NXTASK
5702
5702
      nprocs = GA_NNODES()
5703
5703
      count = 0
5704
 
      next = NXTVAL(nprocs)
 
5704
      next = NXTASK(nprocs,1)
5705
5705
      DO h3b = 1,noab
5706
5706
      DO h4b = 1,noab
5707
5707
      DO p1b = noab+1,noab+nvab
5814
5814
      END IF
5815
5815
      END IF
5816
5816
      END IF
5817
 
      next = NXTVAL(nprocs)
 
5817
      next = NXTASK(nprocs,1)
5818
5818
      END IF
5819
5819
      count = count + 1
5820
5820
      END DO
5821
5821
      END DO
5822
5822
      END DO
5823
5823
      END DO
5824
 
      next = NXTVAL(-nprocs)
 
5824
      next = NXTASK(-nprocs,1)
5825
5825
      call GA_SYNC()
5826
5826
      RETURN
5827
5827
      END
5828
5828
      SUBROUTINE ccsd_lambda2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
5829
5829
     &_offset)
5830
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5830
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5831
5831
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5832
5832
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5833
5833
C     i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y
5843
5843
      INTEGER k_b_offset
5844
5844
      INTEGER d_c
5845
5845
      INTEGER k_c_offset
5846
 
      INTEGER NXTVAL
 
5846
      INTEGER NXTASK
5847
5847
      INTEGER next
5848
5848
      INTEGER nprocs
5849
5849
      INTEGER count
5872
5872
      INTEGER k_b
5873
5873
      INTEGER l_c
5874
5874
      INTEGER k_c
5875
 
      EXTERNAL NXTVAL
 
5875
      EXTERNAL NXTASK
5876
5876
      nprocs = GA_NNODES()
5877
5877
      count = 0
5878
 
      next = NXTVAL(nprocs)
 
5878
      next = NXTASK(nprocs,1)
5879
5879
      DO h3b = 1,noab
5880
5880
      DO h9b = 1,noab
5881
5881
      IF (next.eq.count) THEN
5944
5944
      END IF
5945
5945
      END IF
5946
5946
      END IF
5947
 
      next = NXTVAL(nprocs)
 
5947
      next = NXTASK(nprocs,1)
5948
5948
      END IF
5949
5949
      count = count + 1
5950
5950
      END DO
5951
5951
      END DO
5952
 
      next = NXTVAL(-nprocs)
 
5952
      next = NXTASK(-nprocs,1)
5953
5953
      call GA_SYNC()
5954
5954
      RETURN
5955
5955
      END
5956
5956
      SUBROUTINE OFFSET_ccsd_lambda2_10_1(l_a_offset,k_a_offset,size)
5957
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
5957
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
5958
5958
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5959
5959
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5960
5960
C     i1 ( h3 h9 )_yt
6010
6010
      END
6011
6011
      SUBROUTINE ccsd_lambda2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
6012
6012
     &_offset)
6013
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6013
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6014
6014
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6015
6015
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6016
6016
C     i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * y ( h3 h7 p5 p6 )_y
6026
6026
      INTEGER k_b_offset
6027
6027
      INTEGER d_c
6028
6028
      INTEGER k_c_offset
6029
 
      INTEGER NXTVAL
 
6029
      INTEGER NXTASK
6030
6030
      INTEGER next
6031
6031
      INTEGER nprocs
6032
6032
      INTEGER count
6064
6064
      INTEGER l_c
6065
6065
      INTEGER k_c
6066
6066
      DOUBLE PRECISION FACTORIAL
6067
 
      EXTERNAL NXTVAL
 
6067
      EXTERNAL NXTASK
6068
6068
      EXTERNAL FACTORIAL
6069
6069
      nprocs = GA_NNODES()
6070
6070
      count = 0
6071
 
      next = NXTVAL(nprocs)
 
6071
      next = NXTASK(nprocs,1)
6072
6072
      DO h3b = 1,noab
6073
6073
      DO h9b = 1,noab
6074
6074
      IF (next.eq.count) THEN
6175
6175
      END IF
6176
6176
      END IF
6177
6177
      END IF
6178
 
      next = NXTVAL(nprocs)
 
6178
      next = NXTASK(nprocs,1)
6179
6179
      END IF
6180
6180
      count = count + 1
6181
6181
      END DO
6182
6182
      END DO
6183
 
      next = NXTVAL(-nprocs)
 
6183
      next = NXTASK(-nprocs,1)
6184
6184
      call GA_SYNC()
6185
6185
      RETURN
6186
6186
      END
6187
6187
      SUBROUTINE ccsd_lambda2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
6188
6188
     &ffset)
6189
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6189
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6190
6190
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6191
6191
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6192
6192
C     i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f
6202
6202
      INTEGER k_b_offset
6203
6203
      INTEGER d_c
6204
6204
      INTEGER k_c_offset
6205
 
      INTEGER NXTVAL
 
6205
      INTEGER NXTASK
6206
6206
      INTEGER next
6207
6207
      INTEGER nprocs
6208
6208
      INTEGER count
6235
6235
      INTEGER k_b
6236
6236
      INTEGER l_c
6237
6237
      INTEGER k_c
6238
 
      EXTERNAL NXTVAL
 
6238
      EXTERNAL NXTASK
6239
6239
      nprocs = GA_NNODES()
6240
6240
      count = 0
6241
 
      next = NXTVAL(nprocs)
 
6241
      next = NXTASK(nprocs,1)
6242
6242
      DO h3b = 1,noab
6243
6243
      DO h4b = h3b,noab
6244
6244
      DO p1b = noab+1,noab+nvab
6329
6329
      END IF
6330
6330
      END IF
6331
6331
      END IF
6332
 
      next = NXTVAL(nprocs)
 
6332
      next = NXTASK(nprocs,1)
6333
6333
      END IF
6334
6334
      count = count + 1
6335
6335
      END DO
6336
6336
      END DO
6337
6337
      END DO
6338
6338
      END DO
6339
 
      next = NXTVAL(-nprocs)
 
6339
      next = NXTASK(-nprocs,1)
6340
6340
      call GA_SYNC()
6341
6341
      RETURN
6342
6342
      END
6343
6343
      SUBROUTINE ccsd_lambda2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
6344
6344
     &_offset)
6345
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6345
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6346
6346
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6347
6347
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6348
6348
C     i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y
6358
6358
      INTEGER k_b_offset
6359
6359
      INTEGER d_c
6360
6360
      INTEGER k_c_offset
6361
 
      INTEGER NXTVAL
 
6361
      INTEGER NXTASK
6362
6362
      INTEGER next
6363
6363
      INTEGER nprocs
6364
6364
      INTEGER count
6391
6391
      INTEGER k_b
6392
6392
      INTEGER l_c
6393
6393
      INTEGER k_c
6394
 
      EXTERNAL NXTVAL
 
6394
      EXTERNAL NXTASK
6395
6395
      nprocs = GA_NNODES()
6396
6396
      count = 0
6397
 
      next = NXTVAL(nprocs)
 
6397
      next = NXTASK(nprocs,1)
6398
6398
      DO h3b = 1,noab
6399
6399
      DO h4b = h3b,noab
6400
6400
      DO p1b = noab+1,noab+nvab
6483
6483
      END IF
6484
6484
      END IF
6485
6485
      END IF
6486
 
      next = NXTVAL(nprocs)
 
6486
      next = NXTASK(nprocs,1)
6487
6487
      END IF
6488
6488
      count = count + 1
6489
6489
      END DO
6490
6490
      END DO
6491
6491
      END DO
6492
6492
      END DO
6493
 
      next = NXTVAL(-nprocs)
 
6493
      next = NXTASK(-nprocs,1)
6494
6494
      call GA_SYNC()
6495
6495
      RETURN
6496
6496
      END
6497
6497
      SUBROUTINE OFFSET_ccsd_lambda2_11_1(l_a_offset,k_a_offset,size)
6498
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6498
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6499
6499
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6500
6500
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6501
6501
C     i1 ( h3 h4 h5 p1 )_yt
6567
6567
      END
6568
6568
      SUBROUTINE ccsd_lambda2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
6569
6569
     &ffset)
6570
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6570
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6571
6571
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6572
6572
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6573
6573
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 )_yt * v ( h4 h6 h7 p2 )_v
6583
6583
      INTEGER k_b_offset
6584
6584
      INTEGER d_c
6585
6585
      INTEGER k_c_offset
6586
 
      INTEGER NXTVAL
 
6586
      INTEGER NXTASK
6587
6587
      INTEGER next
6588
6588
      INTEGER nprocs
6589
6589
      INTEGER count
6619
6619
      INTEGER k_b
6620
6620
      INTEGER l_c
6621
6621
      INTEGER k_c
6622
 
      EXTERNAL NXTVAL
 
6622
      EXTERNAL NXTASK
6623
6623
      nprocs = GA_NNODES()
6624
6624
      count = 0
6625
 
      next = NXTVAL(nprocs)
 
6625
      next = NXTASK(nprocs,1)
6626
6626
      DO h3b = 1,noab
6627
6627
      DO h4b = 1,noab
6628
6628
      DO p1b = noab+1,noab+nvab
6756
6756
      END IF
6757
6757
      END IF
6758
6758
      END IF
6759
 
      next = NXTVAL(nprocs)
 
6759
      next = NXTASK(nprocs,1)
6760
6760
      END IF
6761
6761
      count = count + 1
6762
6762
      END DO
6763
6763
      END DO
6764
6764
      END DO
6765
6765
      END DO
6766
 
      next = NXTVAL(-nprocs)
 
6766
      next = NXTASK(-nprocs,1)
6767
6767
      call GA_SYNC()
6768
6768
      RETURN
6769
6769
      END
6770
6770
      SUBROUTINE ccsd_lambda2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
6771
6771
     &_offset)
6772
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6772
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6773
6773
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6774
6774
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6775
6775
C     i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 )_y
6785
6785
      INTEGER k_b_offset
6786
6786
      INTEGER d_c
6787
6787
      INTEGER k_c_offset
6788
 
      INTEGER NXTVAL
 
6788
      INTEGER NXTASK
6789
6789
      INTEGER next
6790
6790
      INTEGER nprocs
6791
6791
      INTEGER count
6818
6818
      INTEGER k_b
6819
6819
      INTEGER l_c
6820
6820
      INTEGER k_c
6821
 
      EXTERNAL NXTVAL
 
6821
      EXTERNAL NXTASK
6822
6822
      nprocs = GA_NNODES()
6823
6823
      count = 0
6824
 
      next = NXTVAL(nprocs)
 
6824
      next = NXTASK(nprocs,1)
6825
6825
      DO h3b = 1,noab
6826
6826
      DO h7b = 1,noab
6827
6827
      DO p1b = noab+1,noab+nvab
6926
6926
      END IF
6927
6927
      END IF
6928
6928
      END IF
6929
 
      next = NXTVAL(nprocs)
 
6929
      next = NXTASK(nprocs,1)
6930
6930
      END IF
6931
6931
      count = count + 1
6932
6932
      END DO
6933
6933
      END DO
6934
6934
      END DO
6935
6935
      END DO
6936
 
      next = NXTVAL(-nprocs)
 
6936
      next = NXTASK(-nprocs,1)
6937
6937
      call GA_SYNC()
6938
6938
      RETURN
6939
6939
      END
6940
6940
      SUBROUTINE OFFSET_ccsd_lambda2_12_1(l_a_offset,k_a_offset,size)
6941
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
6941
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
6942
6942
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6943
6943
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6944
6944
C     i1 ( h3 h7 h6 p1 )_yt
7010
7010
      END
7011
7011
      SUBROUTINE ccsd_lambda2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7012
7012
     &ffset)
7013
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7013
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7014
7014
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7015
7015
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7016
7016
C     i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( h6 p7 p1 p2 )_v
7026
7026
      INTEGER k_b_offset
7027
7027
      INTEGER d_c
7028
7028
      INTEGER k_c_offset
7029
 
      INTEGER NXTVAL
 
7029
      INTEGER NXTASK
7030
7030
      INTEGER next
7031
7031
      INTEGER nprocs
7032
7032
      INTEGER count
7062
7062
      INTEGER k_b
7063
7063
      INTEGER l_c
7064
7064
      INTEGER k_c
7065
 
      EXTERNAL NXTVAL
 
7065
      EXTERNAL NXTASK
7066
7066
      nprocs = GA_NNODES()
7067
7067
      count = 0
7068
 
      next = NXTVAL(nprocs)
 
7068
      next = NXTASK(nprocs,1)
7069
7069
      DO h3b = 1,noab
7070
7070
      DO h4b = h3b,noab
7071
7071
      DO p1b = noab+1,noab+nvab
7156
7156
      END IF
7157
7157
      END IF
7158
7158
      END IF
7159
 
      next = NXTVAL(nprocs)
 
7159
      next = NXTASK(nprocs,1)
7160
7160
      END IF
7161
7161
      count = count + 1
7162
7162
      END DO
7163
7163
      END DO
7164
7164
      END DO
7165
7165
      END DO
7166
 
      next = NXTVAL(-nprocs)
 
7166
      next = NXTASK(-nprocs,1)
7167
7167
      call GA_SYNC()
7168
7168
      RETURN
7169
7169
      END
7170
7170
      SUBROUTINE ccsd_lambda2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
7171
7171
     &_offset)
7172
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7172
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7173
7173
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7174
7174
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7175
7175
C     i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p7 )_y
7185
7185
      INTEGER k_b_offset
7186
7186
      INTEGER d_c
7187
7187
      INTEGER k_c_offset
7188
 
      INTEGER NXTVAL
 
7188
      INTEGER NXTASK
7189
7189
      INTEGER next
7190
7190
      INTEGER nprocs
7191
7191
      INTEGER count
7218
7218
      INTEGER k_b
7219
7219
      INTEGER l_c
7220
7220
      INTEGER k_c
7221
 
      EXTERNAL NXTVAL
 
7221
      EXTERNAL NXTASK
7222
7222
      nprocs = GA_NNODES()
7223
7223
      count = 0
7224
 
      next = NXTVAL(nprocs)
 
7224
      next = NXTASK(nprocs,1)
7225
7225
      DO h3b = 1,noab
7226
7226
      DO h4b = h3b,noab
7227
7227
      DO h6b = 1,noab
7310
7310
      END IF
7311
7311
      END IF
7312
7312
      END IF
7313
 
      next = NXTVAL(nprocs)
 
7313
      next = NXTASK(nprocs,1)
7314
7314
      END IF
7315
7315
      count = count + 1
7316
7316
      END DO
7317
7317
      END DO
7318
7318
      END DO
7319
7319
      END DO
7320
 
      next = NXTVAL(-nprocs)
 
7320
      next = NXTASK(-nprocs,1)
7321
7321
      call GA_SYNC()
7322
7322
      RETURN
7323
7323
      END
7324
7324
      SUBROUTINE OFFSET_ccsd_lambda2_13_1(l_a_offset,k_a_offset,size)
7325
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7325
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7326
7326
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7327
7327
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7328
7328
C     i1 ( h3 h4 h6 p7 )_yt
7394
7394
      END
7395
7395
      SUBROUTINE ccsd_lambda2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7396
7396
     &ffset)
7397
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7397
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7398
7398
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7399
7399
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7400
7400
C     i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v ( h3 h4 p2 p6 )_v
7410
7410
      INTEGER k_b_offset
7411
7411
      INTEGER d_c
7412
7412
      INTEGER k_c_offset
7413
 
      INTEGER NXTVAL
 
7413
      INTEGER NXTASK
7414
7414
      INTEGER next
7415
7415
      INTEGER nprocs
7416
7416
      INTEGER count
7443
7443
      INTEGER k_b
7444
7444
      INTEGER l_c
7445
7445
      INTEGER k_c
7446
 
      EXTERNAL NXTVAL
 
7446
      EXTERNAL NXTASK
7447
7447
      nprocs = GA_NNODES()
7448
7448
      count = 0
7449
 
      next = NXTVAL(nprocs)
 
7449
      next = NXTASK(nprocs,1)
7450
7450
      DO h3b = 1,noab
7451
7451
      DO h4b = h3b,noab
7452
7452
      DO p1b = noab+1,noab+nvab
7559
7559
      END IF
7560
7560
      END IF
7561
7561
      END IF
7562
 
      next = NXTVAL(nprocs)
 
7562
      next = NXTASK(nprocs,1)
7563
7563
      END IF
7564
7564
      count = count + 1
7565
7565
      END DO
7566
7566
      END DO
7567
7567
      END DO
7568
7568
      END DO
7569
 
      next = NXTVAL(-nprocs)
 
7569
      next = NXTASK(-nprocs,1)
7570
7570
      call GA_SYNC()
7571
7571
      RETURN
7572
7572
      END
7573
7573
      SUBROUTINE ccsd_lambda2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
7574
7574
     &_offset)
7575
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7575
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7576
7576
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7577
7577
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7578
7578
C     i1 ( p6 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p1 p5 )_y
7588
7588
      INTEGER k_b_offset
7589
7589
      INTEGER d_c
7590
7590
      INTEGER k_c_offset
7591
 
      INTEGER NXTVAL
 
7591
      INTEGER NXTASK
7592
7592
      INTEGER next
7593
7593
      INTEGER nprocs
7594
7594
      INTEGER count
7626
7626
      INTEGER l_c
7627
7627
      INTEGER k_c
7628
7628
      DOUBLE PRECISION FACTORIAL
7629
 
      EXTERNAL NXTVAL
 
7629
      EXTERNAL NXTASK
7630
7630
      EXTERNAL FACTORIAL
7631
7631
      nprocs = GA_NNODES()
7632
7632
      count = 0
7633
 
      next = NXTVAL(nprocs)
 
7633
      next = NXTASK(nprocs,1)
7634
7634
      DO p6b = noab+1,noab+nvab
7635
7635
      DO p1b = noab+1,noab+nvab
7636
7636
      IF (next.eq.count) THEN
7737
7737
      END IF
7738
7738
      END IF
7739
7739
      END IF
7740
 
      next = NXTVAL(nprocs)
 
7740
      next = NXTASK(nprocs,1)
7741
7741
      END IF
7742
7742
      count = count + 1
7743
7743
      END DO
7744
7744
      END DO
7745
 
      next = NXTVAL(-nprocs)
 
7745
      next = NXTASK(-nprocs,1)
7746
7746
      call GA_SYNC()
7747
7747
      RETURN
7748
7748
      END
7749
7749
      SUBROUTINE OFFSET_ccsd_lambda2_14_1(l_a_offset,k_a_offset,size)
7750
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7750
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7751
7751
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7752
7752
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7753
7753
C     i1 ( p6 p1 )_yt
7803
7803
      END
7804
7804
      SUBROUTINE ccsd_lambda2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7805
7805
     &ffset)
7806
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7806
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7807
7807
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7808
7808
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7809
7809
C     i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v ( h8 h9 p1 p2 )_v
7819
7819
      INTEGER k_b_offset
7820
7820
      INTEGER d_c
7821
7821
      INTEGER k_c_offset
7822
 
      INTEGER NXTVAL
 
7822
      INTEGER NXTASK
7823
7823
      INTEGER next
7824
7824
      INTEGER nprocs
7825
7825
      INTEGER count
7858
7858
      INTEGER l_c
7859
7859
      INTEGER k_c
7860
7860
      DOUBLE PRECISION FACTORIAL
7861
 
      EXTERNAL NXTVAL
 
7861
      EXTERNAL NXTASK
7862
7862
      EXTERNAL FACTORIAL
7863
7863
      nprocs = GA_NNODES()
7864
7864
      count = 0
7865
 
      next = NXTVAL(nprocs)
 
7865
      next = NXTASK(nprocs,1)
7866
7866
      DO h3b = 1,noab
7867
7867
      DO h4b = h3b,noab
7868
7868
      DO p1b = noab+1,noab+nvab
7961
7961
      END IF
7962
7962
      END IF
7963
7963
      END IF
7964
 
      next = NXTVAL(nprocs)
 
7964
      next = NXTASK(nprocs,1)
7965
7965
      END IF
7966
7966
      count = count + 1
7967
7967
      END DO
7968
7968
      END DO
7969
7969
      END DO
7970
7970
      END DO
7971
 
      next = NXTVAL(-nprocs)
 
7971
      next = NXTASK(-nprocs,1)
7972
7972
      call GA_SYNC()
7973
7973
      RETURN
7974
7974
      END
7975
7975
      SUBROUTINE ccsd_lambda2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
7976
7976
     &_offset)
7977
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
7977
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
7978
7978
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7979
7979
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7980
7980
C     i1 ( h3 h4 h8 h9 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h8 h9 )_t * y ( h3 h4 p5 p6 )_y
7990
7990
      INTEGER k_b_offset
7991
7991
      INTEGER d_c
7992
7992
      INTEGER k_c_offset
7993
 
      INTEGER NXTVAL
 
7993
      INTEGER NXTASK
7994
7994
      INTEGER next
7995
7995
      INTEGER nprocs
7996
7996
      INTEGER count
8029
8029
      INTEGER l_c
8030
8030
      INTEGER k_c
8031
8031
      DOUBLE PRECISION FACTORIAL
8032
 
      EXTERNAL NXTVAL
 
8032
      EXTERNAL NXTASK
8033
8033
      EXTERNAL FACTORIAL
8034
8034
      nprocs = GA_NNODES()
8035
8035
      count = 0
8036
 
      next = NXTVAL(nprocs)
 
8036
      next = NXTASK(nprocs,1)
8037
8037
      DO h3b = 1,noab
8038
8038
      DO h4b = h3b,noab
8039
8039
      DO h8b = 1,noab
8123
8123
      END IF
8124
8124
      END IF
8125
8125
      END IF
8126
 
      next = NXTVAL(nprocs)
 
8126
      next = NXTASK(nprocs,1)
8127
8127
      END IF
8128
8128
      count = count + 1
8129
8129
      END DO
8130
8130
      END DO
8131
8131
      END DO
8132
8132
      END DO
8133
 
      next = NXTVAL(-nprocs)
 
8133
      next = NXTASK(-nprocs,1)
8134
8134
      call GA_SYNC()
8135
8135
      RETURN
8136
8136
      END
8137
8137
      SUBROUTINE OFFSET_ccsd_lambda2_15_1(l_a_offset,k_a_offset,size)
8138
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8138
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8139
8139
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8140
8140
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8141
8141
C     i1 ( h3 h4 h8 h9 )_yt
8207
8207
      END
8208
8208
      SUBROUTINE ccsd_lambda2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
8209
8209
     &_offset)
8210
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8210
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8211
8211
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8212
8212
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8213
8213
C     i1 ( h3 h4 h8 h9 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 p5 )_yt
8223
8223
      INTEGER k_b_offset
8224
8224
      INTEGER d_c
8225
8225
      INTEGER k_c_offset
8226
 
      INTEGER NXTVAL
 
8226
      INTEGER NXTASK
8227
8227
      INTEGER next
8228
8228
      INTEGER nprocs
8229
8229
      INTEGER count
8256
8256
      INTEGER k_b
8257
8257
      INTEGER l_c
8258
8258
      INTEGER k_c
8259
 
      EXTERNAL NXTVAL
 
8259
      EXTERNAL NXTASK
8260
8260
      nprocs = GA_NNODES()
8261
8261
      count = 0
8262
 
      next = NXTVAL(nprocs)
 
8262
      next = NXTASK(nprocs,1)
8263
8263
      DO h3b = 1,noab
8264
8264
      DO h4b = h3b,noab
8265
8265
      DO h9b = 1,noab
8348
8348
      END IF
8349
8349
      END IF
8350
8350
      END IF
8351
 
      next = NXTVAL(nprocs)
 
8351
      next = NXTASK(nprocs,1)
8352
8352
      END IF
8353
8353
      count = count + 1
8354
8354
      END DO
8355
8355
      END DO
8356
8356
      END DO
8357
8357
      END DO
8358
 
      next = NXTVAL(-nprocs)
 
8358
      next = NXTASK(-nprocs,1)
8359
8359
      call GA_SYNC()
8360
8360
      RETURN
8361
8361
      END
8362
8362
      SUBROUTINE ccsd_lambda2_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
8363
8363
     &_c_offset)
8364
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8364
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8365
8365
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8366
8366
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8367
8367
C     i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p7 )_y
8377
8377
      INTEGER k_b_offset
8378
8378
      INTEGER d_c
8379
8379
      INTEGER k_c_offset
8380
 
      INTEGER NXTVAL
 
8380
      INTEGER NXTASK
8381
8381
      INTEGER next
8382
8382
      INTEGER nprocs
8383
8383
      INTEGER count
8410
8410
      INTEGER k_b
8411
8411
      INTEGER l_c
8412
8412
      INTEGER k_c
8413
 
      EXTERNAL NXTVAL
 
8413
      EXTERNAL NXTASK
8414
8414
      nprocs = GA_NNODES()
8415
8415
      count = 0
8416
 
      next = NXTVAL(nprocs)
 
8416
      next = NXTASK(nprocs,1)
8417
8417
      DO h3b = 1,noab
8418
8418
      DO h4b = h3b,noab
8419
8419
      DO h8b = 1,noab
8502
8502
      END IF
8503
8503
      END IF
8504
8504
      END IF
8505
 
      next = NXTVAL(nprocs)
 
8505
      next = NXTASK(nprocs,1)
8506
8506
      END IF
8507
8507
      count = count + 1
8508
8508
      END DO
8509
8509
      END DO
8510
8510
      END DO
8511
8511
      END DO
8512
 
      next = NXTVAL(-nprocs)
 
8512
      next = NXTASK(-nprocs,1)
8513
8513
      call GA_SYNC()
8514
8514
      RETURN
8515
8515
      END
8516
8516
      SUBROUTINE OFFSET_ccsd_lambda2_15_2_1(l_a_offset,k_a_offset,size)
8517
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8517
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8518
8518
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8519
8519
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8520
8520
C     i2 ( h3 h4 h8 p5 )_yt
8586
8586
      END
8587
8587
      SUBROUTINE ccsd_lambda2_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
8588
8588
     &ffset)
8589
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8589
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8590
8590
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8591
8591
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8592
8592
C     i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 )_ytt * v ( h4 h8 p2 p5 )_v
8602
8602
      INTEGER k_b_offset
8603
8603
      INTEGER d_c
8604
8604
      INTEGER k_c_offset
8605
 
      INTEGER NXTVAL
 
8605
      INTEGER NXTASK
8606
8606
      INTEGER next
8607
8607
      INTEGER nprocs
8608
8608
      INTEGER count
8638
8638
      INTEGER k_b
8639
8639
      INTEGER l_c
8640
8640
      INTEGER k_c
8641
 
      EXTERNAL NXTVAL
 
8641
      EXTERNAL NXTASK
8642
8642
      nprocs = GA_NNODES()
8643
8643
      count = 0
8644
 
      next = NXTVAL(nprocs)
 
8644
      next = NXTASK(nprocs,1)
8645
8645
      DO h3b = 1,noab
8646
8646
      DO h4b = 1,noab
8647
8647
      DO p1b = noab+1,noab+nvab
8805
8805
      END IF
8806
8806
      END IF
8807
8807
      END IF
8808
 
      next = NXTVAL(nprocs)
 
8808
      next = NXTASK(nprocs,1)
8809
8809
      END IF
8810
8810
      count = count + 1
8811
8811
      END DO
8812
8812
      END DO
8813
8813
      END DO
8814
8814
      END DO
8815
 
      next = NXTVAL(-nprocs)
 
8815
      next = NXTASK(-nprocs,1)
8816
8816
      call GA_SYNC()
8817
8817
      RETURN
8818
8818
      END
8819
8819
      SUBROUTINE ccsd_lambda2_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
8820
8820
     &_offset)
8821
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8821
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8822
8822
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8823
8823
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8824
8824
C     i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 p1 )_yt
8834
8834
      INTEGER k_b_offset
8835
8835
      INTEGER d_c
8836
8836
      INTEGER k_c_offset
8837
 
      INTEGER NXTVAL
 
8837
      INTEGER NXTASK
8838
8838
      INTEGER next
8839
8839
      INTEGER nprocs
8840
8840
      INTEGER count
8867
8867
      INTEGER k_b
8868
8868
      INTEGER l_c
8869
8869
      INTEGER k_c
8870
 
      EXTERNAL NXTVAL
 
8870
      EXTERNAL NXTASK
8871
8871
      nprocs = GA_NNODES()
8872
8872
      count = 0
8873
 
      next = NXTVAL(nprocs)
 
8873
      next = NXTASK(nprocs,1)
8874
8874
      DO h3b = 1,noab
8875
8875
      DO p5b = noab+1,noab+nvab
8876
8876
      DO p1b = noab+1,noab+nvab
8949
8949
      END IF
8950
8950
      END IF
8951
8951
      END IF
8952
 
      next = NXTVAL(nprocs)
 
8952
      next = NXTASK(nprocs,1)
8953
8953
      END IF
8954
8954
      count = count + 1
8955
8955
      END DO
8956
8956
      END DO
8957
8957
      END DO
8958
8958
      END DO
8959
 
      next = NXTVAL(-nprocs)
 
8959
      next = NXTASK(-nprocs,1)
8960
8960
      call GA_SYNC()
8961
8961
      RETURN
8962
8962
      END
8963
8963
      SUBROUTINE OFFSET_ccsd_lambda2_16_1(l_a_offset,k_a_offset,size)
8964
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
8964
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
8965
8965
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8966
8966
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8967
8967
C     i1 ( h3 p5 h8 p1 )_ytt
9033
9033
      END
9034
9034
      SUBROUTINE ccsd_lambda2_16_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
9035
9035
     &_c_offset)
9036
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
9036
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
9037
9037
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9038
9038
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9039
9039
C     i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 )_y
9049
9049
      INTEGER k_b_offset
9050
9050
      INTEGER d_c
9051
9051
      INTEGER k_c_offset
9052
 
      INTEGER NXTVAL
 
9052
      INTEGER NXTASK
9053
9053
      INTEGER next
9054
9054
      INTEGER nprocs
9055
9055
      INTEGER count
9082
9082
      INTEGER k_b
9083
9083
      INTEGER l_c
9084
9084
      INTEGER k_c
9085
 
      EXTERNAL NXTVAL
 
9085
      EXTERNAL NXTASK
9086
9086
      nprocs = GA_NNODES()
9087
9087
      count = 0
9088
 
      next = NXTVAL(nprocs)
 
9088
      next = NXTASK(nprocs,1)
9089
9089
      DO h3b = 1,noab
9090
9090
      DO h6b = 1,noab
9091
9091
      DO p1b = noab+1,noab+nvab
9190
9190
      END IF
9191
9191
      END IF
9192
9192
      END IF
9193
 
      next = NXTVAL(nprocs)
 
9193
      next = NXTASK(nprocs,1)
9194
9194
      END IF
9195
9195
      count = count + 1
9196
9196
      END DO
9197
9197
      END DO
9198
9198
      END DO
9199
9199
      END DO
9200
 
      next = NXTVAL(-nprocs)
 
9200
      next = NXTASK(-nprocs,1)
9201
9201
      call GA_SYNC()
9202
9202
      RETURN
9203
9203
      END
9204
9204
      SUBROUTINE OFFSET_ccsd_lambda2_16_1_1(l_a_offset,k_a_offset,size)
9205
 
C     $Id: ccsd_lambda2.F 19699 2010-10-29 17:07:13Z d3y133 $
 
9205
C     $Id: ccsd_lambda2.F 24183 2013-05-03 23:47:08Z edo $
9206
9206
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9207
9207
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9208
9208
C     i2 ( h3 h6 h8 p1 )_yt