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/pydiffax.for

    r2189 r2190  
    1111      INCLUDE 'DIFFaXsubs/DIFFaX.inc'
    1212
    13       EXTERNAL GET_G,AGLQ16,GET_SYM                 
    1413      INTEGER*4 CNTRLS(7),NSADP,GET_SYM,i_plane,hk_lim,i,j,k
    1514      INTEGER*4 HKLIM
    1615      REAL*8 SADP(NSADP),AGLQ16,l_upper,INCR
    17       LOGICAL ok,GET_G
    18        
     16      LOGICAL ok
     17       
     18      EXTERNAL AGLQ16,GET_SYM                 
    1919                   
    2020      i_plane = CNTRLS(2)
     
    3939      CALL SPHCST()
    4040      CALL DETUN()
    41       ok = GET_G()
    4241      CALL OPTIMZ('GSAS-II',ok)
    4342C      print *,lambda,max_angle,h_bnd,k_bnd,l_bnd,no_trials,
Note: See TracChangeset for help on using the changeset viewer.