Changeset 2236 for trunk/fsource/pydiffax.for

Timestamp:

May 2, 2016 12:09:11 PM (7 years ago)

Author:

vondreele

Message:

allow delete last layer & fraction input for stacking probability

File:

• trunk/fsource/pydiffax.for (modified) (2 diffs)

trunk/fsource/pydiffax.for

@@ -242 +242 @@
         end do
         print *, recrsv,inf_thick,xplcit,rndm,l_cnt,has_l_mirror
-      end if
         
 C      print *,lambda,max_angle,h_bnd,k_bnd,l_bnd,no_trials,
@@ -253 +252 @@
 C        print *,(l_phi(i,j),i=1,n_layers)
 C      end do
+      end if
         
       ok = GETSPC(AGLQ16,'GSAS-II')