W_DAMP module_em.F SOLVE_EM TC_BOGUS FDOB_INIT CALC_TRACK_LOCATIONS IN4DOB SET_PROJECTION ROTATE_VECTOR CALC_TS_LOCATIONS