Ignore:
Timestamp:
Jun 28, 2011 12:21:46 PM (10 years ago)
Author:
toby
Message:

new scons file for compiling (needs linux & win work); update macbin's; changes to texture to work on Mac; minor cleanup to GSASIIpwd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/texturesubs/qlmn.for

    r305 r315  
    6262          END IF
    6363        END DO
    64         Q = SUM/2.0**L
     64        Q = SUM/2.**(1.*L)
    6565        IF ( MOD(LMN,2).NE.0 ) Q = -Q
    6666!       PRINT '(A,3I4,F12.8)',' l,m,n,Q(lmn)',L,M,N,Q     
Note: See TracChangeset for help on using the changeset viewer.