*cfopen,vibration,txt
*vwrite,sequ,vibration(1,2),vibration(1,3),vibration(1,4),vibration(1,5),vibration(1,6),vibration(1,7),vibration(1,8)
(F3.0,'  '7F20.1)
*cfclose