4711   namelist_info *nml;  in set_nml_var()  local
4714   nml = (namelist_info*) xmalloc (sizeof (namelist_info));  in set_nml_var()
4716   nml->mem_pos = var_addr;  in set_nml_var()
4717   nml->dtio_sub = dtio_sub;  in set_nml_var()
4718   nml->vtable = vtable;  in set_nml_var()
4720   nml->var_name = (char*) xmalloc (var_name_len + 1);  in set_nml_var()
4721   memcpy (nml->var_name, var_name, var_name_len);  in set_nml_var()
4722   nml->var_name[var_name_len] = '\0';  in set_nml_var()
4724   nml->len = (int) len;  in set_nml_var()
4725   nml->string_length = (index_type) string_length;  in set_nml_var()
4727   nml->var_rank = (int) (dtype.rank);  in set_nml_var()
4728   nml->size = (index_type) (dtype.elem_len);  in set_nml_var()
4729   nml->type = (bt) (dtype.type);  in set_nml_var()
4731   if (nml->var_rank > 0)  in set_nml_var()
4733       nml->dim = (descriptor_dimension*)  in set_nml_var()
4734 	xmallocarray (nml->var_rank, sizeof (descriptor_dimension));  in set_nml_var()
4735       nml->ls = (array_loop_spec*)  in set_nml_var()
4736 	xmallocarray (nml->var_rank, sizeof (array_loop_spec));  in set_nml_var()
4740       nml->dim = NULL;  in set_nml_var()
4741       nml->ls = NULL;  in set_nml_var()
4744   nml->next = NULL;  in set_nml_var()
4749       dtp->u.p.ionml = nml;  in set_nml_var()
4754       t1->next = nml;  in set_nml_var()
4800   namelist_info *nml;  in st_set_nml_var_dim()  local
4805   for (nml = dtp->u.p.ionml; nml->next; nml = nml->next);  in st_set_nml_var_dim()
4807   GFC_DIMENSION_SET(nml->dim[n],lbound,ubound,stride);  in st_set_nml_var_dim()