From e11752cc6aa78b0a50102e88a2eea23d4aa2836a Mon Sep 17 00:00:00 2001 From: "Sascha M. Schnepp" Date: Tue, 10 Mar 2015 19:14:16 +0100 Subject: [PATCH] ksp/tutorials-ex56: Set data path relative to PETSC_DIR --- src/ksp/ksp/examples/tutorials/ex56.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/ksp/ksp/examples/tutorials/ex56.c b/src/ksp/ksp/examples/tutorials/ex56.c index 67382b0..16278bb 100644 --- a/src/ksp/ksp/examples/tutorials/ex56.c +++ b/src/ksp/ksp/examples/tutorials/ex56.c @@ -135,7 +135,16 @@ int main(int argc,char **args) /* generate element matrices */ { FILE *file; - char fname[] = "data/elem_3d_elast_v_25.txt"; + char fname[256]; + char sp[1]; + const char* petsc_dir = getenv("PETSC_DIR"); + sp[0] = PETSC_DIR_SEPARATOR; + if (!petsc_dir) { + SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"'PETSC_DIR' not set."); + } + snprintf (fname,sizeof(fname), "%s%ssrc%sksp%sksp%sexamples%stutorials%sdata%selem_3d_elast_v_25.txt", + petsc_dir,sp,sp,sp,sp,sp,sp,sp); + file = fopen(fname, "r"); if (file == 0) { PetscPrintf(PETSC_COMM_WORLD,"\t%s failed to open input file '%s'\n",__FUNCT__,fname); -- 2.3.0