Alter coordinate system
Does anyone know how I can command the change of coordinate system in a subroutine?
|
Changing can be coded using
csys,<Co-ordinate sys number> Is this what you are looking for? |
Maybe, it depends upon what you are trying to accomplish.
Your post does not provide enough details. Which user subroutine? What are you trying to change? |
AFAIK all coordinates in user subroutines are treated in global cartesian (i.e. computational) system. So you need to recalculate everything yourself
|
There are two provided subroutines which could be used.
DIMENSION CIN(3),COUT(3) CALL GLOLOC(CIN,COUT,ICOR) CALL LOCGLO(COUT,CIN,ICOR) Example from newxyz.f: ICOR=5 do iv=1,nvert CIN(1)=VCORN(1,IV) CIN(2)=VCORN(2,IV) CIN(3)=VCORN(3,IV) CALL GLOLOC(CIN,COUT,ICOR) any operation on local coordinates possible COUT(2)=COUT(2)+OFFSET CALL LOCGLO(COUT,CIN,ICOR) VCORN(1,IV)=CIN(1) VCORN(2,IV)=CIN(2) VCORN(3,IV)=CIN(3) enddo Attention: all vertex values are in SI coordinates, local coordinate systems could be defined in mm |
All times are GMT -4. The time now is 12:50. |