Changeset 1771 for trunk

Timestamp:

Mar 30, 2015 2:04:51 PM (10 years ago)

Author:

vondreele

Message:

revise spherical harmonics lst output to have reasonable line lengths

File:

• trunk/GSASIIstrIO.py (modified) (2 diffs)

trunk/GSASIIstrIO.py ¶

@@ -907 +907 @@
         print >>pFile,line
         print >>pFile,'\n Texture coefficients:'
-        ptlbls = ' names :'
-        ptstr =  ' values:'
         SHcoeff = textureData['SH Coeff'][1]
-        for item in SHcoeff:
-            ptlbls += '%12s'%(item)
-            ptstr += '%12.4f'%(SHcoeff[item]) 
-        print >>pFile,ptlbls
-        print >>pFile,ptstr
+        SHkeys = SHcoeff.keys()
+        nCoeff = len(SHcoeff)
+        nBlock = nCoeff/10+1
+        iBeg = 0
+        iFin = min(iBeg+10,nCoeff)
+        for block in range(nBlock):
+            ptlbls = ' names :'
+            ptstr =  ' values:'
+            for item in SHkeys[iBeg:iFin]:
+                ptlbls += '%12s'%(item)
+                ptstr += '%12.4f'%(SHcoeff[item]) 
+            print >>pFile,ptlbls
+            print >>pFile,ptstr
+            iBeg += 10
+            iFin = min(iBeg+10,nCoeff)
         
     def MakeRBParms(rbKey,phaseVary,phaseDict):
@@ -1697 +1705 @@
         print >>pFile,sigstr
         print >>pFile,'\n Texture coefficients:'
-        namstr = '  names :'
-        ptstr =  '  values:'
-        sigstr = '  esds  :'
         SHcoeff = textureData['SH Coeff'][1]
-        for name in SHcoeff:
-            namstr += '%12s'%(name)
-            ptstr += '%12.3f'%(SHcoeff[name])
-            if name in SHtextureSig:
-                sigstr += '%12.3f'%(SHtextureSig[name])
-            else:
-                sigstr += 12*' '
-        print >>pFile,namstr
-        print >>pFile,ptstr
-        print >>pFile,sigstr
+        SHkeys = SHcoeff.keys()
+        nCoeff = len(SHcoeff)
+        nBlock = nCoeff/10+1
+        iBeg = 0
+        iFin = min(iBeg+10,nCoeff)
+        for block in range(nBlock):
+            namstr = '  names :'
+            ptstr =  '  values:'
+            sigstr = '  esds  :'
+            for name in SHkeys[iBeg:iFin]:
+                namstr += '%12s'%(name)
+                ptstr += '%12.3f'%(SHcoeff[name])
+                if name in SHtextureSig:
+                    sigstr += '%12.3f'%(SHtextureSig[name])
+                else:
+                    sigstr += 12*' '
+            print >>pFile,namstr
+            print >>pFile,ptstr
+            print >>pFile,sigstr
+            iBeg += 10
+            iFin = min(iBeg+10,nCoeff)
             
     print >>pFile,'\n Phases:'