prim_t_dbl = new_type_primitive(new_id_from_chars ("dbl", 3), mode_D);
proc_main = new_type_method(new_id_from_chars(METHODNAME, strlen(METHODNAME)),
NRARGS, NRES);
set_method_res_type(proc_main, 0, prim_t_dbl);
prim_t_dbl = new_type_primitive(new_id_from_chars ("dbl", 3), mode_D);
proc_main = new_type_method(new_id_from_chars(METHODNAME, strlen(METHODNAME)),
NRARGS, NRES);
set_method_res_type(proc_main, 0, prim_t_dbl);