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