Commits

BarryFSmith committed 7407bd3

damn damn damn

Comments (0)

Files changed (2)

config/BuildSystem/config/packages/scientificpython.py

- import config.package
+import config.package
 import os, sys
 
 class Configure(config.package.Package):

src/ts/examples/tutorials/advection-diffusion-reaction/ex10.c

   PetscScalar HeV[NHeV][NHeV];
 } Concentrations;
 
-/*
-   cHeV is "trick" to allow easy accessing of the values in the HeV portion of the Concentrations.
-   cHeV[i] points to the beginning of each row of HeV[] with indexing starting a 1.
-
-   Eventually there will be support for HeV[][] where it is a triangular matrix with different maximum
-   number of V for each He
-*/
-#undef __FUNCT__
-#define __FUNCT__ "cHeVCreate"
-PetscErrorCode cHeVCreate(PetscReal ***cHeV)
-{
-  PetscErrorCode ierr;
-
-  PetscFunctionBegin;
-  ierr = PetscMalloc(NHeV*sizeof(PetscScalar),cHeV);CHKERRQ(ierr);
-  (*cHeV)--;
-  PetscFunctionReturn(0);
-}
-
-#undef __FUNCT__
-#define __FUNCT__ "cHeVInitialize"
-PetscErrorCode cHeVInitialize(PetscScalar *start,PetscReal **cHeV)
-{
-  PetscInt       i;
-
-  PetscFunctionBegin;
-  cHeV[1] = start - 1 + NHe + NV + NI;
-  for (i=1; i<NHeV; i++) {
-    cHeV[i+1] = cHeV[i] + NHeV;
-  }
-  PetscFunctionReturn(0);
-}
 
 #undef __FUNCT__
 #define __FUNCT__ "cHeVDestroy"
   PetscFunctionReturn(0);
 }
 
+/*
+   cHeV is "trick" to allow easy accessing of the values in the HeV portion of the Concentrations.
+   cHeV[i] points to the beginning of each row of HeV[] with indexing starting a 1.
+
+   Eventually there will be support for HeV[][] where it is a triangular matrix with different maximum
+   number of V for each He
+*/
+#undef __FUNCT__
+#define __FUNCT__ "cHeVCreate"
+PetscErrorCode cHeVCreate(PetscReal ***cHeV)
+{
+  PetscErrorCode ierr;
+
+  PetscFunctionBegin;
+  ierr = PetscMalloc(NHeV*sizeof(PetscScalar),cHeV);CHKERRQ(ierr);
+  (*cHeV)--;
+  PetscFunctionReturn(0);
+}
+
+#undef __FUNCT__
+#define __FUNCT__ "cHeVInitialize"
+PetscErrorCode cHeVInitialize(PetscScalar *start,PetscReal **cHeV)
+{
+  PetscInt       i;
+
+  PetscFunctionBegin;
+  cHeV[1] = start - 1 + NHe + NV + NI;
+  for (i=1; i<NHeV; i++) {
+    cHeV[i+1] = cHeV[i] + NHeV;
+  }
+  PetscFunctionReturn(0);
+}
+
 /* ------------------------------------------------------------------- */
 #undef __FUNCT__
 #define __FUNCT__ "InitialConditions"