1 2 /* 3 Shows any outstanding Globus file requests 4 5 You can run PETSc programs with -globus_access_token XXXX where XXX is the access token to access Globus 6 7 */ 8 9 #include <petscsys.h> 10 11 int main(int argc, char **argv) { 12 char buff[4096]; 13 14 PetscFunctionBeginUser; 15 PetscCall(PetscInitialize(&argc, &argv, NULL, NULL)); 16 PetscCall(PetscGlobusGetTransfers(PETSC_COMM_WORLD, NULL, buff, sizeof(buff))); 17 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Transfers are %s\n", buff)); 18 PetscCall(PetscFinalize()); 19 return 0; 20 } 21 22 /*TEST 23 24 build: 25 requires: ssl 26 27 test: 28 TODO: determine how to run this test without going through the browser 29 30 TEST*/ 31