← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/eomccsdt/eomccsdt_x1a.F

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

[ Daniel Leidert ]
* debian/watch: Fixed.

[ Andreas Tille ]
* debian/upstream: References

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

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tce/eomccsdt/eomccsdt_x1a.F
1
1
      SUBROUTINE eomccsdt_x1a(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,d_x3,
2
2
     &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,
3
3
     &k_v2_offset,k_x1_offset,k_x2_offset,k_x3_offset)
4
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4
C     $Id: eomccsdt_x1a.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
209
209
      END
210
210
      SUBROUTINE eomccsdt_x1a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
211
211
     &k_c_offset)
212
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
212
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
213
213
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
214
214
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
215
215
C     i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f
225
225
      INTEGER k_b_offset
226
226
      INTEGER d_c
227
227
      INTEGER k_c_offset
228
 
      INTEGER NXTVAL
 
228
      INTEGER NXTASK
229
229
      INTEGER next
230
230
      INTEGER nprocs
231
231
      INTEGER count
254
254
      INTEGER k_b
255
255
      INTEGER l_c
256
256
      INTEGER k_c
257
 
      EXTERNAL NXTVAL
 
257
      EXTERNAL NXTASK
258
258
      nprocs = GA_NNODES()
259
259
      count = 0
260
 
      next = NXTVAL(nprocs)
 
260
      next = NXTASK(nprocs,1)
261
261
      DO p2b = noab+1,noab+nvab
262
262
      DO h1b = 1,noab
263
263
      IF (next.eq.count) THEN
324
324
      END IF
325
325
      END IF
326
326
      END IF
327
 
      next = NXTVAL(nprocs)
 
327
      next = NXTASK(nprocs,1)
328
328
      END IF
329
329
      count = count + 1
330
330
      END DO
331
331
      END DO
332
 
      next = NXTVAL(-nprocs)
 
332
      next = NXTASK(-nprocs,1)
333
333
      call GA_SYNC()
334
334
      RETURN
335
335
      END
336
336
      SUBROUTINE eomccsdt_x1a_1_1(d_a,k_a_offset,d_c,k_c_offset)
337
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
337
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
338
338
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
339
339
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
340
340
C     i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f
348
348
      INTEGER k_a_offset
349
349
      INTEGER d_c
350
350
      INTEGER k_c_offset
351
 
      INTEGER NXTVAL
 
351
      INTEGER NXTASK
352
352
      INTEGER next
353
353
      INTEGER nprocs
354
354
      INTEGER count
366
366
      INTEGER k_a
367
367
      INTEGER l_c
368
368
      INTEGER k_c
369
 
      EXTERNAL NXTVAL
 
369
      EXTERNAL NXTASK
370
370
      nprocs = GA_NNODES()
371
371
      count = 0
372
 
      next = NXTVAL(nprocs)
 
372
      next = NXTASK(nprocs,1)
373
373
      DO h6b = 1,noab
374
374
      DO h1b = 1,noab
375
375
      IF (next.eq.count) THEN
408
408
      END IF
409
409
      END IF
410
410
      END IF
411
 
      next = NXTVAL(nprocs)
 
411
      next = NXTASK(nprocs,1)
412
412
      END IF
413
413
      count = count + 1
414
414
      END DO
415
415
      END DO
416
 
      next = NXTVAL(-nprocs)
 
416
      next = NXTASK(-nprocs,1)
417
417
      call GA_SYNC()
418
418
      RETURN
419
419
      END
420
420
      SUBROUTINE OFFSET_eomccsdt_x1a_1_1(l_a_offset,k_a_offset,size)
421
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
421
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
422
422
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
423
423
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
424
424
C     i1 ( h6 h1 )_f
474
474
      END
475
475
      SUBROUTINE eomccsdt_x1a_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
476
476
     &k_c_offset)
477
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
477
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
478
478
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
479
479
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
480
480
C     i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f
490
490
      INTEGER k_b_offset
491
491
      INTEGER d_c
492
492
      INTEGER k_c_offset
493
 
      INTEGER NXTVAL
 
493
      INTEGER NXTASK
494
494
      INTEGER next
495
495
      INTEGER nprocs
496
496
      INTEGER count
519
519
      INTEGER k_b
520
520
      INTEGER l_c
521
521
      INTEGER k_c
522
 
      EXTERNAL NXTVAL
 
522
      EXTERNAL NXTASK
523
523
      nprocs = GA_NNODES()
524
524
      count = 0
525
 
      next = NXTVAL(nprocs)
 
525
      next = NXTASK(nprocs,1)
526
526
      DO h6b = 1,noab
527
527
      DO h1b = 1,noab
528
528
      IF (next.eq.count) THEN
591
591
      END IF
592
592
      END IF
593
593
      END IF
594
 
      next = NXTVAL(nprocs)
 
594
      next = NXTASK(nprocs,1)
595
595
      END IF
596
596
      count = count + 1
597
597
      END DO
598
598
      END DO
599
 
      next = NXTVAL(-nprocs)
 
599
      next = NXTASK(-nprocs,1)
600
600
      call GA_SYNC()
601
601
      RETURN
602
602
      END
603
603
      SUBROUTINE eomccsdt_x1a_1_2_1(d_a,k_a_offset,d_c,k_c_offset)
604
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
604
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
605
605
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
606
606
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
607
607
C     i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f
615
615
      INTEGER k_a_offset
616
616
      INTEGER d_c
617
617
      INTEGER k_c_offset
618
 
      INTEGER NXTVAL
 
618
      INTEGER NXTASK
619
619
      INTEGER next
620
620
      INTEGER nprocs
621
621
      INTEGER count
633
633
      INTEGER k_a
634
634
      INTEGER l_c
635
635
      INTEGER k_c
636
 
      EXTERNAL NXTVAL
 
636
      EXTERNAL NXTASK
637
637
      nprocs = GA_NNODES()
638
638
      count = 0
639
 
      next = NXTVAL(nprocs)
 
639
      next = NXTASK(nprocs,1)
640
640
      DO h6b = 1,noab
641
641
      DO p7b = noab+1,noab+nvab
642
642
      IF (next.eq.count) THEN
675
675
      END IF
676
676
      END IF
677
677
      END IF
678
 
      next = NXTVAL(nprocs)
 
678
      next = NXTASK(nprocs,1)
679
679
      END IF
680
680
      count = count + 1
681
681
      END DO
682
682
      END DO
683
 
      next = NXTVAL(-nprocs)
 
683
      next = NXTASK(-nprocs,1)
684
684
      call GA_SYNC()
685
685
      RETURN
686
686
      END
687
687
      SUBROUTINE OFFSET_eomccsdt_x1a_1_2_1(l_a_offset,k_a_offset,size)
688
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
688
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
689
689
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
690
690
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
691
691
C     i2 ( h6 p7 )_f
741
741
      END
742
742
      SUBROUTINE eomccsdt_x1a_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
743
743
     &k_c_offset)
744
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
744
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
745
745
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
746
746
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
747
747
C     i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v
757
757
      INTEGER k_b_offset
758
758
      INTEGER d_c
759
759
      INTEGER k_c_offset
760
 
      INTEGER NXTVAL
 
760
      INTEGER NXTASK
761
761
      INTEGER next
762
762
      INTEGER nprocs
763
763
      INTEGER count
789
789
      INTEGER k_b
790
790
      INTEGER l_c
791
791
      INTEGER k_c
792
 
      EXTERNAL NXTVAL
 
792
      EXTERNAL NXTASK
793
793
      nprocs = GA_NNODES()
794
794
      count = 0
795
 
      next = NXTVAL(nprocs)
 
795
      next = NXTASK(nprocs,1)
796
796
      DO h6b = 1,noab
797
797
      DO p7b = noab+1,noab+nvab
798
798
      IF (next.eq.count) THEN
891
891
      END IF
892
892
      END IF
893
893
      END IF
894
 
      next = NXTVAL(nprocs)
 
894
      next = NXTASK(nprocs,1)
895
895
      END IF
896
896
      count = count + 1
897
897
      END DO
898
898
      END DO
899
 
      next = NXTVAL(-nprocs)
 
899
      next = NXTASK(-nprocs,1)
900
900
      call GA_SYNC()
901
901
      RETURN
902
902
      END
903
903
      SUBROUTINE eomccsdt_x1a_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
904
904
     &k_c_offset)
905
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
905
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
906
906
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
907
907
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
908
908
C     i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v
918
918
      INTEGER k_b_offset
919
919
      INTEGER d_c
920
920
      INTEGER k_c_offset
921
 
      INTEGER NXTVAL
 
921
      INTEGER NXTASK
922
922
      INTEGER next
923
923
      INTEGER nprocs
924
924
      INTEGER count
950
950
      INTEGER k_b
951
951
      INTEGER l_c
952
952
      INTEGER k_c
953
 
      EXTERNAL NXTVAL
 
953
      EXTERNAL NXTASK
954
954
      nprocs = GA_NNODES()
955
955
      count = 0
956
 
      next = NXTVAL(nprocs)
 
956
      next = NXTASK(nprocs,1)
957
957
      DO h6b = 1,noab
958
958
      DO h1b = 1,noab
959
959
      IF (next.eq.count) THEN
1036
1036
      END IF
1037
1037
      END IF
1038
1038
      END IF
1039
 
      next = NXTVAL(nprocs)
 
1039
      next = NXTASK(nprocs,1)
1040
1040
      END IF
1041
1041
      count = count + 1
1042
1042
      END DO
1043
1043
      END DO
1044
 
      next = NXTVAL(-nprocs)
 
1044
      next = NXTASK(-nprocs,1)
1045
1045
      call GA_SYNC()
1046
1046
      RETURN
1047
1047
      END
1048
1048
      SUBROUTINE eomccsdt_x1a_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,
1049
1049
     &k_c_offset)
1050
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1050
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1051
1051
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1052
1052
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1053
1053
C     i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v
1063
1063
      INTEGER k_b_offset
1064
1064
      INTEGER d_c
1065
1065
      INTEGER k_c_offset
1066
 
      INTEGER NXTVAL
 
1066
      INTEGER NXTASK
1067
1067
      INTEGER next
1068
1068
      INTEGER nprocs
1069
1069
      INTEGER count
1101
1101
      INTEGER l_c
1102
1102
      INTEGER k_c
1103
1103
      DOUBLE PRECISION FACTORIAL
1104
 
      EXTERNAL NXTVAL
 
1104
      EXTERNAL NXTASK
1105
1105
      EXTERNAL FACTORIAL
1106
1106
      nprocs = GA_NNODES()
1107
1107
      count = 0
1108
 
      next = NXTVAL(nprocs)
 
1108
      next = NXTASK(nprocs,1)
1109
1109
      DO h6b = 1,noab
1110
1110
      DO h1b = 1,noab
1111
1111
      IF (next.eq.count) THEN
1212
1212
      END IF
1213
1213
      END IF
1214
1214
      END IF
1215
 
      next = NXTVAL(nprocs)
 
1215
      next = NXTASK(nprocs,1)
1216
1216
      END IF
1217
1217
      count = count + 1
1218
1218
      END DO
1219
1219
      END DO
1220
 
      next = NXTVAL(-nprocs)
 
1220
      next = NXTASK(-nprocs,1)
1221
1221
      call GA_SYNC()
1222
1222
      RETURN
1223
1223
      END
1224
1224
      SUBROUTINE eomccsdt_x1a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
1225
1225
     &k_c_offset)
1226
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1226
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1227
1227
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1228
1228
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1229
1229
C     i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f
1239
1239
      INTEGER k_b_offset
1240
1240
      INTEGER d_c
1241
1241
      INTEGER k_c_offset
1242
 
      INTEGER NXTVAL
 
1242
      INTEGER NXTASK
1243
1243
      INTEGER next
1244
1244
      INTEGER nprocs
1245
1245
      INTEGER count
1268
1268
      INTEGER k_b
1269
1269
      INTEGER l_c
1270
1270
      INTEGER k_c
1271
 
      EXTERNAL NXTVAL
 
1271
      EXTERNAL NXTASK
1272
1272
      nprocs = GA_NNODES()
1273
1273
      count = 0
1274
 
      next = NXTVAL(nprocs)
 
1274
      next = NXTASK(nprocs,1)
1275
1275
      DO p2b = noab+1,noab+nvab
1276
1276
      DO h1b = 1,noab
1277
1277
      IF (next.eq.count) THEN
1338
1338
      END IF
1339
1339
      END IF
1340
1340
      END IF
1341
 
      next = NXTVAL(nprocs)
 
1341
      next = NXTASK(nprocs,1)
1342
1342
      END IF
1343
1343
      count = count + 1
1344
1344
      END DO
1345
1345
      END DO
1346
 
      next = NXTVAL(-nprocs)
 
1346
      next = NXTASK(-nprocs,1)
1347
1347
      call GA_SYNC()
1348
1348
      RETURN
1349
1349
      END
1350
1350
      SUBROUTINE eomccsdt_x1a_2_1(d_a,k_a_offset,d_c,k_c_offset)
1351
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1351
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1352
1352
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1353
1353
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1354
1354
C     i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f
1362
1362
      INTEGER k_a_offset
1363
1363
      INTEGER d_c
1364
1364
      INTEGER k_c_offset
1365
 
      INTEGER NXTVAL
 
1365
      INTEGER NXTASK
1366
1366
      INTEGER next
1367
1367
      INTEGER nprocs
1368
1368
      INTEGER count
1380
1380
      INTEGER k_a
1381
1381
      INTEGER l_c
1382
1382
      INTEGER k_c
1383
 
      EXTERNAL NXTVAL
 
1383
      EXTERNAL NXTASK
1384
1384
      nprocs = GA_NNODES()
1385
1385
      count = 0
1386
 
      next = NXTVAL(nprocs)
 
1386
      next = NXTASK(nprocs,1)
1387
1387
      DO p2b = noab+1,noab+nvab
1388
1388
      DO p6b = noab+1,noab+nvab
1389
1389
      IF (next.eq.count) THEN
1422
1422
      END IF
1423
1423
      END IF
1424
1424
      END IF
1425
 
      next = NXTVAL(nprocs)
 
1425
      next = NXTASK(nprocs,1)
1426
1426
      END IF
1427
1427
      count = count + 1
1428
1428
      END DO
1429
1429
      END DO
1430
 
      next = NXTVAL(-nprocs)
 
1430
      next = NXTASK(-nprocs,1)
1431
1431
      call GA_SYNC()
1432
1432
      RETURN
1433
1433
      END
1434
1434
      SUBROUTINE OFFSET_eomccsdt_x1a_2_1(l_a_offset,k_a_offset,size)
1435
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1435
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1436
1436
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1437
1437
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1438
1438
C     i1 ( p2 p6 )_f
1488
1488
      END
1489
1489
      SUBROUTINE eomccsdt_x1a_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
1490
1490
     &k_c_offset)
1491
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1491
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1492
1492
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1493
1493
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1494
1494
C     i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v
1504
1504
      INTEGER k_b_offset
1505
1505
      INTEGER d_c
1506
1506
      INTEGER k_c_offset
1507
 
      INTEGER NXTVAL
 
1507
      INTEGER NXTASK
1508
1508
      INTEGER next
1509
1509
      INTEGER nprocs
1510
1510
      INTEGER count
1536
1536
      INTEGER k_b
1537
1537
      INTEGER l_c
1538
1538
      INTEGER k_c
1539
 
      EXTERNAL NXTVAL
 
1539
      EXTERNAL NXTASK
1540
1540
      nprocs = GA_NNODES()
1541
1541
      count = 0
1542
 
      next = NXTVAL(nprocs)
 
1542
      next = NXTASK(nprocs,1)
1543
1543
      DO p2b = noab+1,noab+nvab
1544
1544
      DO p6b = noab+1,noab+nvab
1545
1545
      IF (next.eq.count) THEN
1622
1622
      END IF
1623
1623
      END IF
1624
1624
      END IF
1625
 
      next = NXTVAL(nprocs)
 
1625
      next = NXTASK(nprocs,1)
1626
1626
      END IF
1627
1627
      count = count + 1
1628
1628
      END DO
1629
1629
      END DO
1630
 
      next = NXTVAL(-nprocs)
 
1630
      next = NXTASK(-nprocs,1)
1631
1631
      call GA_SYNC()
1632
1632
      RETURN
1633
1633
      END
1634
1634
      SUBROUTINE eomccsdt_x1a_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
1635
1635
     &k_c_offset)
1636
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1636
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1637
1637
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1638
1638
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1639
1639
C     i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v
1649
1649
      INTEGER k_b_offset
1650
1650
      INTEGER d_c
1651
1651
      INTEGER k_c_offset
1652
 
      INTEGER NXTVAL
 
1652
      INTEGER NXTASK
1653
1653
      INTEGER next
1654
1654
      INTEGER nprocs
1655
1655
      INTEGER count
1681
1681
      INTEGER k_b
1682
1682
      INTEGER l_c
1683
1683
      INTEGER k_c
1684
 
      EXTERNAL NXTVAL
 
1684
      EXTERNAL NXTASK
1685
1685
      nprocs = GA_NNODES()
1686
1686
      count = 0
1687
 
      next = NXTVAL(nprocs)
 
1687
      next = NXTASK(nprocs,1)
1688
1688
      DO p2b = noab+1,noab+nvab
1689
1689
      DO h1b = 1,noab
1690
1690
      IF (next.eq.count) THEN
1757
1757
      END IF
1758
1758
      END IF
1759
1759
      END IF
1760
 
      next = NXTVAL(nprocs)
 
1760
      next = NXTASK(nprocs,1)
1761
1761
      END IF
1762
1762
      count = count + 1
1763
1763
      END DO
1764
1764
      END DO
1765
 
      next = NXTVAL(-nprocs)
 
1765
      next = NXTASK(-nprocs,1)
1766
1766
      call GA_SYNC()
1767
1767
      RETURN
1768
1768
      END
1769
1769
      SUBROUTINE eomccsdt_x1a_4(d_a,k_a_offset,d_b,k_b_offset,d_c,
1770
1770
     &k_c_offset)
1771
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1771
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1772
1772
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1773
1773
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1774
1774
C     i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f
1784
1784
      INTEGER k_b_offset
1785
1785
      INTEGER d_c
1786
1786
      INTEGER k_c_offset
1787
 
      INTEGER NXTVAL
 
1787
      INTEGER NXTASK
1788
1788
      INTEGER next
1789
1789
      INTEGER nprocs
1790
1790
      INTEGER count
1816
1816
      INTEGER k_b
1817
1817
      INTEGER l_c
1818
1818
      INTEGER k_c
1819
 
      EXTERNAL NXTVAL
 
1819
      EXTERNAL NXTASK
1820
1820
      nprocs = GA_NNODES()
1821
1821
      count = 0
1822
 
      next = NXTVAL(nprocs)
 
1822
      next = NXTASK(nprocs,1)
1823
1823
      DO p2b = noab+1,noab+nvab
1824
1824
      DO h1b = 1,noab
1825
1825
      IF (next.eq.count) THEN
1917
1917
      END IF
1918
1918
      END IF
1919
1919
      END IF
1920
 
      next = NXTVAL(nprocs)
 
1920
      next = NXTASK(nprocs,1)
1921
1921
      END IF
1922
1922
      count = count + 1
1923
1923
      END DO
1924
1924
      END DO
1925
 
      next = NXTVAL(-nprocs)
 
1925
      next = NXTASK(-nprocs,1)
1926
1926
      call GA_SYNC()
1927
1927
      RETURN
1928
1928
      END
1929
1929
      SUBROUTINE eomccsdt_x1a_4_1(d_a,k_a_offset,d_c,k_c_offset)
1930
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1930
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
1931
1931
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1932
1932
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1933
1933
C     i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f
1941
1941
      INTEGER k_a_offset
1942
1942
      INTEGER d_c
1943
1943
      INTEGER k_c_offset
1944
 
      INTEGER NXTVAL
 
1944
      INTEGER NXTASK
1945
1945
      INTEGER next
1946
1946
      INTEGER nprocs
1947
1947
      INTEGER count
1959
1959
      INTEGER k_a
1960
1960
      INTEGER l_c
1961
1961
      INTEGER k_c
1962
 
      EXTERNAL NXTVAL
 
1962
      EXTERNAL NXTASK
1963
1963
      nprocs = GA_NNODES()
1964
1964
      count = 0
1965
 
      next = NXTVAL(nprocs)
 
1965
      next = NXTASK(nprocs,1)
1966
1966
      DO h6b = 1,noab
1967
1967
      DO p7b = noab+1,noab+nvab
1968
1968
      IF (next.eq.count) THEN
2001
2001
      END IF
2002
2002
      END IF
2003
2003
      END IF
2004
 
      next = NXTVAL(nprocs)
 
2004
      next = NXTASK(nprocs,1)
2005
2005
      END IF
2006
2006
      count = count + 1
2007
2007
      END DO
2008
2008
      END DO
2009
 
      next = NXTVAL(-nprocs)
 
2009
      next = NXTASK(-nprocs,1)
2010
2010
      call GA_SYNC()
2011
2011
      RETURN
2012
2012
      END
2013
2013
      SUBROUTINE OFFSET_eomccsdt_x1a_4_1(l_a_offset,k_a_offset,size)
2014
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2014
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2015
2015
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2016
2016
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2017
2017
C     i1 ( h6 p7 )_f
2067
2067
      END
2068
2068
      SUBROUTINE eomccsdt_x1a_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
2069
2069
     &k_c_offset)
2070
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2070
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2071
2071
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2072
2072
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2073
2073
C     i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v
2083
2083
      INTEGER k_b_offset
2084
2084
      INTEGER d_c
2085
2085
      INTEGER k_c_offset
2086
 
      INTEGER NXTVAL
 
2086
      INTEGER NXTASK
2087
2087
      INTEGER next
2088
2088
      INTEGER nprocs
2089
2089
      INTEGER count
2115
2115
      INTEGER k_b
2116
2116
      INTEGER l_c
2117
2117
      INTEGER k_c
2118
 
      EXTERNAL NXTVAL
 
2118
      EXTERNAL NXTASK
2119
2119
      nprocs = GA_NNODES()
2120
2120
      count = 0
2121
 
      next = NXTVAL(nprocs)
 
2121
      next = NXTASK(nprocs,1)
2122
2122
      DO h6b = 1,noab
2123
2123
      DO p7b = noab+1,noab+nvab
2124
2124
      IF (next.eq.count) THEN
2217
2217
      END IF
2218
2218
      END IF
2219
2219
      END IF
2220
 
      next = NXTVAL(nprocs)
 
2220
      next = NXTASK(nprocs,1)
2221
2221
      END IF
2222
2222
      count = count + 1
2223
2223
      END DO
2224
2224
      END DO
2225
 
      next = NXTVAL(-nprocs)
 
2225
      next = NXTASK(-nprocs,1)
2226
2226
      call GA_SYNC()
2227
2227
      RETURN
2228
2228
      END
2229
2229
      SUBROUTINE eomccsdt_x1a_5(d_a,k_a_offset,d_b,k_b_offset,d_c,
2230
2230
     &k_c_offset)
2231
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2231
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2232
2232
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2233
2233
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2234
2234
C     i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h8 h6 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v
2244
2244
      INTEGER k_b_offset
2245
2245
      INTEGER d_c
2246
2246
      INTEGER k_c_offset
2247
 
      INTEGER NXTVAL
 
2247
      INTEGER NXTASK
2248
2248
      INTEGER next
2249
2249
      INTEGER nprocs
2250
2250
      INTEGER count
2282
2282
      INTEGER l_c
2283
2283
      INTEGER k_c
2284
2284
      DOUBLE PRECISION FACTORIAL
2285
 
      EXTERNAL NXTVAL
 
2285
      EXTERNAL NXTASK
2286
2286
      EXTERNAL FACTORIAL
2287
2287
      nprocs = GA_NNODES()
2288
2288
      count = 0
2289
 
      next = NXTVAL(nprocs)
 
2289
      next = NXTASK(nprocs,1)
2290
2290
      DO p2b = noab+1,noab+nvab
2291
2291
      DO h1b = 1,noab
2292
2292
      IF (next.eq.count) THEN
2381
2381
      END IF
2382
2382
      END IF
2383
2383
      END IF
2384
 
      next = NXTVAL(nprocs)
 
2384
      next = NXTASK(nprocs,1)
2385
2385
      END IF
2386
2386
      count = count + 1
2387
2387
      END DO
2388
2388
      END DO
2389
 
      next = NXTVAL(-nprocs)
 
2389
      next = NXTASK(-nprocs,1)
2390
2390
      call GA_SYNC()
2391
2391
      RETURN
2392
2392
      END
2393
2393
      SUBROUTINE eomccsdt_x1a_5_1(d_a,k_a_offset,d_c,k_c_offset)
2394
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2394
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2395
2395
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2396
2396
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2397
2397
C     i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v
2405
2405
      INTEGER k_a_offset
2406
2406
      INTEGER d_c
2407
2407
      INTEGER k_c_offset
2408
 
      INTEGER NXTVAL
 
2408
      INTEGER NXTASK
2409
2409
      INTEGER next
2410
2410
      INTEGER nprocs
2411
2411
      INTEGER count
2427
2427
      INTEGER k_a
2428
2428
      INTEGER l_c
2429
2429
      INTEGER k_c
2430
 
      EXTERNAL NXTVAL
 
2430
      EXTERNAL NXTASK
2431
2431
      nprocs = GA_NNODES()
2432
2432
      count = 0
2433
 
      next = NXTVAL(nprocs)
 
2433
      next = NXTASK(nprocs,1)
2434
2434
      DO h6b = 1,noab
2435
2435
      DO h8b = h6b,noab
2436
2436
      DO h1b = 1,noab
2480
2480
      END IF
2481
2481
      END IF
2482
2482
      END IF
2483
 
      next = NXTVAL(nprocs)
 
2483
      next = NXTASK(nprocs,1)
2484
2484
      END IF
2485
2485
      count = count + 1
2486
2486
      END DO
2487
2487
      END DO
2488
2488
      END DO
2489
2489
      END DO
2490
 
      next = NXTVAL(-nprocs)
 
2490
      next = NXTASK(-nprocs,1)
2491
2491
      call GA_SYNC()
2492
2492
      RETURN
2493
2493
      END
2494
2494
      SUBROUTINE OFFSET_eomccsdt_x1a_5_1(l_a_offset,k_a_offset,size)
2495
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2495
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2496
2496
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2497
2497
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2498
2498
C     i1 ( h6 h8 h1 p7 )_v
2562
2562
      END
2563
2563
      SUBROUTINE eomccsdt_x1a_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
2564
2564
     &k_c_offset)
2565
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2565
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2566
2566
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2567
2567
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2568
2568
C     i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v
2578
2578
      INTEGER k_b_offset
2579
2579
      INTEGER d_c
2580
2580
      INTEGER k_c_offset
2581
 
      INTEGER NXTVAL
 
2581
      INTEGER NXTASK
2582
2582
      INTEGER next
2583
2583
      INTEGER nprocs
2584
2584
      INTEGER count
2611
2611
      INTEGER k_b
2612
2612
      INTEGER l_c
2613
2613
      INTEGER k_c
2614
 
      EXTERNAL NXTVAL
 
2614
      EXTERNAL NXTASK
2615
2615
      nprocs = GA_NNODES()
2616
2616
      count = 0
2617
 
      next = NXTVAL(nprocs)
 
2617
      next = NXTASK(nprocs,1)
2618
2618
      DO h6b = 1,noab
2619
2619
      DO h8b = h6b,noab
2620
2620
      DO h1b = 1,noab
2703
2703
      END IF
2704
2704
      END IF
2705
2705
      END IF
2706
 
      next = NXTVAL(nprocs)
 
2706
      next = NXTASK(nprocs,1)
2707
2707
      END IF
2708
2708
      count = count + 1
2709
2709
      END DO
2710
2710
      END DO
2711
2711
      END DO
2712
2712
      END DO
2713
 
      next = NXTVAL(-nprocs)
 
2713
      next = NXTASK(-nprocs,1)
2714
2714
      call GA_SYNC()
2715
2715
      RETURN
2716
2716
      END
2717
2717
      SUBROUTINE eomccsdt_x1a_6(d_a,k_a_offset,d_b,k_b_offset,d_c,
2718
2718
     &k_c_offset)
2719
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2719
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2720
2720
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2721
2721
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2722
2722
C     i0 ( p2 h1 )_xv + = -1/2 * Sum ( p5 p4 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v
2732
2732
      INTEGER k_b_offset
2733
2733
      INTEGER d_c
2734
2734
      INTEGER k_c_offset
2735
 
      INTEGER NXTVAL
 
2735
      INTEGER NXTASK
2736
2736
      INTEGER next
2737
2737
      INTEGER nprocs
2738
2738
      INTEGER count
2770
2770
      INTEGER l_c
2771
2771
      INTEGER k_c
2772
2772
      DOUBLE PRECISION FACTORIAL
2773
 
      EXTERNAL NXTVAL
 
2773
      EXTERNAL NXTASK
2774
2774
      EXTERNAL FACTORIAL
2775
2775
      nprocs = GA_NNODES()
2776
2776
      count = 0
2777
 
      next = NXTVAL(nprocs)
 
2777
      next = NXTASK(nprocs,1)
2778
2778
      DO p2b = noab+1,noab+nvab
2779
2779
      DO h1b = 1,noab
2780
2780
      IF (next.eq.count) THEN
2871
2871
      END IF
2872
2872
      END IF
2873
2873
      END IF
2874
 
      next = NXTVAL(nprocs)
 
2874
      next = NXTASK(nprocs,1)
2875
2875
      END IF
2876
2876
      count = count + 1
2877
2877
      END DO
2878
2878
      END DO
2879
 
      next = NXTVAL(-nprocs)
 
2879
      next = NXTASK(-nprocs,1)
2880
2880
      call GA_SYNC()
2881
2881
      RETURN
2882
2882
      END
2883
2883
      SUBROUTINE eomccsdt_x1a_7(d_a,k_a_offset,d_b,k_b_offset,d_c,
2884
2884
     &k_c_offset)
2885
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2885
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
2886
2886
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2887
2887
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2888
2888
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
2898
2898
      INTEGER k_b_offset
2899
2899
      INTEGER d_c
2900
2900
      INTEGER k_c_offset
2901
 
      INTEGER NXTVAL
 
2901
      INTEGER NXTASK
2902
2902
      INTEGER next
2903
2903
      INTEGER nprocs
2904
2904
      INTEGER count
2942
2942
      INTEGER k_c
2943
2943
      LOGICAL ACOLO
2944
2944
      DOUBLE PRECISION FACTORIAL
2945
 
      EXTERNAL NXTVAL
 
2945
      EXTERNAL NXTASK
2946
2946
      EXTERNAL FACTORIAL
2947
2947
      nprocs = GA_NNODES()
2948
2948
      count = 0
2949
 
      next = NXTVAL(nprocs)
 
2949
      next = NXTASK(nprocs,1)
2950
2950
      DO p2b = noab+1,noab+nvab
2951
2951
      DO h1b = 1,noab
2952
2952
      IF (next.eq.count) THEN
3114
3114
      END IF
3115
3115
      END IF
3116
3116
      END IF
3117
 
      next = NXTVAL(nprocs)
 
3117
      next = NXTASK(nprocs,1)
3118
3118
      END IF
3119
3119
      count = count + 1
3120
3120
      END DO
3121
3121
      END DO
3122
 
      next = NXTVAL(-nprocs)
 
3122
      next = NXTASK(-nprocs,1)
3123
3123
      call GA_SYNC()
3124
3124
      RETURN
3125
3125
      END
3126
3126
      SUBROUTINE eomccsdt_x1a_8(d_a,k_a_offset,d_b,k_b_offset,d_c,
3127
3127
     &k_c_offset)
3128
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3128
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3129
3129
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3130
3130
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3131
3131
C     i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx
3141
3141
      INTEGER k_b_offset
3142
3142
      INTEGER d_c
3143
3143
      INTEGER k_c_offset
3144
 
      INTEGER NXTVAL
 
3144
      INTEGER NXTASK
3145
3145
      INTEGER next
3146
3146
      INTEGER nprocs
3147
3147
      INTEGER count
3170
3170
      INTEGER k_b
3171
3171
      INTEGER l_c
3172
3172
      INTEGER k_c
3173
 
      EXTERNAL NXTVAL
 
3173
      EXTERNAL NXTASK
3174
3174
      nprocs = GA_NNODES()
3175
3175
      count = 0
3176
 
      next = NXTVAL(nprocs)
 
3176
      next = NXTASK(nprocs,1)
3177
3177
      DO p2b = noab+1,noab+nvab
3178
3178
      DO h1b = 1,noab
3179
3179
      IF (next.eq.count) THEN
3240
3240
      END IF
3241
3241
      END IF
3242
3242
      END IF
3243
 
      next = NXTVAL(nprocs)
 
3243
      next = NXTASK(nprocs,1)
3244
3244
      END IF
3245
3245
      count = count + 1
3246
3246
      END DO
3247
3247
      END DO
3248
 
      next = NXTVAL(-nprocs)
 
3248
      next = NXTASK(-nprocs,1)
3249
3249
      call GA_SYNC()
3250
3250
      RETURN
3251
3251
      END
3252
3252
      SUBROUTINE eomccsdt_x1a_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
3253
3253
     &k_c_offset)
3254
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3254
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3255
3255
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3256
3256
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3257
3257
C     i1 ( h3 h1 )_fx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * i2 ( h3 p7 )_f
3267
3267
      INTEGER k_b_offset
3268
3268
      INTEGER d_c
3269
3269
      INTEGER k_c_offset
3270
 
      INTEGER NXTVAL
 
3270
      INTEGER NXTASK
3271
3271
      INTEGER next
3272
3272
      INTEGER nprocs
3273
3273
      INTEGER count
3296
3296
      INTEGER k_b
3297
3297
      INTEGER l_c
3298
3298
      INTEGER k_c
3299
 
      EXTERNAL NXTVAL
 
3299
      EXTERNAL NXTASK
3300
3300
      nprocs = GA_NNODES()
3301
3301
      count = 0
3302
 
      next = NXTVAL(nprocs)
 
3302
      next = NXTASK(nprocs,1)
3303
3303
      DO h3b = 1,noab
3304
3304
      DO h1b = 1,noab
3305
3305
      IF (next.eq.count) THEN
3368
3368
      END IF
3369
3369
      END IF
3370
3370
      END IF
3371
 
      next = NXTVAL(nprocs)
 
3371
      next = NXTASK(nprocs,1)
3372
3372
      END IF
3373
3373
      count = count + 1
3374
3374
      END DO
3375
3375
      END DO
3376
 
      next = NXTVAL(-nprocs)
 
3376
      next = NXTASK(-nprocs,1)
3377
3377
      call GA_SYNC()
3378
3378
      RETURN
3379
3379
      END
3380
3380
      SUBROUTINE OFFSET_eomccsdt_x1a_8_1(l_a_offset,k_a_offset,size)
3381
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3381
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3382
3382
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3383
3383
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3384
3384
C     i1 ( h3 h1 )_fx
3433
3433
      RETURN
3434
3434
      END
3435
3435
      SUBROUTINE eomccsdt_x1a_8_1_1(d_a,k_a_offset,d_c,k_c_offset)
3436
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3436
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3437
3437
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3438
3438
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3439
3439
C     i2 ( h3 p7 )_f + = 1 * f ( h3 p7 )_f
3447
3447
      INTEGER k_a_offset
3448
3448
      INTEGER d_c
3449
3449
      INTEGER k_c_offset
3450
 
      INTEGER NXTVAL
 
3450
      INTEGER NXTASK
3451
3451
      INTEGER next
3452
3452
      INTEGER nprocs
3453
3453
      INTEGER count
3465
3465
      INTEGER k_a
3466
3466
      INTEGER l_c
3467
3467
      INTEGER k_c
3468
 
      EXTERNAL NXTVAL
 
3468
      EXTERNAL NXTASK
3469
3469
      nprocs = GA_NNODES()
3470
3470
      count = 0
3471
 
      next = NXTVAL(nprocs)
 
3471
      next = NXTASK(nprocs,1)
3472
3472
      DO h3b = 1,noab
3473
3473
      DO p7b = noab+1,noab+nvab
3474
3474
      IF (next.eq.count) THEN
3507
3507
      END IF
3508
3508
      END IF
3509
3509
      END IF
3510
 
      next = NXTVAL(nprocs)
 
3510
      next = NXTASK(nprocs,1)
3511
3511
      END IF
3512
3512
      count = count + 1
3513
3513
      END DO
3514
3514
      END DO
3515
 
      next = NXTVAL(-nprocs)
 
3515
      next = NXTASK(-nprocs,1)
3516
3516
      call GA_SYNC()
3517
3517
      RETURN
3518
3518
      END
3519
3519
      SUBROUTINE OFFSET_eomccsdt_x1a_8_1_1(l_a_offset,k_a_offset,size)
3520
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3520
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3521
3521
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3522
3522
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3523
3523
C     i2 ( h3 p7 )_f
3573
3573
      END
3574
3574
      SUBROUTINE eomccsdt_x1a_8_1_2(d_a,k_a_offset,d_b,k_b_offset,
3575
3575
     &d_c,k_c_offset)
3576
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3576
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3577
3577
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3578
3578
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3579
3579
C     i2 ( h3 p7 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h3 h5 p4 p7 )_v
3589
3589
      INTEGER k_b_offset
3590
3590
      INTEGER d_c
3591
3591
      INTEGER k_c_offset
3592
 
      INTEGER NXTVAL
 
3592
      INTEGER NXTASK
3593
3593
      INTEGER next
3594
3594
      INTEGER nprocs
3595
3595
      INTEGER count
3621
3621
      INTEGER k_b
3622
3622
      INTEGER l_c
3623
3623
      INTEGER k_c
3624
 
      EXTERNAL NXTVAL
 
3624
      EXTERNAL NXTASK
3625
3625
      nprocs = GA_NNODES()
3626
3626
      count = 0
3627
 
      next = NXTVAL(nprocs)
 
3627
      next = NXTASK(nprocs,1)
3628
3628
      DO h3b = 1,noab
3629
3629
      DO p7b = noab+1,noab+nvab
3630
3630
      IF (next.eq.count) THEN
3723
3723
      END IF
3724
3724
      END IF
3725
3725
      END IF
3726
 
      next = NXTVAL(nprocs)
 
3726
      next = NXTASK(nprocs,1)
3727
3727
      END IF
3728
3728
      count = count + 1
3729
3729
      END DO
3730
3730
      END DO
3731
 
      next = NXTVAL(-nprocs)
 
3731
      next = NXTASK(-nprocs,1)
3732
3732
      call GA_SYNC()
3733
3733
      RETURN
3734
3734
      END
3735
3735
      SUBROUTINE eomccsdt_x1a_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
3736
3736
     &k_c_offset)
3737
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3737
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3738
3738
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3739
3739
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3740
3740
C     i1 ( h3 h1 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h3 h4 h1 p5 )_v
3750
3750
      INTEGER k_b_offset
3751
3751
      INTEGER d_c
3752
3752
      INTEGER k_c_offset
3753
 
      INTEGER NXTVAL
 
3753
      INTEGER NXTASK
3754
3754
      INTEGER next
3755
3755
      INTEGER nprocs
3756
3756
      INTEGER count
3782
3782
      INTEGER k_b
3783
3783
      INTEGER l_c
3784
3784
      INTEGER k_c
3785
 
      EXTERNAL NXTVAL
 
3785
      EXTERNAL NXTASK
3786
3786
      nprocs = GA_NNODES()
3787
3787
      count = 0
3788
 
      next = NXTVAL(nprocs)
 
3788
      next = NXTASK(nprocs,1)
3789
3789
      DO h3b = 1,noab
3790
3790
      DO h1b = 1,noab
3791
3791
      IF (next.eq.count) THEN
3868
3868
      END IF
3869
3869
      END IF
3870
3870
      END IF
3871
 
      next = NXTVAL(nprocs)
 
3871
      next = NXTASK(nprocs,1)
3872
3872
      END IF
3873
3873
      count = count + 1
3874
3874
      END DO
3875
3875
      END DO
3876
 
      next = NXTVAL(-nprocs)
 
3876
      next = NXTASK(-nprocs,1)
3877
3877
      call GA_SYNC()
3878
3878
      RETURN
3879
3879
      END
3880
3880
      SUBROUTINE eomccsdt_x1a_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,
3881
3881
     &k_c_offset)
3882
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3882
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
3883
3883
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3884
3884
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3885
3885
C     i1 ( h3 h1 )_vx + = 1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h3 h4 p5 p6 )_v
3895
3895
      INTEGER k_b_offset
3896
3896
      INTEGER d_c
3897
3897
      INTEGER k_c_offset
3898
 
      INTEGER NXTVAL
 
3898
      INTEGER NXTASK
3899
3899
      INTEGER next
3900
3900
      INTEGER nprocs
3901
3901
      INTEGER count
3933
3933
      INTEGER l_c
3934
3934
      INTEGER k_c
3935
3935
      DOUBLE PRECISION FACTORIAL
3936
 
      EXTERNAL NXTVAL
 
3936
      EXTERNAL NXTASK
3937
3937
      EXTERNAL FACTORIAL
3938
3938
      nprocs = GA_NNODES()
3939
3939
      count = 0
3940
 
      next = NXTVAL(nprocs)
 
3940
      next = NXTASK(nprocs,1)
3941
3941
      DO h3b = 1,noab
3942
3942
      DO h1b = 1,noab
3943
3943
      IF (next.eq.count) THEN
4044
4044
      END IF
4045
4045
      END IF
4046
4046
      END IF
4047
 
      next = NXTVAL(nprocs)
 
4047
      next = NXTASK(nprocs,1)
4048
4048
      END IF
4049
4049
      count = count + 1
4050
4050
      END DO
4051
4051
      END DO
4052
 
      next = NXTVAL(-nprocs)
 
4052
      next = NXTASK(-nprocs,1)
4053
4053
      call GA_SYNC()
4054
4054
      RETURN
4055
4055
      END
4056
4056
      SUBROUTINE eomccsdt_x1a_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,
4057
4057
     &k_c_offset)
4058
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4058
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4059
4059
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4060
4060
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4061
4061
C     i1 ( h3 h1 )_vxt + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * i2 ( h3 p4 )_vx
4071
4071
      INTEGER k_b_offset
4072
4072
      INTEGER d_c
4073
4073
      INTEGER k_c_offset
4074
 
      INTEGER NXTVAL
 
4074
      INTEGER NXTASK
4075
4075
      INTEGER next
4076
4076
      INTEGER nprocs
4077
4077
      INTEGER count
4100
4100
      INTEGER k_b
4101
4101
      INTEGER l_c
4102
4102
      INTEGER k_c
4103
 
      EXTERNAL NXTVAL
 
4103
      EXTERNAL NXTASK
4104
4104
      nprocs = GA_NNODES()
4105
4105
      count = 0
4106
 
      next = NXTVAL(nprocs)
 
4106
      next = NXTASK(nprocs,1)
4107
4107
      DO h3b = 1,noab
4108
4108
      DO h1b = 1,noab
4109
4109
      IF (next.eq.count) THEN
4172
4172
      END IF
4173
4173
      END IF
4174
4174
      END IF
4175
 
      next = NXTVAL(nprocs)
 
4175
      next = NXTASK(nprocs,1)
4176
4176
      END IF
4177
4177
      count = count + 1
4178
4178
      END DO
4179
4179
      END DO
4180
 
      next = NXTVAL(-nprocs)
 
4180
      next = NXTASK(-nprocs,1)
4181
4181
      call GA_SYNC()
4182
4182
      RETURN
4183
4183
      END
4184
4184
      SUBROUTINE eomccsdt_x1a_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
4185
4185
     &k_c_offset)
4186
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4186
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4187
4187
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4188
4188
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4189
4189
C     i2 ( h3 p4 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p4 p6 )_v
4199
4199
      INTEGER k_b_offset
4200
4200
      INTEGER d_c
4201
4201
      INTEGER k_c_offset
4202
 
      INTEGER NXTVAL
 
4202
      INTEGER NXTASK
4203
4203
      INTEGER next
4204
4204
      INTEGER nprocs
4205
4205
      INTEGER count
4231
4231
      INTEGER k_b
4232
4232
      INTEGER l_c
4233
4233
      INTEGER k_c
4234
 
      EXTERNAL NXTVAL
 
4234
      EXTERNAL NXTASK
4235
4235
      nprocs = GA_NNODES()
4236
4236
      count = 0
4237
 
      next = NXTVAL(nprocs)
 
4237
      next = NXTASK(nprocs,1)
4238
4238
      DO h3b = 1,noab
4239
4239
      DO p4b = noab+1,noab+nvab
4240
4240
      IF (next.eq.count) THEN
4333
4333
      END IF
4334
4334
      END IF
4335
4335
      END IF
4336
 
      next = NXTVAL(nprocs)
 
4336
      next = NXTASK(nprocs,1)
4337
4337
      END IF
4338
4338
      count = count + 1
4339
4339
      END DO
4340
4340
      END DO
4341
 
      next = NXTVAL(-nprocs)
 
4341
      next = NXTASK(-nprocs,1)
4342
4342
      call GA_SYNC()
4343
4343
      RETURN
4344
4344
      END
4345
4345
      SUBROUTINE OFFSET_eomccsdt_x1a_8_4_1(l_a_offset,k_a_offset,size)
4346
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4346
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4347
4347
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4348
4348
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4349
4349
C     i2 ( h3 p4 )_vx
4399
4399
      END
4400
4400
      SUBROUTINE eomccsdt_x1a_9(d_a,k_a_offset,d_b,k_b_offset,d_c,
4401
4401
     &k_c_offset)
4402
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4402
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4403
4403
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4404
4404
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4405
4405
C     i0 ( p2 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx
4415
4415
      INTEGER k_b_offset
4416
4416
      INTEGER d_c
4417
4417
      INTEGER k_c_offset
4418
 
      INTEGER NXTVAL
 
4418
      INTEGER NXTASK
4419
4419
      INTEGER next
4420
4420
      INTEGER nprocs
4421
4421
      INTEGER count
4444
4444
      INTEGER k_b
4445
4445
      INTEGER l_c
4446
4446
      INTEGER k_c
4447
 
      EXTERNAL NXTVAL
 
4447
      EXTERNAL NXTASK
4448
4448
      nprocs = GA_NNODES()
4449
4449
      count = 0
4450
 
      next = NXTVAL(nprocs)
 
4450
      next = NXTASK(nprocs,1)
4451
4451
      DO p2b = noab+1,noab+nvab
4452
4452
      DO h1b = 1,noab
4453
4453
      IF (next.eq.count) THEN
4514
4514
      END IF
4515
4515
      END IF
4516
4516
      END IF
4517
 
      next = NXTVAL(nprocs)
 
4517
      next = NXTASK(nprocs,1)
4518
4518
      END IF
4519
4519
      count = count + 1
4520
4520
      END DO
4521
4521
      END DO
4522
 
      next = NXTVAL(-nprocs)
 
4522
      next = NXTASK(-nprocs,1)
4523
4523
      call GA_SYNC()
4524
4524
      RETURN
4525
4525
      END
4526
4526
      SUBROUTINE eomccsdt_x1a_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
4527
4527
     &k_c_offset)
4528
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4528
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4529
4529
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4530
4530
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4531
4531
C     i1 ( p2 p3 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v
4541
4541
      INTEGER k_b_offset
4542
4542
      INTEGER d_c
4543
4543
      INTEGER k_c_offset
4544
 
      INTEGER NXTVAL
 
4544
      INTEGER NXTASK
4545
4545
      INTEGER next
4546
4546
      INTEGER nprocs
4547
4547
      INTEGER count
4573
4573
      INTEGER k_b
4574
4574
      INTEGER l_c
4575
4575
      INTEGER k_c
4576
 
      EXTERNAL NXTVAL
 
4576
      EXTERNAL NXTASK
4577
4577
      nprocs = GA_NNODES()
4578
4578
      count = 0
4579
 
      next = NXTVAL(nprocs)
 
4579
      next = NXTASK(nprocs,1)
4580
4580
      DO p2b = noab+1,noab+nvab
4581
4581
      DO p3b = noab+1,noab+nvab
4582
4582
      IF (next.eq.count) THEN
4659
4659
      END IF
4660
4660
      END IF
4661
4661
      END IF
4662
 
      next = NXTVAL(nprocs)
 
4662
      next = NXTASK(nprocs,1)
4663
4663
      END IF
4664
4664
      count = count + 1
4665
4665
      END DO
4666
4666
      END DO
4667
 
      next = NXTVAL(-nprocs)
 
4667
      next = NXTASK(-nprocs,1)
4668
4668
      call GA_SYNC()
4669
4669
      RETURN
4670
4670
      END
4671
4671
      SUBROUTINE OFFSET_eomccsdt_x1a_9_1(l_a_offset,k_a_offset,size)
4672
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4672
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4673
4673
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4674
4674
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4675
4675
C     i1 ( p2 p3 )_vx
4725
4725
      END
4726
4726
      SUBROUTINE eomccsdt_x1a_10(d_a,k_a_offset,d_b,k_b_offset,d_c,
4727
4727
     &k_c_offset)
4728
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4728
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4729
4729
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4730
4730
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4731
4731
C     i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx
4741
4741
      INTEGER k_b_offset
4742
4742
      INTEGER d_c
4743
4743
      INTEGER k_c_offset
4744
 
      INTEGER NXTVAL
 
4744
      INTEGER NXTASK
4745
4745
      INTEGER next
4746
4746
      INTEGER nprocs
4747
4747
      INTEGER count
4773
4773
      INTEGER k_b
4774
4774
      INTEGER l_c
4775
4775
      INTEGER k_c
4776
 
      EXTERNAL NXTVAL
 
4776
      EXTERNAL NXTASK
4777
4777
      nprocs = GA_NNODES()
4778
4778
      count = 0
4779
 
      next = NXTVAL(nprocs)
 
4779
      next = NXTASK(nprocs,1)
4780
4780
      DO p2b = noab+1,noab+nvab
4781
4781
      DO h1b = 1,noab
4782
4782
      IF (next.eq.count) THEN
4876
4876
      END IF
4877
4877
      END IF
4878
4878
      END IF
4879
 
      next = NXTVAL(nprocs)
 
4879
      next = NXTASK(nprocs,1)
4880
4880
      END IF
4881
4881
      count = count + 1
4882
4882
      END DO
4883
4883
      END DO
4884
 
      next = NXTVAL(-nprocs)
 
4884
      next = NXTASK(-nprocs,1)
4885
4885
      call GA_SYNC()
4886
4886
      RETURN
4887
4887
      END
4888
4888
      SUBROUTINE eomccsdt_x1a_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
4889
4889
     &k_c_offset)
4890
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
4890
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
4891
4891
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4892
4892
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4893
4893
C     i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v
4903
4903
      INTEGER k_b_offset
4904
4904
      INTEGER d_c
4905
4905
      INTEGER k_c_offset
4906
 
      INTEGER NXTVAL
 
4906
      INTEGER NXTASK
4907
4907
      INTEGER next
4908
4908
      INTEGER nprocs
4909
4909
      INTEGER count
4935
4935
      INTEGER k_b
4936
4936
      INTEGER l_c
4937
4937
      INTEGER k_c
4938
 
      EXTERNAL NXTVAL
 
4938
      EXTERNAL NXTASK
4939
4939
      nprocs = GA_NNODES()
4940
4940
      count = 0
4941
 
      next = NXTVAL(nprocs)
 
4941
      next = NXTASK(nprocs,1)
4942
4942
      DO h4b = 1,noab
4943
4943
      DO p3b = noab+1,noab+nvab
4944
4944
      IF (next.eq.count) THEN
5037
5037
      END IF
5038
5038
      END IF
5039
5039
      END IF
5040
 
      next = NXTVAL(nprocs)
 
5040
      next = NXTASK(nprocs,1)
5041
5041
      END IF
5042
5042
      count = count + 1
5043
5043
      END DO
5044
5044
      END DO
5045
 
      next = NXTVAL(-nprocs)
 
5045
      next = NXTASK(-nprocs,1)
5046
5046
      call GA_SYNC()
5047
5047
      RETURN
5048
5048
      END
5049
5049
      SUBROUTINE OFFSET_eomccsdt_x1a_10_1(l_a_offset,k_a_offset,size)
5050
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
5050
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
5051
5051
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5052
5052
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5053
5053
C     i1 ( h4 p3 )_vx
5103
5103
      END
5104
5104
      SUBROUTINE eomccsdt_x1a_11(d_a,k_a_offset,d_b,k_b_offset,d_c,
5105
5105
     &k_c_offset)
5106
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
5106
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
5107
5107
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5108
5108
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5109
5109
C     i0 ( p2 h1 )_vxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx
5119
5119
      INTEGER k_b_offset
5120
5120
      INTEGER d_c
5121
5121
      INTEGER k_c_offset
5122
 
      INTEGER NXTVAL
 
5122
      INTEGER NXTASK
5123
5123
      INTEGER next
5124
5124
      INTEGER nprocs
5125
5125
      INTEGER count
5157
5157
      INTEGER l_c
5158
5158
      INTEGER k_c
5159
5159
      DOUBLE PRECISION FACTORIAL
5160
 
      EXTERNAL NXTVAL
 
5160
      EXTERNAL NXTASK
5161
5161
      EXTERNAL FACTORIAL
5162
5162
      nprocs = GA_NNODES()
5163
5163
      count = 0
5164
 
      next = NXTVAL(nprocs)
 
5164
      next = NXTASK(nprocs,1)
5165
5165
      DO p2b = noab+1,noab+nvab
5166
5166
      DO h1b = 1,noab
5167
5167
      IF (next.eq.count) THEN
5258
5258
      END IF
5259
5259
      END IF
5260
5260
      END IF
5261
 
      next = NXTVAL(nprocs)
 
5261
      next = NXTASK(nprocs,1)
5262
5262
      END IF
5263
5263
      count = count + 1
5264
5264
      END DO
5265
5265
      END DO
5266
 
      next = NXTVAL(-nprocs)
 
5266
      next = NXTASK(-nprocs,1)
5267
5267
      call GA_SYNC()
5268
5268
      RETURN
5269
5269
      END
5270
5270
      SUBROUTINE eomccsdt_x1a_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
5271
5271
     &k_c_offset)
5272
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
5272
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
5273
5273
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5274
5274
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5275
5275
C     i1 ( h4 h5 h1 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v
5285
5285
      INTEGER k_b_offset
5286
5286
      INTEGER d_c
5287
5287
      INTEGER k_c_offset
5288
 
      INTEGER NXTVAL
 
5288
      INTEGER NXTASK
5289
5289
      INTEGER next
5290
5290
      INTEGER nprocs
5291
5291
      INTEGER count
5318
5318
      INTEGER k_b
5319
5319
      INTEGER l_c
5320
5320
      INTEGER k_c
5321
 
      EXTERNAL NXTVAL
 
5321
      EXTERNAL NXTASK
5322
5322
      nprocs = GA_NNODES()
5323
5323
      count = 0
5324
 
      next = NXTVAL(nprocs)
 
5324
      next = NXTASK(nprocs,1)
5325
5325
      DO h4b = 1,noab
5326
5326
      DO h5b = h4b,noab
5327
5327
      DO h1b = 1,noab
5410
5410
      END IF
5411
5411
      END IF
5412
5412
      END IF
5413
 
      next = NXTVAL(nprocs)
 
5413
      next = NXTASK(nprocs,1)
5414
5414
      END IF
5415
5415
      count = count + 1
5416
5416
      END DO
5417
5417
      END DO
5418
5418
      END DO
5419
5419
      END DO
5420
 
      next = NXTVAL(-nprocs)
 
5420
      next = NXTASK(-nprocs,1)
5421
5421
      call GA_SYNC()
5422
5422
      RETURN
5423
5423
      END
5424
5424
      SUBROUTINE OFFSET_eomccsdt_x1a_11_1(l_a_offset,k_a_offset,size)
5425
 
C     $Id: eomccsdt_x1a.F 19702 2010-10-29 17:26:22Z d3y133 $
 
5425
C     $Id: eomccsdt_x1a.F 24183 2013-05-03 23:47:08Z edo $
5426
5426
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5427
5427
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5428
5428
C     i1 ( h4 h5 h1 p3 )_vx