diff options
| author | Derick Huth <derickhuth@gmail.com> | 2015-09-24 12:22:41 -0600 |
|---|---|---|
| committer | Derick Huth <derickhuth@gmail.com> | 2015-09-24 12:22:41 -0600 |
| commit | 4631ad76927d433da5d55c3c373a1dfd0f74c9d4 (patch) | |
| tree | f8dcba88576ec95e403f0c14efd80e970f30a260 /examples/fortran/ccd.f | |
| parent | 6eb2b89896da66a77d0dcdf2d72b98c122826949 (diff) | |
| parent | 0cff3f9a3c4ccd434900162ebef4bd814850f481 (diff) | |
| download | chill-4631ad76927d433da5d55c3c373a1dfd0f74c9d4.tar.gz chill-4631ad76927d433da5d55c3c373a1dfd0f74c9d4.tar.bz2 chill-4631ad76927d433da5d55c3c373a1dfd0f74c9d4.zip | |
Merge pull request #7 from dhuth/master
V0.2.1
Diffstat (limited to 'examples/fortran/ccd.f')
| -rw-r--r-- | examples/fortran/ccd.f | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/examples/fortran/ccd.f b/examples/fortran/ccd.f deleted file mode 100644 index 12d834d..0000000 --- a/examples/fortran/ccd.f +++ /dev/null @@ -1,32 +0,0 @@ -c -c These have been separated out from ccsd_t_singles_l.F and ccsd_t_doubles_l.F -c - subroutine clean_sd_t_s1_1(h3d,h2d,h1d,p6d,p5d,p4d, - 2 triplesx,t1sub,v2sub) - IMPLICIT NONE - integer h3d,h2d,h1d,p6d,p5d,p4d - integer h3,h2,h1,p6,p5,p4 - integer N - double precision triplesx(16,16,16,16,16,16) - double precision t1sub(16,16) - double precision v2sub(16,16,16,16) - - N = 16 - - do p4=1,10 - do p5=1,10 - do p6=1,10 - do h1=1,10 - do h2=1,10 - do h3=1,10 - triplesx(h3,h2,h1,p6,p5,p4)=triplesx(h3,h2,h1,p6,p5,p4) - 1 + t1sub(p4,h1)*v2sub(h3,h2,p6,p5) - enddo - enddo - enddo - enddo - enddo - enddo - return - end - |