! ---- PROFILE MEAS
!ME2DE           (NAM=CRV$N_MASTER, CSY=CNC$CSY, MOD=(NOC,NOE), INO=O)

DO              (NAM=I, BGN=1, END=4, DLT=1)
  TRAOBJ          (NEW=CRV_N(I), OLD=CRV$N_MASTER, ANG=(I-1)*90, AXI=+Z)
  ME2DE           (NAM=CRV_N(I), CSY=CNC$CSY, MOD=(NOC,NOE), INO=O)
ENDDO

RCOR2D          (SRC=CRV_N(1), DST=RC_N(1), A_O=ZX, CLW=Y)
RCOR2D          (SRC=CRV_N(2), DST=RC_N(2), A_O=YZ, CLW=N)
RCOR2D          (SRC=CRV_N(3), DST=RC_N(3), A_O=ZX, CLW=N)
RCOR2D          (SRC=CRV_N(4), DST=RC_N(4), A_O=YZ, CLW=Y)

Move            (NAM=Move3, CSY=CNC$CSY)
USEPRB          (NAM=PRB(22))
!ME2DE           (NAM=CRV$P_MASTER, CSY=CNC$CSY, MOD=(NOC,NOE), INO=O)

DO              (NAM=I, BGN=1, END=4, DLT=1)
  TRAOBJ          (NEW=CRV_P(I), OLD=CRV$P_MASTER, ANG=(I-1)*90, AXI=+Z)
  ME2DE           (NAM=CRV_P(I), CSY=CNC$CSY, MOD=(NOC,NOE), INO=O)
ENDDO

RCOR2D          (SRC=CRV_P(1), DST=RC_P(1), A_O=ZX, CLW=Y)
RCOR2D          (SRC=CRV_P(2), DST=RC_P(2), A_O=YZ, CLW=P)
RCOR2D          (SRC=CRV_P(3), DST=RC_P(3), A_O=ZX, CLW=P)
RCOR2D          (SRC=CRV_P(4), DST=RC_P(4), A_O=YZ, CLW=Y)

DELAPT          (NAM=RC_N(1), CNF=N, FRS=1, LST=1)
DELAPT          (NAM=RC_N(2), CNF=N, FRS=1, LST=1)
DELAPT          (NAM=RC_N(3), CNF=N, FRS=1, LST=1)
DELAPT          (NAM=RC_N(4), CNF=N, FRS=1, LST=1)

!ME2DE           (NAM=NOM$MASTER, CSY=CNC$CSY, MOD=(NOE,NOC), INO=O)
!EXCHNG          (NAM=NOM$MASTER, MOD=MOV)

!DO              (NAM=I, BGN=1, END=4, DLT=1)
!  TRAOBJ          (NEW=NOM(I), OLD=NOM$MASTER, ANG=(I-1)*90, AXI=+Z)
!ENDDO

COLAPT          (NAM=RC_CRV(1), CSY=CNC$CSY, PTS=(RC_P(1), RC_N(1)), EVA=N)
COLAPT          (NAM=RC_CRV(2), CSY=CNC$CSY, PTS=(RC_P(2), RC_N(2)), EVA=N)
COLAPT          (NAM=RC_CRV(3), CSY=CNC$CSY, PTS=(RC_P(3), RC_N(3)), EVA=N)
COLAPT          (NAM=RC_CRV(4), CSY=CNC$CSY, PTS=(RC_P(4), RC_N(4)), EVA=N)

ACNO2D          (ACT=RC_CRV(1), NOM=NOM(1), RES=ACNO(1), A_O=ZX, ACW=Y, NCW=Y)
ACNO2D          (ACT=RC_CRV(2), NOM=NOM(2), RES=ACNO(2), A_O=YZ)
ACNO2D          (ACT=RC_CRV(3), NOM=NOM(3), RES=ACNO(3), A_O=ZX)
ACNO2D          (ACT=RC_CRV(4), NOM=NOM(4), RES=ACNO(4), A_O=YZ, ACW=Y, NCW=Y)