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 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