[olauer]

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