Hier meine Lösung
dmy = POSTF(5)
if (dmy.eq.8) then
$$ GOTO ohne Vektor
$$ Vektro anhängen
dmy = POSTF(10,9,rVZX)
dmy = POSTF(10,10,rVZY)
dmy = POSTF(10,11,rVZZ)
dmy = POSTF(12,11)
end if
POSTF(13)
Hat ich eigentlich schon mal. Der Entschiedende Punkt war im
CIMFIL/ON,MACHIN
MULTAX/ON
POSTF(13)
CIMFIL/OFF
zu schreiben. Das veranlasst den PP anscheinend die Kooridnaten zu
drehen und die Winkel zu berechnen.