$
$     THIS ALTER IS CONFIDENTIAL AND A TRADE SECRET OF THE 
$     MSC.Software CORP.  THE RECEIPT OR POSSESSION OF
$     THIS ALTER DOES NOT CONVEY ANY RIGHTS TO REPRODUCE OR
$     DISCLOSE ITS CONTENTS, OR TO MANUFACTURE, USE, OR SELL
$     ANYTHING HEREIN, IN WHOLE OR IN PART, WITHOUT THE 
$     SPECIFIC WRITTEN CONSENT OF THE MSC.Software CORPORATION.                                
$
$     modified 4/27/2000
$
$ This alter will transform the OLOAD resultant to
$ a user specified coordinate system. Insert
$ PARAM,OCORD,n  into the bulk data where "n"
$ is the id of the coordinate system for the OLOAD
$ output. The regular OLOAD output in the basic
$ coordinate system is still printed out. The trans-
$ formed oload resultant follows in the form of matrix
$ print named OLOADCID
compile selg nolist noref $
alter 'VECPLOT.*PJ' $
type parm,,i,y,ocord=0 $
message //'ocord = '/ocord $
$ generate rigid body transformation matrix rbv
$vecplot, ,bgpdp,eqexins,cstms,casesx,,medge,sip/rbv///4 $ v68.2
vecplot, ,bgpdts,scstm,cstms,casesx,,medge,/rbv,,/
         grdpnt//4 $ V69.1
$ generate OLOAD RESULTANT matrix: PR=rbv*pj
$matprn rbv,pj// $
mpyad rbv,pj,/pr/ $
$matprn pr// $
$ transform PR to OCORD system:
$ first create transformation matrix
matmod  cstms,,,,,/trans,/5/6/ocord $
$ oloadcid=trans<t>*pr
mpyad   trans,pr,/OLOADCID/1 $
message //' ' $
message //'Following Matrix OLOADCID is the OLOAD resultant '/
          'transformed into Coordinate system'/ocord $
message //'Each Column of OLOADCID corresponds to a '/
          'different load vector.'
message //' ' $
matprt OLOADCID// $
endalter $