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

Legend:

Unmodified
Added
Removed
  • trunk/fsource/DIFFaXsubs/DIFFaXsubs.for

    r2188 r2190  
    56385638*
    56395639      character*31 sym_fnam
    5640       logical EQUALB, BINPOW
     5640      logical EQUALB, BINPOW, GET_G
    56415641      integer*4 GET_SYM, i, j, j2, m, n, LENGTH
    56425642      real*8 HKANGL, h_val, k_val
     
    56455645*
    56465646* external functions
    5647       external GET_SYM, LENGTH, EQUALB, BINPOW
     5647      external GET_SYM, LENGTH, EQUALB, BINPOW, GET_G
    56485648* external subroutines (Some compilers need them declared external)
    56495649*      external GETFNM, GET_BDS, CHK_SYM, NMCOOR, OVERLP
     
    56705670* then store the binary form of l_cnt+1 in an array for efficient
    56715671* matrix multiplication.
     5672      ok = GET_G()
    56725673      if(recrsv .and. .not.inf_thick) then
    56735674        ok = BINPOW(l_cnt+1)
Note: See TracChangeset for help on using the changeset viewer.