Rotation perl script

Name:rotate
Purpose:to rotate frames to get dispersion into Y direction if needed
Invocationperl rotate file1 file2 @list1 @list2
where:
file1, file2---are individual files to be rotated.
list1, list2---are ascii lists of files (flagged by @).

Action

rotate rotates a series of frames by 90 degrees, and is often needed as a first step to get dispersion to run in Y as expected by pamela. It uses irot90 to rotate the frames by 90 degrees into a temporary file 'junk.sdf' then moves this back over the original file. This is to avoid corrupting the file.

Because it uses a temporary file, it should be safe to kill it if you want, but remember that you will then end up with a mix of rotated and unrotated frames.

Author: T.R.Marsh
Created: 14 January 2001
Revised: 08 December 2005


Page generated Fri Nov 20 09:23:37 2009