Changeset 2190 for trunk/fsource/DIFFaXsubs/DIFFaXsubs.for

Timestamp:

Apr 1, 2016 9:33:15 AM (6 years ago)

Author:

vondreele

Message:

fix g77/gfortran problem with DIFFaX by putting use of GET_G into OPTIMZ instead of calling it from pydiffax.for
thus new binwin2.7 & bunwin64-2.7 libraries are deposited
GSASIIphsGUI still rund original DIFFaX for selected area simulations - still testing pydiffax

File:

• trunk/fsource/DIFFaXsubs/DIFFaXsubs.for (modified) (3 diffs)

trunk/fsource/DIFFaXsubs/DIFFaXsubs.for

@@ -5638 +5638 @@
 *
       character*31 sym_fnam
-      logical EQUALB, BINPOW
+      logical EQUALB, BINPOW, GET_G
       integer*4 GET_SYM, i, j, j2, m, n, LENGTH
       real*8 HKANGL, h_val, k_val
@@ -5645 +5645 @@
 *
 * external functions
-      external GET_SYM, LENGTH, EQUALB, BINPOW
+      external GET_SYM, LENGTH, EQUALB, BINPOW, GET_G
 * external subroutines (Some compilers need them declared external)
 *      external GETFNM, GET_BDS, CHK_SYM, NMCOOR, OVERLP
@@ -5670 +5670 @@
 * then store the binary form of l_cnt+1 in an array for efficient
 * matrix multiplication.
+      ok = GET_G()
       if(recrsv .and. .not.inf_thick) then
         ok = BINPOW(l_cnt+1)