SPIprint.cpp

Go to the documentation of this file.

#include "SPIprint.hpp"
 
namespace SPI{
    PetscInt printf(
            std::string msg, 
            ...             
            ){
        MPI_Comm comm=PETSC_COMM_WORLD;
        msg+="\n";
        const char *format = msg.c_str();
        // the rest of this is copied from PetscPrintf routine
        PetscErrorCode ierr;
        PetscMPIInt    rank;
 
        PetscFunctionBeginUser;
        ierr = MPI_Comm_rank(comm,&rank);CHKERRQ(ierr);
        if (!rank) {
            va_list Argp;
            //va_start(Argp,format,1);
            va_start(Argp,msg);
            va_arg(Argp,const char*);
            ierr = (*PetscVFPrintf)(PETSC_STDOUT,format,Argp);CHKERRQ(ierr);
            va_end(Argp);
        }
        PetscFunctionReturn(0);
    }
    PetscInt printfc(
            std::string msg, 
            PetscScalar val 
            ){
        return printf(msg,PetscRealPart(val),PetscImaginaryPart(val));
    }
}