← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/eomccsdt/eomccsdt_x2a_all12.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/eomccsdt/eomccsdt_x2a_all12.F
1
1
cat: eomccsdt_x2a_10_*F: No such file or directory
2
2
      SUBROUTINE eomccsdt_x2a_10(d_a,k_a_offset,d_b,k_b_offset,d_c,
3
3
     &k_c_offset)
4
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4
C     $Id: eomccsdt_x2a_all12.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 ( p3 p4 h1 h2 )_xv + = -1/2 * P( 2 ) * Sum ( p7 p6 h5 ) * x ( p3 p6 p7 h1 h2 h5 )_x * v ( h5 p4 p6 p7 )_v
17
17
      INTEGER k_b_offset
18
18
      INTEGER d_c
19
19
      INTEGER k_c_offset
20
 
      INTEGER NXTVAL
 
20
      INTEGER NXTASK
21
21
      INTEGER next
22
22
      INTEGER nprocs
23
23
      INTEGER count
60
60
      INTEGER k_c
61
61
      LOGICAL ACOLO
62
62
      DOUBLE PRECISION FACTORIAL
63
 
      EXTERNAL NXTVAL
 
63
      EXTERNAL NXTASK
64
64
      EXTERNAL FACTORIAL
65
65
      nprocs = GA_NNODES()
66
66
      count = 0
67
 
      next = NXTVAL(nprocs)
 
67
      next = NXTASK(nprocs,1)
68
68
      DO p3b = noab+1,noab+nvab
69
69
      DO p4b = noab+1,noab+nvab
70
70
      DO h1b = 1,noab
243
243
      END IF
244
244
      END IF
245
245
      END IF
246
 
      next = NXTVAL(nprocs)
 
246
      next = NXTASK(nprocs,1)
247
247
      END IF
248
248
      count = count + 1
249
249
      END DO
250
250
      END DO
251
251
      END DO
252
252
      END DO
253
 
      next = NXTVAL(-nprocs)
 
253
      next = NXTASK(-nprocs,1)
254
254
      call GA_SYNC()
255
255
      RETURN
256
256
      END
257
257
      SUBROUTINE eomccsdt_x2a_11_10_1(d_a,k_a_offset,d_b,k_b_offset,
258
258
     &d_c,k_c_offset)
259
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
259
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
260
260
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
261
261
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
262
262
C     i2 ( h6 h9 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p5 p8 )_v
272
272
      INTEGER k_b_offset
273
273
      INTEGER d_c
274
274
      INTEGER k_c_offset
275
 
      INTEGER NXTVAL
 
275
      INTEGER NXTASK
276
276
      INTEGER next
277
277
      INTEGER nprocs
278
278
      INTEGER count
305
305
      INTEGER k_b
306
306
      INTEGER l_c
307
307
      INTEGER k_c
308
 
      EXTERNAL NXTVAL
 
308
      EXTERNAL NXTASK
309
309
      nprocs = GA_NNODES()
310
310
      count = 0
311
 
      next = NXTVAL(nprocs)
 
311
      next = NXTASK(nprocs,1)
312
312
      DO h6b = 1,noab
313
313
      DO h9b = h6b,noab
314
314
      DO h1b = 1,noab
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 eomccsdt_x2a_11_10(d_a,k_a_offset,d_b,k_b_offset,d_c,
412
412
     &k_c_offset)
413
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
413
C     $Id: eomccsdt_x2a_all12.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     i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_vx
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
462
462
      INTEGER k_b
463
463
      INTEGER l_c
464
464
      INTEGER k_c
465
 
      EXTERNAL NXTVAL
 
465
      EXTERNAL NXTASK
466
466
      nprocs = GA_NNODES()
467
467
      count = 0
468
 
      next = NXTVAL(nprocs)
 
468
      next = NXTASK(nprocs,1)
469
469
      DO p3b = noab+1,noab+nvab
470
470
      DO h9b = 1,noab
471
471
      DO h1b = 1,noab
594
594
      END IF
595
595
      END IF
596
596
      END IF
597
 
      next = NXTVAL(nprocs)
 
597
      next = NXTASK(nprocs,1)
598
598
      END IF
599
599
      count = count + 1
600
600
      END DO
601
601
      END DO
602
602
      END DO
603
603
      END DO
604
 
      next = NXTVAL(-nprocs)
 
604
      next = NXTASK(-nprocs,1)
605
605
      call GA_SYNC()
606
606
      RETURN
607
607
      END
608
608
      SUBROUTINE eomccsdt_x2a_11_1_1(d_a,k_a_offset,d_c,k_c_offset)
609
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
609
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
610
610
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
611
611
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
612
612
C     i2 ( h9 h10 h1 h2 )_v + = -1 * v ( h9 h10 h1 h2 )_v
620
620
      INTEGER k_a_offset
621
621
      INTEGER d_c
622
622
      INTEGER k_c_offset
623
 
      INTEGER NXTVAL
 
623
      INTEGER NXTASK
624
624
      INTEGER next
625
625
      INTEGER nprocs
626
626
      INTEGER count
642
642
      INTEGER k_a
643
643
      INTEGER l_c
644
644
      INTEGER k_c
645
 
      EXTERNAL NXTVAL
 
645
      EXTERNAL NXTASK
646
646
      nprocs = GA_NNODES()
647
647
      count = 0
648
 
      next = NXTVAL(nprocs)
 
648
      next = NXTASK(nprocs,1)
649
649
      DO h9b = 1,noab
650
650
      DO h10b = h9b,noab
651
651
      DO h1b = 1,noab
692
692
      END IF
693
693
      END IF
694
694
      END IF
695
 
      next = NXTVAL(nprocs)
 
695
      next = NXTASK(nprocs,1)
696
696
      END IF
697
697
      count = count + 1
698
698
      END DO
699
699
      END DO
700
700
      END DO
701
701
      END DO
702
 
      next = NXTVAL(-nprocs)
 
702
      next = NXTASK(-nprocs,1)
703
703
      call GA_SYNC()
704
704
      RETURN
705
705
      END
706
706
      SUBROUTINE eomccsdt_x2a_11_1_2_1(d_a,k_a_offset,d_c,k_c_offset)
707
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
707
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
708
708
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
709
709
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
710
710
C     i3 ( h9 h10 h1 p6 )_v + = 1 * v ( h9 h10 h1 p6 )_v
718
718
      INTEGER k_a_offset
719
719
      INTEGER d_c
720
720
      INTEGER k_c_offset
721
 
      INTEGER NXTVAL
 
721
      INTEGER NXTASK
722
722
      INTEGER next
723
723
      INTEGER nprocs
724
724
      INTEGER count
740
740
      INTEGER k_a
741
741
      INTEGER l_c
742
742
      INTEGER k_c
743
 
      EXTERNAL NXTVAL
 
743
      EXTERNAL NXTASK
744
744
      nprocs = GA_NNODES()
745
745
      count = 0
746
 
      next = NXTVAL(nprocs)
 
746
      next = NXTASK(nprocs,1)
747
747
      DO h9b = 1,noab
748
748
      DO h10b = h9b,noab
749
749
      DO h1b = 1,noab
793
793
      END IF
794
794
      END IF
795
795
      END IF
796
 
      next = NXTVAL(nprocs)
 
796
      next = NXTASK(nprocs,1)
797
797
      END IF
798
798
      count = count + 1
799
799
      END DO
800
800
      END DO
801
801
      END DO
802
802
      END DO
803
 
      next = NXTVAL(-nprocs)
 
803
      next = NXTASK(-nprocs,1)
804
804
      call GA_SYNC()
805
805
      RETURN
806
806
      END
807
807
      SUBROUTINE eomccsdt_x2a_11_1_2_2(d_a,k_a_offset,d_b,k_b_offset,
808
808
     &d_c,k_c_offset)
809
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
809
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
810
810
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
811
811
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
812
812
C     i3 ( h9 h10 h1 p6 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h9 h10 p6 p7 )_v
822
822
      INTEGER k_b_offset
823
823
      INTEGER d_c
824
824
      INTEGER k_c_offset
825
 
      INTEGER NXTVAL
 
825
      INTEGER NXTASK
826
826
      INTEGER next
827
827
      INTEGER nprocs
828
828
      INTEGER count
855
855
      INTEGER k_b
856
856
      INTEGER l_c
857
857
      INTEGER k_c
858
 
      EXTERNAL NXTVAL
 
858
      EXTERNAL NXTASK
859
859
      nprocs = GA_NNODES()
860
860
      count = 0
861
 
      next = NXTVAL(nprocs)
 
861
      next = NXTASK(nprocs,1)
862
862
      DO h9b = 1,noab
863
863
      DO h10b = h9b,noab
864
864
      DO h1b = 1,noab
947
947
      END IF
948
948
      END IF
949
949
      END IF
950
 
      next = NXTVAL(nprocs)
 
950
      next = NXTASK(nprocs,1)
951
951
      END IF
952
952
      count = count + 1
953
953
      END DO
954
954
      END DO
955
955
      END DO
956
956
      END DO
957
 
      next = NXTVAL(-nprocs)
 
957
      next = NXTASK(-nprocs,1)
958
958
      call GA_SYNC()
959
959
      RETURN
960
960
      END
961
961
      SUBROUTINE eomccsdt_x2a_11_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
962
962
     &k_c_offset)
963
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
963
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
964
964
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
965
965
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
966
966
C     i2 ( h9 h10 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i3 ( h9 h10 h2 p6 )_v
976
976
      INTEGER k_b_offset
977
977
      INTEGER d_c
978
978
      INTEGER k_c_offset
979
 
      INTEGER NXTVAL
 
979
      INTEGER NXTASK
980
980
      INTEGER next
981
981
      INTEGER nprocs
982
982
      INTEGER count
1009
1009
      INTEGER k_b
1010
1010
      INTEGER l_c
1011
1011
      INTEGER k_c
1012
 
      EXTERNAL NXTVAL
 
1012
      EXTERNAL NXTASK
1013
1013
      nprocs = GA_NNODES()
1014
1014
      count = 0
1015
 
      next = NXTVAL(nprocs)
 
1015
      next = NXTASK(nprocs,1)
1016
1016
      DO h9b = 1,noab
1017
1017
      DO h10b = h9b,noab
1018
1018
      DO h1b = 1,noab
1099
1099
      END IF
1100
1100
      END IF
1101
1101
      END IF
1102
 
      next = NXTVAL(nprocs)
 
1102
      next = NXTASK(nprocs,1)
1103
1103
      END IF
1104
1104
      count = count + 1
1105
1105
      END DO
1106
1106
      END DO
1107
1107
      END DO
1108
1108
      END DO
1109
 
      next = NXTVAL(-nprocs)
 
1109
      next = NXTASK(-nprocs,1)
1110
1110
      call GA_SYNC()
1111
1111
      RETURN
1112
1112
      END
1113
1113
      SUBROUTINE eomccsdt_x2a_11_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
1114
1114
     &k_c_offset)
1115
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1115
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1116
1116
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1117
1117
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1118
1118
C     i2 ( h9 h10 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v
1128
1128
      INTEGER k_b_offset
1129
1129
      INTEGER d_c
1130
1130
      INTEGER k_c_offset
1131
 
      INTEGER NXTVAL
 
1131
      INTEGER NXTASK
1132
1132
      INTEGER next
1133
1133
      INTEGER nprocs
1134
1134
      INTEGER count
1167
1167
      INTEGER l_c
1168
1168
      INTEGER k_c
1169
1169
      DOUBLE PRECISION FACTORIAL
1170
 
      EXTERNAL NXTVAL
 
1170
      EXTERNAL NXTASK
1171
1171
      EXTERNAL FACTORIAL
1172
1172
      nprocs = GA_NNODES()
1173
1173
      count = 0
1174
 
      next = NXTVAL(nprocs)
 
1174
      next = NXTASK(nprocs,1)
1175
1175
      DO h9b = 1,noab
1176
1176
      DO h10b = h9b,noab
1177
1177
      DO h1b = 1,noab
1261
1261
      END IF
1262
1262
      END IF
1263
1263
      END IF
1264
 
      next = NXTVAL(nprocs)
 
1264
      next = NXTASK(nprocs,1)
1265
1265
      END IF
1266
1266
      count = count + 1
1267
1267
      END DO
1268
1268
      END DO
1269
1269
      END DO
1270
1270
      END DO
1271
 
      next = NXTVAL(-nprocs)
 
1271
      next = NXTASK(-nprocs,1)
1272
1272
      call GA_SYNC()
1273
1273
      RETURN
1274
1274
      END
1275
1275
      SUBROUTINE eomccsdt_x2a_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
1276
1276
     &k_c_offset)
1277
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1277
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1278
1278
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1279
1279
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1280
1280
C     i1 ( h9 p3 h1 h2 )_vx + = 1 * Sum ( h10 ) * x ( p3 h10 )_x * i2 ( h9 h10 h1 h2 )_v
1290
1290
      INTEGER k_b_offset
1291
1291
      INTEGER d_c
1292
1292
      INTEGER k_c_offset
1293
 
      INTEGER NXTVAL
 
1293
      INTEGER NXTASK
1294
1294
      INTEGER next
1295
1295
      INTEGER nprocs
1296
1296
      INTEGER count
1323
1323
      INTEGER k_b
1324
1324
      INTEGER l_c
1325
1325
      INTEGER k_c
1326
 
      EXTERNAL NXTVAL
 
1326
      EXTERNAL NXTASK
1327
1327
      nprocs = GA_NNODES()
1328
1328
      count = 0
1329
 
      next = NXTVAL(nprocs)
 
1329
      next = NXTASK(nprocs,1)
1330
1330
      DO p3b = noab+1,noab+nvab
1331
1331
      DO h9b = 1,noab
1332
1332
      DO h1b = 1,noab
1415
1415
      END IF
1416
1416
      END IF
1417
1417
      END IF
1418
 
      next = NXTVAL(nprocs)
 
1418
      next = NXTASK(nprocs,1)
1419
1419
      END IF
1420
1420
      count = count + 1
1421
1421
      END DO
1422
1422
      END DO
1423
1423
      END DO
1424
1424
      END DO
1425
 
      next = NXTVAL(-nprocs)
 
1425
      next = NXTASK(-nprocs,1)
1426
1426
      call GA_SYNC()
1427
1427
      RETURN
1428
1428
      END
1429
1429
      SUBROUTINE eomccsdt_x2a_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
1430
1430
     &k_c_offset)
1431
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1431
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1432
1432
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1433
1433
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1434
1434
C     i1 ( h9 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h9 p3 h2 p6 )_v
1444
1444
      INTEGER k_b_offset
1445
1445
      INTEGER d_c
1446
1446
      INTEGER k_c_offset
1447
 
      INTEGER NXTVAL
 
1447
      INTEGER NXTASK
1448
1448
      INTEGER next
1449
1449
      INTEGER nprocs
1450
1450
      INTEGER count
1477
1477
      INTEGER k_b
1478
1478
      INTEGER l_c
1479
1479
      INTEGER k_c
1480
 
      EXTERNAL NXTVAL
 
1480
      EXTERNAL NXTASK
1481
1481
      nprocs = GA_NNODES()
1482
1482
      count = 0
1483
 
      next = NXTVAL(nprocs)
 
1483
      next = NXTASK(nprocs,1)
1484
1484
      DO p3b = noab+1,noab+nvab
1485
1485
      DO h9b = 1,noab
1486
1486
      DO h1b = 1,noab
1571
1571
      END IF
1572
1572
      END IF
1573
1573
      END IF
1574
 
      next = NXTVAL(nprocs)
 
1574
      next = NXTASK(nprocs,1)
1575
1575
      END IF
1576
1576
      count = count + 1
1577
1577
      END DO
1578
1578
      END DO
1579
1579
      END DO
1580
1580
      END DO
1581
 
      next = NXTVAL(-nprocs)
 
1581
      next = NXTASK(-nprocs,1)
1582
1582
      call GA_SYNC()
1583
1583
      RETURN
1584
1584
      END
1585
1585
      SUBROUTINE eomccsdt_x2a_11_3_1(d_a,k_a_offset,d_c,k_c_offset)
1586
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1586
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1587
1587
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1588
1588
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1589
1589
C     i2 ( h9 p5 )_f + = 1 * f ( h9 p5 )_f
1597
1597
      INTEGER k_a_offset
1598
1598
      INTEGER d_c
1599
1599
      INTEGER k_c_offset
1600
 
      INTEGER NXTVAL
 
1600
      INTEGER NXTASK
1601
1601
      INTEGER next
1602
1602
      INTEGER nprocs
1603
1603
      INTEGER count
1615
1615
      INTEGER k_a
1616
1616
      INTEGER l_c
1617
1617
      INTEGER k_c
1618
 
      EXTERNAL NXTVAL
 
1618
      EXTERNAL NXTASK
1619
1619
      nprocs = GA_NNODES()
1620
1620
      count = 0
1621
 
      next = NXTVAL(nprocs)
 
1621
      next = NXTASK(nprocs,1)
1622
1622
      DO h9b = 1,noab
1623
1623
      DO p5b = noab+1,noab+nvab
1624
1624
      IF (next.eq.count) THEN
1657
1657
      END IF
1658
1658
      END IF
1659
1659
      END IF
1660
 
      next = NXTVAL(nprocs)
 
1660
      next = NXTASK(nprocs,1)
1661
1661
      END IF
1662
1662
      count = count + 1
1663
1663
      END DO
1664
1664
      END DO
1665
 
      next = NXTVAL(-nprocs)
 
1665
      next = NXTASK(-nprocs,1)
1666
1666
      call GA_SYNC()
1667
1667
      RETURN
1668
1668
      END
1669
1669
      SUBROUTINE eomccsdt_x2a_11_3_2(d_a,k_a_offset,d_b,k_b_offset,
1670
1670
     &d_c,k_c_offset)
1671
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1671
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1672
1672
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1673
1673
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1674
1674
C     i2 ( h9 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p5 p6 )_v
1684
1684
      INTEGER k_b_offset
1685
1685
      INTEGER d_c
1686
1686
      INTEGER k_c_offset
1687
 
      INTEGER NXTVAL
 
1687
      INTEGER NXTASK
1688
1688
      INTEGER next
1689
1689
      INTEGER nprocs
1690
1690
      INTEGER count
1716
1716
      INTEGER k_b
1717
1717
      INTEGER l_c
1718
1718
      INTEGER k_c
1719
 
      EXTERNAL NXTVAL
 
1719
      EXTERNAL NXTASK
1720
1720
      nprocs = GA_NNODES()
1721
1721
      count = 0
1722
 
      next = NXTVAL(nprocs)
 
1722
      next = NXTASK(nprocs,1)
1723
1723
      DO h9b = 1,noab
1724
1724
      DO p5b = noab+1,noab+nvab
1725
1725
      IF (next.eq.count) THEN
1818
1818
      END IF
1819
1819
      END IF
1820
1820
      END IF
1821
 
      next = NXTVAL(nprocs)
 
1821
      next = NXTASK(nprocs,1)
1822
1822
      END IF
1823
1823
      count = count + 1
1824
1824
      END DO
1825
1825
      END DO
1826
 
      next = NXTVAL(-nprocs)
 
1826
      next = NXTASK(-nprocs,1)
1827
1827
      call GA_SYNC()
1828
1828
      RETURN
1829
1829
      END
1830
1830
      SUBROUTINE eomccsdt_x2a_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
1831
1831
     &k_c_offset)
1832
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1832
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1833
1833
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1834
1834
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1835
1835
C     i1 ( h9 p3 h1 h2 )_fx + = -1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h9 p5 )_f
1845
1845
      INTEGER k_b_offset
1846
1846
      INTEGER d_c
1847
1847
      INTEGER k_c_offset
1848
 
      INTEGER NXTVAL
 
1848
      INTEGER NXTASK
1849
1849
      INTEGER next
1850
1850
      INTEGER nprocs
1851
1851
      INTEGER count
1878
1878
      INTEGER k_b
1879
1879
      INTEGER l_c
1880
1880
      INTEGER k_c
1881
 
      EXTERNAL NXTVAL
 
1881
      EXTERNAL NXTASK
1882
1882
      nprocs = GA_NNODES()
1883
1883
      count = 0
1884
 
      next = NXTVAL(nprocs)
 
1884
      next = NXTASK(nprocs,1)
1885
1885
      DO p3b = noab+1,noab+nvab
1886
1886
      DO h9b = 1,noab
1887
1887
      DO h1b = 1,noab
1971
1971
      END IF
1972
1972
      END IF
1973
1973
      END IF
1974
 
      next = NXTVAL(nprocs)
 
1974
      next = NXTASK(nprocs,1)
1975
1975
      END IF
1976
1976
      count = count + 1
1977
1977
      END DO
1978
1978
      END DO
1979
1979
      END DO
1980
1980
      END DO
1981
 
      next = NXTVAL(-nprocs)
 
1981
      next = NXTASK(-nprocs,1)
1982
1982
      call GA_SYNC()
1983
1983
      RETURN
1984
1984
      END
1985
1985
      SUBROUTINE eomccsdt_x2a_11_4_1(d_a,k_a_offset,d_c,k_c_offset)
1986
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1986
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
1987
1987
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1988
1988
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1989
1989
C     i2 ( h8 h9 h1 p5 )_v + = 1 * v ( h8 h9 h1 p5 )_v
1997
1997
      INTEGER k_a_offset
1998
1998
      INTEGER d_c
1999
1999
      INTEGER k_c_offset
2000
 
      INTEGER NXTVAL
 
2000
      INTEGER NXTASK
2001
2001
      INTEGER next
2002
2002
      INTEGER nprocs
2003
2003
      INTEGER count
2019
2019
      INTEGER k_a
2020
2020
      INTEGER l_c
2021
2021
      INTEGER k_c
2022
 
      EXTERNAL NXTVAL
 
2022
      EXTERNAL NXTASK
2023
2023
      nprocs = GA_NNODES()
2024
2024
      count = 0
2025
 
      next = NXTVAL(nprocs)
 
2025
      next = NXTASK(nprocs,1)
2026
2026
      DO h8b = 1,noab
2027
2027
      DO h9b = h8b,noab
2028
2028
      DO h1b = 1,noab
2072
2072
      END IF
2073
2073
      END IF
2074
2074
      END IF
2075
 
      next = NXTVAL(nprocs)
 
2075
      next = NXTASK(nprocs,1)
2076
2076
      END IF
2077
2077
      count = count + 1
2078
2078
      END DO
2079
2079
      END DO
2080
2080
      END DO
2081
2081
      END DO
2082
 
      next = NXTVAL(-nprocs)
 
2082
      next = NXTASK(-nprocs,1)
2083
2083
      call GA_SYNC()
2084
2084
      RETURN
2085
2085
      END
2086
2086
      SUBROUTINE eomccsdt_x2a_11_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
2087
2087
     &k_c_offset)
2088
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2088
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
2089
2089
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2090
2090
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2091
2091
C     i2 ( h8 h9 h1 p5 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h9 p5 p6 )_v
2101
2101
      INTEGER k_b_offset
2102
2102
      INTEGER d_c
2103
2103
      INTEGER k_c_offset
2104
 
      INTEGER NXTVAL
 
2104
      INTEGER NXTASK
2105
2105
      INTEGER next
2106
2106
      INTEGER nprocs
2107
2107
      INTEGER count
2134
2134
      INTEGER k_b
2135
2135
      INTEGER l_c
2136
2136
      INTEGER k_c
2137
 
      EXTERNAL NXTVAL
 
2137
      EXTERNAL NXTASK
2138
2138
      nprocs = GA_NNODES()
2139
2139
      count = 0
2140
 
      next = NXTVAL(nprocs)
 
2140
      next = NXTASK(nprocs,1)
2141
2141
      DO h8b = 1,noab
2142
2142
      DO h9b = h8b,noab
2143
2143
      DO h1b = 1,noab
2226
2226
      END IF
2227
2227
      END IF
2228
2228
      END IF
2229
 
      next = NXTVAL(nprocs)
 
2229
      next = NXTASK(nprocs,1)
2230
2230
      END IF
2231
2231
      count = count + 1
2232
2232
      END DO
2233
2233
      END DO
2234
2234
      END DO
2235
2235
      END DO
2236
 
      next = NXTVAL(-nprocs)
 
2236
      next = NXTASK(-nprocs,1)
2237
2237
      call GA_SYNC()
2238
2238
      RETURN
2239
2239
      END
2240
2240
      SUBROUTINE eomccsdt_x2a_11_4(d_a,k_a_offset,d_b,k_b_offset,d_c,
2241
2241
     &k_c_offset)
2242
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2242
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
2243
2243
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2244
2244
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2245
2245
C     i1 ( h9 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h8 p5 ) * x ( p3 p5 h1 h8 )_x * i2 ( h8 h9 h2 p5 )_v
2255
2255
      INTEGER k_b_offset
2256
2256
      INTEGER d_c
2257
2257
      INTEGER k_c_offset
2258
 
      INTEGER NXTVAL
 
2258
      INTEGER NXTASK
2259
2259
      INTEGER next
2260
2260
      INTEGER nprocs
2261
2261
      INTEGER count
2291
2291
      INTEGER k_b
2292
2292
      INTEGER l_c
2293
2293
      INTEGER k_c
2294
 
      EXTERNAL NXTVAL
 
2294
      EXTERNAL NXTASK
2295
2295
      nprocs = GA_NNODES()
2296
2296
      count = 0
2297
 
      next = NXTVAL(nprocs)
 
2297
      next = NXTASK(nprocs,1)
2298
2298
      DO p3b = noab+1,noab+nvab
2299
2299
      DO h9b = 1,noab
2300
2300
      DO h1b = 1,noab
2423
2423
      END IF
2424
2424
      END IF
2425
2425
      END IF
2426
 
      next = NXTVAL(nprocs)
 
2426
      next = NXTASK(nprocs,1)
2427
2427
      END IF
2428
2428
      count = count + 1
2429
2429
      END DO
2430
2430
      END DO
2431
2431
      END DO
2432
2432
      END DO
2433
 
      next = NXTVAL(-nprocs)
 
2433
      next = NXTASK(-nprocs,1)
2434
2434
      call GA_SYNC()
2435
2435
      RETURN
2436
2436
      END
2437
2437
      SUBROUTINE eomccsdt_x2a_11_5(d_a,k_a_offset,d_b,k_b_offset,d_c,
2438
2438
     &k_c_offset)
2439
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2439
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
2440
2440
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2441
2441
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2442
2442
C     i1 ( h9 p3 h1 h2 )_vx + = 1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h9 p3 p6 p7 )_v
2452
2452
      INTEGER k_b_offset
2453
2453
      INTEGER d_c
2454
2454
      INTEGER k_c_offset
2455
 
      INTEGER NXTVAL
 
2455
      INTEGER NXTASK
2456
2456
      INTEGER next
2457
2457
      INTEGER nprocs
2458
2458
      INTEGER count
2491
2491
      INTEGER l_c
2492
2492
      INTEGER k_c
2493
2493
      DOUBLE PRECISION FACTORIAL
2494
 
      EXTERNAL NXTVAL
 
2494
      EXTERNAL NXTASK
2495
2495
      EXTERNAL FACTORIAL
2496
2496
      nprocs = GA_NNODES()
2497
2497
      count = 0
2498
 
      next = NXTVAL(nprocs)
 
2498
      next = NXTASK(nprocs,1)
2499
2499
      DO p3b = noab+1,noab+nvab
2500
2500
      DO h9b = 1,noab
2501
2501
      DO h1b = 1,noab
2588
2588
      END IF
2589
2589
      END IF
2590
2590
      END IF
2591
 
      next = NXTVAL(nprocs)
 
2591
      next = NXTASK(nprocs,1)
2592
2592
      END IF
2593
2593
      count = count + 1
2594
2594
      END DO
2595
2595
      END DO
2596
2596
      END DO
2597
2597
      END DO
2598
 
      next = NXTVAL(-nprocs)
 
2598
      next = NXTASK(-nprocs,1)
2599
2599
      call GA_SYNC()
2600
2600
      RETURN
2601
2601
      END
2602
2602
      SUBROUTINE eomccsdt_x2a_11_6(d_a,k_a_offset,d_b,k_b_offset,d_c,
2603
2603
     &k_c_offset)
2604
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2604
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
2605
2605
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2606
2606
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2607
2607
C     i1 ( h9 p3 h1 h2 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p3 p7 p8 h1 h2 h6 )_x * v ( h6 h9 p7 p8 )_v
2617
2617
      INTEGER k_b_offset
2618
2618
      INTEGER d_c
2619
2619
      INTEGER k_c_offset
2620
 
      INTEGER NXTVAL
 
2620
      INTEGER NXTASK
2621
2621
      INTEGER next
2622
2622
      INTEGER nprocs
2623
2623
      INTEGER count
2660
2660
      INTEGER k_c
2661
2661
      LOGICAL ACOLO
2662
2662
      DOUBLE PRECISION FACTORIAL
2663
 
      EXTERNAL NXTVAL
 
2663
      EXTERNAL NXTASK
2664
2664
      EXTERNAL FACTORIAL
2665
2665
      nprocs = GA_NNODES()
2666
2666
      count = 0
2667
 
      next = NXTVAL(nprocs)
 
2667
      next = NXTASK(nprocs,1)
2668
2668
      DO p3b = noab+1,noab+nvab
2669
2669
      DO h9b = 1,noab
2670
2670
      DO h1b = 1,noab
2841
2841
      END IF
2842
2842
      END IF
2843
2843
      END IF
2844
 
      next = NXTVAL(nprocs)
 
2844
      next = NXTASK(nprocs,1)
2845
2845
      END IF
2846
2846
      count = count + 1
2847
2847
      END DO
2848
2848
      END DO
2849
2849
      END DO
2850
2850
      END DO
2851
 
      next = NXTVAL(-nprocs)
 
2851
      next = NXTASK(-nprocs,1)
2852
2852
      call GA_SYNC()
2853
2853
      RETURN
2854
2854
      END
2855
2855
      SUBROUTINE eomccsdt_x2a_11_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
2856
2856
     &k_c_offset)
2857
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2857
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
2858
2858
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2859
2859
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2860
2860
C     i2 ( h6 h9 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 h9 h2 p7 )_v
2870
2870
      INTEGER k_b_offset
2871
2871
      INTEGER d_c
2872
2872
      INTEGER k_c_offset
2873
 
      INTEGER NXTVAL
 
2873
      INTEGER NXTASK
2874
2874
      INTEGER next
2875
2875
      INTEGER nprocs
2876
2876
      INTEGER count
2903
2903
      INTEGER k_b
2904
2904
      INTEGER l_c
2905
2905
      INTEGER k_c
2906
 
      EXTERNAL NXTVAL
 
2906
      EXTERNAL NXTASK
2907
2907
      nprocs = GA_NNODES()
2908
2908
      count = 0
2909
 
      next = NXTVAL(nprocs)
 
2909
      next = NXTASK(nprocs,1)
2910
2910
      DO h6b = 1,noab
2911
2911
      DO h9b = h6b,noab
2912
2912
      DO h1b = 1,noab
2995
2995
      END IF
2996
2996
      END IF
2997
2997
      END IF
2998
 
      next = NXTVAL(nprocs)
 
2998
      next = NXTASK(nprocs,1)
2999
2999
      END IF
3000
3000
      count = count + 1
3001
3001
      END DO
3002
3002
      END DO
3003
3003
      END DO
3004
3004
      END DO
3005
 
      next = NXTVAL(-nprocs)
 
3005
      next = NXTASK(-nprocs,1)
3006
3006
      call GA_SYNC()
3007
3007
      RETURN
3008
3008
      END
3009
3009
      SUBROUTINE eomccsdt_x2a_11_7_2(d_a,k_a_offset,d_b,k_b_offset,
3010
3010
     &d_c,k_c_offset)
3011
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3011
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3012
3012
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3013
3013
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3014
3014
C     i2 ( h6 h9 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h6 h9 p7 p8 )_v
3024
3024
      INTEGER k_b_offset
3025
3025
      INTEGER d_c
3026
3026
      INTEGER k_c_offset
3027
 
      INTEGER NXTVAL
 
3027
      INTEGER NXTASK
3028
3028
      INTEGER next
3029
3029
      INTEGER nprocs
3030
3030
      INTEGER count
3063
3063
      INTEGER l_c
3064
3064
      INTEGER k_c
3065
3065
      DOUBLE PRECISION FACTORIAL
3066
 
      EXTERNAL NXTVAL
 
3066
      EXTERNAL NXTASK
3067
3067
      EXTERNAL FACTORIAL
3068
3068
      nprocs = GA_NNODES()
3069
3069
      count = 0
3070
 
      next = NXTVAL(nprocs)
 
3070
      next = NXTASK(nprocs,1)
3071
3071
      DO h6b = 1,noab
3072
3072
      DO h9b = h6b,noab
3073
3073
      DO h1b = 1,noab
3157
3157
      END IF
3158
3158
      END IF
3159
3159
      END IF
3160
 
      next = NXTVAL(nprocs)
 
3160
      next = NXTASK(nprocs,1)
3161
3161
      END IF
3162
3162
      count = count + 1
3163
3163
      END DO
3164
3164
      END DO
3165
3165
      END DO
3166
3166
      END DO
3167
 
      next = NXTVAL(-nprocs)
 
3167
      next = NXTASK(-nprocs,1)
3168
3168
      call GA_SYNC()
3169
3169
      RETURN
3170
3170
      END
3171
3171
      SUBROUTINE eomccsdt_x2a_11_7_3_1(d_a,k_a_offset,d_b,k_b_offset,
3172
3172
     &d_c,k_c_offset)
3173
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3173
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3174
3174
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3175
3175
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3176
3176
C     i3 ( h6 h9 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h9 p7 p8 )_v
3186
3186
      INTEGER k_b_offset
3187
3187
      INTEGER d_c
3188
3188
      INTEGER k_c_offset
3189
 
      INTEGER NXTVAL
 
3189
      INTEGER NXTASK
3190
3190
      INTEGER next
3191
3191
      INTEGER nprocs
3192
3192
      INTEGER count
3219
3219
      INTEGER k_b
3220
3220
      INTEGER l_c
3221
3221
      INTEGER k_c
3222
 
      EXTERNAL NXTVAL
 
3222
      EXTERNAL NXTASK
3223
3223
      nprocs = GA_NNODES()
3224
3224
      count = 0
3225
 
      next = NXTVAL(nprocs)
 
3225
      next = NXTASK(nprocs,1)
3226
3226
      DO h6b = 1,noab
3227
3227
      DO h9b = h6b,noab
3228
3228
      DO h1b = 1,noab
3311
3311
      END IF
3312
3312
      END IF
3313
3313
      END IF
3314
 
      next = NXTVAL(nprocs)
 
3314
      next = NXTASK(nprocs,1)
3315
3315
      END IF
3316
3316
      count = count + 1
3317
3317
      END DO
3318
3318
      END DO
3319
3319
      END DO
3320
3320
      END DO
3321
 
      next = NXTVAL(-nprocs)
 
3321
      next = NXTASK(-nprocs,1)
3322
3322
      call GA_SYNC()
3323
3323
      RETURN
3324
3324
      END
3325
3325
      SUBROUTINE eomccsdt_x2a_11_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
3326
3326
     &k_c_offset)
3327
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3327
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3328
3328
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3329
3329
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3330
3330
C     i2 ( h6 h9 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h6 h9 h2 p7 )_vx
3340
3340
      INTEGER k_b_offset
3341
3341
      INTEGER d_c
3342
3342
      INTEGER k_c_offset
3343
 
      INTEGER NXTVAL
 
3343
      INTEGER NXTASK
3344
3344
      INTEGER next
3345
3345
      INTEGER nprocs
3346
3346
      INTEGER count
3373
3373
      INTEGER k_b
3374
3374
      INTEGER l_c
3375
3375
      INTEGER k_c
3376
 
      EXTERNAL NXTVAL
 
3376
      EXTERNAL NXTASK
3377
3377
      nprocs = GA_NNODES()
3378
3378
      count = 0
3379
 
      next = NXTVAL(nprocs)
 
3379
      next = NXTASK(nprocs,1)
3380
3380
      DO h6b = 1,noab
3381
3381
      DO h9b = h6b,noab
3382
3382
      DO h1b = 1,noab
3463
3463
      END IF
3464
3464
      END IF
3465
3465
      END IF
3466
 
      next = NXTVAL(nprocs)
 
3466
      next = NXTASK(nprocs,1)
3467
3467
      END IF
3468
3468
      count = count + 1
3469
3469
      END DO
3470
3470
      END DO
3471
3471
      END DO
3472
3472
      END DO
3473
 
      next = NXTVAL(-nprocs)
 
3473
      next = NXTASK(-nprocs,1)
3474
3474
      call GA_SYNC()
3475
3475
      RETURN
3476
3476
      END
3477
3477
      SUBROUTINE eomccsdt_x2a_11_7(d_a,k_a_offset,d_b,k_b_offset,d_c,
3478
3478
     &k_c_offset)
3479
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3479
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3480
3480
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3481
3481
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3482
3482
C     i1 ( h9 p3 h1 h2 )_vxt + = 1 * Sum ( h6 ) * t ( p3 h6 )_t * i2 ( h6 h9 h1 h2 )_vx
3492
3492
      INTEGER k_b_offset
3493
3493
      INTEGER d_c
3494
3494
      INTEGER k_c_offset
3495
 
      INTEGER NXTVAL
 
3495
      INTEGER NXTASK
3496
3496
      INTEGER next
3497
3497
      INTEGER nprocs
3498
3498
      INTEGER count
3525
3525
      INTEGER k_b
3526
3526
      INTEGER l_c
3527
3527
      INTEGER k_c
3528
 
      EXTERNAL NXTVAL
 
3528
      EXTERNAL NXTASK
3529
3529
      nprocs = GA_NNODES()
3530
3530
      count = 0
3531
 
      next = NXTVAL(nprocs)
 
3531
      next = NXTASK(nprocs,1)
3532
3532
      DO p3b = noab+1,noab+nvab
3533
3533
      DO h9b = 1,noab
3534
3534
      DO h1b = 1,noab
3617
3617
      END IF
3618
3618
      END IF
3619
3619
      END IF
3620
 
      next = NXTVAL(nprocs)
 
3620
      next = NXTASK(nprocs,1)
3621
3621
      END IF
3622
3622
      count = count + 1
3623
3623
      END DO
3624
3624
      END DO
3625
3625
      END DO
3626
3626
      END DO
3627
 
      next = NXTVAL(-nprocs)
 
3627
      next = NXTASK(-nprocs,1)
3628
3628
      call GA_SYNC()
3629
3629
      RETURN
3630
3630
      END
3631
3631
      SUBROUTINE eomccsdt_x2a_11_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
3632
3632
     &k_c_offset)
3633
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3633
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3634
3634
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3635
3635
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3636
3636
C     i2 ( h9 p3 h1 p6 )_vx + = -1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 p3 p6 p7 )_v
3646
3646
      INTEGER k_b_offset
3647
3647
      INTEGER d_c
3648
3648
      INTEGER k_c_offset
3649
 
      INTEGER NXTVAL
 
3649
      INTEGER NXTASK
3650
3650
      INTEGER next
3651
3651
      INTEGER nprocs
3652
3652
      INTEGER count
3679
3679
      INTEGER k_b
3680
3680
      INTEGER l_c
3681
3681
      INTEGER k_c
3682
 
      EXTERNAL NXTVAL
 
3682
      EXTERNAL NXTASK
3683
3683
      nprocs = GA_NNODES()
3684
3684
      count = 0
3685
 
      next = NXTVAL(nprocs)
 
3685
      next = NXTASK(nprocs,1)
3686
3686
      DO p3b = noab+1,noab+nvab
3687
3687
      DO h9b = 1,noab
3688
3688
      DO h1b = 1,noab
3771
3771
      END IF
3772
3772
      END IF
3773
3773
      END IF
3774
 
      next = NXTVAL(nprocs)
 
3774
      next = NXTASK(nprocs,1)
3775
3775
      END IF
3776
3776
      count = count + 1
3777
3777
      END DO
3778
3778
      END DO
3779
3779
      END DO
3780
3780
      END DO
3781
 
      next = NXTVAL(-nprocs)
 
3781
      next = NXTASK(-nprocs,1)
3782
3782
      call GA_SYNC()
3783
3783
      RETURN
3784
3784
      END
3785
3785
      SUBROUTINE eomccsdt_x2a_11_8(d_a,k_a_offset,d_b,k_b_offset,d_c,
3786
3786
     &k_c_offset)
3787
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3787
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3788
3788
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3789
3789
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3790
3790
C     i1 ( h9 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h9 p3 h2 p6 )_vx
3800
3800
      INTEGER k_b_offset
3801
3801
      INTEGER d_c
3802
3802
      INTEGER k_c_offset
3803
 
      INTEGER NXTVAL
 
3803
      INTEGER NXTASK
3804
3804
      INTEGER next
3805
3805
      INTEGER nprocs
3806
3806
      INTEGER count
3833
3833
      INTEGER k_b
3834
3834
      INTEGER l_c
3835
3835
      INTEGER k_c
3836
 
      EXTERNAL NXTVAL
 
3836
      EXTERNAL NXTASK
3837
3837
      nprocs = GA_NNODES()
3838
3838
      count = 0
3839
 
      next = NXTVAL(nprocs)
 
3839
      next = NXTASK(nprocs,1)
3840
3840
      DO p3b = noab+1,noab+nvab
3841
3841
      DO h9b = 1,noab
3842
3842
      DO h1b = 1,noab
3925
3925
      END IF
3926
3926
      END IF
3927
3927
      END IF
3928
 
      next = NXTVAL(nprocs)
 
3928
      next = NXTASK(nprocs,1)
3929
3929
      END IF
3930
3930
      count = count + 1
3931
3931
      END DO
3932
3932
      END DO
3933
3933
      END DO
3934
3934
      END DO
3935
 
      next = NXTVAL(-nprocs)
 
3935
      next = NXTASK(-nprocs,1)
3936
3936
      call GA_SYNC()
3937
3937
      RETURN
3938
3938
      END
3939
3939
      SUBROUTINE eomccsdt_x2a_11_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
3940
3940
     &k_c_offset)
3941
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3941
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
3942
3942
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3943
3943
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3944
3944
C     i2 ( h9 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h9 p5 p8 )_v
3954
3954
      INTEGER k_b_offset
3955
3955
      INTEGER d_c
3956
3956
      INTEGER k_c_offset
3957
 
      INTEGER NXTVAL
 
3957
      INTEGER NXTASK
3958
3958
      INTEGER next
3959
3959
      INTEGER nprocs
3960
3960
      INTEGER count
3986
3986
      INTEGER k_b
3987
3987
      INTEGER l_c
3988
3988
      INTEGER k_c
3989
 
      EXTERNAL NXTVAL
 
3989
      EXTERNAL NXTASK
3990
3990
      nprocs = GA_NNODES()
3991
3991
      count = 0
3992
 
      next = NXTVAL(nprocs)
 
3992
      next = NXTASK(nprocs,1)
3993
3993
      DO h9b = 1,noab
3994
3994
      DO p5b = noab+1,noab+nvab
3995
3995
      IF (next.eq.count) THEN
4088
4088
      END IF
4089
4089
      END IF
4090
4090
      END IF
4091
 
      next = NXTVAL(nprocs)
 
4091
      next = NXTASK(nprocs,1)
4092
4092
      END IF
4093
4093
      count = count + 1
4094
4094
      END DO
4095
4095
      END DO
4096
 
      next = NXTVAL(-nprocs)
 
4096
      next = NXTASK(-nprocs,1)
4097
4097
      call GA_SYNC()
4098
4098
      RETURN
4099
4099
      END
4100
4100
      SUBROUTINE eomccsdt_x2a_11_9(d_a,k_a_offset,d_b,k_b_offset,d_c,
4101
4101
     &k_c_offset)
4102
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4102
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
4103
4103
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4104
4104
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4105
4105
C     i1 ( h9 p3 h1 h2 )_vxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h9 p5 )_vx
4115
4115
      INTEGER k_b_offset
4116
4116
      INTEGER d_c
4117
4117
      INTEGER k_c_offset
4118
 
      INTEGER NXTVAL
 
4118
      INTEGER NXTASK
4119
4119
      INTEGER next
4120
4120
      INTEGER nprocs
4121
4121
      INTEGER count
4148
4148
      INTEGER k_b
4149
4149
      INTEGER l_c
4150
4150
      INTEGER k_c
4151
 
      EXTERNAL NXTVAL
 
4151
      EXTERNAL NXTASK
4152
4152
      nprocs = GA_NNODES()
4153
4153
      count = 0
4154
 
      next = NXTVAL(nprocs)
 
4154
      next = NXTASK(nprocs,1)
4155
4155
      DO p3b = noab+1,noab+nvab
4156
4156
      DO h9b = 1,noab
4157
4157
      DO h1b = 1,noab
4241
4241
      END IF
4242
4242
      END IF
4243
4243
      END IF
4244
 
      next = NXTVAL(nprocs)
 
4244
      next = NXTASK(nprocs,1)
4245
4245
      END IF
4246
4246
      count = count + 1
4247
4247
      END DO
4248
4248
      END DO
4249
4249
      END DO
4250
4250
      END DO
4251
 
      next = NXTVAL(-nprocs)
 
4251
      next = NXTASK(-nprocs,1)
4252
4252
      call GA_SYNC()
4253
4253
      RETURN
4254
4254
      END
4255
4255
      SUBROUTINE eomccsdt_x2a_11(d_a,k_a_offset,d_b,k_b_offset,d_c,
4256
4256
     &k_c_offset)
4257
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4257
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
4258
4258
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4259
4259
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4260
4260
C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_vx
4270
4270
      INTEGER k_b_offset
4271
4271
      INTEGER d_c
4272
4272
      INTEGER k_c_offset
4273
 
      INTEGER NXTVAL
 
4273
      INTEGER NXTASK
4274
4274
      INTEGER next
4275
4275
      INTEGER nprocs
4276
4276
      INTEGER count
4303
4303
      INTEGER k_b
4304
4304
      INTEGER l_c
4305
4305
      INTEGER k_c
4306
 
      EXTERNAL NXTVAL
 
4306
      EXTERNAL NXTASK
4307
4307
      nprocs = GA_NNODES()
4308
4308
      count = 0
4309
 
      next = NXTVAL(nprocs)
 
4309
      next = NXTASK(nprocs,1)
4310
4310
      DO p3b = noab+1,noab+nvab
4311
4311
      DO p4b = noab+1,noab+nvab
4312
4312
      DO h1b = 1,noab
4395
4395
      END IF
4396
4396
      END IF
4397
4397
      END IF
4398
 
      next = NXTVAL(nprocs)
 
4398
      next = NXTASK(nprocs,1)
4399
4399
      END IF
4400
4400
      count = count + 1
4401
4401
      END DO
4402
4402
      END DO
4403
4403
      END DO
4404
4404
      END DO
4405
 
      next = NXTVAL(-nprocs)
 
4405
      next = NXTASK(-nprocs,1)
4406
4406
      call GA_SYNC()
4407
4407
      RETURN
4408
4408
      END
4409
4409
      SUBROUTINE eomccsdt_x2a_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
4410
4410
     &k_c_offset)
4411
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4411
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
4412
4412
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4413
4413
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4414
4414
C     i1 ( p3 p4 h1 p5 )_vx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v
4424
4424
      INTEGER k_b_offset
4425
4425
      INTEGER d_c
4426
4426
      INTEGER k_c_offset
4427
 
      INTEGER NXTVAL
 
4427
      INTEGER NXTASK
4428
4428
      INTEGER next
4429
4429
      INTEGER nprocs
4430
4430
      INTEGER count
4457
4457
      INTEGER k_b
4458
4458
      INTEGER l_c
4459
4459
      INTEGER k_c
4460
 
      EXTERNAL NXTVAL
 
4460
      EXTERNAL NXTASK
4461
4461
      nprocs = GA_NNODES()
4462
4462
      count = 0
4463
 
      next = NXTVAL(nprocs)
 
4463
      next = NXTASK(nprocs,1)
4464
4464
      DO p3b = noab+1,noab+nvab
4465
4465
      DO p4b = p3b,noab+nvab
4466
4466
      DO h1b = 1,noab
4549
4549
      END IF
4550
4550
      END IF
4551
4551
      END IF
4552
 
      next = NXTVAL(nprocs)
 
4552
      next = NXTASK(nprocs,1)
4553
4553
      END IF
4554
4554
      count = count + 1
4555
4555
      END DO
4556
4556
      END DO
4557
4557
      END DO
4558
4558
      END DO
4559
 
      next = NXTVAL(-nprocs)
 
4559
      next = NXTASK(-nprocs,1)
4560
4560
      call GA_SYNC()
4561
4561
      RETURN
4562
4562
      END
4563
4563
      SUBROUTINE eomccsdt_x2a_12(d_a,k_a_offset,d_b,k_b_offset,d_c,
4564
4564
     &k_c_offset)
4565
 
C     $Id: eomccsdt_x2a_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4565
C     $Id: eomccsdt_x2a_all12.F 24183 2013-05-03 23:47:08Z edo $
4566
4566
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4567
4567
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4568
4568
C     i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx
4578
4578
      INTEGER k_b_offset
4579
4579
      INTEGER d_c
4580
4580
      INTEGER k_c_offset
4581
 
      INTEGER NXTVAL
 
4581
      INTEGER NXTASK
4582
4582
      INTEGER next
4583
4583
      INTEGER nprocs
4584
4584
      INTEGER count
4611
4611
      INTEGER k_b
4612
4612
      INTEGER l_c
4613
4613
      INTEGER k_c
4614
 
      EXTERNAL NXTVAL
 
4614
      EXTERNAL NXTASK
4615
4615
      nprocs = GA_NNODES()
4616
4616
      count = 0
4617
 
      next = NXTVAL(nprocs)
 
4617
      next = NXTASK(nprocs,1)
4618
4618
      DO p3b = noab+1,noab+nvab
4619
4619
      DO p4b = p3b,noab+nvab
4620
4620
      DO h1b = 1,noab
4703
4703
      END IF
4704
4704
      END IF
4705
4705
      END IF
4706
 
      next = NXTVAL(nprocs)
 
4706
      next = NXTASK(nprocs,1)
4707
4707
      END IF
4708
4708
      count = count + 1
4709
4709
      END DO
4710
4710
      END DO
4711
4711
      END DO
4712
4712
      END DO
4713
 
      next = NXTVAL(-nprocs)
 
4713
      next = NXTASK(-nprocs,1)
4714
4714
      call GA_SYNC()
4715
4715
      RETURN
4716
4716
      END