1 /* 2 Shows any outstanding Globus file requests 3 4 You can run PETSc programs with -globus_access_token XXXX where XXX is the access token to access Globus 5 6 */ 7 8 #include <petscsys.h> 9 10 int main(int argc, char **argv) 11 { 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