1. Exascale FastForward
  2. ParallelIO

Source

Source viewDiff to previous
 
          print F "  if(xtypep != NULL) mpierr = MPI_Bcast(xtypep , 1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "  if(lenp != NULL) mpierr = MPI_Bcast(lenp , 1, MPI_OFFSET, ios->ioroot, ios->my_comm);\n";
          }elsif($func =~ /inq_var$/){
          print F "    if(xtypep != NULL) mpierr = MPI_Bcast(xtypep , 1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "    if(ndimsp != NULL){ mpierr = MPI_Bcast(ndimsp , 1, MPI_OFFSET, ios->ioroot, ios->my_comm);\n";
          print F "      file->varlist[varid].ndims = (*ndimsp);}\n";
          print F "      if(nattsp != NULL) mpierr = MPI_Bcast(nattsp,1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "    if(name != NULL){ \n";
          print F "      int slen;\n";
          print F "      if(ios->iomaster)\n";
          print F "        slen = (int) strlen(name);\n";
          print F "        slen = (int) strlen(name) + 1;\n";
          print F "      mpierr = MPI_Bcast(&slen, 1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "      mpierr = MPI_Bcast(name, slen, MPI_CHAR, ios->ioroot, ios->my_comm);\n    }\n";
​
          print F "    if(dimidsp != NULL) {int ndims;\n";
          print F "      PIOc_inq_varndims(file->fh, varid, \&ndims);\n";
          print F "      mpierr = MPI_Bcast(dimidsp , ndims, MPI_INT, ios->ioroot, ios->my_comm);\n ";
          print F "    }\n";
​
​
          
          }elsif($func =~ /inq_dim$/){
          print F  "    if(name != NULL){ \n";
          print F "      int slen;\n";
          print F "      if(ios->iomaster)\n";
          print F "        slen = (int) strlen(name);\n";
          print F "        slen = (int) strlen(name) + 1;\n";
          print F "      mpierr = MPI_Bcast(&slen, 1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "      mpierr = MPI_Bcast(name, slen, MPI_CHAR, ios->ioroot, ios->my_comm);\n    }\n";
          print F "      if(lenp != NULL) mpierr = MPI_Bcast(lenp , 1, MPI_OFFSET, ios->ioroot, ios->my_comm);\n";
          }elsif($func =~ /inq_dimname/ || $func =~ /inq_varname/ || $func =~ /inq_attname/){
          print F "    if(name != NULL){\n";
          print F "      int slen;\n";
          print F "      if(ios->iomaster)\n";
          print F "        slen = (int) strlen(name);\n";
          print F "        slen = (int) strlen(name) + 1;\n";
          print F "      mpierr = MPI_Bcast(&slen, 1, MPI_INT, ios->ioroot, ios->my_comm);\n";
          print F "      mpierr = MPI_Bcast(name, slen, MPI_CHAR, ios->ioroot, ios->my_comm);\n    }\n";
          }elsif($func =~ /inq_vardimid/){
          print F "    if(ierr==PIO_NOERR){\n";
                  print F "      int ndims;\n";
          print F "      PIOc_inq_varndims(file->fh, varid, \&ndims);\n";
          print F "      mpierr = MPI_Bcast(dimidsp , ndims, MPI_INT, ios->ioroot, ios->my_comm);\n ";
          print F "    }\n";
          }elsif($func =~ /get_att_(\w+)/){
          my $atype = $1;