ID_S=1 XS=XS0+ID_S WRITE(6,*)" Computing a one-turn spin taylor map " CALL TRACK_PROBE(ALS,XS,STATE,FIBRE1=1) ID_S=XS WRITE(6,*)" Doing a Spin-Orbital Normal Form: NF_S=ID_S " NF_S=ID_S
The Taylor map ID_S is of type ``damapspin'': it is a spin orbital map. It is identity in both the spin part and the orbital part. Then the orbital closed orbit is added to it. The map is tracked for one-turn. The map NF_S is of type ``normal_spin.'' Both the orbital and the spin are normalized. (See FPP documentation)