← Back to branch summary

~ubuntu-branches/ubuntu/utopic/nwchem/utopic

« back to all changes in this revision

Viewing changes to src/tce/eomccsdtq/eomccsdtq_x1.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/eomccsdtq/eomccsdtq_x1.F
1
1
      SUBROUTINE eomccsdtq_x1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,d_x3,k_
2
2
     &f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_off
3
3
     &set,k_x2_offset,k_x3_offset)
4
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4
C     $Id: eomccsdtq_x1.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 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f
214
214
      END
215
215
      SUBROUTINE eomccsdtq_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
216
216
     &fset)
217
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
217
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
218
218
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
219
219
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
220
220
C     i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f
230
230
      INTEGER k_b_offset
231
231
      INTEGER d_c
232
232
      INTEGER k_c_offset
233
 
      INTEGER NXTVAL
 
233
      INTEGER NXTASK
234
234
      INTEGER next
235
235
      INTEGER nprocs
236
236
      INTEGER count
259
259
      INTEGER k_b
260
260
      INTEGER l_c
261
261
      INTEGER k_c
262
 
      EXTERNAL NXTVAL
 
262
      EXTERNAL NXTASK
263
263
      nprocs = GA_NNODES()
264
264
      count = 0
265
 
      next = NXTVAL(nprocs)
 
265
      next = NXTASK(nprocs,1)
266
266
      DO p2b = noab+1,noab+nvab
267
267
      DO h1b = 1,noab
268
268
      IF (next.eq.count) THEN
331
331
      END IF
332
332
      END IF
333
333
      END IF
334
 
      next = NXTVAL(nprocs)
 
334
      next = NXTASK(nprocs,1)
335
335
      END IF
336
336
      count = count + 1
337
337
      END DO
338
338
      END DO
339
 
      next = NXTVAL(-nprocs)
 
339
      next = NXTASK(-nprocs,1)
340
340
      call GA_SYNC()
341
341
      RETURN
342
342
      END
343
343
      SUBROUTINE eomccsdtq_x1_1_1(d_a,k_a_offset,d_c,k_c_offset)
344
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
344
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
345
345
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
346
346
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
347
347
C     i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f
355
355
      INTEGER k_a_offset
356
356
      INTEGER d_c
357
357
      INTEGER k_c_offset
358
 
      INTEGER NXTVAL
 
358
      INTEGER NXTASK
359
359
      INTEGER next
360
360
      INTEGER nprocs
361
361
      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 h6b = 1,noab
381
381
      DO h1b = 1,noab
382
382
      IF (next.eq.count) THEN
415
415
      END IF
416
416
      END IF
417
417
      END IF
418
 
      next = NXTVAL(nprocs)
 
418
      next = NXTASK(nprocs,1)
419
419
      END IF
420
420
      count = count + 1
421
421
      END DO
422
422
      END DO
423
 
      next = NXTVAL(-nprocs)
 
423
      next = NXTASK(-nprocs,1)
424
424
      call GA_SYNC()
425
425
      RETURN
426
426
      END
427
427
      SUBROUTINE OFFSET_eomccsdtq_x1_1_1(l_a_offset,k_a_offset,size)
428
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
428
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
429
429
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
430
430
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
431
431
C     i1 ( h6 h1 )_f
481
481
      END
482
482
      SUBROUTINE eomccsdtq_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
483
483
     &offset)
484
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
484
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
485
485
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
486
486
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
487
487
C     i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f
497
497
      INTEGER k_b_offset
498
498
      INTEGER d_c
499
499
      INTEGER k_c_offset
500
 
      INTEGER NXTVAL
 
500
      INTEGER NXTASK
501
501
      INTEGER next
502
502
      INTEGER nprocs
503
503
      INTEGER count
526
526
      INTEGER k_b
527
527
      INTEGER l_c
528
528
      INTEGER k_c
529
 
      EXTERNAL NXTVAL
 
529
      EXTERNAL NXTASK
530
530
      nprocs = GA_NNODES()
531
531
      count = 0
532
 
      next = NXTVAL(nprocs)
 
532
      next = NXTASK(nprocs,1)
533
533
      DO h6b = 1,noab
534
534
      DO h1b = 1,noab
535
535
      IF (next.eq.count) THEN
598
598
      END IF
599
599
      END IF
600
600
      END IF
601
 
      next = NXTVAL(nprocs)
 
601
      next = NXTASK(nprocs,1)
602
602
      END IF
603
603
      count = count + 1
604
604
      END DO
605
605
      END DO
606
 
      next = NXTVAL(-nprocs)
 
606
      next = NXTASK(-nprocs,1)
607
607
      call GA_SYNC()
608
608
      RETURN
609
609
      END
610
610
      SUBROUTINE eomccsdtq_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset)
611
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
611
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
612
612
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
613
613
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
614
614
C     i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f
622
622
      INTEGER k_a_offset
623
623
      INTEGER d_c
624
624
      INTEGER k_c_offset
625
 
      INTEGER NXTVAL
 
625
      INTEGER NXTASK
626
626
      INTEGER next
627
627
      INTEGER nprocs
628
628
      INTEGER count
640
640
      INTEGER k_a
641
641
      INTEGER l_c
642
642
      INTEGER k_c
643
 
      EXTERNAL NXTVAL
 
643
      EXTERNAL NXTASK
644
644
      nprocs = GA_NNODES()
645
645
      count = 0
646
 
      next = NXTVAL(nprocs)
 
646
      next = NXTASK(nprocs,1)
647
647
      DO h6b = 1,noab
648
648
      DO p7b = noab+1,noab+nvab
649
649
      IF (next.eq.count) THEN
682
682
      END IF
683
683
      END IF
684
684
      END IF
685
 
      next = NXTVAL(nprocs)
 
685
      next = NXTASK(nprocs,1)
686
686
      END IF
687
687
      count = count + 1
688
688
      END DO
689
689
      END DO
690
 
      next = NXTVAL(-nprocs)
 
690
      next = NXTASK(-nprocs,1)
691
691
      call GA_SYNC()
692
692
      RETURN
693
693
      END
694
694
      SUBROUTINE OFFSET_eomccsdtq_x1_1_2_1(l_a_offset,k_a_offset,size)
695
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
695
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
696
696
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
697
697
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
698
698
C     i2 ( h6 p7 )_f
748
748
      END
749
749
      SUBROUTINE eomccsdtq_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
750
750
     &c_offset)
751
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
751
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
752
752
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
753
753
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
754
754
C     i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v
764
764
      INTEGER k_b_offset
765
765
      INTEGER d_c
766
766
      INTEGER k_c_offset
767
 
      INTEGER NXTVAL
 
767
      INTEGER NXTASK
768
768
      INTEGER next
769
769
      INTEGER nprocs
770
770
      INTEGER count
796
796
      INTEGER k_b
797
797
      INTEGER l_c
798
798
      INTEGER k_c
799
 
      EXTERNAL NXTVAL
 
799
      EXTERNAL NXTASK
800
800
      nprocs = GA_NNODES()
801
801
      count = 0
802
 
      next = NXTVAL(nprocs)
 
802
      next = NXTASK(nprocs,1)
803
803
      DO h6b = 1,noab
804
804
      DO p7b = noab+1,noab+nvab
805
805
      IF (next.eq.count) THEN
898
898
      END IF
899
899
      END IF
900
900
      END IF
901
 
      next = NXTVAL(nprocs)
 
901
      next = NXTASK(nprocs,1)
902
902
      END IF
903
903
      count = count + 1
904
904
      END DO
905
905
      END DO
906
 
      next = NXTVAL(-nprocs)
 
906
      next = NXTASK(-nprocs,1)
907
907
      call GA_SYNC()
908
908
      RETURN
909
909
      END
910
910
      SUBROUTINE eomccsdtq_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
911
911
     &offset)
912
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
912
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
913
913
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
914
914
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
915
915
C     i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v
925
925
      INTEGER k_b_offset
926
926
      INTEGER d_c
927
927
      INTEGER k_c_offset
928
 
      INTEGER NXTVAL
 
928
      INTEGER NXTASK
929
929
      INTEGER next
930
930
      INTEGER nprocs
931
931
      INTEGER count
957
957
      INTEGER k_b
958
958
      INTEGER l_c
959
959
      INTEGER k_c
960
 
      EXTERNAL NXTVAL
 
960
      EXTERNAL NXTASK
961
961
      nprocs = GA_NNODES()
962
962
      count = 0
963
 
      next = NXTVAL(nprocs)
 
963
      next = NXTASK(nprocs,1)
964
964
      DO h6b = 1,noab
965
965
      DO h1b = 1,noab
966
966
      IF (next.eq.count) THEN
1043
1043
      END IF
1044
1044
      END IF
1045
1045
      END IF
1046
 
      next = NXTVAL(nprocs)
 
1046
      next = NXTASK(nprocs,1)
1047
1047
      END IF
1048
1048
      count = count + 1
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 eomccsdtq_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1056
1056
     &offset)
1057
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1057
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1058
1058
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1059
1059
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1060
1060
C     i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v
1070
1070
      INTEGER k_b_offset
1071
1071
      INTEGER d_c
1072
1072
      INTEGER k_c_offset
1073
 
      INTEGER NXTVAL
 
1073
      INTEGER NXTASK
1074
1074
      INTEGER next
1075
1075
      INTEGER nprocs
1076
1076
      INTEGER count
1108
1108
      INTEGER l_c
1109
1109
      INTEGER k_c
1110
1110
      DOUBLE PRECISION FACTORIAL
1111
 
      EXTERNAL NXTVAL
 
1111
      EXTERNAL NXTASK
1112
1112
      EXTERNAL FACTORIAL
1113
1113
      nprocs = GA_NNODES()
1114
1114
      count = 0
1115
 
      next = NXTVAL(nprocs)
 
1115
      next = NXTASK(nprocs,1)
1116
1116
      DO h6b = 1,noab
1117
1117
      DO h1b = 1,noab
1118
1118
      IF (next.eq.count) THEN
1219
1219
      END IF
1220
1220
      END IF
1221
1221
      END IF
1222
 
      next = NXTVAL(nprocs)
 
1222
      next = NXTASK(nprocs,1)
1223
1223
      END IF
1224
1224
      count = count + 1
1225
1225
      END DO
1226
1226
      END DO
1227
 
      next = NXTVAL(-nprocs)
 
1227
      next = NXTASK(-nprocs,1)
1228
1228
      call GA_SYNC()
1229
1229
      RETURN
1230
1230
      END
1231
1231
      SUBROUTINE eomccsdtq_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1232
1232
     &fset)
1233
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1233
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1234
1234
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1235
1235
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1236
1236
C     i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f
1246
1246
      INTEGER k_b_offset
1247
1247
      INTEGER d_c
1248
1248
      INTEGER k_c_offset
1249
 
      INTEGER NXTVAL
 
1249
      INTEGER NXTASK
1250
1250
      INTEGER next
1251
1251
      INTEGER nprocs
1252
1252
      INTEGER count
1275
1275
      INTEGER k_b
1276
1276
      INTEGER l_c
1277
1277
      INTEGER k_c
1278
 
      EXTERNAL NXTVAL
 
1278
      EXTERNAL NXTASK
1279
1279
      nprocs = GA_NNODES()
1280
1280
      count = 0
1281
 
      next = NXTVAL(nprocs)
 
1281
      next = NXTASK(nprocs,1)
1282
1282
      DO p2b = noab+1,noab+nvab
1283
1283
      DO h1b = 1,noab
1284
1284
      IF (next.eq.count) THEN
1347
1347
      END IF
1348
1348
      END IF
1349
1349
      END IF
1350
 
      next = NXTVAL(nprocs)
 
1350
      next = NXTASK(nprocs,1)
1351
1351
      END IF
1352
1352
      count = count + 1
1353
1353
      END DO
1354
1354
      END DO
1355
 
      next = NXTVAL(-nprocs)
 
1355
      next = NXTASK(-nprocs,1)
1356
1356
      call GA_SYNC()
1357
1357
      RETURN
1358
1358
      END
1359
1359
      SUBROUTINE eomccsdtq_x1_2_1(d_a,k_a_offset,d_c,k_c_offset)
1360
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1360
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1361
1361
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1362
1362
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1363
1363
C     i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f
1371
1371
      INTEGER k_a_offset
1372
1372
      INTEGER d_c
1373
1373
      INTEGER k_c_offset
1374
 
      INTEGER NXTVAL
 
1374
      INTEGER NXTASK
1375
1375
      INTEGER next
1376
1376
      INTEGER nprocs
1377
1377
      INTEGER count
1389
1389
      INTEGER k_a
1390
1390
      INTEGER l_c
1391
1391
      INTEGER k_c
1392
 
      EXTERNAL NXTVAL
 
1392
      EXTERNAL NXTASK
1393
1393
      nprocs = GA_NNODES()
1394
1394
      count = 0
1395
 
      next = NXTVAL(nprocs)
 
1395
      next = NXTASK(nprocs,1)
1396
1396
      DO p2b = noab+1,noab+nvab
1397
1397
      DO p6b = noab+1,noab+nvab
1398
1398
      IF (next.eq.count) THEN
1431
1431
      END IF
1432
1432
      END IF
1433
1433
      END IF
1434
 
      next = NXTVAL(nprocs)
 
1434
      next = NXTASK(nprocs,1)
1435
1435
      END IF
1436
1436
      count = count + 1
1437
1437
      END DO
1438
1438
      END DO
1439
 
      next = NXTVAL(-nprocs)
 
1439
      next = NXTASK(-nprocs,1)
1440
1440
      call GA_SYNC()
1441
1441
      RETURN
1442
1442
      END
1443
1443
      SUBROUTINE OFFSET_eomccsdtq_x1_2_1(l_a_offset,k_a_offset,size)
1444
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1444
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1445
1445
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1446
1446
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1447
1447
C     i1 ( p2 p6 )_f
1497
1497
      END
1498
1498
      SUBROUTINE eomccsdtq_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1499
1499
     &offset)
1500
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1500
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1501
1501
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1502
1502
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1503
1503
C     i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v
1513
1513
      INTEGER k_b_offset
1514
1514
      INTEGER d_c
1515
1515
      INTEGER k_c_offset
1516
 
      INTEGER NXTVAL
 
1516
      INTEGER NXTASK
1517
1517
      INTEGER next
1518
1518
      INTEGER nprocs
1519
1519
      INTEGER count
1545
1545
      INTEGER k_b
1546
1546
      INTEGER l_c
1547
1547
      INTEGER k_c
1548
 
      EXTERNAL NXTVAL
 
1548
      EXTERNAL NXTASK
1549
1549
      nprocs = GA_NNODES()
1550
1550
      count = 0
1551
 
      next = NXTVAL(nprocs)
 
1551
      next = NXTASK(nprocs,1)
1552
1552
      DO p2b = noab+1,noab+nvab
1553
1553
      DO p6b = noab+1,noab+nvab
1554
1554
      IF (next.eq.count) THEN
1631
1631
      END IF
1632
1632
      END IF
1633
1633
      END IF
1634
 
      next = NXTVAL(nprocs)
 
1634
      next = NXTASK(nprocs,1)
1635
1635
      END IF
1636
1636
      count = count + 1
1637
1637
      END DO
1638
1638
      END DO
1639
 
      next = NXTVAL(-nprocs)
 
1639
      next = NXTASK(-nprocs,1)
1640
1640
      call GA_SYNC()
1641
1641
      RETURN
1642
1642
      END
1643
1643
      SUBROUTINE eomccsdtq_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1644
1644
     &fset)
1645
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1645
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1646
1646
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1647
1647
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1648
1648
C     i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v
1658
1658
      INTEGER k_b_offset
1659
1659
      INTEGER d_c
1660
1660
      INTEGER k_c_offset
1661
 
      INTEGER NXTVAL
 
1661
      INTEGER NXTASK
1662
1662
      INTEGER next
1663
1663
      INTEGER nprocs
1664
1664
      INTEGER count
1690
1690
      INTEGER k_b
1691
1691
      INTEGER l_c
1692
1692
      INTEGER k_c
1693
 
      EXTERNAL NXTVAL
 
1693
      EXTERNAL NXTASK
1694
1694
      nprocs = GA_NNODES()
1695
1695
      count = 0
1696
 
      next = NXTVAL(nprocs)
 
1696
      next = NXTASK(nprocs,1)
1697
1697
      DO p2b = noab+1,noab+nvab
1698
1698
      DO h1b = 1,noab
1699
1699
      IF (next.eq.count) THEN
1768
1768
      END IF
1769
1769
      END IF
1770
1770
      END IF
1771
 
      next = NXTVAL(nprocs)
 
1771
      next = NXTASK(nprocs,1)
1772
1772
      END IF
1773
1773
      count = count + 1
1774
1774
      END DO
1775
1775
      END DO
1776
 
      next = NXTVAL(-nprocs)
 
1776
      next = NXTASK(-nprocs,1)
1777
1777
      call GA_SYNC()
1778
1778
      RETURN
1779
1779
      END
1780
1780
      SUBROUTINE eomccsdtq_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1781
1781
     &fset)
1782
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1782
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1783
1783
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1784
1784
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1785
1785
C     i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f
1795
1795
      INTEGER k_b_offset
1796
1796
      INTEGER d_c
1797
1797
      INTEGER k_c_offset
1798
 
      INTEGER NXTVAL
 
1798
      INTEGER NXTASK
1799
1799
      INTEGER next
1800
1800
      INTEGER nprocs
1801
1801
      INTEGER count
1827
1827
      INTEGER k_b
1828
1828
      INTEGER l_c
1829
1829
      INTEGER k_c
1830
 
      EXTERNAL NXTVAL
 
1830
      EXTERNAL NXTASK
1831
1831
      nprocs = GA_NNODES()
1832
1832
      count = 0
1833
 
      next = NXTVAL(nprocs)
 
1833
      next = NXTASK(nprocs,1)
1834
1834
      DO p2b = noab+1,noab+nvab
1835
1835
      DO h1b = 1,noab
1836
1836
      IF (next.eq.count) THEN
1930
1930
      END IF
1931
1931
      END IF
1932
1932
      END IF
1933
 
      next = NXTVAL(nprocs)
 
1933
      next = NXTASK(nprocs,1)
1934
1934
      END IF
1935
1935
      count = count + 1
1936
1936
      END DO
1937
1937
      END DO
1938
 
      next = NXTVAL(-nprocs)
 
1938
      next = NXTASK(-nprocs,1)
1939
1939
      call GA_SYNC()
1940
1940
      RETURN
1941
1941
      END
1942
1942
      SUBROUTINE eomccsdtq_x1_4_1(d_a,k_a_offset,d_c,k_c_offset)
1943
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
1943
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
1944
1944
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1945
1945
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1946
1946
C     i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f
1954
1954
      INTEGER k_a_offset
1955
1955
      INTEGER d_c
1956
1956
      INTEGER k_c_offset
1957
 
      INTEGER NXTVAL
 
1957
      INTEGER NXTASK
1958
1958
      INTEGER next
1959
1959
      INTEGER nprocs
1960
1960
      INTEGER count
1972
1972
      INTEGER k_a
1973
1973
      INTEGER l_c
1974
1974
      INTEGER k_c
1975
 
      EXTERNAL NXTVAL
 
1975
      EXTERNAL NXTASK
1976
1976
      nprocs = GA_NNODES()
1977
1977
      count = 0
1978
 
      next = NXTVAL(nprocs)
 
1978
      next = NXTASK(nprocs,1)
1979
1979
      DO h6b = 1,noab
1980
1980
      DO p7b = noab+1,noab+nvab
1981
1981
      IF (next.eq.count) THEN
2014
2014
      END IF
2015
2015
      END IF
2016
2016
      END IF
2017
 
      next = NXTVAL(nprocs)
 
2017
      next = NXTASK(nprocs,1)
2018
2018
      END IF
2019
2019
      count = count + 1
2020
2020
      END DO
2021
2021
      END DO
2022
 
      next = NXTVAL(-nprocs)
 
2022
      next = NXTASK(-nprocs,1)
2023
2023
      call GA_SYNC()
2024
2024
      RETURN
2025
2025
      END
2026
2026
      SUBROUTINE OFFSET_eomccsdtq_x1_4_1(l_a_offset,k_a_offset,size)
2027
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2027
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2028
2028
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2029
2029
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2030
2030
C     i1 ( h6 p7 )_f
2080
2080
      END
2081
2081
      SUBROUTINE eomccsdtq_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2082
2082
     &offset)
2083
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2083
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2084
2084
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2085
2085
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2086
2086
C     i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v
2096
2096
      INTEGER k_b_offset
2097
2097
      INTEGER d_c
2098
2098
      INTEGER k_c_offset
2099
 
      INTEGER NXTVAL
 
2099
      INTEGER NXTASK
2100
2100
      INTEGER next
2101
2101
      INTEGER nprocs
2102
2102
      INTEGER count
2128
2128
      INTEGER k_b
2129
2129
      INTEGER l_c
2130
2130
      INTEGER k_c
2131
 
      EXTERNAL NXTVAL
 
2131
      EXTERNAL NXTASK
2132
2132
      nprocs = GA_NNODES()
2133
2133
      count = 0
2134
 
      next = NXTVAL(nprocs)
 
2134
      next = NXTASK(nprocs,1)
2135
2135
      DO h6b = 1,noab
2136
2136
      DO p7b = noab+1,noab+nvab
2137
2137
      IF (next.eq.count) THEN
2230
2230
      END IF
2231
2231
      END IF
2232
2232
      END IF
2233
 
      next = NXTVAL(nprocs)
 
2233
      next = NXTASK(nprocs,1)
2234
2234
      END IF
2235
2235
      count = count + 1
2236
2236
      END DO
2237
2237
      END DO
2238
 
      next = NXTVAL(-nprocs)
 
2238
      next = NXTASK(-nprocs,1)
2239
2239
      call GA_SYNC()
2240
2240
      RETURN
2241
2241
      END
2242
2242
      SUBROUTINE eomccsdtq_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2243
2243
     &fset)
2244
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2244
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2245
2245
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2246
2246
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2247
2247
C     i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h8 h6 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v
2257
2257
      INTEGER k_b_offset
2258
2258
      INTEGER d_c
2259
2259
      INTEGER k_c_offset
2260
 
      INTEGER NXTVAL
 
2260
      INTEGER NXTASK
2261
2261
      INTEGER next
2262
2262
      INTEGER nprocs
2263
2263
      INTEGER count
2295
2295
      INTEGER l_c
2296
2296
      INTEGER k_c
2297
2297
      DOUBLE PRECISION FACTORIAL
2298
 
      EXTERNAL NXTVAL
 
2298
      EXTERNAL NXTASK
2299
2299
      EXTERNAL FACTORIAL
2300
2300
      nprocs = GA_NNODES()
2301
2301
      count = 0
2302
 
      next = NXTVAL(nprocs)
 
2302
      next = NXTASK(nprocs,1)
2303
2303
      DO p2b = noab+1,noab+nvab
2304
2304
      DO h1b = 1,noab
2305
2305
      IF (next.eq.count) THEN
2396
2396
      END IF
2397
2397
      END IF
2398
2398
      END IF
2399
 
      next = NXTVAL(nprocs)
 
2399
      next = NXTASK(nprocs,1)
2400
2400
      END IF
2401
2401
      count = count + 1
2402
2402
      END DO
2403
2403
      END DO
2404
 
      next = NXTVAL(-nprocs)
 
2404
      next = NXTASK(-nprocs,1)
2405
2405
      call GA_SYNC()
2406
2406
      RETURN
2407
2407
      END
2408
2408
      SUBROUTINE eomccsdtq_x1_5_1(d_a,k_a_offset,d_c,k_c_offset)
2409
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2409
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2410
2410
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2411
2411
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2412
2412
C     i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v
2420
2420
      INTEGER k_a_offset
2421
2421
      INTEGER d_c
2422
2422
      INTEGER k_c_offset
2423
 
      INTEGER NXTVAL
 
2423
      INTEGER NXTASK
2424
2424
      INTEGER next
2425
2425
      INTEGER nprocs
2426
2426
      INTEGER count
2442
2442
      INTEGER k_a
2443
2443
      INTEGER l_c
2444
2444
      INTEGER k_c
2445
 
      EXTERNAL NXTVAL
 
2445
      EXTERNAL NXTASK
2446
2446
      nprocs = GA_NNODES()
2447
2447
      count = 0
2448
 
      next = NXTVAL(nprocs)
 
2448
      next = NXTASK(nprocs,1)
2449
2449
      DO h6b = 1,noab
2450
2450
      DO h8b = h6b,noab
2451
2451
      DO h1b = 1,noab
2495
2495
      END IF
2496
2496
      END IF
2497
2497
      END IF
2498
 
      next = NXTVAL(nprocs)
 
2498
      next = NXTASK(nprocs,1)
2499
2499
      END IF
2500
2500
      count = count + 1
2501
2501
      END DO
2502
2502
      END DO
2503
2503
      END DO
2504
2504
      END DO
2505
 
      next = NXTVAL(-nprocs)
 
2505
      next = NXTASK(-nprocs,1)
2506
2506
      call GA_SYNC()
2507
2507
      RETURN
2508
2508
      END
2509
2509
      SUBROUTINE OFFSET_eomccsdtq_x1_5_1(l_a_offset,k_a_offset,size)
2510
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2510
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2511
2511
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2512
2512
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2513
2513
C     i1 ( h6 h8 h1 p7 )_v
2577
2577
      END
2578
2578
      SUBROUTINE eomccsdtq_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2579
2579
     &offset)
2580
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2580
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2581
2581
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2582
2582
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2583
2583
C     i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v
2593
2593
      INTEGER k_b_offset
2594
2594
      INTEGER d_c
2595
2595
      INTEGER k_c_offset
2596
 
      INTEGER NXTVAL
 
2596
      INTEGER NXTASK
2597
2597
      INTEGER next
2598
2598
      INTEGER nprocs
2599
2599
      INTEGER count
2626
2626
      INTEGER k_b
2627
2627
      INTEGER l_c
2628
2628
      INTEGER k_c
2629
 
      EXTERNAL NXTVAL
 
2629
      EXTERNAL NXTASK
2630
2630
      nprocs = GA_NNODES()
2631
2631
      count = 0
2632
 
      next = NXTVAL(nprocs)
 
2632
      next = NXTASK(nprocs,1)
2633
2633
      DO h6b = 1,noab
2634
2634
      DO h8b = h6b,noab
2635
2635
      DO h1b = 1,noab
2718
2718
      END IF
2719
2719
      END IF
2720
2720
      END IF
2721
 
      next = NXTVAL(nprocs)
 
2721
      next = NXTASK(nprocs,1)
2722
2722
      END IF
2723
2723
      count = count + 1
2724
2724
      END DO
2725
2725
      END DO
2726
2726
      END DO
2727
2727
      END DO
2728
 
      next = NXTVAL(-nprocs)
 
2728
      next = NXTASK(-nprocs,1)
2729
2729
      call GA_SYNC()
2730
2730
      RETURN
2731
2731
      END
2732
2732
      SUBROUTINE eomccsdtq_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2733
2733
     &fset)
2734
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2734
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2735
2735
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2736
2736
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2737
2737
C     i0 ( p2 h1 )_xv + = -1/2 * Sum ( p5 p4 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v
2747
2747
      INTEGER k_b_offset
2748
2748
      INTEGER d_c
2749
2749
      INTEGER k_c_offset
2750
 
      INTEGER NXTVAL
 
2750
      INTEGER NXTASK
2751
2751
      INTEGER next
2752
2752
      INTEGER nprocs
2753
2753
      INTEGER count
2785
2785
      INTEGER l_c
2786
2786
      INTEGER k_c
2787
2787
      DOUBLE PRECISION FACTORIAL
2788
 
      EXTERNAL NXTVAL
 
2788
      EXTERNAL NXTASK
2789
2789
      EXTERNAL FACTORIAL
2790
2790
      nprocs = GA_NNODES()
2791
2791
      count = 0
2792
 
      next = NXTVAL(nprocs)
 
2792
      next = NXTASK(nprocs,1)
2793
2793
      DO p2b = noab+1,noab+nvab
2794
2794
      DO h1b = 1,noab
2795
2795
      IF (next.eq.count) THEN
2888
2888
      END IF
2889
2889
      END IF
2890
2890
      END IF
2891
 
      next = NXTVAL(nprocs)
 
2891
      next = NXTASK(nprocs,1)
2892
2892
      END IF
2893
2893
      count = count + 1
2894
2894
      END DO
2895
2895
      END DO
2896
 
      next = NXTVAL(-nprocs)
 
2896
      next = NXTASK(-nprocs,1)
2897
2897
      call GA_SYNC()
2898
2898
      RETURN
2899
2899
      END
2900
2900
      SUBROUTINE eomccsdtq_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2901
2901
     &fset)
2902
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
2902
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
2903
2903
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2904
2904
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2905
2905
C     i0 ( p2 h1 )_xv + = 1/4 * Sum ( p6 p5 h4 h3 ) * x ( p2 p5 p6 h1 h3 h4 )_x * v ( h3 h4 p5 p6 )_v
2915
2915
      INTEGER k_b_offset
2916
2916
      INTEGER d_c
2917
2917
      INTEGER k_c_offset
2918
 
      INTEGER NXTVAL
 
2918
      INTEGER NXTASK
2919
2919
      INTEGER next
2920
2920
      INTEGER nprocs
2921
2921
      INTEGER count
2958
2958
      INTEGER l_c
2959
2959
      INTEGER k_c
2960
2960
      DOUBLE PRECISION FACTORIAL
2961
 
      EXTERNAL NXTVAL
 
2961
      EXTERNAL NXTASK
2962
2962
      EXTERNAL FACTORIAL
2963
2963
      nprocs = GA_NNODES()
2964
2964
      count = 0
2965
 
      next = NXTVAL(nprocs)
 
2965
      next = NXTASK(nprocs,1)
2966
2966
      DO p2b = noab+1,noab+nvab
2967
2967
      DO h1b = 1,noab
2968
2968
      IF (next.eq.count) THEN
3130
3130
      END IF
3131
3131
      END IF
3132
3132
      END IF
3133
 
      next = NXTVAL(nprocs)
 
3133
      next = NXTASK(nprocs,1)
3134
3134
      END IF
3135
3135
      count = count + 1
3136
3136
      END DO
3137
3137
      END DO
3138
 
      next = NXTVAL(-nprocs)
 
3138
      next = NXTASK(-nprocs,1)
3139
3139
      call GA_SYNC()
3140
3140
      RETURN
3141
3141
      END
3142
3142
      SUBROUTINE eomccsdtq_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
3143
3143
     &fset)
3144
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3144
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3145
3145
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3146
3146
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3147
3147
C     i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx
3157
3157
      INTEGER k_b_offset
3158
3158
      INTEGER d_c
3159
3159
      INTEGER k_c_offset
3160
 
      INTEGER NXTVAL
 
3160
      INTEGER NXTASK
3161
3161
      INTEGER next
3162
3162
      INTEGER nprocs
3163
3163
      INTEGER count
3186
3186
      INTEGER k_b
3187
3187
      INTEGER l_c
3188
3188
      INTEGER k_c
3189
 
      EXTERNAL NXTVAL
 
3189
      EXTERNAL NXTASK
3190
3190
      nprocs = GA_NNODES()
3191
3191
      count = 0
3192
 
      next = NXTVAL(nprocs)
 
3192
      next = NXTASK(nprocs,1)
3193
3193
      DO p2b = noab+1,noab+nvab
3194
3194
      DO h1b = 1,noab
3195
3195
      IF (next.eq.count) THEN
3258
3258
      END IF
3259
3259
      END IF
3260
3260
      END IF
3261
 
      next = NXTVAL(nprocs)
 
3261
      next = NXTASK(nprocs,1)
3262
3262
      END IF
3263
3263
      count = count + 1
3264
3264
      END DO
3265
3265
      END DO
3266
 
      next = NXTVAL(-nprocs)
 
3266
      next = NXTASK(-nprocs,1)
3267
3267
      call GA_SYNC()
3268
3268
      RETURN
3269
3269
      END
3270
3270
      SUBROUTINE eomccsdtq_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3271
3271
     &offset)
3272
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3272
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3273
3273
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3274
3274
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3275
3275
C     i1 ( h3 h1 )_fx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * i2 ( h3 p7 )_f
3285
3285
      INTEGER k_b_offset
3286
3286
      INTEGER d_c
3287
3287
      INTEGER k_c_offset
3288
 
      INTEGER NXTVAL
 
3288
      INTEGER NXTASK
3289
3289
      INTEGER next
3290
3290
      INTEGER nprocs
3291
3291
      INTEGER count
3314
3314
      INTEGER k_b
3315
3315
      INTEGER l_c
3316
3316
      INTEGER k_c
3317
 
      EXTERNAL NXTVAL
 
3317
      EXTERNAL NXTASK
3318
3318
      nprocs = GA_NNODES()
3319
3319
      count = 0
3320
 
      next = NXTVAL(nprocs)
 
3320
      next = NXTASK(nprocs,1)
3321
3321
      DO h3b = 1,noab
3322
3322
      DO h1b = 1,noab
3323
3323
      IF (next.eq.count) THEN
3386
3386
      END IF
3387
3387
      END IF
3388
3388
      END IF
3389
 
      next = NXTVAL(nprocs)
 
3389
      next = NXTASK(nprocs,1)
3390
3390
      END IF
3391
3391
      count = count + 1
3392
3392
      END DO
3393
3393
      END DO
3394
 
      next = NXTVAL(-nprocs)
 
3394
      next = NXTASK(-nprocs,1)
3395
3395
      call GA_SYNC()
3396
3396
      RETURN
3397
3397
      END
3398
3398
      SUBROUTINE OFFSET_eomccsdtq_x1_8_1(l_a_offset,k_a_offset,size)
3399
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3399
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3400
3400
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3401
3401
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3402
3402
C     i1 ( h3 h1 )_fx
3451
3451
      RETURN
3452
3452
      END
3453
3453
      SUBROUTINE eomccsdtq_x1_8_1_1(d_a,k_a_offset,d_c,k_c_offset)
3454
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3454
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3455
3455
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3456
3456
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3457
3457
C     i2 ( h3 p7 )_f + = 1 * f ( h3 p7 )_f
3465
3465
      INTEGER k_a_offset
3466
3466
      INTEGER d_c
3467
3467
      INTEGER k_c_offset
3468
 
      INTEGER NXTVAL
 
3468
      INTEGER NXTASK
3469
3469
      INTEGER next
3470
3470
      INTEGER nprocs
3471
3471
      INTEGER count
3483
3483
      INTEGER k_a
3484
3484
      INTEGER l_c
3485
3485
      INTEGER k_c
3486
 
      EXTERNAL NXTVAL
 
3486
      EXTERNAL NXTASK
3487
3487
      nprocs = GA_NNODES()
3488
3488
      count = 0
3489
 
      next = NXTVAL(nprocs)
 
3489
      next = NXTASK(nprocs,1)
3490
3490
      DO h3b = 1,noab
3491
3491
      DO p7b = noab+1,noab+nvab
3492
3492
      IF (next.eq.count) THEN
3525
3525
      END IF
3526
3526
      END IF
3527
3527
      END IF
3528
 
      next = NXTVAL(nprocs)
 
3528
      next = NXTASK(nprocs,1)
3529
3529
      END IF
3530
3530
      count = count + 1
3531
3531
      END DO
3532
3532
      END DO
3533
 
      next = NXTVAL(-nprocs)
 
3533
      next = NXTASK(-nprocs,1)
3534
3534
      call GA_SYNC()
3535
3535
      RETURN
3536
3536
      END
3537
3537
      SUBROUTINE OFFSET_eomccsdtq_x1_8_1_1(l_a_offset,k_a_offset,size)
3538
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3538
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3539
3539
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3540
3540
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3541
3541
C     i2 ( h3 p7 )_f
3591
3591
      END
3592
3592
      SUBROUTINE eomccsdtq_x1_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3593
3593
     &c_offset)
3594
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3594
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3595
3595
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3596
3596
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3597
3597
C     i2 ( h3 p7 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h3 h5 p4 p7 )_v
3607
3607
      INTEGER k_b_offset
3608
3608
      INTEGER d_c
3609
3609
      INTEGER k_c_offset
3610
 
      INTEGER NXTVAL
 
3610
      INTEGER NXTASK
3611
3611
      INTEGER next
3612
3612
      INTEGER nprocs
3613
3613
      INTEGER count
3639
3639
      INTEGER k_b
3640
3640
      INTEGER l_c
3641
3641
      INTEGER k_c
3642
 
      EXTERNAL NXTVAL
 
3642
      EXTERNAL NXTASK
3643
3643
      nprocs = GA_NNODES()
3644
3644
      count = 0
3645
 
      next = NXTVAL(nprocs)
 
3645
      next = NXTASK(nprocs,1)
3646
3646
      DO h3b = 1,noab
3647
3647
      DO p7b = noab+1,noab+nvab
3648
3648
      IF (next.eq.count) THEN
3741
3741
      END IF
3742
3742
      END IF
3743
3743
      END IF
3744
 
      next = NXTVAL(nprocs)
 
3744
      next = NXTASK(nprocs,1)
3745
3745
      END IF
3746
3746
      count = count + 1
3747
3747
      END DO
3748
3748
      END DO
3749
 
      next = NXTVAL(-nprocs)
 
3749
      next = NXTASK(-nprocs,1)
3750
3750
      call GA_SYNC()
3751
3751
      RETURN
3752
3752
      END
3753
3753
      SUBROUTINE eomccsdtq_x1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3754
3754
     &offset)
3755
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3755
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3756
3756
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3757
3757
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3758
3758
C     i1 ( h3 h1 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h3 h4 h1 p5 )_v
3768
3768
      INTEGER k_b_offset
3769
3769
      INTEGER d_c
3770
3770
      INTEGER k_c_offset
3771
 
      INTEGER NXTVAL
 
3771
      INTEGER NXTASK
3772
3772
      INTEGER next
3773
3773
      INTEGER nprocs
3774
3774
      INTEGER count
3800
3800
      INTEGER k_b
3801
3801
      INTEGER l_c
3802
3802
      INTEGER k_c
3803
 
      EXTERNAL NXTVAL
 
3803
      EXTERNAL NXTASK
3804
3804
      nprocs = GA_NNODES()
3805
3805
      count = 0
3806
 
      next = NXTVAL(nprocs)
 
3806
      next = NXTASK(nprocs,1)
3807
3807
      DO h3b = 1,noab
3808
3808
      DO h1b = 1,noab
3809
3809
      IF (next.eq.count) THEN
3886
3886
      END IF
3887
3887
      END IF
3888
3888
      END IF
3889
 
      next = NXTVAL(nprocs)
 
3889
      next = NXTASK(nprocs,1)
3890
3890
      END IF
3891
3891
      count = count + 1
3892
3892
      END DO
3893
3893
      END DO
3894
 
      next = NXTVAL(-nprocs)
 
3894
      next = NXTASK(-nprocs,1)
3895
3895
      call GA_SYNC()
3896
3896
      RETURN
3897
3897
      END
3898
3898
      SUBROUTINE eomccsdtq_x1_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3899
3899
     &offset)
3900
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
3900
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
3901
3901
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3902
3902
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3903
3903
C     i1 ( h3 h1 )_vx + = 1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h3 h4 p5 p6 )_v
3913
3913
      INTEGER k_b_offset
3914
3914
      INTEGER d_c
3915
3915
      INTEGER k_c_offset
3916
 
      INTEGER NXTVAL
 
3916
      INTEGER NXTASK
3917
3917
      INTEGER next
3918
3918
      INTEGER nprocs
3919
3919
      INTEGER count
3951
3951
      INTEGER l_c
3952
3952
      INTEGER k_c
3953
3953
      DOUBLE PRECISION FACTORIAL
3954
 
      EXTERNAL NXTVAL
 
3954
      EXTERNAL NXTASK
3955
3955
      EXTERNAL FACTORIAL
3956
3956
      nprocs = GA_NNODES()
3957
3957
      count = 0
3958
 
      next = NXTVAL(nprocs)
 
3958
      next = NXTASK(nprocs,1)
3959
3959
      DO h3b = 1,noab
3960
3960
      DO h1b = 1,noab
3961
3961
      IF (next.eq.count) THEN
4062
4062
      END IF
4063
4063
      END IF
4064
4064
      END IF
4065
 
      next = NXTVAL(nprocs)
 
4065
      next = NXTASK(nprocs,1)
4066
4066
      END IF
4067
4067
      count = count + 1
4068
4068
      END DO
4069
4069
      END DO
4070
 
      next = NXTVAL(-nprocs)
 
4070
      next = NXTASK(-nprocs,1)
4071
4071
      call GA_SYNC()
4072
4072
      RETURN
4073
4073
      END
4074
4074
      SUBROUTINE eomccsdtq_x1_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
4075
4075
     &offset)
4076
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4076
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4077
4077
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4078
4078
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4079
4079
C     i1 ( h3 h1 )_vxt + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * i2 ( h3 p4 )_vx
4089
4089
      INTEGER k_b_offset
4090
4090
      INTEGER d_c
4091
4091
      INTEGER k_c_offset
4092
 
      INTEGER NXTVAL
 
4092
      INTEGER NXTASK
4093
4093
      INTEGER next
4094
4094
      INTEGER nprocs
4095
4095
      INTEGER count
4118
4118
      INTEGER k_b
4119
4119
      INTEGER l_c
4120
4120
      INTEGER k_c
4121
 
      EXTERNAL NXTVAL
 
4121
      EXTERNAL NXTASK
4122
4122
      nprocs = GA_NNODES()
4123
4123
      count = 0
4124
 
      next = NXTVAL(nprocs)
 
4124
      next = NXTASK(nprocs,1)
4125
4125
      DO h3b = 1,noab
4126
4126
      DO h1b = 1,noab
4127
4127
      IF (next.eq.count) THEN
4190
4190
      END IF
4191
4191
      END IF
4192
4192
      END IF
4193
 
      next = NXTVAL(nprocs)
 
4193
      next = NXTASK(nprocs,1)
4194
4194
      END IF
4195
4195
      count = count + 1
4196
4196
      END DO
4197
4197
      END DO
4198
 
      next = NXTVAL(-nprocs)
 
4198
      next = NXTASK(-nprocs,1)
4199
4199
      call GA_SYNC()
4200
4200
      RETURN
4201
4201
      END
4202
4202
      SUBROUTINE eomccsdtq_x1_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
4203
4203
     &c_offset)
4204
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4204
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4205
4205
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4206
4206
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4207
4207
C     i2 ( h3 p4 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p4 p6 )_v
4217
4217
      INTEGER k_b_offset
4218
4218
      INTEGER d_c
4219
4219
      INTEGER k_c_offset
4220
 
      INTEGER NXTVAL
 
4220
      INTEGER NXTASK
4221
4221
      INTEGER next
4222
4222
      INTEGER nprocs
4223
4223
      INTEGER count
4249
4249
      INTEGER k_b
4250
4250
      INTEGER l_c
4251
4251
      INTEGER k_c
4252
 
      EXTERNAL NXTVAL
 
4252
      EXTERNAL NXTASK
4253
4253
      nprocs = GA_NNODES()
4254
4254
      count = 0
4255
 
      next = NXTVAL(nprocs)
 
4255
      next = NXTASK(nprocs,1)
4256
4256
      DO h3b = 1,noab
4257
4257
      DO p4b = noab+1,noab+nvab
4258
4258
      IF (next.eq.count) THEN
4351
4351
      END IF
4352
4352
      END IF
4353
4353
      END IF
4354
 
      next = NXTVAL(nprocs)
 
4354
      next = NXTASK(nprocs,1)
4355
4355
      END IF
4356
4356
      count = count + 1
4357
4357
      END DO
4358
4358
      END DO
4359
 
      next = NXTVAL(-nprocs)
 
4359
      next = NXTASK(-nprocs,1)
4360
4360
      call GA_SYNC()
4361
4361
      RETURN
4362
4362
      END
4363
4363
      SUBROUTINE OFFSET_eomccsdtq_x1_8_4_1(l_a_offset,k_a_offset,size)
4364
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4364
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4365
4365
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4366
4366
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4367
4367
C     i2 ( h3 p4 )_vx
4417
4417
      END
4418
4418
      SUBROUTINE eomccsdtq_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
4419
4419
     &fset)
4420
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4420
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4421
4421
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4422
4422
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4423
4423
C     i0 ( p2 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx
4433
4433
      INTEGER k_b_offset
4434
4434
      INTEGER d_c
4435
4435
      INTEGER k_c_offset
4436
 
      INTEGER NXTVAL
 
4436
      INTEGER NXTASK
4437
4437
      INTEGER next
4438
4438
      INTEGER nprocs
4439
4439
      INTEGER count
4462
4462
      INTEGER k_b
4463
4463
      INTEGER l_c
4464
4464
      INTEGER k_c
4465
 
      EXTERNAL NXTVAL
 
4465
      EXTERNAL NXTASK
4466
4466
      nprocs = GA_NNODES()
4467
4467
      count = 0
4468
 
      next = NXTVAL(nprocs)
 
4468
      next = NXTASK(nprocs,1)
4469
4469
      DO p2b = noab+1,noab+nvab
4470
4470
      DO h1b = 1,noab
4471
4471
      IF (next.eq.count) THEN
4534
4534
      END IF
4535
4535
      END IF
4536
4536
      END IF
4537
 
      next = NXTVAL(nprocs)
 
4537
      next = NXTASK(nprocs,1)
4538
4538
      END IF
4539
4539
      count = count + 1
4540
4540
      END DO
4541
4541
      END DO
4542
 
      next = NXTVAL(-nprocs)
 
4542
      next = NXTASK(-nprocs,1)
4543
4543
      call GA_SYNC()
4544
4544
      RETURN
4545
4545
      END
4546
4546
      SUBROUTINE eomccsdtq_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
4547
4547
     &offset)
4548
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4548
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4549
4549
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4550
4550
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4551
4551
C     i1 ( p2 p3 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v
4561
4561
      INTEGER k_b_offset
4562
4562
      INTEGER d_c
4563
4563
      INTEGER k_c_offset
4564
 
      INTEGER NXTVAL
 
4564
      INTEGER NXTASK
4565
4565
      INTEGER next
4566
4566
      INTEGER nprocs
4567
4567
      INTEGER count
4593
4593
      INTEGER k_b
4594
4594
      INTEGER l_c
4595
4595
      INTEGER k_c
4596
 
      EXTERNAL NXTVAL
 
4596
      EXTERNAL NXTASK
4597
4597
      nprocs = GA_NNODES()
4598
4598
      count = 0
4599
 
      next = NXTVAL(nprocs)
 
4599
      next = NXTASK(nprocs,1)
4600
4600
      DO p2b = noab+1,noab+nvab
4601
4601
      DO p3b = noab+1,noab+nvab
4602
4602
      IF (next.eq.count) THEN
4679
4679
      END IF
4680
4680
      END IF
4681
4681
      END IF
4682
 
      next = NXTVAL(nprocs)
 
4682
      next = NXTASK(nprocs,1)
4683
4683
      END IF
4684
4684
      count = count + 1
4685
4685
      END DO
4686
4686
      END DO
4687
 
      next = NXTVAL(-nprocs)
 
4687
      next = NXTASK(-nprocs,1)
4688
4688
      call GA_SYNC()
4689
4689
      RETURN
4690
4690
      END
4691
4691
      SUBROUTINE OFFSET_eomccsdtq_x1_9_1(l_a_offset,k_a_offset,size)
4692
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4692
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4693
4693
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4694
4694
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4695
4695
C     i1 ( p2 p3 )_vx
4745
4745
      END
4746
4746
      SUBROUTINE eomccsdtq_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
4747
4747
     &ffset)
4748
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4748
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4749
4749
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4750
4750
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4751
4751
C     i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx
4761
4761
      INTEGER k_b_offset
4762
4762
      INTEGER d_c
4763
4763
      INTEGER k_c_offset
4764
 
      INTEGER NXTVAL
 
4764
      INTEGER NXTASK
4765
4765
      INTEGER next
4766
4766
      INTEGER nprocs
4767
4767
      INTEGER count
4793
4793
      INTEGER k_b
4794
4794
      INTEGER l_c
4795
4795
      INTEGER k_c
4796
 
      EXTERNAL NXTVAL
 
4796
      EXTERNAL NXTASK
4797
4797
      nprocs = GA_NNODES()
4798
4798
      count = 0
4799
 
      next = NXTVAL(nprocs)
 
4799
      next = NXTASK(nprocs,1)
4800
4800
      DO p2b = noab+1,noab+nvab
4801
4801
      DO h1b = 1,noab
4802
4802
      IF (next.eq.count) THEN
4896
4896
      END IF
4897
4897
      END IF
4898
4898
      END IF
4899
 
      next = NXTVAL(nprocs)
 
4899
      next = NXTASK(nprocs,1)
4900
4900
      END IF
4901
4901
      count = count + 1
4902
4902
      END DO
4903
4903
      END DO
4904
 
      next = NXTVAL(-nprocs)
 
4904
      next = NXTASK(-nprocs,1)
4905
4905
      call GA_SYNC()
4906
4906
      RETURN
4907
4907
      END
4908
4908
      SUBROUTINE eomccsdtq_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
4909
4909
     &_offset)
4910
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
4910
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
4911
4911
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4912
4912
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4913
4913
C     i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v
4923
4923
      INTEGER k_b_offset
4924
4924
      INTEGER d_c
4925
4925
      INTEGER k_c_offset
4926
 
      INTEGER NXTVAL
 
4926
      INTEGER NXTASK
4927
4927
      INTEGER next
4928
4928
      INTEGER nprocs
4929
4929
      INTEGER count
4955
4955
      INTEGER k_b
4956
4956
      INTEGER l_c
4957
4957
      INTEGER k_c
4958
 
      EXTERNAL NXTVAL
 
4958
      EXTERNAL NXTASK
4959
4959
      nprocs = GA_NNODES()
4960
4960
      count = 0
4961
 
      next = NXTVAL(nprocs)
 
4961
      next = NXTASK(nprocs,1)
4962
4962
      DO h4b = 1,noab
4963
4963
      DO p3b = noab+1,noab+nvab
4964
4964
      IF (next.eq.count) THEN
5057
5057
      END IF
5058
5058
      END IF
5059
5059
      END IF
5060
 
      next = NXTVAL(nprocs)
 
5060
      next = NXTASK(nprocs,1)
5061
5061
      END IF
5062
5062
      count = count + 1
5063
5063
      END DO
5064
5064
      END DO
5065
 
      next = NXTVAL(-nprocs)
 
5065
      next = NXTASK(-nprocs,1)
5066
5066
      call GA_SYNC()
5067
5067
      RETURN
5068
5068
      END
5069
5069
      SUBROUTINE OFFSET_eomccsdtq_x1_10_1(l_a_offset,k_a_offset,size)
5070
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
5070
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
5071
5071
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5072
5072
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5073
5073
C     i1 ( h4 p3 )_vx
5123
5123
      END
5124
5124
      SUBROUTINE eomccsdtq_x1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
5125
5125
     &ffset)
5126
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
5126
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
5127
5127
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5128
5128
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5129
5129
C     i0 ( p2 h1 )_vxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx
5139
5139
      INTEGER k_b_offset
5140
5140
      INTEGER d_c
5141
5141
      INTEGER k_c_offset
5142
 
      INTEGER NXTVAL
 
5142
      INTEGER NXTASK
5143
5143
      INTEGER next
5144
5144
      INTEGER nprocs
5145
5145
      INTEGER count
5177
5177
      INTEGER l_c
5178
5178
      INTEGER k_c
5179
5179
      DOUBLE PRECISION FACTORIAL
5180
 
      EXTERNAL NXTVAL
 
5180
      EXTERNAL NXTASK
5181
5181
      EXTERNAL FACTORIAL
5182
5182
      nprocs = GA_NNODES()
5183
5183
      count = 0
5184
 
      next = NXTVAL(nprocs)
 
5184
      next = NXTASK(nprocs,1)
5185
5185
      DO p2b = noab+1,noab+nvab
5186
5186
      DO h1b = 1,noab
5187
5187
      IF (next.eq.count) THEN
5278
5278
      END IF
5279
5279
      END IF
5280
5280
      END IF
5281
 
      next = NXTVAL(nprocs)
 
5281
      next = NXTASK(nprocs,1)
5282
5282
      END IF
5283
5283
      count = count + 1
5284
5284
      END DO
5285
5285
      END DO
5286
 
      next = NXTVAL(-nprocs)
 
5286
      next = NXTASK(-nprocs,1)
5287
5287
      call GA_SYNC()
5288
5288
      RETURN
5289
5289
      END
5290
5290
      SUBROUTINE eomccsdtq_x1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
5291
5291
     &_offset)
5292
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
5292
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
5293
5293
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5294
5294
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5295
5295
C     i1 ( h4 h5 h1 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v
5305
5305
      INTEGER k_b_offset
5306
5306
      INTEGER d_c
5307
5307
      INTEGER k_c_offset
5308
 
      INTEGER NXTVAL
 
5308
      INTEGER NXTASK
5309
5309
      INTEGER next
5310
5310
      INTEGER nprocs
5311
5311
      INTEGER count
5338
5338
      INTEGER k_b
5339
5339
      INTEGER l_c
5340
5340
      INTEGER k_c
5341
 
      EXTERNAL NXTVAL
 
5341
      EXTERNAL NXTASK
5342
5342
      nprocs = GA_NNODES()
5343
5343
      count = 0
5344
 
      next = NXTVAL(nprocs)
 
5344
      next = NXTASK(nprocs,1)
5345
5345
      DO h4b = 1,noab
5346
5346
      DO h5b = h4b,noab
5347
5347
      DO h1b = 1,noab
5430
5430
      END IF
5431
5431
      END IF
5432
5432
      END IF
5433
 
      next = NXTVAL(nprocs)
 
5433
      next = NXTASK(nprocs,1)
5434
5434
      END IF
5435
5435
      count = count + 1
5436
5436
      END DO
5437
5437
      END DO
5438
5438
      END DO
5439
5439
      END DO
5440
 
      next = NXTVAL(-nprocs)
 
5440
      next = NXTASK(-nprocs,1)
5441
5441
      call GA_SYNC()
5442
5442
      RETURN
5443
5443
      END
5444
5444
      SUBROUTINE OFFSET_eomccsdtq_x1_11_1(l_a_offset,k_a_offset,size)
5445
 
C     $Id: eomccsdtq_x1.F 19704 2010-10-29 17:43:02Z d3y133 $
 
5445
C     $Id: eomccsdtq_x1.F 24183 2013-05-03 23:47:08Z edo $
5446
5446
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5447
5447
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5448
5448
C     i1 ( h4 h5 h1 p3 )_vx