; INPUT FR L [align]align_new010 FR L [cls]list_cls001 ; OUTPUT FR L [newali]align_renew010 ; GO! UD N [nums] [align] UD N [nums_cls] [cls] [i]=1 [apix]=3.28 [hrot]=64 [ay] = 4.3/[apix] DE [newali] DO LB1 [k]=1,[nums] UD IC [k],[psi],[the],[phi],[ref],[img],[inplane],[sx],[sy],[nproj],[diff],[cc],[nor],[rot],[shx],[shy] [align] IF([i].GT.[nums_cls]) GOTO LB66 UD IC [i],[p],[num] [cls] IF([k].EQ.[num])THEN [phi] = [phi] + [hrot] IF([phi].GT.360)THEN [phi] = [phi] - 360 ENDIF [sy] = [sy] + [ay] [i] = [i] +1 SD [k],[psi],[the],[phi],[ref],[img],[inplane],[sx],[sy],[nproj],[diff],[cc],[nor],[rot],[shx],[shy] [newali] GOTO LB55 ENDIF LB66 SD [k],[psi],[the],[phi],[ref],[img],[inplane],[sx],[sy],[nproj],[diff],[cc],[nor],[rot],[shx],[shy] [newali] LB55 LB1 EN D