-:    0:Source:/home/MPI/testing/mpich2/mpich2/src/mpi/romio/adio/ad_nfs/ad_nfs_resize.c
        -:    0:Graph:ad_nfs_resize.gcno
        -:    0:Data:ad_nfs_resize.gcda
        -:    0:Runs:224
        -:    0:Programs:67
        -:    1:/* -*- Mode: C; c-basic-offset:4 ; -*- */
        -:    2:/* 
        -:    3: *
        -:    4: *   Copyright (C) 2004 University of Chicago. 
        -:    5: *   See COPYRIGHT notice in top-level directory.
        -:    6: */
        -:    7:
        -:    8:#include "ad_nfs.h"
        -:    9:
        -:   10:#ifdef HAVE_UNISTD_H
        -:   11:#include <unistd.h>
        -:   12:#endif
        -:   13:
        -:   14:/* NFS resize
        -:   15: *
        -:   16: * Note: we resize on all processors to guarantee that all processors
        -:   17: * will have updated cache values.  This used to be the generic
        -:   18: * implementation used by the majority of the ADIO implementations.
        -:   19: */
        -:   20:void ADIOI_NFS_Resize(ADIO_File fd, ADIO_Offset size, int *error_code)

    #####:   21:{
        -:   22:    int err;
        -:   23:    static char myname[] = "ADIOI_GEN_RESIZE";
        -:   24:
    #####:   25:    err = ftruncate(fd->fd_sys, size);
        -:   26:

        -:   27:    /* --BEGIN ERROR HANDLING-- */
    #####:   28:    if (err == -1) {
    #####:   29:	*error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE,
        -:   30:					   myname, __LINE__, MPI_ERR_IO,
        -:   31:					   "**io", "**io %s", strerror(errno));
    #####:   32:	return;
        -:   33:    }
        -:   34:    /* --END ERROR HANDLING-- */
        -:   35:

    #####:   36:    *error_code = MPI_SUCCESS;
        -:   37:}