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

    r313 r315  
    4545              END IF
    4646            END DO
    47             QT(J) = SUM/2.0**L
     47            QT(J) = SUM/2.**(1.*L)
    4848            IF ( MOD(LMN,2).NE.0 ) QT(J) = -QT(J)
    4949!            PRINT '(A,3I4,F12.8)',' l,m,n,Q(lmn)',L,M,N,QT(J)
Note: See TracChangeset for help on using the changeset viewer.