Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/DIFFaXsubs/DIFFaX.inc

    r2188 r2191  
    5353*                    incompatible with the input data, then this       *
    5454*                    will be reset to FALSE.                           *
     55*    debug        -  TRUE for printouts to appear on screen (RVD)      *
    5556*    DoDatdump    -  TRUE if the user wants a dump of the data file    *
    5657*    DoSymDump    -  TRUE if the user wants to dump the output of      *
     
    382383     |        xplcit, rndm, inf_thick, has_l_mirror, h_mirror,
    383384     |        k_mirror, hk_mirror, check_sym, same_rz, any_sharp,
    384      |        same_layer, finite_width
     385     |        same_layer, finite_width,debug
    385386*
    386387      integer*4 l_seq(XP_MAX), pow(MAX_BIN), a_type(MAX_A,MAX_L),
     
    422423     |                recrsv, xplcit, rndm, inf_thick, has_l_mirror,
    423424     |                h_mirror, k_mirror, hk_mirror, check_sym,
    424      |                same_rz, any_sharp, same_layer, finite_width
     425     |                same_rz, any_sharp, same_layer, finite_width,
     426     |                debug
    425427*
    426428      common /integ1/ l_seq, pow, a_type, l_n_atoms, l_symmetry,
Note: See TracChangeset for help on using the changeset viewer.