1 static char help[] = "Demonstrates PetscFileRetrieve().\n\n"; 2 3 #include <petscsys.h> 4 int main(int argc, char **argv) 5 { 6 PetscBool found; 7 char localname[PETSC_MAX_PATH_LEN]; 8 const char url[] = "https://web.cels.anl.gov/projects/petsc/download/datafiles/matrices/tiny"; 9 10 /* 11 Every PETSc routine should begin with the PetscInitialize() routine. 12 argc, argv - These command line arguments are taken to extract the options 13 supplied to PETSc and options supplied to MPI. 14 help - When PETSc executable is invoked with the option -help, 15 it prints the various options that can be applied at 16 runtime. The user can use the "help" variable place 17 additional help messages in this printout. 18 */ 19 PetscFunctionBeginUser; 20 PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 21 PetscCall(PetscFileRetrieve(PETSC_COMM_WORLD, url, localname, PETSC_MAX_PATH_LEN, &found)); 22 if (found) { 23 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Successfully download file %s\n", localname)); 24 } else SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Unable to download url %s", url); 25 26 PetscCall(PetscFinalize()); 27 return 0; 28 } 29 30 /*TEST 31 32 test: 33 requires: defined(PETSC_HAVE_POPEN) 34 35 TEST*/ 36