I appreciate the problem. I mainly get it with people setting up kinetic
runs, processing a test spectrum, with zero-filling, and then forgetting to
reset SI before restarting their AU program. This sort of identifiable data-
set, with consecutive numerical extensions, is easily truncated using:
1 PJ #1
2 RJ #1
3 SI=n
4 WR #1
5 IF #1
6 IN=2
7 EXIT
For more random data, I would be interested in your program, as I have no
experience with Pascal. Most of my data has alphabetical extensions, would
your proposed routine handle them?
Regards Jim Bloxsidge
*********************************************************************
J P Bloxsidge * PLEASE REPLY TO: j.bloxsidge@surrey.ac.uk
Department of Chemistry *
University of Surrey * Tel: 01483-300800 ext. 2609
GUILDFORD * Fax: 01483-300803
Surrey GU2 5XH * Int: +44-1483-nnnnnn
UK *
**********************************************************************