← Back to branch summary

~ubuntu-branches/ubuntu/hardy/openmpi/hardy-updates

« back to all changes in this revision

Viewing changes to ompi/mca/io/romio/romio/adio/ad_testfs/io_romio_ad_testfs_wrcoll.c

  • Committer: Bazaar Package Importer
  • Author(s): Mark Hymers
  • Date: 2006-10-15 00:46:11 UTC
  • Revision ID: james.westby@ubuntu.com-20061015004611-uuhxnaxyjmuxfd5h
Tags: upstream-1.1
Import upstream version 1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
ompi/mca/io/romio/romio/adio/ad_testfs/io_romio_ad_testfs_wrcoll.c
 
1
/* -*- Mode: C; c-basic-offset:4 ; -*- */
 
2
/* 
 
3
 *
 
4
 *   Copyright (C) 2001 University of Chicago. 
 
5
 *   See COPYRIGHT notice in top-level directory.
 
6
 */
 
7
 
 
8
#include "ad_testfs.h"
 
9
#include "adioi.h"
 
10
 
 
11
void ADIOI_TESTFS_WriteStridedColl(ADIO_File fd, void *buf, int count,
 
12
                                   MPI_Datatype datatype, int file_ptr_type,
 
13
                                   ADIO_Offset offset, ADIO_Status *status, 
 
14
                                   int *error_code)
 
15
{
 
16
    int myrank, nprocs;
 
17
 
 
18
    *error_code = MPI_SUCCESS;
 
19
 
 
20
    MPI_Comm_size(fd->comm, &nprocs);
 
21
    MPI_Comm_rank(fd->comm, &myrank);
 
22
    FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteStridedColl called on %s\n", 
 
23
            myrank, nprocs, fd->filename);
 
24
    FPRINTF(stdout, "[%d/%d]    calling ADIOI_GEN_WriteStridedColl\n", 
 
25
            myrank, nprocs);
 
26
 
 
27
    ADIOI_GEN_WriteStridedColl(fd, buf, count, datatype, file_ptr_type,
 
28
                               offset, status, error_code);
 
29
}