avoid a case of mixing malloc()/free() with new/delete

    int maxcopy = strlen(arg[2]) + 1;

    int maxcopy = strlen(arg[2]) + 1;

    int maxwork = maxcopy;

    int maxwork = maxcopy;

    char *scopy = new char[maxcopy];

    char *scopy = (char *) memory->smalloc(maxcopy,"var:string/copy");

    char *work = new char[maxwork];

    char *work = (char *) memory->smalloc(maxwork,"var:string/work");

    strcpy(scopy,arg[2]);

    strcpy(scopy,arg[2]);

    input->substitute(scopy,work,maxcopy,maxwork,1);

    input->substitute(scopy,work,maxcopy,maxwork,1);

    delete [] work;

    memory->sfree(work);

    int ivar = find(arg[0]);

    int ivar = find(arg[0]);

    if (ivar >= 0) {

    if (ivar >= 0) {

      data[nvar] = new char*[num[nvar]];

      data[nvar] = new char*[num[nvar]];

      copy(1,&scopy,data[nvar]);

      copy(1,&scopy,data[nvar]);

    }

    }

    delete [] scopy;

    memory->sfree(scopy);

  // GETENV

  // GETENV

  // remove pre-existing var if also style GETENV (allows it to be reset)

  // remove pre-existing var if also style GETENV (allows it to be reset)