14   int commrank;  in openfile()  local
15   MPI_Comm_rank(MPI_COMM_WORLD,&commrank);  in openfile()
19   if(err > 0 && !commrank)  in openfile()
26   int commrank,commsize;  in main()  local
27   MPI_Comm_rank(MPI_COMM_WORLD,&commrank);  in main()
30     if( !commrank )  in main()
48   const int phastarank = commrank+1+rankoffset;  in main()
49   const int group = (commrank+rankoffset)/2048;  in main()
58     if(!commrank) fprintf(stderr, "trying again without the sub-directory...\n");  in main()
62     if(!commrank)  in main()
91   if( !commrank ) //write header  in main()