if ((p = (struct nexus *) calloc((size_t) 1, sizeof *p)) == NULL)
adios(EX_OSERR, NULL, "unable to allocate component storage");
if ((p = (struct nexus *) calloc((size_t) 1, sizeof *p)) == NULL)
adios(EX_OSERR, NULL, "unable to allocate component storage");