Moved variables of module write_field to module createnewfield_m. Deleted module variable varid because we know that varid is always 1. Module variable record was modified in 2 procedures so Moved assignment: Record(NbField) = 1 to writefield.