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
main(int argc,char ** argv)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