diff options
| author | Derick Huth <derickhuth@gmail.com> | 2015-09-24 11:26:53 -0600 |
|---|---|---|
| committer | Derick Huth <derickhuth@gmail.com> | 2015-09-24 11:26:53 -0600 |
| commit | c285135eb903c31cd221f90f03e288a6b67770cd (patch) | |
| tree | 1f6ea3120a09feef7236dac579d5a2d5b774aaa7 /examples/fortran/ccd.f | |
| parent | f5c39e4c6ff55520948c2ef331c968cd84b817d9 (diff) | |
| download | chill-c285135eb903c31cd221f90f03e288a6b67770cd.tar.gz chill-c285135eb903c31cd221f90f03e288a6b67770cd.tar.bz2 chill-c285135eb903c31cd221f90f03e288a6b67770cd.zip | |
pre-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 - |