← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/response/ccsdt_o2.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/ccsdt_o2.F
1
1
      SUBROUTINE ccsdt_o2(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_offs
2
2
     &et,k_t1_offset,k_t2_offset,k_t3_offset)
3
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3
C     $Id: ccsdt_o2.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 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o
62
62
      END
63
63
      SUBROUTINE ccsdt_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
64
64
     &)
65
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
65
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
66
66
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
67
67
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
68
68
C     i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o
78
78
      INTEGER k_b_offset
79
79
      INTEGER d_c
80
80
      INTEGER k_c_offset
81
 
      INTEGER NXTVAL
 
81
      INTEGER NXTASK
82
82
      INTEGER next
83
83
      INTEGER nprocs
84
84
      INTEGER count
111
111
      INTEGER k_b
112
112
      INTEGER l_c
113
113
      INTEGER k_c
114
 
      EXTERNAL NXTVAL
 
114
      EXTERNAL NXTASK
115
115
      nprocs = GA_NNODES()
116
116
      count = 0
117
 
      next = NXTVAL(nprocs)
 
117
      next = NXTASK(nprocs,1)
118
118
      DO p3b = noab+1,noab+nvab
119
119
      DO p4b = p3b,noab+nvab
120
120
      DO h1b = 1,noab
211
211
      END IF
212
212
      END IF
213
213
      END IF
214
 
      next = NXTVAL(nprocs)
 
214
      next = NXTASK(nprocs,1)
215
215
      END IF
216
216
      count = count + 1
217
217
      END DO
218
218
      END DO
219
219
      END DO
220
220
      END DO
221
 
      next = NXTVAL(-nprocs)
 
221
      next = NXTASK(-nprocs,1)
222
222
      call GA_SYNC()
223
223
      RETURN
224
224
      END
225
225
      SUBROUTINE ccsdt_o2_1_1(d_a,k_a_offset,d_c,k_c_offset)
226
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
226
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
227
227
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
228
228
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
229
229
C     i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o
237
237
      INTEGER k_a_offset
238
238
      INTEGER d_c
239
239
      INTEGER k_c_offset
240
 
      INTEGER NXTVAL
 
240
      INTEGER NXTASK
241
241
      INTEGER next
242
242
      INTEGER nprocs
243
243
      INTEGER count
255
255
      INTEGER k_a
256
256
      INTEGER l_c
257
257
      INTEGER k_c
258
 
      EXTERNAL NXTVAL
 
258
      EXTERNAL NXTASK
259
259
      nprocs = GA_NNODES()
260
260
      count = 0
261
 
      next = NXTVAL(nprocs)
 
261
      next = NXTASK(nprocs,1)
262
262
      DO h5b = 1,noab
263
263
      DO h1b = 1,noab
264
264
      IF (next.eq.count) THEN
295
295
      END IF
296
296
      END IF
297
297
      END IF
298
 
      next = NXTVAL(nprocs)
 
298
      next = NXTASK(nprocs,1)
299
299
      END IF
300
300
      count = count + 1
301
301
      END DO
302
302
      END DO
303
 
      next = NXTVAL(-nprocs)
 
303
      next = NXTASK(-nprocs,1)
304
304
      call GA_SYNC()
305
305
      RETURN
306
306
      END
307
307
      SUBROUTINE OFFSET_ccsdt_o2_1_1(l_a_offset,k_a_offset,size)
308
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
308
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
309
309
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
310
310
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
311
311
C     i1 ( h5 h1 )_o
361
361
      END
362
362
      SUBROUTINE ccsdt_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
363
363
     &et)
364
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
364
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
365
365
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
366
366
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
367
367
C     i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t
377
377
      INTEGER k_b_offset
378
378
      INTEGER d_c
379
379
      INTEGER k_c_offset
380
 
      INTEGER NXTVAL
 
380
      INTEGER NXTASK
381
381
      INTEGER next
382
382
      INTEGER nprocs
383
383
      INTEGER count
406
406
      INTEGER k_b
407
407
      INTEGER l_c
408
408
      INTEGER k_c
409
 
      EXTERNAL NXTVAL
 
409
      EXTERNAL NXTASK
410
410
      nprocs = GA_NNODES()
411
411
      count = 0
412
 
      next = NXTVAL(nprocs)
 
412
      next = NXTASK(nprocs,1)
413
413
      DO h5b = 1,noab
414
414
      DO h1b = 1,noab
415
415
      IF (next.eq.count) THEN
475
475
      END IF
476
476
      END IF
477
477
      END IF
478
 
      next = NXTVAL(nprocs)
 
478
      next = NXTASK(nprocs,1)
479
479
      END IF
480
480
      count = count + 1
481
481
      END DO
482
482
      END DO
483
 
      next = NXTVAL(-nprocs)
 
483
      next = NXTASK(-nprocs,1)
484
484
      call GA_SYNC()
485
485
      RETURN
486
486
      END
487
487
      SUBROUTINE ccsdt_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
488
488
     &)
489
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
489
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
490
490
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
491
491
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
492
492
C     i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t
502
502
      INTEGER k_b_offset
503
503
      INTEGER d_c
504
504
      INTEGER k_c_offset
505
 
      INTEGER NXTVAL
 
505
      INTEGER NXTASK
506
506
      INTEGER next
507
507
      INTEGER nprocs
508
508
      INTEGER count
535
535
      INTEGER k_b
536
536
      INTEGER l_c
537
537
      INTEGER k_c
538
 
      EXTERNAL NXTVAL
 
538
      EXTERNAL NXTASK
539
539
      nprocs = GA_NNODES()
540
540
      count = 0
541
 
      next = NXTVAL(nprocs)
 
541
      next = NXTASK(nprocs,1)
542
542
      DO p3b = noab+1,noab+nvab
543
543
      DO p4b = noab+1,noab+nvab
544
544
      DO h1b = 1,noab
634
634
      END IF
635
635
      END IF
636
636
      END IF
637
 
      next = NXTVAL(nprocs)
 
637
      next = NXTASK(nprocs,1)
638
638
      END IF
639
639
      count = count + 1
640
640
      END DO
641
641
      END DO
642
642
      END DO
643
643
      END DO
644
 
      next = NXTVAL(-nprocs)
 
644
      next = NXTASK(-nprocs,1)
645
645
      call GA_SYNC()
646
646
      RETURN
647
647
      END
648
648
      SUBROUTINE ccsdt_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
649
649
     &)
650
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
650
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
651
651
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
652
652
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
653
653
C     i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 h1 h2 h5 )_t
663
663
      INTEGER k_b_offset
664
664
      INTEGER d_c
665
665
      INTEGER k_c_offset
666
 
      INTEGER NXTVAL
 
666
      INTEGER NXTASK
667
667
      INTEGER next
668
668
      INTEGER nprocs
669
669
      INTEGER count
699
699
      INTEGER k_b
700
700
      INTEGER l_c
701
701
      INTEGER k_c
702
 
      EXTERNAL NXTVAL
 
702
      EXTERNAL NXTASK
703
703
      nprocs = GA_NNODES()
704
704
      count = 0
705
 
      next = NXTVAL(nprocs)
 
705
      next = NXTASK(nprocs,1)
706
706
      DO p3b = noab+1,noab+nvab
707
707
      DO p4b = p3b,noab+nvab
708
708
      DO h1b = 1,noab
848
848
      END IF
849
849
      END IF
850
850
      END IF
851
 
      next = NXTVAL(nprocs)
 
851
      next = NXTASK(nprocs,1)
852
852
      END IF
853
853
      count = count + 1
854
854
      END DO
855
855
      END DO
856
856
      END DO
857
857
      END DO
858
 
      next = NXTVAL(-nprocs)
 
858
      next = NXTASK(-nprocs,1)
859
859
      call GA_SYNC()
860
860
      RETURN
861
861
      END
862
862
      SUBROUTINE ccsdt_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
863
863
     &)
864
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
864
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
865
865
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
866
866
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
867
867
C     i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot
877
877
      INTEGER k_b_offset
878
878
      INTEGER d_c
879
879
      INTEGER k_c_offset
880
 
      INTEGER NXTVAL
 
880
      INTEGER NXTASK
881
881
      INTEGER next
882
882
      INTEGER nprocs
883
883
      INTEGER count
910
910
      INTEGER k_b
911
911
      INTEGER l_c
912
912
      INTEGER k_c
913
 
      EXTERNAL NXTVAL
 
913
      EXTERNAL NXTASK
914
914
      nprocs = GA_NNODES()
915
915
      count = 0
916
 
      next = NXTVAL(nprocs)
 
916
      next = NXTASK(nprocs,1)
917
917
      DO p3b = noab+1,noab+nvab
918
918
      DO p4b = noab+1,noab+nvab
919
919
      DO h1b = 1,noab
999
999
      END IF
1000
1000
      END IF
1001
1001
      END IF
1002
 
      next = NXTVAL(nprocs)
 
1002
      next = NXTASK(nprocs,1)
1003
1003
      END IF
1004
1004
      count = count + 1
1005
1005
      END DO
1006
1006
      END DO
1007
1007
      END DO
1008
1008
      END DO
1009
 
      next = NXTVAL(-nprocs)
 
1009
      next = NXTASK(-nprocs,1)
1010
1010
      call GA_SYNC()
1011
1011
      RETURN
1012
1012
      END
1013
1013
      SUBROUTINE ccsdt_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs
1014
1014
     &et)
1015
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1015
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
1016
1016
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1017
1017
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1018
1018
C     i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t
1028
1028
      INTEGER k_b_offset
1029
1029
      INTEGER d_c
1030
1030
      INTEGER k_c_offset
1031
 
      INTEGER NXTVAL
 
1031
      INTEGER NXTASK
1032
1032
      INTEGER next
1033
1033
      INTEGER nprocs
1034
1034
      INTEGER count
1061
1061
      INTEGER k_b
1062
1062
      INTEGER l_c
1063
1063
      INTEGER k_c
1064
 
      EXTERNAL NXTVAL
 
1064
      EXTERNAL NXTASK
1065
1065
      nprocs = GA_NNODES()
1066
1066
      count = 0
1067
 
      next = NXTVAL(nprocs)
 
1067
      next = NXTASK(nprocs,1)
1068
1068
      DO p3b = noab+1,noab+nvab
1069
1069
      DO h5b = 1,noab
1070
1070
      DO h1b = 1,noab
1150
1150
      END IF
1151
1151
      END IF
1152
1152
      END IF
1153
 
      next = NXTVAL(nprocs)
 
1153
      next = NXTASK(nprocs,1)
1154
1154
      END IF
1155
1155
      count = count + 1
1156
1156
      END DO
1157
1157
      END DO
1158
1158
      END DO
1159
1159
      END DO
1160
 
      next = NXTVAL(-nprocs)
 
1160
      next = NXTASK(-nprocs,1)
1161
1161
      call GA_SYNC()
1162
1162
      RETURN
1163
1163
      END
1164
1164
      SUBROUTINE OFFSET_ccsdt_o2_4_1(l_a_offset,k_a_offset,size)
1165
 
C     $Id: ccsdt_o2.F 19706 2010-10-29 17:52:31Z d3y133 $
 
1165
C     $Id: ccsdt_o2.F 24183 2013-05-03 23:47:08Z edo $
1166
1166
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1167
1167
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1168
1168
C     i1 ( h5 p3 h1 h2 )_ot