1       INTEGER KSYMAG, KXYZ
2       COMMON /SUSCC/ KSYMAG(3), KXYZ(3)
3 
4