← Back to branch summary

~ubuntu-branches/ubuntu/saucy/nwchem/saucy

« back to all changes in this revision

Viewing changes to src/nwpw/nwpwlib/lattice/strfac.F

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Michael Banck, Daniel Leidert
  • Date: 2012-02-09 20:02:41 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120209200241-jgk03qfsphal4ug2
Tags: 6.1-1
http://bugs.debian.org/632611
https://launchpad.net/bugs/791308
* New upstream release.

[ Michael Banck ]
* debian/patches/02_makefile_flags.patch: Updated.
* debian/patches/02_makefile_flags.patch: Use internal blas and lapack code.
* debian/patches/02_makefile_flags.patch: Define GCC4 for LINUX and LINUX64
  (Closes: #632611 and LP: #791308).
* debian/control (Build-Depends): Added openssh-client.
* debian/rules (USE_SCALAPACK, SCALAPACK): Removed variables (Closes:
  #654658).
* debian/rules (LIBDIR, USE_MPIF4, ARMCI_NETWORK): New variables.
* debian/TODO: New file.
* debian/control (Build-Depends): Removed libblas-dev, liblapack-dev and
  libscalapack-mpi-dev.
* debian/patches/04_show_testsuite_diff_output.patch: New patch, shows the
  diff output for failed tests.
* debian/patches/series: Adjusted.
* debian/testsuite: Optionally run all tests if "all" is passed as option.
* debian/rules: Run debian/testsuite with "all" if DEB_BUILD_OPTIONS
  contains "checkall".

[ Daniel Leidert ]
* debian/control: Used wrap-and-sort. Added Vcs-Svn and Vcs-Browser fields.
  (Priority): Moved to extra according to policy section 2.5.
  (Standards-Version): Bumped to 3.9.2.
  (Description): Fixed a typo.
* debian/watch: Added.
* debian/patches/03_hurd-i386_define_path_max.patch: Added.
  - Define MAX_PATH if not defines to fix FTBFS on hurd.
* debian/patches/series: Adjusted.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/nwpw/nwpwlib/lattice/strfac.F
1
1
*
2
 
* $Id: strfac.F,v 1.17 2007-03-28 03:56:11 bylaska Exp $
 
2
* $Id: strfac.F 20368 2011-05-23 20:00:19Z d3p852 $
3
3
*
4
4
 
5
5
*     ***********************************
6
 
*     *                                 *
7
 
*     *         strfac_init             *
8
 
*     *                                 *
 
6
*     *                                 *
 
7
*     *         strfac_init             *
 
8
*     *                                 *
9
9
*     ***********************************
10
10
 
11
11
      subroutine strfac_init()
81
81
 
82
82
 
83
83
C     ***********************************
84
 
C     *                                 *
85
 
C     *         strfac_end              *
86
 
C     *                                 *
 
84
C     *                                 *
 
85
C     *         strfac_end              *
 
86
C     *                                 *
87
87
C     ***********************************
88
88
 
89
89
      subroutine strfac_end()
115
115
 
116
116
 
117
117
C     ***********************************
118
 
C     *                                 *
119
 
C     *         PHAFAC                  *
120
 
C     *                                 *
 
118
C     *                                 *
 
119
C     *         PHAFAC                  *
 
120
C     *                                 *
121
121
C     ***********************************
122
122
C
123
123
C    This file Sets up the phaze factors, that are used
124
124
C for creating structure factors.
125
125
C
126
 
C       Entry - 
127
 
C       Exit -
 
126
C       Entry - 
 
127
C       Exit -
128
128
C
129
 
C       Uses - ion data structure
 
129
C       Uses - ion data structure
130
130
C
131
131
      subroutine phafac()
132
132
      implicit none
238
238
 
239
239
 
240
240
C     ***********************************
241
 
C     *                                 *
242
 
C     *         phafac2                 *
243
 
C     *                                 *
 
241
C     *                                 *
 
242
C     *         phafac2                 *
 
243
C     *                                 *
244
244
C     ***********************************
245
245
      subroutine phafac2()
246
246
      implicit none
323
323
      end
324
324
 
325
325
C     ***********************************
326
 
C     *                                 *
327
 
C     *         phafac_rion                     *
328
 
C     *                                 *
 
326
C     *                                 *
 
327
C     *         phafac_rion                     *
 
328
C     *                                 *
329
329
C     ***********************************
330
330
C
331
331
C    This file Sets up the phaze factors, that are used
332
332
C for creating structure factors.
333
333
C
334
 
C       Entry - 
335
 
C       Exit -
 
334
C       Entry - 
 
335
C       Exit -
336
336
C
337
 
C       Uses - ion data structure
 
337
C       Uses - ion data structure
338
338
C
339
339
      subroutine phafac_rion(ion_rion)
340
340
      implicit none
341
341
      real*8 ion_rion(3,*)
342
342
 
343
 
#include        "mafdecls.fh"
 
343
#include        "mafdecls.fh"
344
344
#include "strfac_common.fh"
345
345
 
346
346
*     *** local variables
433
433
 
434
434
 
435
435
C      **********************************
436
 
C      *                                *
437
 
C      *        STRFAC                  *
438
 
C      *                                *
 
436
C      *                                *
 
437
C      *        STRFAC                  *
 
438
C      *                                *
439
439
C      **********************************
440
440
C
441
 
C       This routine returns the structure factor, EXI, for
 
441
C       This routine returns the structure factor, EXI, for
442
442
C  a specified ion I.
443
443
C
444
 
C       Entry - II: the Ion index 
445
 
C       Exit  - EXI: the structure factor
 
444
C       Entry - II: the Ion index 
 
445
C       Exit  - EXI: the structure factor
446
446
C
447
447
C
448
448
      subroutine strfac(II,exi)
496
496
 
497
497
 
498
498
C      **********************************
499
 
C      *                                *
500
 
C      *          strfac_pack           *
501
 
C      *                                *
 
499
C      *                                *
 
500
C      *          strfac_pack           *
 
501
C      *                                *
502
502
C      **********************************
503
503
C
504
 
C       This routine returns the structure factor, EXI, for
 
504
C       This routine returns the structure factor, EXI, for
505
505
C  a specified ion I.
506
506
C
507
 
C       Entry - nb:
 
507
C       Entry - nb:
508
508
c               II: the Ion index 
509
 
C       Exit  - EXI: the structure factor
 
509
C       Exit  - EXI: the structure factor
510
510
C
511
511
C
512
512
      subroutine strfac_pack(nb,II,exi)
573
573
 
574
574
 
575
575
*     ***********************************
576
 
*     *                                 *
577
 
*     *         qstrfac_init            *
578
 
*     *                                 *
 
576
*     *                                 *
 
577
*     *         qstrfac_init            *
 
578
*     *                                 *
579
579
*     ***********************************
580
580
 
581
581
      subroutine qstrfac_init(nion)
609
609
 
610
610
 
611
611
C     ***********************************
612
 
C     *                                 *
613
 
C     *         qstrfac_end             *
614
 
C     *                                 *
 
612
C     *                                 *
 
613
C     *         qstrfac_end             *
 
614
C     *                                 *
615
615
C     ***********************************
616
616
 
617
617
      subroutine qstrfac_end()
634
634
 
635
635
 
636
636
C     ***********************************
637
 
C     *                                 *
638
 
C     *         qphafac_rion                    *
639
 
C     *                                 *
 
637
C     *                                 *
 
638
C     *         qphafac_rion                    *
 
639
C     *                                 *
640
640
C     ***********************************
641
641
C
642
642
C    This file Sets up the phaze factors, that are used
643
643
C for creating structure factors.
644
644
C
645
 
C       Entry - 
646
 
C       Exit -
 
645
C       Entry - 
 
646
C       Exit -
647
647
C
648
 
C       Uses - ion data structure
 
648
C       Uses - ion data structure
649
649
C
650
650
      subroutine qphafac_rion(ion_rion)
651
651
      implicit none
652
652
      real*8 ion_rion(3,*)
653
653
 
654
 
#include        "mafdecls.fh"
 
654
#include        "mafdecls.fh"
655
655
#include "strfac_common.fh"
656
656
 
657
657
*     *** local variables
732
732
 
733
733
 
734
734
C      **********************************
735
 
C      *                                *
736
 
C      *        qstrfac                 *
737
 
C      *                                *
 
735
C      *                                *
 
736
C      *        qstrfac                 *
 
737
C      *                                *
738
738
C      **********************************
739
739
C
740
 
C       This routine returns the structure factor, EXI, for
 
740
C       This routine returns the structure factor, EXI, for
741
741
C  a specified ion I.
742
742
C
743
 
C       Entry - II: the Ion index 
744
 
C       Exit  - EXI: the structure factor
 
743
C       Entry - II: the Ion index 
 
744
C       Exit  - EXI: the structure factor
745
745
C
746
746
C
747
747
      subroutine qstrfac(II,exi)
790
790
 
791
791
 
792
792
C      **********************************
793
 
C      *                                *
794
 
C      *          qstrfac_pack          *
795
 
C      *                                *
 
793
C      *                                *
 
794
C      *          qstrfac_pack          *
 
795
C      *                                *
796
796
C      **********************************
797
797
C
798
 
C       This routine returns the structure factor, EXI, for
 
798
C       This routine returns the structure factor, EXI, for
799
799
C  a specified ion I.
800
800
C
801
 
C       Entry - nb:
 
801
C       Entry - nb:
802
802
c               II: the Ion index 
803
 
C       Exit  - EXI: the structure factor
 
803
C       Exit  - EXI: the structure factor
804
804
C
805
805
C
806
806
      subroutine qstrfac_pack(nb,II,exi)