Changeset 2191 for trunk/fsource/DIFFaXsubs/DIFFaX.inc

Timestamp:

Apr 1, 2016 12:39:12 PM (6 years ago)

Author:

vondreele

Message:

reduce printing from DIFFaX routines - new fortran binaries
fix bug in PWDR simulation
begin CalcStackingPWDR to call GETSPEC from DIFFaXsubs

File:

• trunk/fsource/DIFFaXsubs/DIFFaX.inc (modified) (3 diffs)

trunk/fsource/DIFFaXsubs/DIFFaX.inc

@@ -53 +53 @@
 *                    incompatible with the input data, then this       *
 *                    will be reset to FALSE.                           *
+*    debug        -  TRUE for printouts to appear on screen (RVD)      *
 *    DoDatdump    -  TRUE if the user wants a dump of the data file    *
 *    DoSymDump    -  TRUE if the user wants to dump the output of      *
@@ -382 +383 @@
      |        xplcit, rndm, inf_thick, has_l_mirror, h_mirror,
      |        k_mirror, hk_mirror, check_sym, same_rz, any_sharp,
-     |        same_layer, finite_width
+     |        same_layer, finite_width,debug
 *
       integer*4 l_seq(XP_MAX), pow(MAX_BIN), a_type(MAX_A,MAX_L),
@@ -422 +423 @@
      |                recrsv, xplcit, rndm, inf_thick, has_l_mirror,
      |                h_mirror, k_mirror, hk_mirror, check_sym,
-     |                same_rz, any_sharp, same_layer, finite_width
+     |                same_rz, any_sharp, same_layer, finite_width,
+     |                debug
 *
       common /integ1/ l_seq, pow, a_type, l_n_atoms, l_symmetry,