← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/mbpt2/mbpt2_t4.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/mbpt2/mbpt2_t4.F
1
1
      SUBROUTINE mbpt2_t4(d_f1,d_i0,d_t12,d_t23,d_t24,d_v2,k_f1_offset,k
2
2
     &_i0_offset,k_t12_offset,k_t23_offset,k_t24_offset,k_v2_offset)
3
 
C     $Id: mbpt2_t4.F 19706 2010-10-29 17:52:31Z d3y133 $
 
3
C     $Id: mbpt2_t4.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 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f
37
37
      END
38
38
      SUBROUTINE mbpt2_t4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
39
39
     &)
40
 
C     $Id: mbpt2_t4.F 19706 2010-10-29 17:52:31Z d3y133 $
 
40
C     $Id: mbpt2_t4.F 24183 2013-05-03 23:47:08Z edo $
41
41
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
42
42
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
43
43
C     i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f
53
53
      INTEGER k_b_offset
54
54
      INTEGER d_c
55
55
      INTEGER k_c_offset
56
 
      INTEGER NXTVAL
 
56
      INTEGER NXTASK
57
57
      INTEGER next
58
58
      INTEGER nprocs
59
59
      INTEGER count
91
91
      INTEGER k_b
92
92
      INTEGER l_c
93
93
      INTEGER k_c
94
 
      EXTERNAL NXTVAL
 
94
      EXTERNAL NXTASK
95
95
      nprocs = GA_NNODES()
96
96
      count = 0
97
 
      next = NXTVAL(nprocs)
 
97
      next = NXTASK(nprocs,1)
98
98
      DO p1b = noab+1,noab+nvab
99
99
      DO p2b = p1b,noab+nvab
100
100
      DO p3b = p2b,noab+nvab
350
350
      END IF
351
351
      END IF
352
352
      END IF
353
 
      next = NXTVAL(nprocs)
 
353
      next = NXTASK(nprocs,1)
354
354
      END IF
355
355
      count = count + 1
356
356
      END DO
361
361
      END DO
362
362
      END DO
363
363
      END DO
364
 
      next = NXTVAL(-nprocs)
 
364
      next = NXTASK(-nprocs,1)
365
365
      call GA_SYNC()
366
366
      RETURN
367
367
      END
368
368
      SUBROUTINE mbpt2_t4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
369
369
     &)
370
 
C     $Id: mbpt2_t4.F 19706 2010-10-29 17:52:31Z d3y133 $
 
370
C     $Id: mbpt2_t4.F 24183 2013-05-03 23:47:08Z edo $
371
371
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
372
372
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
373
373
C     i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( h4 ) * t2 ( p1 p2 p3 p30 h4 h9 h10 h11 )_t2 * f ( h4 h38 )_f
383
383
      INTEGER k_b_offset
384
384
      INTEGER d_c
385
385
      INTEGER k_c_offset
386
 
      INTEGER NXTVAL
387
 
      INTEGER next
 
386
      INTEGER NXTAL
 
387
      INTEGER nexSK
388
388
      INTEGER nprocs
389
389
      INTEGER count
390
390
      INTEGER p1b
424
424
      INTEGER k_b
425
425
      INTEGER l_c
426
426
      INTEGER k_c
427
 
      EXTERNAL NXTVAL
 
427
      EXTERNAL NXTASK
428
428
      nprocs = GA_NNODES()
429
429
      count = 0
430
 
      next = NXTVAL(nprocs)
 
430
      next = NXTASK(nprocs,1)
431
431
      DO p1b = noab+1,noab+nvab
432
432
      DO p2b = p1b,noab+nvab
433
433
      DO p3b = p2b,noab+nvab
587
587
      END IF
588
588
      END IF
589
589
      END IF
590
 
      next = NXTVAL(nprocs)
 
590
      next = NXTASK(nprocs,1)
591
591
      END IF
592
592
      count = count + 1
593
593
      END DO
598
598
      END DO
599
599
      END DO
600
600
      END DO
601
 
      next = NXTVAL(-nprocs)
 
601
      next = NXTASK(-nprocs,1)
602
602
      call GA_SYNC()
603
603
      RETURN
604
604
      END
605
605
      SUBROUTINE mbpt2_t4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
606
606
     &)
607
 
C     $Id: mbpt2_t4.F 19706 2010-10-29 17:52:31Z d3y133 $
 
607
C     $Id: mbpt2_t4.F 24183 2013-05-03 23:47:08Z edo $
608
608
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
609
609
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
610
610
C     i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( p4 ) * t2 ( p1 p2 p3 p4 h9 h10 h11 h38 )_t2 * f ( p30 p4 )_f
620
620
      INTEGER k_b_offset
621
621
      INTEGER d_c
622
622
      INTEGER k_c_offset
623
 
      INTEGER NXTVAL
 
623
      INTEGER NXTASK
624
624
      INTEGER next
625
625
      INTEGER nprocs
626
626
      INTEGER count
661
661
      INTEGER k_b
662
662
      INTEGER l_c
663
663
      INTEGER k_c
664
 
      EXTERNAL NXTVAL
 
664
      EXTERNAL NXTASK
665
665
      nprocs = GA_NNODES()
666
666
      count = 0
667
 
      next = NXTVAL(nprocs)
 
667
      next = NXTASK(nprocs,1)
668
668
      DO p1b = noab+1,noab+nvab
669
669
      DO p2b = p1b,noab+nvab
670
670
      DO p3b = p2b,noab+nvab
824
824
      END IF
825
825
      END IF
826
826
      END IF
827
 
      next = NXTVAL(nprocs)
 
827
      next = NXTASK(nprocs,1)
828
828
      END IF
829
829
      count = count + 1
830
830
      END DO
835
835
      END DO
836
836
      END DO
837
837
      END DO
838
 
      next = NXTVAL(-nprocs)
 
838
      next = NXTASK(-nprocs,1)
839
839
      call GA_SYNC()
840
840
      RETURN
841
841
      END
842
842
      SUBROUTINE mbpt2_t4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset
843
843
     &)
844
 
C     $Id: mbpt2_t4.F 19706 2010-10-29 17:52:31Z d3y133 $
 
844
C     $Id: mbpt2_t4.F 24183 2013-05-03 23:47:08Z edo $
845
845
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
846
846
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
847
847
C     i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_vt1 + = 1 * P( 36 ) * t1 ( p1 p2 h9 h10 )_t1 * v ( p3 p30 h11 h38 )_v
857
857
      INTEGER k_b_offset
858
858
      INTEGER d_c
859
859
      INTEGER k_c_offset
860
 
      INTEGER NXTVAL
 
860
      INTEGER NXTASK
861
861
      INTEGER next
862
862
      INTEGER nprocs
863
863
      INTEGER count
895
895
      INTEGER k_b
896
896
      INTEGER l_c
897
897
      INTEGER k_c
898
 
      EXTERNAL NXTVAL
 
898
      EXTERNAL NXTASK
899
899
      nprocs = GA_NNODES()
900
900
      count = 0
901
 
      next = NXTVAL(nprocs)
 
901
      next = NXTASK(nprocs,1)
902
902
      DO p1b = noab+1,noab+nvab
903
903
      DO p2b = p1b,noab+nvab
904
904
      DO p3b = noab+1,noab+nvab
1377
1377
      END IF
1378
1378
      END IF
1379
1379
      END IF
1380
 
      next = NXTVAL(nprocs)
 
1380
      next = NXTASK(nprocs,1)
1381
1381
      END IF
1382
1382
      count = count + 1
1383
1383
      END DO
1388
1388
      END DO
1389
1389
      END DO
1390
1390
      END DO
1391
 
      next = NXTVAL(-nprocs)
 
1391
      next = NXTASK(-nprocs,1)
1392
1392
      call GA_SYNC()
1393
1393
      RETURN
1394
1394
      END