2,652
edits
Get rot from xparm: Difference between revisions
make gfortran compatible
No edit summary |
(make gfortran compatible) |
||
| Line 7: | Line 7: | ||
real rotation(3),beam(3),detector_x(3),detector_y(3),x,xyz(3) | real rotation(3),beam(3),detector_x(3),detector_y(3),x,xyz(3) | ||
real, parameter :: r2d=57.2957795 | real, parameter :: r2d=57.2957795 | ||
character | character*1 :: axnam(3)=(/'a','b','c'/) | ||
open(1,file='XPARM.XDS') | open(1,file='XPARM.XDS') | ||