PROGRAM MAIN CALL INI_MP CALL THE_MODEL_MAIN CALL STOP_MP STOP END