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