subroutine DWFixModeMotion Use Drawworks_VARIABLES IMPLICIT NONE Drawworks%Hook_Height_final = Drawworks%Hook_Height_final ![ft] Drawworks%Hook_Height = Drawworks%Hook_Height_final/3.280839895d0 ![m] Drawworks%w_drum = 0.d0 Drawworks%w_old_drum = 0.d0 Drawworks%motion = 0 End subroutine