Updated Type with routine name

makes the variables global