← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/lccsd/lccsd_t1.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/lccsd/lccsd_t1.F
1
1
      SUBROUTINE lccsd_t1(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs
2
2
     &et,k_t1_offset,k_t2_offset,k_v2_offset)
3
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3
C     $Id: lccsd_t1.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 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f
42
42
      RETURN
43
43
      END
44
44
      SUBROUTINE lccsd_t1_1(d_a,k_a_offset,d_c,k_c_offset)
45
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
45
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
46
46
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
47
47
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
48
48
C     i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f
56
56
      INTEGER k_a_offset
57
57
      INTEGER d_c
58
58
      INTEGER k_c_offset
59
 
      INTEGER NXTVAL
 
59
      INTEGER NXTASK
60
60
      INTEGER next
61
61
      INTEGER nprocs
62
62
      INTEGER count
74
74
      INTEGER k_a
75
75
      INTEGER l_c
76
76
      INTEGER k_c
77
 
      EXTERNAL NXTVAL
 
77
      EXTERNAL NXTASK
78
78
      nprocs = GA_NNODES()
79
79
      count = 0
80
 
      next = NXTVAL(nprocs)
 
80
      next = NXTASK(nprocs,1)
81
81
      DO p2b = noab+1,noab+nvab
82
82
      DO h1b = 1,noab
83
83
      IF (next.eq.count) THEN
114
114
      END IF
115
115
      END IF
116
116
      END IF
117
 
      next = NXTVAL(nprocs)
 
117
      next = NXTASK(nprocs,1)
118
118
      END IF
119
119
      count = count + 1
120
120
      END DO
121
121
      END DO
122
 
      next = NXTVAL(-nprocs)
 
122
      next = NXTASK(-nprocs,1)
123
123
      call GA_SYNC()
124
124
      RETURN
125
125
      END
126
126
      SUBROUTINE lccsd_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
127
127
     &)
128
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
128
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
129
129
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
130
130
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
131
131
C     i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f
141
141
      INTEGER k_b_offset
142
142
      INTEGER d_c
143
143
      INTEGER k_c_offset
144
 
      INTEGER NXTVAL
 
144
      INTEGER NXTASK
145
145
      INTEGER next
146
146
      INTEGER nprocs
147
147
      INTEGER count
170
170
      INTEGER k_b
171
171
      INTEGER l_c
172
172
      INTEGER k_c
173
 
      EXTERNAL NXTVAL
 
173
      EXTERNAL NXTASK
174
174
      nprocs = GA_NNODES()
175
175
      count = 0
176
 
      next = NXTVAL(nprocs)
 
176
      next = NXTASK(nprocs,1)
177
177
      DO p2b = noab+1,noab+nvab
178
178
      DO h1b = 1,noab
179
179
      IF (next.eq.count) THEN
239
239
      END IF
240
240
      END IF
241
241
      END IF
242
 
      next = NXTVAL(nprocs)
 
242
      next = NXTASK(nprocs,1)
243
243
      END IF
244
244
      count = count + 1
245
245
      END DO
246
246
      END DO
247
 
      next = NXTVAL(-nprocs)
 
247
      next = NXTASK(-nprocs,1)
248
248
      call GA_SYNC()
249
249
      RETURN
250
250
      END
251
251
      SUBROUTINE lccsd_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
252
252
     &)
253
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
253
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
254
254
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
255
255
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
256
256
C     i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f
266
266
      INTEGER k_b_offset
267
267
      INTEGER d_c
268
268
      INTEGER k_c_offset
269
 
      INTEGER NXTVAL
 
269
      INTEGER NXTASK
270
270
      INTEGER next
271
271
      INTEGER nprocs
272
272
      INTEGER count
295
295
      INTEGER k_b
296
296
      INTEGER l_c
297
297
      INTEGER k_c
298
 
      EXTERNAL NXTVAL
 
298
      EXTERNAL NXTASK
299
299
      nprocs = GA_NNODES()
300
300
      count = 0
301
 
      next = NXTVAL(nprocs)
 
301
      next = NXTASK(nprocs,1)
302
302
      DO p2b = noab+1,noab+nvab
303
303
      DO h1b = 1,noab
304
304
      IF (next.eq.count) THEN
364
364
      END IF
365
365
      END IF
366
366
      END IF
367
 
      next = NXTVAL(nprocs)
 
367
      next = NXTASK(nprocs,1)
368
368
      END IF
369
369
      count = count + 1
370
370
      END DO
371
371
      END DO
372
 
      next = NXTVAL(-nprocs)
 
372
      next = NXTASK(-nprocs,1)
373
373
      call GA_SYNC()
374
374
      RETURN
375
375
      END
376
376
      SUBROUTINE lccsd_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
377
377
     &)
378
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
378
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
379
379
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
380
380
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
381
381
C     i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v
391
391
      INTEGER k_b_offset
392
392
      INTEGER d_c
393
393
      INTEGER k_c_offset
394
 
      INTEGER NXTVAL
 
394
      INTEGER NXTASK
395
395
      INTEGER next
396
396
      INTEGER nprocs
397
397
      INTEGER count
423
423
      INTEGER k_b
424
424
      INTEGER l_c
425
425
      INTEGER k_c
426
 
      EXTERNAL NXTVAL
 
426
      EXTERNAL NXTASK
427
427
      nprocs = GA_NNODES()
428
428
      count = 0
429
 
      next = NXTVAL(nprocs)
 
429
      next = NXTASK(nprocs,1)
430
430
      DO p2b = noab+1,noab+nvab
431
431
      DO h1b = 1,noab
432
432
      IF (next.eq.count) THEN
498
498
      END IF
499
499
      END IF
500
500
      END IF
501
 
      next = NXTVAL(nprocs)
 
501
      next = NXTASK(nprocs,1)
502
502
      END IF
503
503
      count = count + 1
504
504
      END DO
505
505
      END DO
506
 
      next = NXTVAL(-nprocs)
 
506
      next = NXTASK(-nprocs,1)
507
507
      call GA_SYNC()
508
508
      RETURN
509
509
      END
510
510
      SUBROUTINE lccsd_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
511
511
     &)
512
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
512
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
513
513
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
514
514
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
515
515
C     i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f
525
525
      INTEGER k_b_offset
526
526
      INTEGER d_c
527
527
      INTEGER k_c_offset
528
 
      INTEGER NXTVAL
 
528
      INTEGER NXTASK
529
529
      INTEGER next
530
530
      INTEGER nprocs
531
531
      INTEGER count
557
557
      INTEGER k_b
558
558
      INTEGER l_c
559
559
      INTEGER k_c
560
 
      EXTERNAL NXTVAL
 
560
      EXTERNAL NXTASK
561
561
      nprocs = GA_NNODES()
562
562
      count = 0
563
 
      next = NXTVAL(nprocs)
 
563
      next = NXTASK(nprocs,1)
564
564
      DO p2b = noab+1,noab+nvab
565
565
      DO h1b = 1,noab
566
566
      IF (next.eq.count) THEN
657
657
      END IF
658
658
      END IF
659
659
      END IF
660
 
      next = NXTVAL(nprocs)
 
660
      next = NXTASK(nprocs,1)
661
661
      END IF
662
662
      count = count + 1
663
663
      END DO
664
664
      END DO
665
 
      next = NXTVAL(-nprocs)
 
665
      next = NXTASK(-nprocs,1)
666
666
      call GA_SYNC()
667
667
      RETURN
668
668
      END
669
669
      SUBROUTINE lccsd_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
670
670
     &)
671
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
671
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
672
672
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
673
673
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
674
674
C     i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v
684
684
      INTEGER k_b_offset
685
685
      INTEGER d_c
686
686
      INTEGER k_c_offset
687
 
      INTEGER NXTVAL
 
687
      INTEGER NXTASK
688
688
      INTEGER next
689
689
      INTEGER nprocs
690
690
      INTEGER count
722
722
      INTEGER l_c
723
723
      INTEGER k_c
724
724
      DOUBLE PRECISION FACTORIAL
725
 
      EXTERNAL NXTVAL
 
725
      EXTERNAL NXTASK
726
726
      EXTERNAL FACTORIAL
727
727
      nprocs = GA_NNODES()
728
728
      count = 0
729
 
      next = NXTVAL(nprocs)
 
729
      next = NXTASK(nprocs,1)
730
730
      DO p2b = noab+1,noab+nvab
731
731
      DO h1b = 1,noab
732
732
      IF (next.eq.count) THEN
822
822
      END IF
823
823
      END IF
824
824
      END IF
825
 
      next = NXTVAL(nprocs)
 
825
      next = NXTASK(nprocs,1)
826
826
      END IF
827
827
      count = count + 1
828
828
      END DO
829
829
      END DO
830
 
      next = NXTVAL(-nprocs)
 
830
      next = NXTASK(-nprocs,1)
831
831
      call GA_SYNC()
832
832
      RETURN
833
833
      END
834
834
      SUBROUTINE lccsd_t1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
835
835
     &)
836
 
C     $Id: lccsd_t1.F 19706 2010-10-29 17:52:31Z d3y133 $
 
836
C     $Id: lccsd_t1.F 24183 2013-05-03 23:47:08Z edo $
837
837
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
838
838
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
839
839
C     i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v
849
849
      INTEGER k_b_offset
850
850
      INTEGER d_c
851
851
      INTEGER k_c_offset
852
 
      INTEGER NXTVAL
 
852
      INTEGER NXTASK
853
853
      INTEGER next
854
854
      INTEGER nprocs
855
855
      INTEGER count
887
887
      INTEGER l_c
888
888
      INTEGER k_c
889
889
      DOUBLE PRECISION FACTORIAL
890
 
      EXTERNAL NXTVAL
 
890
      EXTERNAL NXTASK
891
891
      EXTERNAL FACTORIAL
892
892
      nprocs = GA_NNODES()
893
893
      count = 0
894
 
      next = NXTVAL(nprocs)
 
894
      next = NXTASK(nprocs,1)
895
895
      DO p2b = noab+1,noab+nvab
896
896
      DO h1b = 1,noab
897
897
      IF (next.eq.count) THEN
987
987
      END IF
988
988
      END IF
989
989
      END IF
990
 
      next = NXTVAL(nprocs)
 
990
      next = NXTASK(nprocs,1)
991
991
      END IF
992
992
      count = count + 1
993
993
      END DO
994
994
      END DO
995
 
      next = NXTVAL(-nprocs)
 
995
      next = NXTASK(-nprocs,1)
996
996
      call GA_SYNC()
997
997
      RETURN
998
998
      END