Function N_VNew

externalpackages/PVODE/source/nvector.cpp:142–174

 
N_Vector N_VNew(integer N, machEnvType machEnv)
{
  N_Vector v;
  int N_local, N_global;

  if (N <= 0) return(NULL);
  if (machEnv == NULL) return(NULL);

  N_local = machEnv->local_vec_length;
  N_global = machEnv->global_vec_length;

  v = (N_Vector) malloc(sizeof *v);
  if (v == NULL) return(NULL);
  
  v->data = (real *) malloc(N_local * sizeof(real));
  if (v->data == NULL) {
    free(v);
    return(NULL);
  }

  v->length = N_local;
  v->global_length = N_global;

  v->machEnv = (machEnvType) malloc(sizeof *machEnv);
  if (v->machEnv == NULL) {
    free(v->data);
    free(v);
    return(NULL);
  }
  memcpy(v->machEnv,machEnv,sizeof *machEnv);
  
  return(v);
}


void N_VFree(N_Vector x)