← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/response/ccsdtq_o3.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/response/ccsdtq_o3.F
1
1
      SUBROUTINE ccsdtq_o3(d_i0,d_o1,d_t1,d_t2,d_t3,d_t4,k_i0_offset,k_o
2
2
     &1_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset)
3
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3
C     $Id: ccsdtq_o3.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     i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t
78
78
      END
79
79
      SUBROUTINE ccsdtq_o3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
80
80
     &t)
81
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
81
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
82
82
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
83
83
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
84
84
C     i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t
94
94
      INTEGER k_b_offset
95
95
      INTEGER d_c
96
96
      INTEGER k_c_offset
97
 
      INTEGER NXTVAL
 
97
      INTEGER NXTASK
98
98
      INTEGER next
99
99
      INTEGER nprocs
100
100
      INTEGER count
131
131
      INTEGER k_b
132
132
      INTEGER l_c
133
133
      INTEGER k_c
134
 
      EXTERNAL NXTVAL
 
134
      EXTERNAL NXTASK
135
135
      nprocs = GA_NNODES()
136
136
      count = 0
137
 
      next = NXTVAL(nprocs)
 
137
      next = NXTASK(nprocs,1)
138
138
      DO p4b = noab+1,noab+nvab
139
139
      DO p5b = p4b,noab+nvab
140
140
      DO p6b = p5b,noab+nvab
252
252
      END IF
253
253
      END IF
254
254
      END IF
255
 
      next = NXTVAL(nprocs)
 
255
      next = NXTASK(nprocs,1)
256
256
      END IF
257
257
      count = count + 1
258
258
      END DO
261
261
      END DO
262
262
      END DO
263
263
      END DO
264
 
      next = NXTVAL(-nprocs)
 
264
      next = NXTASK(-nprocs,1)
265
265
      call GA_SYNC()
266
266
      RETURN
267
267
      END
268
268
      SUBROUTINE ccsdtq_o3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
269
269
     &t)
270
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
270
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
271
271
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
272
272
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
273
273
C     i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * t ( p5 p6 p7 h1 h2 h3 )_t
283
283
      INTEGER k_b_offset
284
284
      INTEGER d_c
285
285
      INTEGER k_c_offset
286
 
      INTEGER NXTVAL
 
286
      INTEGER NXTASK
287
287
      INTEGER next
288
288
      INTEGER nprocs
289
289
      INTEGER count
320
320
      INTEGER k_b
321
321
      INTEGER l_c
322
322
      INTEGER k_c
323
 
      EXTERNAL NXTVAL
 
323
      EXTERNAL NXTASK
324
324
      nprocs = GA_NNODES()
325
325
      count = 0
326
 
      next = NXTVAL(nprocs)
 
326
      next = NXTASK(nprocs,1)
327
327
      DO p4b = noab+1,noab+nvab
328
328
      DO p5b = noab+1,noab+nvab
329
329
      DO p6b = p5b,noab+nvab
441
441
      END IF
442
442
      END IF
443
443
      END IF
444
 
      next = NXTVAL(nprocs)
 
444
      next = NXTASK(nprocs,1)
445
445
      END IF
446
446
      count = count + 1
447
447
      END DO
450
450
      END DO
451
451
      END DO
452
452
      END DO
453
 
      next = NXTVAL(-nprocs)
 
453
      next = NXTASK(-nprocs,1)
454
454
      call GA_SYNC()
455
455
      RETURN
456
456
      END
457
457
      SUBROUTINE ccsdtq_o3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
458
458
     &t)
459
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
459
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
460
460
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
461
461
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
462
462
C     i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * Sum ( p8 h7 ) * o ( h7 p8 )_o * t ( p4 p5 p6 p8 h1 h2 h3 h7 )_t
472
472
      INTEGER k_b_offset
473
473
      INTEGER d_c
474
474
      INTEGER k_c_offset
475
 
      INTEGER NXTVAL
 
475
      INTEGER NXTASK
476
476
      INTEGER next
477
477
      INTEGER nprocs
478
478
      INTEGER count
512
512
      INTEGER k_b
513
513
      INTEGER l_c
514
514
      INTEGER k_c
515
 
      EXTERNAL NXTVAL
 
515
      EXTERNAL NXTASK
516
516
      nprocs = GA_NNODES()
517
517
      count = 0
518
 
      next = NXTVAL(nprocs)
 
518
      next = NXTASK(nprocs,1)
519
519
      DO p4b = noab+1,noab+nvab
520
520
      DO p5b = p4b,noab+nvab
521
521
      DO p6b = p5b,noab+nvab
758
758
      END IF
759
759
      END IF
760
760
      END IF
761
 
      next = NXTVAL(nprocs)
 
761
      next = NXTASK(nprocs,1)
762
762
      END IF
763
763
      count = count + 1
764
764
      END DO
767
767
      END DO
768
768
      END DO
769
769
      END DO
770
 
      next = NXTVAL(-nprocs)
 
770
      next = NXTASK(-nprocs,1)
771
771
      call GA_SYNC()
772
772
      RETURN
773
773
      END
774
774
      SUBROUTINE ccsdtq_o3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
775
775
     &t)
776
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
776
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
777
777
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
778
778
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
779
779
C     i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_ot
789
789
      INTEGER k_b_offset
790
790
      INTEGER d_c
791
791
      INTEGER k_c_offset
792
 
      INTEGER NXTVAL
 
792
      INTEGER NXTASK
793
793
      INTEGER next
794
794
      INTEGER nprocs
795
795
      INTEGER count
826
826
      INTEGER k_b
827
827
      INTEGER l_c
828
828
      INTEGER k_c
829
 
      EXTERNAL NXTVAL
 
829
      EXTERNAL NXTASK
830
830
      nprocs = GA_NNODES()
831
831
      count = 0
832
 
      next = NXTVAL(nprocs)
 
832
      next = NXTASK(nprocs,1)
833
833
      DO p4b = noab+1,noab+nvab
834
834
      DO p5b = p4b,noab+nvab
835
835
      DO p6b = p5b,noab+nvab
951
951
      END IF
952
952
      END IF
953
953
      END IF
954
 
      next = NXTVAL(nprocs)
 
954
      next = NXTASK(nprocs,1)
955
955
      END IF
956
956
      count = count + 1
957
957
      END DO
960
960
      END DO
961
961
      END DO
962
962
      END DO
963
 
      next = NXTVAL(-nprocs)
 
963
      next = NXTASK(-nprocs,1)
964
964
      call GA_SYNC()
965
965
      RETURN
966
966
      END
967
967
      SUBROUTINE ccsdtq_o3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
968
968
     &set)
969
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
969
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
970
970
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
971
971
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
972
972
C     i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t
982
982
      INTEGER k_b_offset
983
983
      INTEGER d_c
984
984
      INTEGER k_c_offset
985
 
      INTEGER NXTVAL
 
985
      INTEGER NXTASK
986
986
      INTEGER next
987
987
      INTEGER nprocs
988
988
      INTEGER count
1011
1011
      INTEGER k_b
1012
1012
      INTEGER l_c
1013
1013
      INTEGER k_c
1014
 
      EXTERNAL NXTVAL
 
1014
      EXTERNAL NXTASK
1015
1015
      nprocs = GA_NNODES()
1016
1016
      count = 0
1017
 
      next = NXTVAL(nprocs)
 
1017
      next = NXTASK(nprocs,1)
1018
1018
      DO h7b = 1,noab
1019
1019
      DO h1b = 1,noab
1020
1020
      IF (next.eq.count) THEN
1081
1081
      END IF
1082
1082
      END IF
1083
1083
      END IF
1084
 
      next = NXTVAL(nprocs)
 
1084
      next = NXTASK(nprocs,1)
1085
1085
      END IF
1086
1086
      count = count + 1
1087
1087
      END DO
1088
1088
      END DO
1089
 
      next = NXTVAL(-nprocs)
 
1089
      next = NXTASK(-nprocs,1)
1090
1090
      call GA_SYNC()
1091
1091
      RETURN
1092
1092
      END
1093
1093
      SUBROUTINE OFFSET_ccsdtq_o3_4_1(l_a_offset,k_a_offset,size)
1094
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1094
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1095
1095
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1096
1096
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1097
1097
C     i1 ( h7 h1 )_ot
1147
1147
      END
1148
1148
      SUBROUTINE ccsdtq_o3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
1149
1149
     &t)
1150
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1150
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1151
1151
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1152
1152
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1153
1153
C     i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t * i1 ( h7 p5 p6 h1 h2 h3 )_ot
1163
1163
      INTEGER k_b_offset
1164
1164
      INTEGER d_c
1165
1165
      INTEGER k_c_offset
1166
 
      INTEGER NXTVAL
 
1166
      INTEGER NXTASK
1167
1167
      INTEGER next
1168
1168
      INTEGER nprocs
1169
1169
      INTEGER count
1200
1200
      INTEGER k_b
1201
1201
      INTEGER l_c
1202
1202
      INTEGER k_c
1203
 
      EXTERNAL NXTVAL
 
1203
      EXTERNAL NXTASK
1204
1204
      nprocs = GA_NNODES()
1205
1205
      count = 0
1206
 
      next = NXTVAL(nprocs)
 
1206
      next = NXTASK(nprocs,1)
1207
1207
      DO p4b = noab+1,noab+nvab
1208
1208
      DO p5b = noab+1,noab+nvab
1209
1209
      DO p6b = p5b,noab+nvab
1304
1304
      END IF
1305
1305
      END IF
1306
1306
      END IF
1307
 
      next = NXTVAL(nprocs)
 
1307
      next = NXTASK(nprocs,1)
1308
1308
      END IF
1309
1309
      count = count + 1
1310
1310
      END DO
1313
1313
      END DO
1314
1314
      END DO
1315
1315
      END DO
1316
 
      next = NXTVAL(-nprocs)
 
1316
      next = NXTASK(-nprocs,1)
1317
1317
      call GA_SYNC()
1318
1318
      RETURN
1319
1319
      END
1320
1320
      SUBROUTINE ccsdtq_o3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
1321
1321
     &set)
1322
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1322
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1323
1323
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1324
1324
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1325
1325
C     i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 p8 h1 h2 h3 )_t
1335
1335
      INTEGER k_b_offset
1336
1336
      INTEGER d_c
1337
1337
      INTEGER k_c_offset
1338
 
      INTEGER NXTVAL
 
1338
      INTEGER NXTASK
1339
1339
      INTEGER next
1340
1340
      INTEGER nprocs
1341
1341
      INTEGER count
1372
1372
      INTEGER k_b
1373
1373
      INTEGER l_c
1374
1374
      INTEGER k_c
1375
 
      EXTERNAL NXTVAL
 
1375
      EXTERNAL NXTASK
1376
1376
      nprocs = GA_NNODES()
1377
1377
      count = 0
1378
 
      next = NXTVAL(nprocs)
 
1378
      next = NXTASK(nprocs,1)
1379
1379
      DO p4b = noab+1,noab+nvab
1380
1380
      DO p5b = p4b,noab+nvab
1381
1381
      DO h7b = 1,noab
1476
1476
      END IF
1477
1477
      END IF
1478
1478
      END IF
1479
 
      next = NXTVAL(nprocs)
 
1479
      next = NXTASK(nprocs,1)
1480
1480
      END IF
1481
1481
      count = count + 1
1482
1482
      END DO
1485
1485
      END DO
1486
1486
      END DO
1487
1487
      END DO
1488
 
      next = NXTVAL(-nprocs)
 
1488
      next = NXTASK(-nprocs,1)
1489
1489
      call GA_SYNC()
1490
1490
      RETURN
1491
1491
      END
1492
1492
      SUBROUTINE OFFSET_ccsdtq_o3_5_1(l_a_offset,k_a_offset,size)
1493
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1493
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1494
1494
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1495
1495
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1496
1496
C     i1 ( h7 p4 p5 h1 h2 h3 )_ot
1578
1578
      END
1579
1579
      SUBROUTINE ccsdtq_o3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse
1580
1580
     &t)
1581
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1581
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1582
1582
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1583
1583
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1584
1584
C     i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h8 )_t * i1 ( h8 p6 h2 h3 )_ot
1594
1594
      INTEGER k_b_offset
1595
1595
      INTEGER d_c
1596
1596
      INTEGER k_c_offset
1597
 
      INTEGER NXTVAL
 
1597
      INTEGER NXTASK
1598
1598
      INTEGER next
1599
1599
      INTEGER nprocs
1600
1600
      INTEGER count
1631
1631
      INTEGER k_b
1632
1632
      INTEGER l_c
1633
1633
      INTEGER k_c
1634
 
      EXTERNAL NXTVAL
 
1634
      EXTERNAL NXTASK
1635
1635
      nprocs = GA_NNODES()
1636
1636
      count = 0
1637
 
      next = NXTVAL(nprocs)
 
1637
      next = NXTASK(nprocs,1)
1638
1638
      DO p4b = noab+1,noab+nvab
1639
1639
      DO p5b = p4b,noab+nvab
1640
1640
      DO p6b = noab+1,noab+nvab
1797
1797
      END IF
1798
1798
      END IF
1799
1799
      END IF
1800
 
      next = NXTVAL(nprocs)
 
1800
      next = NXTASK(nprocs,1)
1801
1801
      END IF
1802
1802
      count = count + 1
1803
1803
      END DO
1806
1806
      END DO
1807
1807
      END DO
1808
1808
      END DO
1809
 
      next = NXTVAL(-nprocs)
 
1809
      next = NXTASK(-nprocs,1)
1810
1810
      call GA_SYNC()
1811
1811
      RETURN
1812
1812
      END
1813
1813
      SUBROUTINE ccsdtq_o3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
1814
1814
     &set)
1815
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1815
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1816
1816
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1817
1817
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1818
1818
C     i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h2 )_t
1828
1828
      INTEGER k_b_offset
1829
1829
      INTEGER d_c
1830
1830
      INTEGER k_c_offset
1831
 
      INTEGER NXTVAL
 
1831
      INTEGER NXTASK
1832
1832
      INTEGER next
1833
1833
      INTEGER nprocs
1834
1834
      INTEGER count
1861
1861
      INTEGER k_b
1862
1862
      INTEGER l_c
1863
1863
      INTEGER k_c
1864
 
      EXTERNAL NXTVAL
 
1864
      EXTERNAL NXTASK
1865
1865
      nprocs = GA_NNODES()
1866
1866
      count = 0
1867
 
      next = NXTVAL(nprocs)
 
1867
      next = NXTASK(nprocs,1)
1868
1868
      DO p4b = noab+1,noab+nvab
1869
1869
      DO h8b = 1,noab
1870
1870
      DO h1b = 1,noab
1951
1951
      END IF
1952
1952
      END IF
1953
1953
      END IF
1954
 
      next = NXTVAL(nprocs)
 
1954
      next = NXTASK(nprocs,1)
1955
1955
      END IF
1956
1956
      count = count + 1
1957
1957
      END DO
1958
1958
      END DO
1959
1959
      END DO
1960
1960
      END DO
1961
 
      next = NXTVAL(-nprocs)
 
1961
      next = NXTASK(-nprocs,1)
1962
1962
      call GA_SYNC()
1963
1963
      RETURN
1964
1964
      END
1965
1965
      SUBROUTINE OFFSET_ccsdtq_o3_6_1(l_a_offset,k_a_offset,size)
1966
 
C     $Id: ccsdtq_o3.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1966
C     $Id: ccsdtq_o3.F 24183 2013-05-03 23:47:08Z edo $
1967
1967
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1968
1968
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1969
1969
C     i1 ( h8 p4 h1 h2 )_ot