CHARACTER*2 somSfx(nSOM)
& somSfx
diagName = 'SM'//somSfx(n)//diagSufx
somSfx(n) = ' '
IF (n.EQ.1) somSfx(n) = '_x'
IF (n.EQ.2) somSfx(n) = '_y'
IF (n.EQ.3) somSfx(n) = '_z'
IF (n.EQ.4) somSfx(n) = 'xx'
IF (n.EQ.5) somSfx(n) = 'yy'
IF (n.EQ.6) somSfx(n) = 'zz'
IF (n.EQ.7) somSfx(n) = 'xy'
IF (n.EQ.8) somSfx(n) = 'xz'
IF (n.EQ.9) somSfx(n) = 'yz'