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 { 13 char buff[4096]; 14 15 PetscFunctionBeginUser; 16 PetscCall(PetscInitialize(&argc, &argv, NULL, NULL)); 17 PetscCall(PetscGlobusGetTransfers(PETSC_COMM_WORLD, NULL, buff, sizeof(buff))); 18 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Transfers are %s\n", buff)); 19 PetscCall(PetscFinalize()); 20 return 0; 21 } 22 23 /*TEST 24 25 build: 26 requires: ssl 27 28 test: 29 TODO: determine how to run this test without going through the browser 30 31 TEST*/ 32