2,652
edits
Get rot from xparm: Difference between revisions
no edit summary
(Created page with '</pre> ! program to calculate rotations of unit cell axes with respect to detector axes, rotation axis, and beam. ! KD 9/2010 implicit none integer i real rota…') |
No edit summary |
||
| Line 1: | Line 1: | ||
< | <pre> | ||
! program to calculate rotations of unit cell axes with respect to detector axes, rotation axis, and beam. | ! program to calculate rotations of unit cell axes with respect to detector axes, rotation axis, and beam. | ||
! KD 9/2010 | ! KD 9/2010 | ||
implicit none | implicit none | ||
integer i | integer i | ||
| Line 9: | Line 9: | ||
character axnam*1(3)/'a','b','c'/ | character axnam*1(3)/'a','b','c'/ | ||
open(1,file='XPARM.XDS') | |||
read(1,*) beam,rotation ! 1. record: read ROTATION_AXIS | read(1,*) beam,rotation ! 1. record: read ROTATION_AXIS | ||