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 PetscErrorCode ierr; 14 char buff[4096]; 15 16 ierr = PetscInitialize(&argc,&argv,NULL,NULL);if (ierr) return ierr; 17 ierr = PetscGlobusGetTransfers(PETSC_COMM_WORLD,NULL,buff,sizeof(buff));CHKERRQ(ierr); 18 ierr = PetscPrintf(PETSC_COMM_WORLD,"Transfers are %s\n",buff);CHKERRQ(ierr); 19 ierr = PetscFinalize(); 20 return ierr; 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 33 34