← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/eomccsd/cc2_x2.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/eomccsd/cc2_x2.F
1
1
      SUBROUTINE cc2_x2(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,k_f1_offset,k_i0_o
2
2
     &ffset,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offset,
3
3
     &size_x1,size_x2)
4
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
4
C     $Id: cc2_x2.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 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v
188
188
      RETURN
189
189
      END
190
190
      SUBROUTINE cc2_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
191
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
191
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
192
192
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
193
193
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
194
194
C     i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v
204
204
      INTEGER k_b_offset
205
205
      INTEGER d_c
206
206
      INTEGER k_c_offset
207
 
      INTEGER NXTVAL
 
207
      INTEGER NXTASK
208
208
      INTEGER next
209
209
      INTEGER nprocs
210
210
      INTEGER count
237
237
      INTEGER k_b
238
238
      INTEGER l_c
239
239
      INTEGER k_c
240
 
      EXTERNAL NXTVAL
 
240
      EXTERNAL NXTASK
241
241
      nprocs = GA_NNODES()
242
242
      count = 0
243
 
      next = NXTVAL(nprocs)
 
243
      next = NXTASK(nprocs,1)
244
244
      DO p3b = noab+1,noab+nvab
245
245
      DO p4b = noab+1,noab+nvab
246
246
      DO h1b = 1,noab
325
325
      END IF
326
326
      END IF
327
327
      END IF
328
 
      next = NXTVAL(nprocs)
 
328
      next = NXTASK(nprocs,1)
329
329
      END IF
330
330
      count = count + 1
331
331
      END DO
332
332
      END DO
333
333
      END DO
334
334
      END DO
335
 
      next = NXTVAL(-nprocs)
 
335
      next = NXTASK(-nprocs,1)
336
336
      call GA_SYNC()
337
337
      RETURN
338
338
      END
339
339
      SUBROUTINE cc2_x2_1_1(d_a,k_a_offset,d_c,k_c_offset)
340
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
340
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
341
341
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
342
342
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
343
343
C     i1 ( h7 p3 h1 h2 )_v + = 1 * v ( h7 p3 h1 h2 )_v
351
351
      INTEGER k_a_offset
352
352
      INTEGER d_c
353
353
      INTEGER k_c_offset
354
 
      INTEGER NXTVAL
 
354
      INTEGER NXTASK
355
355
      INTEGER next
356
356
      INTEGER nprocs
357
357
      INTEGER count
373
373
      INTEGER k_a
374
374
      INTEGER l_c
375
375
      INTEGER k_c
376
 
      EXTERNAL NXTVAL
 
376
      EXTERNAL NXTASK
377
377
      nprocs = GA_NNODES()
378
378
      count = 0
379
 
      next = NXTVAL(nprocs)
 
379
      next = NXTASK(nprocs,1)
380
380
      DO p3b = noab+1,noab+nvab
381
381
      DO h7b = 1,noab
382
382
      DO h1b = 1,noab
431
431
      END IF
432
432
      END IF
433
433
      END IF
434
 
      next = NXTVAL(nprocs)
 
434
      next = NXTASK(nprocs,1)
435
435
      END IF
436
436
      count = count + 1
437
437
      END DO
438
438
      END DO
439
439
      END DO
440
440
      END DO
441
 
      next = NXTVAL(-nprocs)
 
441
      next = NXTASK(-nprocs,1)
442
442
      call GA_SYNC()
443
443
      RETURN
444
444
      END
445
445
      SUBROUTINE OFFSET_cc2_x2_1_1(l_a_offset,k_a_offset,size)
446
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
446
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
447
447
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
448
448
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
449
449
C     i1 ( h7 p3 h1 h2 )_v
513
513
      END
514
514
      SUBROUTINE cc2_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
515
515
     &)
516
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
516
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
517
517
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
518
518
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
519
519
C     i1 ( h7 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 p3 h2 p5 )_v
529
529
      INTEGER k_b_offset
530
530
      INTEGER d_c
531
531
      INTEGER k_c_offset
532
 
      INTEGER NXTVAL
 
532
      INTEGER NXTASK
533
533
      INTEGER next
534
534
      INTEGER nprocs
535
535
      INTEGER count
562
562
      INTEGER k_b
563
563
      INTEGER l_c
564
564
      INTEGER k_c
565
 
      EXTERNAL NXTVAL
 
565
      EXTERNAL NXTASK
566
566
      nprocs = GA_NNODES()
567
567
      count = 0
568
 
      next = NXTVAL(nprocs)
 
568
      next = NXTASK(nprocs,1)
569
569
      DO p3b = noab+1,noab+nvab
570
570
      DO h7b = 1,noab
571
571
      DO h1b = 1,noab
652
652
      END IF
653
653
      END IF
654
654
      END IF
655
 
      next = NXTVAL(nprocs)
 
655
      next = NXTASK(nprocs,1)
656
656
      END IF
657
657
      count = count + 1
658
658
      END DO
659
659
      END DO
660
660
      END DO
661
661
      END DO
662
 
      next = NXTVAL(-nprocs)
 
662
      next = NXTASK(-nprocs,1)
663
663
      call GA_SYNC()
664
664
      RETURN
665
665
      END
666
666
      SUBROUTINE cc2_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset)
667
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
667
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
668
668
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
669
669
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
670
670
C     i2 ( h7 p3 h1 p5 )_v + = 1 * v ( h7 p3 h1 p5 )_v
678
678
      INTEGER k_a_offset
679
679
      INTEGER d_c
680
680
      INTEGER k_c_offset
681
 
      INTEGER NXTVAL
 
681
      INTEGER NXTASK
682
682
      INTEGER next
683
683
      INTEGER nprocs
684
684
      INTEGER count
700
700
      INTEGER k_a
701
701
      INTEGER l_c
702
702
      INTEGER k_c
703
 
      EXTERNAL NXTVAL
 
703
      EXTERNAL NXTASK
704
704
      nprocs = GA_NNODES()
705
705
      count = 0
706
 
      next = NXTVAL(nprocs)
 
706
      next = NXTASK(nprocs,1)
707
707
      DO p3b = noab+1,noab+nvab
708
708
      DO h7b = 1,noab
709
709
      DO h1b = 1,noab
758
758
      END IF
759
759
      END IF
760
760
      END IF
761
 
      next = NXTVAL(nprocs)
 
761
      next = NXTASK(nprocs,1)
762
762
      END IF
763
763
      count = count + 1
764
764
      END DO
765
765
      END DO
766
766
      END DO
767
767
      END DO
768
 
      next = NXTVAL(-nprocs)
 
768
      next = NXTASK(-nprocs,1)
769
769
      call GA_SYNC()
770
770
      RETURN
771
771
      END
772
772
      SUBROUTINE OFFSET_cc2_x2_1_2_1(l_a_offset,k_a_offset,size)
773
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
773
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
774
774
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
775
775
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
776
776
C     i2 ( h7 p3 h1 p5 )_v
840
840
      END
841
841
      SUBROUTINE cc2_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
842
842
     &et)
843
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
843
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
844
844
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
845
845
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
846
846
C     i2 ( h7 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h7 p3 p5 p6 )_v
856
856
      INTEGER k_b_offset
857
857
      INTEGER d_c
858
858
      INTEGER k_c_offset
859
 
      INTEGER NXTVAL
 
859
      INTEGER NXTASK
860
860
      INTEGER next
861
861
      INTEGER nprocs
862
862
      INTEGER count
889
889
      INTEGER k_b
890
890
      INTEGER l_c
891
891
      INTEGER k_c
892
 
      EXTERNAL NXTVAL
 
892
      EXTERNAL NXTASK
893
893
      nprocs = GA_NNODES()
894
894
      count = 0
895
 
      next = NXTVAL(nprocs)
 
895
      next = NXTASK(nprocs,1)
896
896
      DO p3b = noab+1,noab+nvab
897
897
      DO h7b = 1,noab
898
898
      DO h1b = 1,noab
993
993
      END IF
994
994
      END IF
995
995
      END IF
996
 
      next = NXTVAL(nprocs)
 
996
      next = NXTASK(nprocs,1)
997
997
      END IF
998
998
      count = count + 1
999
999
      END DO
1000
1000
      END DO
1001
1001
      END DO
1002
1002
      END DO
1003
 
      next = NXTVAL(-nprocs)
 
1003
      next = NXTASK(-nprocs,1)
1004
1004
      call GA_SYNC()
1005
1005
      RETURN
1006
1006
      END
1007
1007
      SUBROUTINE cc2_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
1008
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1008
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1009
1009
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1010
1010
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1011
1011
C     i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v
1021
1021
      INTEGER k_b_offset
1022
1022
      INTEGER d_c
1023
1023
      INTEGER k_c_offset
1024
 
      INTEGER NXTVAL
 
1024
      INTEGER NXTASK
1025
1025
      INTEGER next
1026
1026
      INTEGER nprocs
1027
1027
      INTEGER count
1054
1054
      INTEGER k_b
1055
1055
      INTEGER l_c
1056
1056
      INTEGER k_c
1057
 
      EXTERNAL NXTVAL
 
1057
      EXTERNAL NXTASK
1058
1058
      nprocs = GA_NNODES()
1059
1059
      count = 0
1060
 
      next = NXTVAL(nprocs)
 
1060
      next = NXTASK(nprocs,1)
1061
1061
      DO p3b = noab+1,noab+nvab
1062
1062
      DO p4b = p3b,noab+nvab
1063
1063
      DO h1b = 1,noab
1151
1151
      END IF
1152
1152
      END IF
1153
1153
      END IF
1154
 
      next = NXTVAL(nprocs)
 
1154
      next = NXTASK(nprocs,1)
1155
1155
      END IF
1156
1156
      count = count + 1
1157
1157
      END DO
1158
1158
      END DO
1159
1159
      END DO
1160
1160
      END DO
1161
 
      next = NXTVAL(-nprocs)
 
1161
      next = NXTASK(-nprocs,1)
1162
1162
      call GA_SYNC()
1163
1163
      RETURN
1164
1164
      END
1165
1165
      SUBROUTINE cc2_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
1166
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1166
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1167
1167
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1168
1168
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1169
1169
C     i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * f ( h5 h2 )_f
1179
1179
      INTEGER k_b_offset
1180
1180
      INTEGER d_c
1181
1181
      INTEGER k_c_offset
1182
 
      INTEGER NXTVAL
 
1182
      INTEGER NXTASK
1183
1183
      INTEGER next
1184
1184
      INTEGER nprocs
1185
1185
      INTEGER count
1212
1212
      INTEGER k_b
1213
1213
      INTEGER l_c
1214
1214
      INTEGER k_c
1215
 
      EXTERNAL NXTVAL
 
1215
      EXTERNAL NXTASK
1216
1216
      nprocs = GA_NNODES()
1217
1217
      count = 0
1218
 
      next = NXTVAL(nprocs)
 
1218
      next = NXTASK(nprocs,1)
1219
1219
      DO p3b = noab+1,noab+nvab
1220
1220
      DO p4b = p3b,noab+nvab
1221
1221
      DO h1b = 1,noab
1310
1310
      END IF
1311
1311
      END IF
1312
1312
      END IF
1313
 
      next = NXTVAL(nprocs)
 
1313
      next = NXTASK(nprocs,1)
1314
1314
      END IF
1315
1315
      count = count + 1
1316
1316
      END DO
1317
1317
      END DO
1318
1318
      END DO
1319
1319
      END DO
1320
 
      next = NXTVAL(-nprocs)
 
1320
      next = NXTASK(-nprocs,1)
1321
1321
      call GA_SYNC()
1322
1322
      RETURN
1323
1323
      END
1324
1324
      SUBROUTINE cc2_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
1325
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1325
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1326
1326
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1327
1327
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1328
1328
C     i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * f ( p4 p5 )_f
1338
1338
      INTEGER k_b_offset
1339
1339
      INTEGER d_c
1340
1340
      INTEGER k_c_offset
1341
 
      INTEGER NXTVAL
 
1341
      INTEGER NXTASK
1342
1342
      INTEGER next
1343
1343
      INTEGER nprocs
1344
1344
      INTEGER count
1371
1371
      INTEGER k_b
1372
1372
      INTEGER l_c
1373
1373
      INTEGER k_c
1374
 
      EXTERNAL NXTVAL
 
1374
      EXTERNAL NXTASK
1375
1375
      nprocs = GA_NNODES()
1376
1376
      count = 0
1377
 
      next = NXTVAL(nprocs)
 
1377
      next = NXTASK(nprocs,1)
1378
1378
      DO p3b = noab+1,noab+nvab
1379
1379
      DO p4b = noab+1,noab+nvab
1380
1380
      DO h1b = 1,noab
1469
1469
      END IF
1470
1470
      END IF
1471
1471
      END IF
1472
 
      next = NXTVAL(nprocs)
 
1472
      next = NXTASK(nprocs,1)
1473
1473
      END IF
1474
1474
      count = count + 1
1475
1475
      END DO
1476
1476
      END DO
1477
1477
      END DO
1478
1478
      END DO
1479
 
      next = NXTVAL(-nprocs)
 
1479
      next = NXTASK(-nprocs,1)
1480
1480
      call GA_SYNC()
1481
1481
      RETURN
1482
1482
      END
1483
1483
      SUBROUTINE cc2_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
1484
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1484
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1485
1485
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1486
1486
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1487
1487
C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx
1497
1497
      INTEGER k_b_offset
1498
1498
      INTEGER d_c
1499
1499
      INTEGER k_c_offset
1500
 
      INTEGER NXTVAL
 
1500
      INTEGER NXTASK
1501
1501
      INTEGER next
1502
1502
      INTEGER nprocs
1503
1503
      INTEGER count
1530
1530
      INTEGER k_b
1531
1531
      INTEGER l_c
1532
1532
      INTEGER k_c
1533
 
      EXTERNAL NXTVAL
 
1533
      EXTERNAL NXTASK
1534
1534
      nprocs = GA_NNODES()
1535
1535
      count = 0
1536
 
      next = NXTVAL(nprocs)
 
1536
      next = NXTASK(nprocs,1)
1537
1537
      DO p3b = noab+1,noab+nvab
1538
1538
      DO p4b = noab+1,noab+nvab
1539
1539
      DO h1b = 1,noab
1618
1618
      END IF
1619
1619
      END IF
1620
1620
      END IF
1621
 
      next = NXTVAL(nprocs)
 
1621
      next = NXTASK(nprocs,1)
1622
1622
      END IF
1623
1623
      count = count + 1
1624
1624
      END DO
1625
1625
      END DO
1626
1626
      END DO
1627
1627
      END DO
1628
 
      next = NXTVAL(-nprocs)
 
1628
      next = NXTASK(-nprocs,1)
1629
1629
      call GA_SYNC()
1630
1630
      RETURN
1631
1631
      END
1632
1632
      SUBROUTINE cc2_x2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
1633
1633
     &)
1634
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1634
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1635
1635
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1636
1636
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1637
1637
C     i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v
1647
1647
      INTEGER k_b_offset
1648
1648
      INTEGER d_c
1649
1649
      INTEGER k_c_offset
1650
 
      INTEGER NXTVAL
 
1650
      INTEGER NXTASK
1651
1651
      INTEGER next
1652
1652
      INTEGER nprocs
1653
1653
      INTEGER count
1680
1680
      INTEGER k_b
1681
1681
      INTEGER l_c
1682
1682
      INTEGER k_c
1683
 
      EXTERNAL NXTVAL
 
1683
      EXTERNAL NXTASK
1684
1684
      nprocs = GA_NNODES()
1685
1685
      count = 0
1686
 
      next = NXTVAL(nprocs)
 
1686
      next = NXTASK(nprocs,1)
1687
1687
      DO p3b = noab+1,noab+nvab
1688
1688
      DO h10b = 1,noab
1689
1689
      DO h1b = 1,noab
1770
1770
      END IF
1771
1771
      END IF
1772
1772
      END IF
1773
 
      next = NXTVAL(nprocs)
 
1773
      next = NXTASK(nprocs,1)
1774
1774
      END IF
1775
1775
      count = count + 1
1776
1776
      END DO
1777
1777
      END DO
1778
1778
      END DO
1779
1779
      END DO
1780
 
      next = NXTVAL(-nprocs)
 
1780
      next = NXTASK(-nprocs,1)
1781
1781
      call GA_SYNC()
1782
1782
      RETURN
1783
1783
      END
1784
1784
      SUBROUTINE OFFSET_cc2_x2_5_1(l_a_offset,k_a_offset,size)
1785
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1785
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1786
1786
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1787
1787
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1788
1788
C     i1 ( h10 p3 h1 h2 )_vx
1853
1853
      RETURN
1854
1854
      END
1855
1855
      SUBROUTINE cc2_x2_5_1_1(d_a,k_a_offset,d_c,k_c_offset)
1856
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1856
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1857
1857
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1858
1858
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1859
1859
C     i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v
1867
1867
      INTEGER k_a_offset
1868
1868
      INTEGER d_c
1869
1869
      INTEGER k_c_offset
1870
 
      INTEGER NXTVAL
 
1870
      INTEGER NXTASK
1871
1871
      INTEGER next
1872
1872
      INTEGER nprocs
1873
1873
      INTEGER count
1889
1889
      INTEGER k_a
1890
1890
      INTEGER l_c
1891
1891
      INTEGER k_c
1892
 
      EXTERNAL NXTVAL
 
1892
      EXTERNAL NXTASK
1893
1893
      nprocs = GA_NNODES()
1894
1894
      count = 0
1895
 
      next = NXTVAL(nprocs)
 
1895
      next = NXTASK(nprocs,1)
1896
1896
      DO h8b = 1,noab
1897
1897
      DO h10b = h8b,noab
1898
1898
      DO h1b = 1,noab
1944
1944
      END IF
1945
1945
      END IF
1946
1946
      END IF
1947
 
      next = NXTVAL(nprocs)
 
1947
      next = NXTASK(nprocs,1)
1948
1948
      END IF
1949
1949
      count = count + 1
1950
1950
      END DO
1951
1951
      END DO
1952
1952
      END DO
1953
1953
      END DO
1954
 
      next = NXTVAL(-nprocs)
 
1954
      next = NXTASK(-nprocs,1)
1955
1955
      call GA_SYNC()
1956
1956
      RETURN
1957
1957
      END
1958
1958
      SUBROUTINE OFFSET_cc2_x2_5_1_1(l_a_offset,k_a_offset,size)
1959
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1959
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
1960
1960
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1961
1961
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1962
1962
C     i2 ( h8 h10 h1 h2 )_v
2026
2026
      END
2027
2027
      SUBROUTINE cc2_x2_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
2028
2028
     &et)
2029
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2029
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2030
2030
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2031
2031
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2032
2032
C     i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v
2042
2042
      INTEGER k_b_offset
2043
2043
      INTEGER d_c
2044
2044
      INTEGER k_c_offset
2045
 
      INTEGER NXTVAL
 
2045
      INTEGER NXTASK
2046
2046
      INTEGER next
2047
2047
      INTEGER nprocs
2048
2048
      INTEGER count
2075
2075
      INTEGER k_b
2076
2076
      INTEGER l_c
2077
2077
      INTEGER k_c
2078
 
      EXTERNAL NXTVAL
 
2078
      EXTERNAL NXTASK
2079
2079
      nprocs = GA_NNODES()
2080
2080
      count = 0
2081
 
      next = NXTVAL(nprocs)
 
2081
      next = NXTASK(nprocs,1)
2082
2082
      DO h8b = 1,noab
2083
2083
      DO h10b = h8b,noab
2084
2084
      DO h1b = 1,noab
2163
2163
      END IF
2164
2164
      END IF
2165
2165
      END IF
2166
 
      next = NXTVAL(nprocs)
 
2166
      next = NXTASK(nprocs,1)
2167
2167
      END IF
2168
2168
      count = count + 1
2169
2169
      END DO
2170
2170
      END DO
2171
2171
      END DO
2172
2172
      END DO
2173
 
      next = NXTVAL(-nprocs)
 
2173
      next = NXTASK(-nprocs,1)
2174
2174
      call GA_SYNC()
2175
2175
      RETURN
2176
2176
      END
2177
2177
      SUBROUTINE cc2_x2_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset)
2178
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2178
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2179
2179
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2180
2180
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2181
2181
C     i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v
2189
2189
      INTEGER k_a_offset
2190
2190
      INTEGER d_c
2191
2191
      INTEGER k_c_offset
2192
 
      INTEGER NXTVAL
 
2192
      INTEGER NXTASK
2193
2193
      INTEGER next
2194
2194
      INTEGER nprocs
2195
2195
      INTEGER count
2211
2211
      INTEGER k_a
2212
2212
      INTEGER l_c
2213
2213
      INTEGER k_c
2214
 
      EXTERNAL NXTVAL
 
2214
      EXTERNAL NXTASK
2215
2215
      nprocs = GA_NNODES()
2216
2216
      count = 0
2217
 
      next = NXTVAL(nprocs)
 
2217
      next = NXTASK(nprocs,1)
2218
2218
      DO h8b = 1,noab
2219
2219
      DO h10b = h8b,noab
2220
2220
      DO h1b = 1,noab
2271
2271
      END IF
2272
2272
      END IF
2273
2273
      END IF
2274
 
      next = NXTVAL(nprocs)
 
2274
      next = NXTASK(nprocs,1)
2275
2275
      END IF
2276
2276
      count = count + 1
2277
2277
      END DO
2278
2278
      END DO
2279
2279
      END DO
2280
2280
      END DO
2281
 
      next = NXTVAL(-nprocs)
 
2281
      next = NXTASK(-nprocs,1)
2282
2282
      call GA_SYNC()
2283
2283
      RETURN
2284
2284
      END
2285
2285
      SUBROUTINE OFFSET_cc2_x2_5_1_2_1(l_a_offset,k_a_offset,size)
2286
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2286
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2287
2287
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2288
2288
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2289
2289
C     i3 ( h8 h10 h1 p5 )_v
2353
2353
      END
2354
2354
      SUBROUTINE cc2_x2_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2355
2355
     &fset)
2356
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2356
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2357
2357
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2358
2358
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2359
2359
C     i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v
2369
2369
      INTEGER k_b_offset
2370
2370
      INTEGER d_c
2371
2371
      INTEGER k_c_offset
2372
 
      INTEGER NXTVAL
 
2372
      INTEGER NXTASK
2373
2373
      INTEGER next
2374
2374
      INTEGER nprocs
2375
2375
      INTEGER count
2402
2402
      INTEGER k_b
2403
2403
      INTEGER l_c
2404
2404
      INTEGER k_c
2405
 
      EXTERNAL NXTVAL
 
2405
      EXTERNAL NXTASK
2406
2406
      nprocs = GA_NNODES()
2407
2407
      count = 0
2408
 
      next = NXTVAL(nprocs)
 
2408
      next = NXTASK(nprocs,1)
2409
2409
      DO h8b = 1,noab
2410
2410
      DO h10b = h8b,noab
2411
2411
      DO h1b = 1,noab
2509
2509
      END IF
2510
2510
      END IF
2511
2511
      END IF
2512
 
      next = NXTVAL(nprocs)
 
2512
      next = NXTASK(nprocs,1)
2513
2513
      END IF
2514
2514
      count = count + 1
2515
2515
      END DO
2516
2516
      END DO
2517
2517
      END DO
2518
2518
      END DO
2519
 
      next = NXTVAL(-nprocs)
 
2519
      next = NXTASK(-nprocs,1)
2520
2520
      call GA_SYNC()
2521
2521
      RETURN
2522
2522
      END
2523
2523
      SUBROUTINE cc2_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
2524
2524
     &)
2525
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2525
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2526
2526
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2527
2527
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2528
2528
C     i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v
2538
2538
      INTEGER k_b_offset
2539
2539
      INTEGER d_c
2540
2540
      INTEGER k_c_offset
2541
 
      INTEGER NXTVAL
 
2541
      INTEGER NXTASK
2542
2542
      INTEGER next
2543
2543
      INTEGER nprocs
2544
2544
      INTEGER count
2571
2571
      INTEGER k_b
2572
2572
      INTEGER l_c
2573
2573
      INTEGER k_c
2574
 
      EXTERNAL NXTVAL
 
2574
      EXTERNAL NXTASK
2575
2575
      nprocs = GA_NNODES()
2576
2576
      count = 0
2577
 
      next = NXTVAL(nprocs)
 
2577
      next = NXTASK(nprocs,1)
2578
2578
      DO p3b = noab+1,noab+nvab
2579
2579
      DO h10b = 1,noab
2580
2580
      DO h1b = 1,noab
2670
2670
      END IF
2671
2671
      END IF
2672
2672
      END IF
2673
 
      next = NXTVAL(nprocs)
 
2673
      next = NXTASK(nprocs,1)
2674
2674
      END IF
2675
2675
      count = count + 1
2676
2676
      END DO
2677
2677
      END DO
2678
2678
      END DO
2679
2679
      END DO
2680
 
      next = NXTVAL(-nprocs)
 
2680
      next = NXTASK(-nprocs,1)
2681
2681
      call GA_SYNC()
2682
2682
      RETURN
2683
2683
      END
2684
2684
      SUBROUTINE cc2_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
2685
2685
     &)
2686
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2686
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2687
2687
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2688
2688
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2689
2689
C     i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx
2699
2699
      INTEGER k_b_offset
2700
2700
      INTEGER d_c
2701
2701
      INTEGER k_c_offset
2702
 
      INTEGER NXTVAL
 
2702
      INTEGER NXTASK
2703
2703
      INTEGER next
2704
2704
      INTEGER nprocs
2705
2705
      INTEGER count
2732
2732
      INTEGER k_b
2733
2733
      INTEGER l_c
2734
2734
      INTEGER k_c
2735
 
      EXTERNAL NXTVAL
 
2735
      EXTERNAL NXTASK
2736
2736
      nprocs = GA_NNODES()
2737
2737
      count = 0
2738
 
      next = NXTVAL(nprocs)
 
2738
      next = NXTASK(nprocs,1)
2739
2739
      DO p3b = noab+1,noab+nvab
2740
2740
      DO h10b = 1,noab
2741
2741
      DO h1b = 1,noab
2822
2822
      END IF
2823
2823
      END IF
2824
2824
      END IF
2825
 
      next = NXTVAL(nprocs)
 
2825
      next = NXTASK(nprocs,1)
2826
2826
      END IF
2827
2827
      count = count + 1
2828
2828
      END DO
2829
2829
      END DO
2830
2830
      END DO
2831
2831
      END DO
2832
 
      next = NXTVAL(-nprocs)
 
2832
      next = NXTASK(-nprocs,1)
2833
2833
      call GA_SYNC()
2834
2834
      RETURN
2835
2835
      END
2836
2836
      SUBROUTINE cc2_x2_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
2837
2837
     &et)
2838
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2838
C     $Id: cc2_x2.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     i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v
2851
2851
      INTEGER k_b_offset
2852
2852
      INTEGER d_c
2853
2853
      INTEGER k_c_offset
2854
 
      INTEGER NXTVAL
 
2854
      INTEGER NXTASK
2855
2855
      INTEGER next
2856
2856
      INTEGER nprocs
2857
2857
      INTEGER count
2884
2884
      INTEGER k_b
2885
2885
      INTEGER l_c
2886
2886
      INTEGER k_c
2887
 
      EXTERNAL NXTVAL
 
2887
      EXTERNAL NXTASK
2888
2888
      nprocs = GA_NNODES()
2889
2889
      count = 0
2890
 
      next = NXTVAL(nprocs)
 
2890
      next = NXTASK(nprocs,1)
2891
2891
      DO h9b = 1,noab
2892
2892
      DO h10b = h9b,noab
2893
2893
      DO h1b = 1,noab
2981
2981
      END IF
2982
2982
      END IF
2983
2983
      END IF
2984
 
      next = NXTVAL(nprocs)
 
2984
      next = NXTASK(nprocs,1)
2985
2985
      END IF
2986
2986
      count = count + 1
2987
2987
      END DO
2988
2988
      END DO
2989
2989
      END DO
2990
2990
      END DO
2991
 
      next = NXTVAL(-nprocs)
 
2991
      next = NXTASK(-nprocs,1)
2992
2992
      call GA_SYNC()
2993
2993
      RETURN
2994
2994
      END
2995
2995
      SUBROUTINE OFFSET_cc2_x2_5_3_1(l_a_offset,k_a_offset,size)
2996
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
2996
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
2997
2997
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2998
2998
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2999
2999
C     i2 ( h9 h10 h1 h2 )_vx
3065
3065
      END
3066
3066
      SUBROUTINE cc2_x2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
3067
3067
     &et)
3068
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3068
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3069
3069
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3070
3070
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3071
3071
C     i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx
3081
3081
      INTEGER k_b_offset
3082
3082
      INTEGER d_c
3083
3083
      INTEGER k_c_offset
3084
 
      INTEGER NXTVAL
 
3084
      INTEGER NXTASK
3085
3085
      INTEGER next
3086
3086
      INTEGER nprocs
3087
3087
      INTEGER count
3114
3114
      INTEGER k_b
3115
3115
      INTEGER l_c
3116
3116
      INTEGER k_c
3117
 
      EXTERNAL NXTVAL
 
3117
      EXTERNAL NXTASK
3118
3118
      nprocs = GA_NNODES()
3119
3119
      count = 0
3120
 
      next = NXTVAL(nprocs)
 
3120
      next = NXTASK(nprocs,1)
3121
3121
      DO h9b = 1,noab
3122
3122
      DO h10b = h9b,noab
3123
3123
      DO h1b = 1,noab
3202
3202
      END IF
3203
3203
      END IF
3204
3204
      END IF
3205
 
      next = NXTVAL(nprocs)
 
3205
      next = NXTASK(nprocs,1)
3206
3206
      END IF
3207
3207
      count = count + 1
3208
3208
      END DO
3209
3209
      END DO
3210
3210
      END DO
3211
3211
      END DO
3212
 
      next = NXTVAL(-nprocs)
 
3212
      next = NXTASK(-nprocs,1)
3213
3213
      call GA_SYNC()
3214
3214
      RETURN
3215
3215
      END
3216
3216
      SUBROUTINE cc2_x2_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
3217
3217
     &fset)
3218
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3218
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3219
3219
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3220
3220
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3221
3221
C     i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v
3231
3231
      INTEGER k_b_offset
3232
3232
      INTEGER d_c
3233
3233
      INTEGER k_c_offset
3234
 
      INTEGER NXTVAL
 
3234
      INTEGER NXTASK
3235
3235
      INTEGER next
3236
3236
      INTEGER nprocs
3237
3237
      INTEGER count
3264
3264
      INTEGER k_b
3265
3265
      INTEGER l_c
3266
3266
      INTEGER k_c
3267
 
      EXTERNAL NXTVAL
 
3267
      EXTERNAL NXTASK
3268
3268
      nprocs = GA_NNODES()
3269
3269
      count = 0
3270
 
      next = NXTVAL(nprocs)
 
3270
      next = NXTASK(nprocs,1)
3271
3271
      DO h9b = 1,noab
3272
3272
      DO h10b = h9b,noab
3273
3273
      DO h1b = 1,noab
3371
3371
      END IF
3372
3372
      END IF
3373
3373
      END IF
3374
 
      next = NXTVAL(nprocs)
 
3374
      next = NXTASK(nprocs,1)
3375
3375
      END IF
3376
3376
      count = count + 1
3377
3377
      END DO
3378
3378
      END DO
3379
3379
      END DO
3380
3380
      END DO
3381
 
      next = NXTVAL(-nprocs)
 
3381
      next = NXTASK(-nprocs,1)
3382
3382
      call GA_SYNC()
3383
3383
      RETURN
3384
3384
      END
3385
3385
      SUBROUTINE OFFSET_cc2_x2_5_3_2_1(l_a_offset,k_a_offset,size)
3386
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3386
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3387
3387
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3388
3388
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3389
3389
C     i3 ( h9 h10 h1 p5 )_vx
3455
3455
      END
3456
3456
      SUBROUTINE cc2_x2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
3457
3457
     &)
3458
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3458
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3459
3459
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3460
3460
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3461
3461
C     i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx
3471
3471
      INTEGER k_b_offset
3472
3472
      INTEGER d_c
3473
3473
      INTEGER k_c_offset
3474
 
      INTEGER NXTVAL
 
3474
      INTEGER NXTASK
3475
3475
      INTEGER next
3476
3476
      INTEGER nprocs
3477
3477
      INTEGER count
3504
3504
      INTEGER k_b
3505
3505
      INTEGER l_c
3506
3506
      INTEGER k_c
3507
 
      EXTERNAL NXTVAL
 
3507
      EXTERNAL NXTASK
3508
3508
      nprocs = GA_NNODES()
3509
3509
      count = 0
3510
 
      next = NXTVAL(nprocs)
 
3510
      next = NXTASK(nprocs,1)
3511
3511
      DO p3b = noab+1,noab+nvab
3512
3512
      DO h10b = 1,noab
3513
3513
      DO h1b = 1,noab
3594
3594
      END IF
3595
3595
      END IF
3596
3596
      END IF
3597
 
      next = NXTVAL(nprocs)
 
3597
      next = NXTASK(nprocs,1)
3598
3598
      END IF
3599
3599
      count = count + 1
3600
3600
      END DO
3601
3601
      END DO
3602
3602
      END DO
3603
3603
      END DO
3604
 
      next = NXTVAL(-nprocs)
 
3604
      next = NXTASK(-nprocs,1)
3605
3605
      call GA_SYNC()
3606
3606
      RETURN
3607
3607
      END
3608
3608
      SUBROUTINE cc2_x2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
3609
3609
     &et)
3610
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3610
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3611
3611
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3612
3612
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3613
3613
C     i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v
3623
3623
      INTEGER k_b_offset
3624
3624
      INTEGER d_c
3625
3625
      INTEGER k_c_offset
3626
 
      INTEGER NXTVAL
 
3626
      INTEGER NXTASK
3627
3627
      INTEGER next
3628
3628
      INTEGER nprocs
3629
3629
      INTEGER count
3656
3656
      INTEGER k_b
3657
3657
      INTEGER l_c
3658
3658
      INTEGER k_c
3659
 
      EXTERNAL NXTVAL
 
3659
      EXTERNAL NXTASK
3660
3660
      nprocs = GA_NNODES()
3661
3661
      count = 0
3662
 
      next = NXTVAL(nprocs)
 
3662
      next = NXTASK(nprocs,1)
3663
3663
      DO p3b = noab+1,noab+nvab
3664
3664
      DO h10b = 1,noab
3665
3665
      DO h1b = 1,noab
3760
3760
      END IF
3761
3761
      END IF
3762
3762
      END IF
3763
 
      next = NXTVAL(nprocs)
 
3763
      next = NXTASK(nprocs,1)
3764
3764
      END IF
3765
3765
      count = count + 1
3766
3766
      END DO
3767
3767
      END DO
3768
3768
      END DO
3769
3769
      END DO
3770
 
      next = NXTVAL(-nprocs)
 
3770
      next = NXTASK(-nprocs,1)
3771
3771
      call GA_SYNC()
3772
3772
      RETURN
3773
3773
      END
3774
3774
      SUBROUTINE OFFSET_cc2_x2_5_4_1(l_a_offset,k_a_offset,size)
3775
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3775
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3776
3776
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3777
3777
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3778
3778
C     i2 ( h10 p3 h1 p5 )_vx
3843
3843
      RETURN
3844
3844
      END
3845
3845
      SUBROUTINE cc2_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset)
3846
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3846
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3847
3847
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3848
3848
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3849
3849
C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx
3859
3859
      INTEGER k_b_offset
3860
3860
      INTEGER d_c
3861
3861
      INTEGER k_c_offset
3862
 
      INTEGER NXTVAL
 
3862
      INTEGER NXTASK
3863
3863
      INTEGER next
3864
3864
      INTEGER nprocs
3865
3865
      INTEGER count
3892
3892
      INTEGER k_b
3893
3893
      INTEGER l_c
3894
3894
      INTEGER k_c
3895
 
      EXTERNAL NXTVAL
 
3895
      EXTERNAL NXTASK
3896
3896
      nprocs = GA_NNODES()
3897
3897
      count = 0
3898
 
      next = NXTVAL(nprocs)
 
3898
      next = NXTASK(nprocs,1)
3899
3899
      DO p3b = noab+1,noab+nvab
3900
3900
      DO p4b = p3b,noab+nvab
3901
3901
      DO h1b = 1,noab
3980
3980
      END IF
3981
3981
      END IF
3982
3982
      END IF
3983
 
      next = NXTVAL(nprocs)
 
3983
      next = NXTASK(nprocs,1)
3984
3984
      END IF
3985
3985
      count = count + 1
3986
3986
      END DO
3987
3987
      END DO
3988
3988
      END DO
3989
3989
      END DO
3990
 
      next = NXTVAL(-nprocs)
 
3990
      next = NXTASK(-nprocs,1)
3991
3991
      call GA_SYNC()
3992
3992
      RETURN
3993
3993
      END
3994
3994
      SUBROUTINE cc2_x2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
3995
3995
     &)
3996
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3996
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
3997
3997
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3998
3998
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3999
3999
C     i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v
4009
4009
      INTEGER k_b_offset
4010
4010
      INTEGER d_c
4011
4011
      INTEGER k_c_offset
4012
 
      INTEGER NXTVAL
 
4012
      INTEGER NXTASK
4013
4013
      INTEGER next
4014
4014
      INTEGER nprocs
4015
4015
      INTEGER count
4042
4042
      INTEGER k_b
4043
4043
      INTEGER l_c
4044
4044
      INTEGER k_c
4045
 
      EXTERNAL NXTVAL
 
4045
      EXTERNAL NXTASK
4046
4046
      nprocs = GA_NNODES()
4047
4047
      count = 0
4048
 
      next = NXTVAL(nprocs)
 
4048
      next = NXTASK(nprocs,1)
4049
4049
      DO p3b = noab+1,noab+nvab
4050
4050
      DO p4b = p3b,noab+nvab
4051
4051
      DO h1b = 1,noab
4146
4146
      END IF
4147
4147
      END IF
4148
4148
      END IF
4149
 
      next = NXTVAL(nprocs)
 
4149
      next = NXTASK(nprocs,1)
4150
4150
      END IF
4151
4151
      count = count + 1
4152
4152
      END DO
4153
4153
      END DO
4154
4154
      END DO
4155
4155
      END DO
4156
 
      next = NXTVAL(-nprocs)
 
4156
      next = NXTASK(-nprocs,1)
4157
4157
      call GA_SYNC()
4158
4158
      RETURN
4159
4159
      END
4160
4160
      SUBROUTINE OFFSET_cc2_x2_6_1(l_a_offset,k_a_offset,size)
4161
 
C     $Id: cc2_x2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
4161
C     $Id: cc2_x2.F 24183 2013-05-03 23:47:08Z edo $
4162
4162
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4163
4163
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4164
4164
C     i1 ( p3 p4 h1 p5 )_vx