int mca_sharedfp_individual_iwrite(mca_io_ompio_file_t *fh, const void *buf, int count, ompi_datatype_t *datatype, MPI_Request * request) { int ret = OMPI_SUCCESS; size_t numofbytes = 0; OMPI_MPI_OFFSET_TYPE totalbytes = 0; mca_sharedfp_individual_header_record *headnode = NULL; struct mca_sharedfp_base_data_t *sh = NULL; mca_sharedfp_base_module_t * shared_fp_base_module = NULL; if(fh->f_sharedfp_data==NULL){ if ( mca_sharedfp_individual_verbose ) { opal_output(ompi_sharedfp_base_framework.framework_output, "mca_sharedfp_individual_iwrite: opening the shared file pointer\n"); } shared_fp_base_module = fh->f_sharedfp; ret = shared_fp_base_module->sharedfp_file_open(fh->f_comm, fh->f_filename, fh->f_amode, fh->f_info, fh); if (ret != OMPI_SUCCESS) { opal_output(0,"mca_sharedfp_individual_iwrite - error opening the shared file pointer\n"); return ret; } } /* Calculate the number of bytes of data that needs to be written*/ opal_datatype_type_size ( &datatype->super, &numofbytes); totalbytes = count * numofbytes; sh = fh->f_sharedfp_data; headnode = (mca_sharedfp_individual_header_record*)sh->selected_module_data; if ( NULL == headnode) { opal_output (0, "sharedfp_individual_iwrite: headnode is NULL but file is open\n"); return OMPI_ERROR; } /*Insert metadata record into a queue*/ ret = mca_sharedfp_individual_insert_metadata(OMPI_FILE_WRITE_SHARED,totalbytes,sh); /*Write the data into individual file*/ ret = mca_common_ompio_file_iwrite_at ( headnode->datafilehandle, headnode->datafile_offset, buf, count, datatype, request); if ( OMPI_SUCCESS != ret ) { opal_output(0,"sharedfp_individual_iwrite: Error while iwriting the datafile \n"); return ret; } /* Update the datafileoffset */ headnode->datafile_offset = headnode->datafile_offset + totalbytes; return ret; }
int mca_sharedfp_lockedfile_iwrite(mca_io_ompio_file_t *fh, const void *buf, int count, ompi_datatype_t *datatype, MPI_Request * request) { int ret = OMPI_SUCCESS; mca_sharedfp_base_module_t * shared_fp_base_module; OMPI_MPI_OFFSET_TYPE offset = 0; long bytesRequested = 0; size_t numofBytes; struct mca_sharedfp_base_data_t *sh = NULL; if(fh->f_sharedfp_data==NULL){ if ( mca_sharedfp_lockedfile_verbose ) { opal_output(ompi_sharedfp_base_framework.framework_output, "sharedfp_lockedfile_iwrite: opening the shared file pointer\n"); } shared_fp_base_module = fh->f_sharedfp; ret = shared_fp_base_module->sharedfp_file_open(fh->f_comm, fh->f_filename, fh->f_amode, fh->f_info, fh); if ( OMPI_SUCCESS != ret ) { opal_output(0,"sharedfp_lockedfile_iwrite - error opening the shared file pointer\n"); return ret; } } /*Calculate the number of bytes to write*/ opal_datatype_type_size ( &datatype->super, &numofBytes); bytesRequested = count * numofBytes; if ( mca_sharedfp_lockedfile_verbose ) { opal_output(ompi_sharedfp_base_framework.framework_output, "sharedfp_lockedfile_iwrite: Bytes Requested is %ld\n",bytesRequested); } /*Retrieve the shared file data struct*/ sh = fh->f_sharedfp_data; /*Request the offset to write bytesRequested bytes*/ ret = mca_sharedfp_lockedfile_request_position(sh,bytesRequested,&offset); offset /= sh->sharedfh->f_etype_size; if ( -1 != ret) { if ( mca_sharedfp_lockedfile_verbose ) { opal_output(ompi_sharedfp_base_framework.framework_output, "sharedfp_lockedfile_iwrite: Offset received is %lld\n",offset); } /* Write to the file */ ret = mca_common_ompio_file_iwrite_at(sh->sharedfh,offset,buf,count,datatype,request); } return ret; }
int mca_io_ompio_file_iwrite_at (ompi_file_t *fh, OMPI_MPI_OFFSET_TYPE offset, const void *buf, int count, struct ompi_datatype_t *datatype, ompi_request_t **request) { int ret = OMPI_SUCCESS; mca_io_ompio_data_t *data; data = (mca_io_ompio_data_t *) fh->f_io_selected_data; ret = mca_common_ompio_file_iwrite_at(&data->ompio_fh,offset,buf,count,datatype,request); return ret; }
int mca_sharedfp_addproc_iwrite(mca_io_ompio_file_t *fh, const void *buf, int count, ompi_datatype_t *datatype, MPI_Request * request) { int ret = OMPI_SUCCESS; OMPI_MPI_OFFSET_TYPE offset = 0; long bytesRequested = 0; size_t numofBytes; struct mca_sharedfp_base_data_t *sh = NULL; if(NULL == fh->f_sharedfp_data){ opal_output(0, "sharedfp_addproc_iwrite: shared file pointer structure not initialized correctly\n"); return OMPI_ERROR; } /* Calculate the number of bytes to write */ opal_datatype_type_size ( &datatype->super, &numofBytes); bytesRequested = count * numofBytes; /* Retrieve the shared file data struct */ sh = fh->f_sharedfp_data; if ( mca_sharedfp_addproc_verbose ){ opal_output(ompi_sharedfp_base_framework.framework_output, "sharedfp_addproc_iwrite: Bytes Requested is %ld\n",bytesRequested); } /* Request the offset to write bytesRequested bytes */ ret = mca_sharedfp_addproc_request_position(sh,bytesRequested,&offset); offset /= sh->sharedfh->f_etype_size; if ( OMPI_SUCCESS == ret ) { if ( mca_sharedfp_addproc_verbose ){ opal_output(ompi_sharedfp_base_framework.framework_output, "sharedfp_addproc_iwrite: Offset received is %lld\n",offset); } /* Write to the file */ ret = mca_common_ompio_file_iwrite_at(sh->sharedfh,offset,buf,count,datatype,request); } return ret; }