← Back to branch summary

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

« back to all changes in this revision

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

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

[ Daniel Leidert ]
* debian/watch: Fixed.

[ Andreas Tille ]
* debian/upstream: References

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

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tce/eomccsdt/eomccsdt_y1_all12.F
1
1
      SUBROUTINE eomccsdt_y1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2
2
     &offset)
3
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
4
4
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5
5
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6
6
C     i1 ( p9 p10 )_yt + = 1 * Sum ( h4 ) * t ( p9 h4 )_t * y ( h4 p10 )_y
16
16
      INTEGER k_b_offset
17
17
      INTEGER d_c
18
18
      INTEGER k_c_offset
19
 
      INTEGER NXTVAL
 
19
      INTEGER NXTASK
20
20
      INTEGER next
21
21
      INTEGER nprocs
22
22
      INTEGER count
45
45
      INTEGER k_b
46
46
      INTEGER l_c
47
47
      INTEGER k_c
48
 
      EXTERNAL NXTVAL
 
48
      EXTERNAL NXTASK
49
49
      nprocs = GA_NNODES()
50
50
      count = 0
51
 
      next = NXTVAL(nprocs)
 
51
      next = NXTASK(nprocs,1)
52
52
      DO p9b = noab+1,noab+nvab
53
53
      DO p10b = noab+1,noab+nvab
54
54
      IF (next.eq.count) THEN
117
117
      END IF
118
118
      END IF
119
119
      END IF
120
 
      next = NXTVAL(nprocs)
 
120
      next = NXTASK(nprocs,1)
121
121
      END IF
122
122
      count = count + 1
123
123
      END DO
124
124
      END DO
125
 
      next = NXTVAL(-nprocs)
 
125
      next = NXTASK(-nprocs,1)
126
126
      call GA_SYNC()
127
127
      RETURN
128
128
      END
129
129
      SUBROUTINE eomccsdt_y1_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
130
130
     &offset)
131
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
131
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
132
132
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
133
133
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
134
134
C     i1 ( p9 p10 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p9 h5 h6 )_t * y ( h5 h6 p3 p10 )_y
144
144
      INTEGER k_b_offset
145
145
      INTEGER d_c
146
146
      INTEGER k_c_offset
147
 
      INTEGER NXTVAL
 
147
      INTEGER NXTASK
148
148
      INTEGER next
149
149
      INTEGER nprocs
150
150
      INTEGER count
182
182
      INTEGER l_c
183
183
      INTEGER k_c
184
184
      DOUBLE PRECISION FACTORIAL
185
 
      EXTERNAL NXTVAL
 
185
      EXTERNAL NXTASK
186
186
      EXTERNAL FACTORIAL
187
187
      nprocs = GA_NNODES()
188
188
      count = 0
189
 
      next = NXTVAL(nprocs)
 
189
      next = NXTASK(nprocs,1)
190
190
      DO p9b = noab+1,noab+nvab
191
191
      DO p10b = noab+1,noab+nvab
192
192
      IF (next.eq.count) THEN
293
293
      END IF
294
294
      END IF
295
295
      END IF
296
 
      next = NXTVAL(nprocs)
 
296
      next = NXTASK(nprocs,1)
297
297
      END IF
298
298
      count = count + 1
299
299
      END DO
300
300
      END DO
301
 
      next = NXTVAL(-nprocs)
 
301
      next = NXTASK(-nprocs,1)
302
302
      call GA_SYNC()
303
303
      RETURN
304
304
      END
305
305
      SUBROUTINE eomccsdt_y1_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
306
306
     &offset)
307
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
307
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
308
308
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
309
309
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
310
310
C     i1 ( p9 p10 )_yt + = 1/12 * Sum ( h8 h7 h6 p4 p3 ) * t ( p3 p4 p9 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p10 )_y
320
320
      INTEGER k_b_offset
321
321
      INTEGER d_c
322
322
      INTEGER k_c_offset
323
 
      INTEGER NXTVAL
 
323
      INTEGER NXTASK
324
324
      INTEGER next
325
325
      INTEGER nprocs
326
326
      INTEGER count
366
366
      INTEGER l_c
367
367
      INTEGER k_c
368
368
      DOUBLE PRECISION FACTORIAL
369
 
      EXTERNAL NXTVAL
 
369
      EXTERNAL NXTASK
370
370
      EXTERNAL FACTORIAL
371
371
      nprocs = GA_NNODES()
372
372
      count = 0
373
 
      next = NXTVAL(nprocs)
 
373
      next = NXTASK(nprocs,1)
374
374
      DO p9b = noab+1,noab+nvab
375
375
      DO p10b = noab+1,noab+nvab
376
376
      IF (next.eq.count) THEN
519
519
      END IF
520
520
      END IF
521
521
      END IF
522
 
      next = NXTVAL(nprocs)
 
522
      next = NXTASK(nprocs,1)
523
523
      END IF
524
524
      count = count + 1
525
525
      END DO
526
526
      END DO
527
 
      next = NXTVAL(-nprocs)
 
527
      next = NXTASK(-nprocs,1)
528
528
      call GA_SYNC()
529
529
      RETURN
530
530
      END
531
531
      SUBROUTINE eomccsdt_y1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
532
532
     &fset)
533
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
533
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
534
534
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
535
535
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
536
536
C     i0 ( h2 p1 )_ytv + = 1 * Sum ( p9 p10 ) * i1 ( p9 p10 )_yt * v ( h2 p10 p1 p9 )_v
546
546
      INTEGER k_b_offset
547
547
      INTEGER d_c
548
548
      INTEGER k_c_offset
549
 
      INTEGER NXTVAL
 
549
      INTEGER NXTASK
550
550
      INTEGER next
551
551
      INTEGER nprocs
552
552
      INTEGER count
578
578
      INTEGER k_b
579
579
      INTEGER l_c
580
580
      INTEGER k_c
581
 
      EXTERNAL NXTVAL
 
581
      EXTERNAL NXTASK
582
582
      nprocs = GA_NNODES()
583
583
      count = 0
584
 
      next = NXTVAL(nprocs)
 
584
      next = NXTASK(nprocs,1)
585
585
      DO h2b = 1,noab
586
586
      DO p1b = noab+1,noab+nvab
587
587
      IF (next.eq.count) THEN
664
664
      END IF
665
665
      END IF
666
666
      END IF
667
 
      next = NXTVAL(nprocs)
 
667
      next = NXTASK(nprocs,1)
668
668
      END IF
669
669
      count = count + 1
670
670
      END DO
671
671
      END DO
672
 
      next = NXTVAL(-nprocs)
 
672
      next = NXTASK(-nprocs,1)
673
673
      call GA_SYNC()
674
674
      RETURN
675
675
      END
676
676
      SUBROUTINE eomccsdt_y1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
677
677
     &offset)
678
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
678
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
679
679
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
680
680
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
681
681
C     i1 ( h2 h7 h9 p10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 h7 p3 p10 )_y
691
691
      INTEGER k_b_offset
692
692
      INTEGER d_c
693
693
      INTEGER k_c_offset
694
 
      INTEGER NXTVAL
 
694
      INTEGER NXTASK
695
695
      INTEGER next
696
696
      INTEGER nprocs
697
697
      INTEGER count
724
724
      INTEGER k_b
725
725
      INTEGER l_c
726
726
      INTEGER k_c
727
 
      EXTERNAL NXTVAL
 
727
      EXTERNAL NXTASK
728
728
      nprocs = GA_NNODES()
729
729
      count = 0
730
 
      next = NXTVAL(nprocs)
 
730
      next = NXTASK(nprocs,1)
731
731
      DO h2b = 1,noab
732
732
      DO h7b = 1,noab
733
733
      DO h9b = 1,noab
832
832
      END IF
833
833
      END IF
834
834
      END IF
835
 
      next = NXTVAL(nprocs)
 
835
      next = NXTASK(nprocs,1)
836
836
      END IF
837
837
      count = count + 1
838
838
      END DO
839
839
      END DO
840
840
      END DO
841
841
      END DO
842
 
      next = NXTVAL(-nprocs)
 
842
      next = NXTASK(-nprocs,1)
843
843
      call GA_SYNC()
844
844
      RETURN
845
845
      END
846
846
      SUBROUTINE eomccsdt_y1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
847
847
     &offset)
848
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
848
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
849
849
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
850
850
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
851
851
C     i1 ( h2 h7 h9 p10 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 h5 h7 p3 p4 p10 )_y
861
861
      INTEGER k_b_offset
862
862
      INTEGER d_c
863
863
      INTEGER k_c_offset
864
 
      INTEGER NXTVAL
 
864
      INTEGER NXTASK
865
865
      INTEGER next
866
866
      INTEGER nprocs
867
867
      INTEGER count
903
903
      INTEGER l_c
904
904
      INTEGER k_c
905
905
      DOUBLE PRECISION FACTORIAL
906
 
      EXTERNAL NXTVAL
 
906
      EXTERNAL NXTASK
907
907
      EXTERNAL FACTORIAL
908
908
      nprocs = GA_NNODES()
909
909
      count = 0
910
 
      next = NXTVAL(nprocs)
 
910
      next = NXTASK(nprocs,1)
911
911
      DO h2b = 1,noab
912
912
      DO h7b = 1,noab
913
913
      DO h9b = 1,noab
1187
1187
      END IF
1188
1188
      END IF
1189
1189
      END IF
1190
 
      next = NXTVAL(nprocs)
 
1190
      next = NXTASK(nprocs,1)
1191
1191
      END IF
1192
1192
      count = count + 1
1193
1193
      END DO
1194
1194
      END DO
1195
1195
      END DO
1196
1196
      END DO
1197
 
      next = NXTVAL(-nprocs)
 
1197
      next = NXTASK(-nprocs,1)
1198
1198
      call GA_SYNC()
1199
1199
      RETURN
1200
1200
      END
1201
1201
      SUBROUTINE eomccsdt_y1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1202
1202
     &fset)
1203
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1203
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
1204
1204
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1205
1205
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1206
1206
C     i0 ( h2 p1 )_ytv + = 1 * Sum ( h7 h9 p10 ) * i1 ( h2 h7 h9 p10 )_yt * v ( h9 p10 h7 p1 )_v
1216
1216
      INTEGER k_b_offset
1217
1217
      INTEGER d_c
1218
1218
      INTEGER k_c_offset
1219
 
      INTEGER NXTVAL
 
1219
      INTEGER NXTASK
1220
1220
      INTEGER next
1221
1221
      INTEGER nprocs
1222
1222
      INTEGER count
1251
1251
      INTEGER k_b
1252
1252
      INTEGER l_c
1253
1253
      INTEGER k_c
1254
 
      EXTERNAL NXTVAL
 
1254
      EXTERNAL NXTASK
1255
1255
      nprocs = GA_NNODES()
1256
1256
      count = 0
1257
 
      next = NXTVAL(nprocs)
 
1257
      next = NXTASK(nprocs,1)
1258
1258
      DO h2b = 1,noab
1259
1259
      DO p1b = noab+1,noab+nvab
1260
1260
      IF (next.eq.count) THEN
1336
1336
      END IF
1337
1337
      END IF
1338
1338
      END IF
1339
 
      next = NXTVAL(nprocs)
 
1339
      next = NXTASK(nprocs,1)
1340
1340
      END IF
1341
1341
      count = count + 1
1342
1342
      END DO
1343
1343
      END DO
1344
 
      next = NXTVAL(-nprocs)
 
1344
      next = NXTASK(-nprocs,1)
1345
1345
      call GA_SYNC()
1346
1346
      RETURN
1347
1347
      END
1348
1348
      SUBROUTINE eomccsdt_y1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1349
1349
     &offset)
1350
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1350
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
1351
1351
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1352
1352
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1353
1353
C     i1 ( p13 h12 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p13 h5 h12 )_t * y ( h5 p3 )_y
1363
1363
      INTEGER k_b_offset
1364
1364
      INTEGER d_c
1365
1365
      INTEGER k_c_offset
1366
 
      INTEGER NXTVAL
 
1366
      INTEGER NXTASK
1367
1367
      INTEGER next
1368
1368
      INTEGER nprocs
1369
1369
      INTEGER count
1395
1395
      INTEGER k_b
1396
1396
      INTEGER l_c
1397
1397
      INTEGER k_c
1398
 
      EXTERNAL NXTVAL
 
1398
      EXTERNAL NXTASK
1399
1399
      nprocs = GA_NNODES()
1400
1400
      count = 0
1401
 
      next = NXTVAL(nprocs)
 
1401
      next = NXTASK(nprocs,1)
1402
1402
      DO p13b = noab+1,noab+nvab
1403
1403
      DO h12b = 1,noab
1404
1404
      IF (next.eq.count) THEN
1498
1498
      END IF
1499
1499
      END IF
1500
1500
      END IF
1501
 
      next = NXTVAL(nprocs)
 
1501
      next = NXTASK(nprocs,1)
1502
1502
      END IF
1503
1503
      count = count + 1
1504
1504
      END DO
1505
1505
      END DO
1506
 
      next = NXTVAL(-nprocs)
 
1506
      next = NXTASK(-nprocs,1)
1507
1507
      call GA_SYNC()
1508
1508
      RETURN
1509
1509
      END
1510
1510
      SUBROUTINE eomccsdt_y1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1511
1511
     &offset)
1512
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1512
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
1513
1513
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1514
1514
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1515
1515
C     i1 ( p13 h12 )_yt + = 1/4 * Sum ( h7 h6 p4 p3 ) * t ( p3 p4 p13 h6 h7 h12 )_t * y ( h6 h7 p3 p4 )_y
1525
1525
      INTEGER k_b_offset
1526
1526
      INTEGER d_c
1527
1527
      INTEGER k_c_offset
1528
 
      INTEGER NXTVAL
 
1528
      INTEGER NXTASK
1529
1529
      INTEGER next
1530
1530
      INTEGER nprocs
1531
1531
      INTEGER count
1568
1568
      INTEGER l_c
1569
1569
      INTEGER k_c
1570
1570
      DOUBLE PRECISION FACTORIAL
1571
 
      EXTERNAL NXTVAL
 
1571
      EXTERNAL NXTASK
1572
1572
      EXTERNAL FACTORIAL
1573
1573
      nprocs = GA_NNODES()
1574
1574
      count = 0
1575
 
      next = NXTVAL(nprocs)
 
1575
      next = NXTASK(nprocs,1)
1576
1576
      DO p13b = noab+1,noab+nvab
1577
1577
      DO h12b = 1,noab
1578
1578
      IF (next.eq.count) THEN
1753
1753
      END IF
1754
1754
      END IF
1755
1755
      END IF
1756
 
      next = NXTVAL(nprocs)
 
1756
      next = NXTASK(nprocs,1)
1757
1757
      END IF
1758
1758
      count = count + 1
1759
1759
      END DO
1760
1760
      END DO
1761
 
      next = NXTVAL(-nprocs)
 
1761
      next = NXTASK(-nprocs,1)
1762
1762
      call GA_SYNC()
1763
1763
      RETURN
1764
1764
      END
1765
1765
      SUBROUTINE eomccsdt_y1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
1766
1766
     &c_offset)
1767
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1767
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
1768
1768
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1769
1769
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1770
1770
C     i2 ( h8 h12 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 p5 )_y
1780
1780
      INTEGER k_b_offset
1781
1781
      INTEGER d_c
1782
1782
      INTEGER k_c_offset
1783
 
      INTEGER NXTVAL
 
1783
      INTEGER NXTASK
1784
1784
      INTEGER next
1785
1785
      INTEGER nprocs
1786
1786
      INTEGER count
1809
1809
      INTEGER k_b
1810
1810
      INTEGER l_c
1811
1811
      INTEGER k_c
1812
 
      EXTERNAL NXTVAL
 
1812
      EXTERNAL NXTASK
1813
1813
      nprocs = GA_NNODES()
1814
1814
      count = 0
1815
 
      next = NXTVAL(nprocs)
 
1815
      next = NXTASK(nprocs,1)
1816
1816
      DO h8b = 1,noab
1817
1817
      DO h12b = 1,noab
1818
1818
      IF (next.eq.count) THEN
1881
1881
      END IF
1882
1882
      END IF
1883
1883
      END IF
1884
 
      next = NXTVAL(nprocs)
 
1884
      next = NXTASK(nprocs,1)
1885
1885
      END IF
1886
1886
      count = count + 1
1887
1887
      END DO
1888
1888
      END DO
1889
 
      next = NXTVAL(-nprocs)
 
1889
      next = NXTASK(-nprocs,1)
1890
1890
      call GA_SYNC()
1891
1891
      RETURN
1892
1892
      END
1893
1893
      SUBROUTINE eomccsdt_y1_12_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
1894
1894
     &c_offset)
1895
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1895
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
1896
1896
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1897
1897
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1898
1898
C     i2 ( h8 h12 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h5 h8 p3 p4 )_y
1908
1908
      INTEGER k_b_offset
1909
1909
      INTEGER d_c
1910
1910
      INTEGER k_c_offset
1911
 
      INTEGER NXTVAL
 
1911
      INTEGER NXTASK
1912
1912
      INTEGER next
1913
1913
      INTEGER nprocs
1914
1914
      INTEGER count
1946
1946
      INTEGER l_c
1947
1947
      INTEGER k_c
1948
1948
      DOUBLE PRECISION FACTORIAL
1949
 
      EXTERNAL NXTVAL
 
1949
      EXTERNAL NXTASK
1950
1950
      EXTERNAL FACTORIAL
1951
1951
      nprocs = GA_NNODES()
1952
1952
      count = 0
1953
 
      next = NXTVAL(nprocs)
 
1953
      next = NXTASK(nprocs,1)
1954
1954
      DO h8b = 1,noab
1955
1955
      DO h12b = 1,noab
1956
1956
      IF (next.eq.count) THEN
2057
2057
      END IF
2058
2058
      END IF
2059
2059
      END IF
2060
 
      next = NXTVAL(nprocs)
 
2060
      next = NXTASK(nprocs,1)
2061
2061
      END IF
2062
2062
      count = count + 1
2063
2063
      END DO
2064
2064
      END DO
2065
 
      next = NXTVAL(-nprocs)
 
2065
      next = NXTASK(-nprocs,1)
2066
2066
      call GA_SYNC()
2067
2067
      RETURN
2068
2068
      END
2069
2069
      SUBROUTINE eomccsdt_y1_12_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
2070
2070
     &c_offset)
2071
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2071
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2072
2072
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2073
2073
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2074
2074
C     i2 ( h8 h12 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h12 )_t * y ( h6 h7 h8 p3 p4 p5 )_y
2084
2084
      INTEGER k_b_offset
2085
2085
      INTEGER d_c
2086
2086
      INTEGER k_c_offset
2087
 
      INTEGER NXTVAL
 
2087
      INTEGER NXTASK
2088
2088
      INTEGER next
2089
2089
      INTEGER nprocs
2090
2090
      INTEGER count
2130
2130
      INTEGER l_c
2131
2131
      INTEGER k_c
2132
2132
      DOUBLE PRECISION FACTORIAL
2133
 
      EXTERNAL NXTVAL
 
2133
      EXTERNAL NXTASK
2134
2134
      EXTERNAL FACTORIAL
2135
2135
      nprocs = GA_NNODES()
2136
2136
      count = 0
2137
 
      next = NXTVAL(nprocs)
 
2137
      next = NXTASK(nprocs,1)
2138
2138
      DO h8b = 1,noab
2139
2139
      DO h12b = 1,noab
2140
2140
      IF (next.eq.count) THEN
2283
2283
      END IF
2284
2284
      END IF
2285
2285
      END IF
2286
 
      next = NXTVAL(nprocs)
 
2286
      next = NXTASK(nprocs,1)
2287
2287
      END IF
2288
2288
      count = count + 1
2289
2289
      END DO
2290
2290
      END DO
2291
 
      next = NXTVAL(-nprocs)
 
2291
      next = NXTASK(-nprocs,1)
2292
2292
      call GA_SYNC()
2293
2293
      RETURN
2294
2294
      END
2295
2295
      SUBROUTINE eomccsdt_y1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2296
2296
     &offset)
2297
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2297
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2298
2298
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2299
2299
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2300
2300
C     i1 ( p13 h12 )_ytt + = -1 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 h12 )_yt
2310
2310
      INTEGER k_b_offset
2311
2311
      INTEGER d_c
2312
2312
      INTEGER k_c_offset
2313
 
      INTEGER NXTVAL
 
2313
      INTEGER NXTASK
2314
2314
      INTEGER next
2315
2315
      INTEGER nprocs
2316
2316
      INTEGER count
2339
2339
      INTEGER k_b
2340
2340
      INTEGER l_c
2341
2341
      INTEGER k_c
2342
 
      EXTERNAL NXTVAL
 
2342
      EXTERNAL NXTASK
2343
2343
      nprocs = GA_NNODES()
2344
2344
      count = 0
2345
 
      next = NXTVAL(nprocs)
 
2345
      next = NXTASK(nprocs,1)
2346
2346
      DO p13b = noab+1,noab+nvab
2347
2347
      DO h12b = 1,noab
2348
2348
      IF (next.eq.count) THEN
2411
2411
      END IF
2412
2412
      END IF
2413
2413
      END IF
2414
 
      next = NXTVAL(nprocs)
 
2414
      next = NXTASK(nprocs,1)
2415
2415
      END IF
2416
2416
      count = count + 1
2417
2417
      END DO
2418
2418
      END DO
2419
 
      next = NXTVAL(-nprocs)
 
2419
      next = NXTASK(-nprocs,1)
2420
2420
      call GA_SYNC()
2421
2421
      RETURN
2422
2422
      END
2423
2423
      SUBROUTINE eomccsdt_y1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
2424
2424
     &c_offset)
2425
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2425
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2426
2426
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2427
2427
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2428
2428
C     i2 ( h5 h6 h12 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * y ( h5 h6 p3 p7 )_y
2438
2438
      INTEGER k_b_offset
2439
2439
      INTEGER d_c
2440
2440
      INTEGER k_c_offset
2441
 
      INTEGER NXTVAL
 
2441
      INTEGER NXTASK
2442
2442
      INTEGER next
2443
2443
      INTEGER nprocs
2444
2444
      INTEGER count
2471
2471
      INTEGER k_b
2472
2472
      INTEGER l_c
2473
2473
      INTEGER k_c
2474
 
      EXTERNAL NXTVAL
 
2474
      EXTERNAL NXTASK
2475
2475
      nprocs = GA_NNODES()
2476
2476
      count = 0
2477
 
      next = NXTVAL(nprocs)
 
2477
      next = NXTASK(nprocs,1)
2478
2478
      DO h5b = 1,noab
2479
2479
      DO h6b = h5b,noab
2480
2480
      DO h12b = 1,noab
2563
2563
      END IF
2564
2564
      END IF
2565
2565
      END IF
2566
 
      next = NXTVAL(nprocs)
 
2566
      next = NXTASK(nprocs,1)
2567
2567
      END IF
2568
2568
      count = count + 1
2569
2569
      END DO
2570
2570
      END DO
2571
2571
      END DO
2572
2572
      END DO
2573
 
      next = NXTVAL(-nprocs)
 
2573
      next = NXTASK(-nprocs,1)
2574
2574
      call GA_SYNC()
2575
2575
      RETURN
2576
2576
      END
2577
2577
      SUBROUTINE eomccsdt_y1_12_4_2_1(d_a,k_a_offset,d_c,k_c_offset)
2578
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2578
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2579
2579
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2580
2580
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2581
2581
C     i3 ( h5 h6 h9 p3 p7 p8 )_y + = 1 * y ( h5 h6 h9 p3 p7 p8 )_y
2589
2589
      INTEGER k_a_offset
2590
2590
      INTEGER d_c
2591
2591
      INTEGER k_c_offset
2592
 
      INTEGER NXTVAL
 
2592
      INTEGER NXTASK
2593
2593
      INTEGER next
2594
2594
      INTEGER nprocs
2595
2595
      INTEGER count
2615
2615
      INTEGER k_a
2616
2616
      INTEGER l_c
2617
2617
      INTEGER k_c
2618
 
      EXTERNAL NXTVAL
 
2618
      EXTERNAL NXTASK
2619
2619
      nprocs = GA_NNODES()
2620
2620
      count = 0
2621
 
      next = NXTVAL(nprocs)
 
2621
      next = NXTASK(nprocs,1)
2622
2622
      DO h5b = 1,noab
2623
2623
      DO h6b = h5b,noab
2624
2624
      DO h9b = h6b,noab
2674
2674
      END IF
2675
2675
      END IF
2676
2676
      END IF
2677
 
      next = NXTVAL(nprocs)
 
2677
      next = NXTASK(nprocs,1)
2678
2678
      END IF
2679
2679
      count = count + 1
2680
2680
      END DO
2683
2683
      END DO
2684
2684
      END DO
2685
2685
      END DO
2686
 
      next = NXTVAL(-nprocs)
 
2686
      next = NXTASK(-nprocs,1)
2687
2687
      call GA_SYNC()
2688
2688
      RETURN
2689
2689
      END
2690
2690
      SUBROUTINE eomccsdt_y1_12_4_2_2(d_a,k_a_offset,d_c,k_c_offset)
2691
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2691
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2692
2692
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2693
2693
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2694
2694
C     i3 ( h5 h6 h9 p3 p7 p8 )_y + = 4/5 * y ( h5 h6 h9 p3 p7 p8 )_y
2702
2702
      INTEGER k_a_offset
2703
2703
      INTEGER d_c
2704
2704
      INTEGER k_c_offset
2705
 
      INTEGER NXTVAL
 
2705
      INTEGER NXTASK
2706
2706
      INTEGER next
2707
2707
      INTEGER nprocs
2708
2708
      INTEGER count
2728
2728
      INTEGER k_a
2729
2729
      INTEGER l_c
2730
2730
      INTEGER k_c
2731
 
      EXTERNAL NXTVAL
 
2731
      EXTERNAL NXTASK
2732
2732
      nprocs = GA_NNODES()
2733
2733
      count = 0
2734
 
      next = NXTVAL(nprocs)
 
2734
      next = NXTASK(nprocs,1)
2735
2735
      DO h5b = 1,noab
2736
2736
      DO h6b = h5b,noab
2737
2737
      DO h9b = h6b,noab
2788
2788
      END IF
2789
2789
      END IF
2790
2790
      END IF
2791
 
      next = NXTVAL(nprocs)
 
2791
      next = NXTASK(nprocs,1)
2792
2792
      END IF
2793
2793
      count = count + 1
2794
2794
      END DO
2797
2797
      END DO
2798
2798
      END DO
2799
2799
      END DO
2800
 
      next = NXTVAL(-nprocs)
 
2800
      next = NXTASK(-nprocs,1)
2801
2801
      call GA_SYNC()
2802
2802
      RETURN
2803
2803
      END
2804
2804
      SUBROUTINE eomccsdt_y1_12_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
2805
2805
     &c_offset)
2806
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2806
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
2807
2807
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2808
2808
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2809
2809
C     i2 ( h5 h6 h12 p3 )_yt + = -5/18 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h12 )_t * i3 ( h5 h6 h9 p3 p7 p8 )_y
2819
2819
      INTEGER k_b_offset
2820
2820
      INTEGER d_c
2821
2821
      INTEGER k_c_offset
2822
 
      INTEGER NXTVAL
 
2822
      INTEGER NXTASK
2823
2823
      INTEGER next
2824
2824
      INTEGER nprocs
2825
2825
      INTEGER count
2861
2861
      INTEGER l_c
2862
2862
      INTEGER k_c
2863
2863
      DOUBLE PRECISION FACTORIAL
2864
 
      EXTERNAL NXTVAL
 
2864
      EXTERNAL NXTASK
2865
2865
      EXTERNAL FACTORIAL
2866
2866
      nprocs = GA_NNODES()
2867
2867
      count = 0
2868
 
      next = NXTVAL(nprocs)
 
2868
      next = NXTASK(nprocs,1)
2869
2869
      DO h5b = 1,noab
2870
2870
      DO h6b = h5b,noab
2871
2871
      DO h12b = 1,noab
3038
3038
      END IF
3039
3039
      END IF
3040
3040
      END IF
3041
 
      next = NXTVAL(nprocs)
 
3041
      next = NXTASK(nprocs,1)
3042
3042
      END IF
3043
3043
      count = count + 1
3044
3044
      END DO
3045
3045
      END DO
3046
3046
      END DO
3047
3047
      END DO
3048
 
      next = NXTVAL(-nprocs)
 
3048
      next = NXTASK(-nprocs,1)
3049
3049
      call GA_SYNC()
3050
3050
      RETURN
3051
3051
      END
3052
3052
      SUBROUTINE eomccsdt_y1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3053
3053
     &offset)
3054
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3054
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
3055
3055
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3056
3056
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3057
3057
C     i1 ( p13 h12 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p13 h5 h6 )_t * i2 ( h5 h6 h12 p3 )_yt
3067
3067
      INTEGER k_b_offset
3068
3068
      INTEGER d_c
3069
3069
      INTEGER k_c_offset
3070
 
      INTEGER NXTVAL
 
3070
      INTEGER NXTASK
3071
3071
      INTEGER next
3072
3072
      INTEGER nprocs
3073
3073
      INTEGER count
3105
3105
      INTEGER l_c
3106
3106
      INTEGER k_c
3107
3107
      DOUBLE PRECISION FACTORIAL
3108
 
      EXTERNAL NXTVAL
 
3108
      EXTERNAL NXTASK
3109
3109
      EXTERNAL FACTORIAL
3110
3110
      nprocs = GA_NNODES()
3111
3111
      count = 0
3112
 
      next = NXTVAL(nprocs)
 
3112
      next = NXTASK(nprocs,1)
3113
3113
      DO p13b = noab+1,noab+nvab
3114
3114
      DO h12b = 1,noab
3115
3115
      IF (next.eq.count) THEN
3208
3208
      END IF
3209
3209
      END IF
3210
3210
      END IF
3211
 
      next = NXTVAL(nprocs)
 
3211
      next = NXTASK(nprocs,1)
3212
3212
      END IF
3213
3213
      count = count + 1
3214
3214
      END DO
3215
3215
      END DO
3216
 
      next = NXTVAL(-nprocs)
 
3216
      next = NXTASK(-nprocs,1)
3217
3217
      call GA_SYNC()
3218
3218
      RETURN
3219
3219
      END
3220
3220
      SUBROUTINE eomccsdt_y1_12_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3221
3221
     &c_offset)
3222
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3222
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
3223
3223
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3224
3224
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3225
3225
C     i2 ( h6 h7 h8 h12 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * y ( h6 h7 h8 p3 p4 p9 )_y
3235
3235
      INTEGER k_b_offset
3236
3236
      INTEGER d_c
3237
3237
      INTEGER k_c_offset
3238
 
      INTEGER NXTVAL
 
3238
      INTEGER NXTASK
3239
3239
      INTEGER next
3240
3240
      INTEGER nprocs
3241
3241
      INTEGER count
3272
3272
      INTEGER k_b
3273
3273
      INTEGER l_c
3274
3274
      INTEGER k_c
3275
 
      EXTERNAL NXTVAL
 
3275
      EXTERNAL NXTASK
3276
3276
      nprocs = GA_NNODES()
3277
3277
      count = 0
3278
 
      next = NXTVAL(nprocs)
 
3278
      next = NXTASK(nprocs,1)
3279
3279
      DO h6b = 1,noab
3280
3280
      DO h7b = h6b,noab
3281
3281
      DO h8b = h7b,noab
3378
3378
      END IF
3379
3379
      END IF
3380
3380
      END IF
3381
 
      next = NXTVAL(nprocs)
 
3381
      next = NXTASK(nprocs,1)
3382
3382
      END IF
3383
3383
      count = count + 1
3384
3384
      END DO
3387
3387
      END DO
3388
3388
      END DO
3389
3389
      END DO
3390
 
      next = NXTVAL(-nprocs)
 
3390
      next = NXTASK(-nprocs,1)
3391
3391
      call GA_SYNC()
3392
3392
      RETURN
3393
3393
      END
3394
3394
      SUBROUTINE eomccsdt_y1_12_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3395
3395
     &offset)
3396
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3396
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
3397
3397
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3398
3398
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3399
3399
C     i1 ( p13 h12 )_ytt + = -1/12 * Sum ( h6 h7 h8 p3 p4 ) * t ( p3 p4 p13 h6 h7 h8 )_t * i2 ( h6 h7 h8 h12 p3 p4 )_yt
3409
3409
      INTEGER k_b_offset
3410
3410
      INTEGER d_c
3411
3411
      INTEGER k_c_offset
3412
 
      INTEGER NXTVAL
 
3412
      INTEGER NXTASK
3413
3413
      INTEGER next
3414
3414
      INTEGER nprocs
3415
3415
      INTEGER count
3455
3455
      INTEGER l_c
3456
3456
      INTEGER k_c
3457
3457
      DOUBLE PRECISION FACTORIAL
3458
 
      EXTERNAL NXTVAL
 
3458
      EXTERNAL NXTASK
3459
3459
      EXTERNAL FACTORIAL
3460
3460
      nprocs = GA_NNODES()
3461
3461
      count = 0
3462
 
      next = NXTVAL(nprocs)
 
3462
      next = NXTASK(nprocs,1)
3463
3463
      DO p13b = noab+1,noab+nvab
3464
3464
      DO h12b = 1,noab
3465
3465
      IF (next.eq.count) THEN
3592
3592
      END IF
3593
3593
      END IF
3594
3594
      END IF
3595
 
      next = NXTVAL(nprocs)
 
3595
      next = NXTASK(nprocs,1)
3596
3596
      END IF
3597
3597
      count = count + 1
3598
3598
      END DO
3599
3599
      END DO
3600
 
      next = NXTVAL(-nprocs)
 
3600
      next = NXTASK(-nprocs,1)
3601
3601
      call GA_SYNC()
3602
3602
      RETURN
3603
3603
      END
3604
3604
      SUBROUTINE eomccsdt_y1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
3605
3605
     &fset)
3606
 
C     $Id: eomccsdt_y1_all12.F 19702 2010-10-29 17:26:22Z d3y133 $
 
3606
C     $Id: eomccsdt_y1_all12.F 24183 2013-05-03 23:47:08Z edo $
3607
3607
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3608
3608
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3609
3609
C     i0 ( h2 p1 )_ytv + = 1 * Sum ( p13 h12 ) * i1 ( p13 h12 )_yt * v ( h2 h12 p1 p13 )_v
3619
3619
      INTEGER k_b_offset
3620
3620
      INTEGER d_c
3621
3621
      INTEGER k_c_offset
3622
 
      INTEGER NXTVAL
 
3622
      INTEGER NXTASK
3623
3623
      INTEGER next
3624
3624
      INTEGER nprocs
3625
3625
      INTEGER count
3651
3651
      INTEGER k_b
3652
3652
      INTEGER l_c
3653
3653
      INTEGER k_c
3654
 
      EXTERNAL NXTVAL
 
3654
      EXTERNAL NXTASK
3655
3655
      nprocs = GA_NNODES()
3656
3656
      count = 0
3657
 
      next = NXTVAL(nprocs)
 
3657
      next = NXTASK(nprocs,1)
3658
3658
      DO h2b = 1,noab
3659
3659
      DO p1b = noab+1,noab+nvab
3660
3660
      IF (next.eq.count) THEN
3753
3753
      END IF
3754
3754
      END IF
3755
3755
      END IF
3756
 
      next = NXTVAL(nprocs)
 
3756
      next = NXTASK(nprocs,1)
3757
3757
      END IF
3758
3758
      count = count + 1
3759
3759
      END DO
3760
3760
      END DO
3761
 
      next = NXTVAL(-nprocs)
 
3761
      next = NXTASK(-nprocs,1)
3762
3762
      call GA_SYNC()
3763
3763
      RETURN
3764
3764
      END