← 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_x2_all15.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_x2_all15.F
1
1
      SUBROUTINE eomccsdt_x2_13_1_1(d_a,k_a_offset,d_c,k_c_offset)
2
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
3
3
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4
4
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5
5
C     i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f
13
13
      INTEGER k_a_offset
14
14
      INTEGER d_c
15
15
      INTEGER k_c_offset
16
 
      INTEGER NXTVAL
 
16
      INTEGER NXTASK
17
17
      INTEGER next
18
18
      INTEGER nprocs
19
19
      INTEGER count
31
31
      INTEGER k_a
32
32
      INTEGER l_c
33
33
      INTEGER k_c
34
 
      EXTERNAL NXTVAL
 
34
      EXTERNAL NXTASK
35
35
      nprocs = GA_NNODES()
36
36
      count = 0
37
 
      next = NXTVAL(nprocs)
 
37
      next = NXTASK(nprocs,1)
38
38
      DO h5b = 1,noab
39
39
      DO p9b = noab+1,noab+nvab
40
40
      IF (next.eq.count) THEN
73
73
      END IF
74
74
      END IF
75
75
      END IF
76
 
      next = NXTVAL(nprocs)
 
76
      next = NXTASK(nprocs,1)
77
77
      END IF
78
78
      count = count + 1
79
79
      END DO
80
80
      END DO
81
 
      next = NXTVAL(-nprocs)
 
81
      next = NXTASK(-nprocs,1)
82
82
      call GA_SYNC()
83
83
      RETURN
84
84
      END
85
85
      SUBROUTINE eomccsdt_x2_13_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
86
86
     &c_offset)
87
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
87
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
88
88
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
89
89
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
90
90
C     i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v
100
100
      INTEGER k_b_offset
101
101
      INTEGER d_c
102
102
      INTEGER k_c_offset
103
 
      INTEGER NXTVAL
 
103
      INTEGER NXTASK
104
104
      INTEGER next
105
105
      INTEGER nprocs
106
106
      INTEGER count
132
132
      INTEGER k_b
133
133
      INTEGER l_c
134
134
      INTEGER k_c
135
 
      EXTERNAL NXTVAL
 
135
      EXTERNAL NXTASK
136
136
      nprocs = GA_NNODES()
137
137
      count = 0
138
 
      next = NXTVAL(nprocs)
 
138
      next = NXTASK(nprocs,1)
139
139
      DO h5b = 1,noab
140
140
      DO p9b = noab+1,noab+nvab
141
141
      IF (next.eq.count) THEN
234
234
      END IF
235
235
      END IF
236
236
      END IF
237
 
      next = NXTVAL(nprocs)
 
237
      next = NXTASK(nprocs,1)
238
238
      END IF
239
239
      count = count + 1
240
240
      END DO
241
241
      END DO
242
 
      next = NXTVAL(-nprocs)
 
242
      next = NXTASK(-nprocs,1)
243
243
      call GA_SYNC()
244
244
      RETURN
245
245
      END
246
246
      SUBROUTINE eomccsdt_x2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
247
247
     &offset)
248
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
248
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
249
249
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
250
250
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
251
251
C     i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f
261
261
      INTEGER k_b_offset
262
262
      INTEGER d_c
263
263
      INTEGER k_c_offset
264
 
      INTEGER NXTVAL
 
264
      INTEGER NXTASK
265
265
      INTEGER next
266
266
      INTEGER nprocs
267
267
      INTEGER count
290
290
      INTEGER k_b
291
291
      INTEGER l_c
292
292
      INTEGER k_c
293
 
      EXTERNAL NXTVAL
 
293
      EXTERNAL NXTASK
294
294
      nprocs = GA_NNODES()
295
295
      count = 0
296
 
      next = NXTVAL(nprocs)
 
296
      next = NXTASK(nprocs,1)
297
297
      DO h5b = 1,noab
298
298
      DO h1b = 1,noab
299
299
      IF (next.eq.count) THEN
362
362
      END IF
363
363
      END IF
364
364
      END IF
365
 
      next = NXTVAL(nprocs)
 
365
      next = NXTASK(nprocs,1)
366
366
      END IF
367
367
      count = count + 1
368
368
      END DO
369
369
      END DO
370
 
      next = NXTVAL(-nprocs)
 
370
      next = NXTASK(-nprocs,1)
371
371
      call GA_SYNC()
372
372
      RETURN
373
373
      END
374
374
      SUBROUTINE eomccsdt_x2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
375
375
     &offset)
376
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
376
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
377
377
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
378
378
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
379
379
C     i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v
389
389
      INTEGER k_b_offset
390
390
      INTEGER d_c
391
391
      INTEGER k_c_offset
392
 
      INTEGER NXTVAL
 
392
      INTEGER NXTASK
393
393
      INTEGER next
394
394
      INTEGER nprocs
395
395
      INTEGER count
421
421
      INTEGER k_b
422
422
      INTEGER l_c
423
423
      INTEGER k_c
424
 
      EXTERNAL NXTVAL
 
424
      EXTERNAL NXTASK
425
425
      nprocs = GA_NNODES()
426
426
      count = 0
427
 
      next = NXTVAL(nprocs)
 
427
      next = NXTASK(nprocs,1)
428
428
      DO h5b = 1,noab
429
429
      DO h1b = 1,noab
430
430
      IF (next.eq.count) THEN
507
507
      END IF
508
508
      END IF
509
509
      END IF
510
 
      next = NXTVAL(nprocs)
 
510
      next = NXTASK(nprocs,1)
511
511
      END IF
512
512
      count = count + 1
513
513
      END DO
514
514
      END DO
515
 
      next = NXTVAL(-nprocs)
 
515
      next = NXTASK(-nprocs,1)
516
516
      call GA_SYNC()
517
517
      RETURN
518
518
      END
519
519
      SUBROUTINE eomccsdt_x2_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
520
520
     &offset)
521
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
521
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
522
522
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
523
523
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
524
524
C     i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v
534
534
      INTEGER k_b_offset
535
535
      INTEGER d_c
536
536
      INTEGER k_c_offset
537
 
      INTEGER NXTVAL
 
537
      INTEGER NXTASK
538
538
      INTEGER next
539
539
      INTEGER nprocs
540
540
      INTEGER count
572
572
      INTEGER l_c
573
573
      INTEGER k_c
574
574
      DOUBLE PRECISION FACTORIAL
575
 
      EXTERNAL NXTVAL
 
575
      EXTERNAL NXTASK
576
576
      EXTERNAL FACTORIAL
577
577
      nprocs = GA_NNODES()
578
578
      count = 0
579
 
      next = NXTVAL(nprocs)
 
579
      next = NXTASK(nprocs,1)
580
580
      DO h5b = 1,noab
581
581
      DO h1b = 1,noab
582
582
      IF (next.eq.count) THEN
683
683
      END IF
684
684
      END IF
685
685
      END IF
686
 
      next = NXTVAL(nprocs)
 
686
      next = NXTASK(nprocs,1)
687
687
      END IF
688
688
      count = count + 1
689
689
      END DO
690
690
      END DO
691
 
      next = NXTVAL(-nprocs)
 
691
      next = NXTASK(-nprocs,1)
692
692
      call GA_SYNC()
693
693
      RETURN
694
694
      END
695
695
      SUBROUTINE eomccsdt_x2_13_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
696
696
     &c_offset)
697
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
697
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
698
698
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
699
699
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
700
700
C     i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v
710
710
      INTEGER k_b_offset
711
711
      INTEGER d_c
712
712
      INTEGER k_c_offset
713
 
      INTEGER NXTVAL
 
713
      INTEGER NXTASK
714
714
      INTEGER next
715
715
      INTEGER nprocs
716
716
      INTEGER count
742
742
      INTEGER k_b
743
743
      INTEGER l_c
744
744
      INTEGER k_c
745
 
      EXTERNAL NXTVAL
 
745
      EXTERNAL NXTASK
746
746
      nprocs = GA_NNODES()
747
747
      count = 0
748
 
      next = NXTVAL(nprocs)
 
748
      next = NXTASK(nprocs,1)
749
749
      DO h5b = 1,noab
750
750
      DO p6b = noab+1,noab+nvab
751
751
      IF (next.eq.count) THEN
844
844
      END IF
845
845
      END IF
846
846
      END IF
847
 
      next = NXTVAL(nprocs)
 
847
      next = NXTASK(nprocs,1)
848
848
      END IF
849
849
      count = count + 1
850
850
      END DO
851
851
      END DO
852
 
      next = NXTVAL(-nprocs)
 
852
      next = NXTASK(-nprocs,1)
853
853
      call GA_SYNC()
854
854
      RETURN
855
855
      END
856
856
      SUBROUTINE eomccsdt_x2_13_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
857
857
     &offset)
858
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
858
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
859
859
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
860
860
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
861
861
C     i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx
871
871
      INTEGER k_b_offset
872
872
      INTEGER d_c
873
873
      INTEGER k_c_offset
874
 
      INTEGER NXTVAL
 
874
      INTEGER NXTASK
875
875
      INTEGER next
876
876
      INTEGER nprocs
877
877
      INTEGER count
900
900
      INTEGER k_b
901
901
      INTEGER l_c
902
902
      INTEGER k_c
903
 
      EXTERNAL NXTVAL
 
903
      EXTERNAL NXTASK
904
904
      nprocs = GA_NNODES()
905
905
      count = 0
906
 
      next = NXTVAL(nprocs)
 
906
      next = NXTASK(nprocs,1)
907
907
      DO h5b = 1,noab
908
908
      DO h1b = 1,noab
909
909
      IF (next.eq.count) THEN
972
972
      END IF
973
973
      END IF
974
974
      END IF
975
 
      next = NXTVAL(nprocs)
 
975
      next = NXTASK(nprocs,1)
976
976
      END IF
977
977
      count = count + 1
978
978
      END DO
979
979
      END DO
980
 
      next = NXTVAL(-nprocs)
 
980
      next = NXTASK(-nprocs,1)
981
981
      call GA_SYNC()
982
982
      RETURN
983
983
      END
984
984
      SUBROUTINE eomccsdt_x2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
985
985
     &fset)
986
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
986
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
987
987
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
988
988
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
989
989
C     i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx
999
999
      INTEGER k_b_offset
1000
1000
      INTEGER d_c
1001
1001
      INTEGER k_c_offset
1002
 
      INTEGER NXTVAL
 
1002
      INTEGER NXTASK
1003
1003
      INTEGER next
1004
1004
      INTEGER nprocs
1005
1005
      INTEGER count
1032
1032
      INTEGER k_b
1033
1033
      INTEGER l_c
1034
1034
      INTEGER k_c
1035
 
      EXTERNAL NXTVAL
 
1035
      EXTERNAL NXTASK
1036
1036
      nprocs = GA_NNODES()
1037
1037
      count = 0
1038
 
      next = NXTVAL(nprocs)
 
1038
      next = NXTASK(nprocs,1)
1039
1039
      DO p3b = noab+1,noab+nvab
1040
1040
      DO p4b = p3b,noab+nvab
1041
1041
      DO h1b = 1,noab
1135
1135
      END IF
1136
1136
      END IF
1137
1137
      END IF
1138
 
      next = NXTVAL(nprocs)
 
1138
      next = NXTASK(nprocs,1)
1139
1139
      END IF
1140
1140
      count = count + 1
1141
1141
      END DO
1142
1142
      END DO
1143
1143
      END DO
1144
1144
      END DO
1145
 
      next = NXTVAL(-nprocs)
 
1145
      next = NXTASK(-nprocs,1)
1146
1146
      call GA_SYNC()
1147
1147
      RETURN
1148
1148
      END
1149
1149
      SUBROUTINE eomccsdt_x2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1150
1150
     &offset)
1151
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1151
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1152
1152
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1153
1153
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1154
1154
C     i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v
1164
1164
      INTEGER k_b_offset
1165
1165
      INTEGER d_c
1166
1166
      INTEGER k_c_offset
1167
 
      INTEGER NXTVAL
 
1167
      INTEGER NXTASK
1168
1168
      INTEGER next
1169
1169
      INTEGER nprocs
1170
1170
      INTEGER count
1197
1197
      INTEGER k_b
1198
1198
      INTEGER l_c
1199
1199
      INTEGER k_c
1200
 
      EXTERNAL NXTVAL
 
1200
      EXTERNAL NXTASK
1201
1201
      nprocs = GA_NNODES()
1202
1202
      count = 0
1203
 
      next = NXTVAL(nprocs)
 
1203
      next = NXTASK(nprocs,1)
1204
1204
      DO h5b = 1,noab
1205
1205
      DO h6b = h5b,noab
1206
1206
      DO h1b = 1,noab
1289
1289
      END IF
1290
1290
      END IF
1291
1291
      END IF
1292
 
      next = NXTVAL(nprocs)
 
1292
      next = NXTASK(nprocs,1)
1293
1293
      END IF
1294
1294
      count = count + 1
1295
1295
      END DO
1296
1296
      END DO
1297
1297
      END DO
1298
1298
      END DO
1299
 
      next = NXTVAL(-nprocs)
 
1299
      next = NXTASK(-nprocs,1)
1300
1300
      call GA_SYNC()
1301
1301
      RETURN
1302
1302
      END
1303
1303
      SUBROUTINE eomccsdt_x2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1304
1304
     &offset)
1305
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1305
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1306
1306
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1307
1307
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1308
1308
C     i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v
1318
1318
      INTEGER k_b_offset
1319
1319
      INTEGER d_c
1320
1320
      INTEGER k_c_offset
1321
 
      INTEGER NXTVAL
 
1321
      INTEGER NXTASK
1322
1322
      INTEGER next
1323
1323
      INTEGER nprocs
1324
1324
      INTEGER count
1357
1357
      INTEGER l_c
1358
1358
      INTEGER k_c
1359
1359
      DOUBLE PRECISION FACTORIAL
1360
 
      EXTERNAL NXTVAL
 
1360
      EXTERNAL NXTASK
1361
1361
      EXTERNAL FACTORIAL
1362
1362
      nprocs = GA_NNODES()
1363
1363
      count = 0
1364
 
      next = NXTVAL(nprocs)
 
1364
      next = NXTASK(nprocs,1)
1365
1365
      DO h5b = 1,noab
1366
1366
      DO h6b = h5b,noab
1367
1367
      DO h1b = 1,noab
1451
1451
      END IF
1452
1452
      END IF
1453
1453
      END IF
1454
 
      next = NXTVAL(nprocs)
 
1454
      next = NXTASK(nprocs,1)
1455
1455
      END IF
1456
1456
      count = count + 1
1457
1457
      END DO
1458
1458
      END DO
1459
1459
      END DO
1460
1460
      END DO
1461
 
      next = NXTVAL(-nprocs)
 
1461
      next = NXTASK(-nprocs,1)
1462
1462
      call GA_SYNC()
1463
1463
      RETURN
1464
1464
      END
1465
1465
      SUBROUTINE eomccsdt_x2_14_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
1466
1466
     &c_offset)
1467
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1467
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1468
1468
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1469
1469
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1470
1470
C     i2 ( h5 h6 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v
1480
1480
      INTEGER k_b_offset
1481
1481
      INTEGER d_c
1482
1482
      INTEGER k_c_offset
1483
 
      INTEGER NXTVAL
 
1483
      INTEGER NXTASK
1484
1484
      INTEGER next
1485
1485
      INTEGER nprocs
1486
1486
      INTEGER count
1513
1513
      INTEGER k_b
1514
1514
      INTEGER l_c
1515
1515
      INTEGER k_c
1516
 
      EXTERNAL NXTVAL
 
1516
      EXTERNAL NXTASK
1517
1517
      nprocs = GA_NNODES()
1518
1518
      count = 0
1519
 
      next = NXTVAL(nprocs)
 
1519
      next = NXTASK(nprocs,1)
1520
1520
      DO h5b = 1,noab
1521
1521
      DO h6b = h5b,noab
1522
1522
      DO h1b = 1,noab
1605
1605
      END IF
1606
1606
      END IF
1607
1607
      END IF
1608
 
      next = NXTVAL(nprocs)
 
1608
      next = NXTASK(nprocs,1)
1609
1609
      END IF
1610
1610
      count = count + 1
1611
1611
      END DO
1612
1612
      END DO
1613
1613
      END DO
1614
1614
      END DO
1615
 
      next = NXTVAL(-nprocs)
 
1615
      next = NXTASK(-nprocs,1)
1616
1616
      call GA_SYNC()
1617
1617
      RETURN
1618
1618
      END
1619
1619
      SUBROUTINE eomccsdt_x2_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1620
1620
     &offset)
1621
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1621
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1622
1622
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1623
1623
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1624
1624
C     i1 ( h5 h6 h1 h2 )_vxt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx
1634
1634
      INTEGER k_b_offset
1635
1635
      INTEGER d_c
1636
1636
      INTEGER k_c_offset
1637
 
      INTEGER NXTVAL
 
1637
      INTEGER NXTASK
1638
1638
      INTEGER next
1639
1639
      INTEGER nprocs
1640
1640
      INTEGER count
1667
1667
      INTEGER k_b
1668
1668
      INTEGER l_c
1669
1669
      INTEGER k_c
1670
 
      EXTERNAL NXTVAL
 
1670
      EXTERNAL NXTASK
1671
1671
      nprocs = GA_NNODES()
1672
1672
      count = 0
1673
 
      next = NXTVAL(nprocs)
 
1673
      next = NXTASK(nprocs,1)
1674
1674
      DO h5b = 1,noab
1675
1675
      DO h6b = h5b,noab
1676
1676
      DO h1b = 1,noab
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
1765
      END DO
1766
1766
      END DO
1767
 
      next = NXTVAL(-nprocs)
 
1767
      next = NXTASK(-nprocs,1)
1768
1768
      call GA_SYNC()
1769
1769
      RETURN
1770
1770
      END
1771
1771
      SUBROUTINE eomccsdt_x2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
1772
1772
     &fset)
1773
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1773
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1774
1774
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1775
1775
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1776
1776
C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx
1786
1786
      INTEGER k_b_offset
1787
1787
      INTEGER d_c
1788
1788
      INTEGER k_c_offset
1789
 
      INTEGER NXTVAL
 
1789
      INTEGER NXTASK
1790
1790
      INTEGER next
1791
1791
      INTEGER nprocs
1792
1792
      INTEGER count
1825
1825
      INTEGER l_c
1826
1826
      INTEGER k_c
1827
1827
      DOUBLE PRECISION FACTORIAL
1828
 
      EXTERNAL NXTVAL
 
1828
      EXTERNAL NXTASK
1829
1829
      EXTERNAL FACTORIAL
1830
1830
      nprocs = GA_NNODES()
1831
1831
      count = 0
1832
 
      next = NXTVAL(nprocs)
 
1832
      next = NXTASK(nprocs,1)
1833
1833
      DO p3b = noab+1,noab+nvab
1834
1834
      DO p4b = p3b,noab+nvab
1835
1835
      DO h1b = 1,noab
1920
1920
      END IF
1921
1921
      END IF
1922
1922
      END IF
1923
 
      next = NXTVAL(nprocs)
 
1923
      next = NXTASK(nprocs,1)
1924
1924
      END IF
1925
1925
      count = count + 1
1926
1926
      END DO
1927
1927
      END DO
1928
1928
      END DO
1929
1929
      END DO
1930
 
      next = NXTVAL(-nprocs)
 
1930
      next = NXTASK(-nprocs,1)
1931
1931
      call GA_SYNC()
1932
1932
      RETURN
1933
1933
      END
1934
1934
      SUBROUTINE eomccsdt_x2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1935
1935
     &offset)
1936
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
1936
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
1937
1937
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1938
1938
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1939
1939
C     i1 ( p3 p5 )_vx + = -1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v
1949
1949
      INTEGER k_b_offset
1950
1950
      INTEGER d_c
1951
1951
      INTEGER k_c_offset
1952
 
      INTEGER NXTVAL
 
1952
      INTEGER NXTASK
1953
1953
      INTEGER next
1954
1954
      INTEGER nprocs
1955
1955
      INTEGER count
1981
1981
      INTEGER k_b
1982
1982
      INTEGER l_c
1983
1983
      INTEGER k_c
1984
 
      EXTERNAL NXTVAL
 
1984
      EXTERNAL NXTASK
1985
1985
      nprocs = GA_NNODES()
1986
1986
      count = 0
1987
 
      next = NXTVAL(nprocs)
 
1987
      next = NXTASK(nprocs,1)
1988
1988
      DO p3b = noab+1,noab+nvab
1989
1989
      DO p5b = noab+1,noab+nvab
1990
1990
      IF (next.eq.count) THEN
2067
2067
      END IF
2068
2068
      END IF
2069
2069
      END IF
2070
 
      next = NXTVAL(nprocs)
 
2070
      next = NXTASK(nprocs,1)
2071
2071
      END IF
2072
2072
      count = count + 1
2073
2073
      END DO
2074
2074
      END DO
2075
 
      next = NXTVAL(-nprocs)
 
2075
      next = NXTASK(-nprocs,1)
2076
2076
      call GA_SYNC()
2077
2077
      RETURN
2078
2078
      END
2079
2079
      SUBROUTINE eomccsdt_x2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2080
2080
     &offset)
2081
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2081
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
2082
2082
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2083
2083
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2084
2084
C     i1 ( p3 p5 )_vx + = -1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v
2094
2094
      INTEGER k_b_offset
2095
2095
      INTEGER d_c
2096
2096
      INTEGER k_c_offset
2097
 
      INTEGER NXTVAL
 
2097
      INTEGER NXTASK
2098
2098
      INTEGER next
2099
2099
      INTEGER nprocs
2100
2100
      INTEGER count
2132
2132
      INTEGER l_c
2133
2133
      INTEGER k_c
2134
2134
      DOUBLE PRECISION FACTORIAL
2135
 
      EXTERNAL NXTVAL
 
2135
      EXTERNAL NXTASK
2136
2136
      EXTERNAL FACTORIAL
2137
2137
      nprocs = GA_NNODES()
2138
2138
      count = 0
2139
 
      next = NXTVAL(nprocs)
 
2139
      next = NXTASK(nprocs,1)
2140
2140
      DO p3b = noab+1,noab+nvab
2141
2141
      DO p5b = noab+1,noab+nvab
2142
2142
      IF (next.eq.count) THEN
2243
2243
      END IF
2244
2244
      END IF
2245
2245
      END IF
2246
 
      next = NXTVAL(nprocs)
 
2246
      next = NXTASK(nprocs,1)
2247
2247
      END IF
2248
2248
      count = count + 1
2249
2249
      END DO
2250
2250
      END DO
2251
 
      next = NXTVAL(-nprocs)
 
2251
      next = NXTASK(-nprocs,1)
2252
2252
      call GA_SYNC()
2253
2253
      RETURN
2254
2254
      END
2255
2255
      SUBROUTINE eomccsdt_x2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
2256
2256
     &fset)
2257
 
C     $Id: eomccsdt_x2_all15.F 19702 2010-10-29 17:26:22Z d3y133 $
 
2257
C     $Id: eomccsdt_x2_all15.F 24183 2013-05-03 23:47:08Z edo $
2258
2258
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2259
2259
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2260
2260
C     i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx
2270
2270
      INTEGER k_b_offset
2271
2271
      INTEGER d_c
2272
2272
      INTEGER k_c_offset
2273
 
      INTEGER NXTVAL
 
2273
      INTEGER NXTASK
2274
2274
      INTEGER next
2275
2275
      INTEGER nprocs
2276
2276
      INTEGER count
2303
2303
      INTEGER k_b
2304
2304
      INTEGER l_c
2305
2305
      INTEGER k_c
2306
 
      EXTERNAL NXTVAL
 
2306
      EXTERNAL NXTASK
2307
2307
      nprocs = GA_NNODES()
2308
2308
      count = 0
2309
 
      next = NXTVAL(nprocs)
 
2309
      next = NXTASK(nprocs,1)
2310
2310
      DO p3b = noab+1,noab+nvab
2311
2311
      DO p4b = noab+1,noab+nvab
2312
2312
      DO h1b = 1,noab
2406
2406
      END IF
2407
2407
      END IF
2408
2408
      END IF
2409
 
      next = NXTVAL(nprocs)
 
2409
      next = NXTASK(nprocs,1)
2410
2410
      END IF
2411
2411
      count = count + 1
2412
2412
      END DO
2413
2413
      END DO
2414
2414
      END DO
2415
2415
      END DO
2416
 
      next = NXTVAL(-nprocs)
 
2416
      next = NXTASK(-nprocs,1)
2417
2417
      call GA_SYNC()
2418
2418
      RETURN
2419
2419
      END