Changeset 12513


Ignore:
Timestamp:
06/22/12 16:26:04 (13 years ago)
Author:
Mathieu Morlighem
Message:

Starting to replace _printf by _pprintString

Location:
issm/trunk-jpl/src/c
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/include/macros.h

    r12512 r12513  
    6969  do{std::ostringstream aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy; \
    7070          aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy << StreamArgs << std::ends; \
    71           PrintfFunction(aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy.str());}while(0)
     71          PrintfFunction2(aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy.str());}while(0)
    7272/*}}}*/
    7373/* _assert_ {{{*/
  • issm/trunk-jpl/src/c/io/PrintfFunction.cpp

    r12512 r12513  
    5757        }
    5858}
     59int PrintfFunction2(const string & message){
     60        extern int  my_rank;
     61        if(my_rank==0){
     62                printf("%s",message.c_str());
     63        }
     64}
  • issm/trunk-jpl/src/c/io/io.h

    r12512 r12513  
    1616int PrintfFunction(const char* format,...);
    1717int PrintfFunction(const string & message);
     18int PrintfFunction2(const string & message);
    1819
    1920#endif  /* _IO_H_ */
  • issm/trunk-jpl/src/c/objects/KML/KML_GroundOverlay.cpp

    r12493 r12513  
    4646void  KML_GroundOverlay::Echo(){
    4747
    48         bool  flag=true;
    49 
    50         _printf_(flag,"KML_GroundOverlay:\n");
     48        _printLine_("KML_GroundOverlay:");
    5149        KML_Overlay::Echo();
    5250
    53         _printf_(flag,"      altitude: %0.16g\n"      ,altitude);
    54         _printf_(flag,"       altmode: \"%s\"\n"      ,altmode);
    55         _printf_(flag,"         llbox: %p\n"          ,llbox);
    56 
    57         return;
     51        _printLine_("         altitude: " << altitude);
     52        _printLine_("          altmode: " << altmode);
     53        _printLine_("            llbox: " << llbox);
    5854}
    5955/*}}}*/
    60 
    6156/*FUNCTION KML_GroundOverlay::DeepEcho {{{*/
    6257void  KML_GroundOverlay::DeepEcho(){
     
    6964}
    7065/*}}}*/
    71 
    7266/*FUNCTION KML_GroundOverlay::DeepEcho {{{*/
    7367void  KML_GroundOverlay::DeepEcho(const char* indent){
     
    9286}
    9387/*}}}*/
    94 
    9588/*FUNCTION KML_GroundOverlay::Write {{{*/
    9689void  KML_GroundOverlay::Write(FILE* filout,const char* indent){
     
    119112}
    120113/*}}}*/
    121 
    122114/*FUNCTION KML_GroundOverlay::Read {{{*/
    123115void  KML_GroundOverlay::Read(FILE* fid,char* kstr){
     
    174166}
    175167/*}}}*/
    176 
  • issm/trunk-jpl/src/c/objects/KML/KML_LatLonBox.cpp

    r12512 r12513  
    6767/*FUNCTION KML_LatLonBox::DeepEcho {{{*/
    6868void  KML_LatLonBox::DeepEcho(const char* indent){
    69 
    70         bool  flag=true;
    7169
    7270        _printLine_(indent << "KML_LatLonBox:");
  • issm/trunk-jpl/src/c/shared/Numerics/OptimalSearch.cpp

    r12493 r12513  
    4242        fx1= (*f)(x1,optargs);
    4343        if (isnan(fx1)) _error2_("Function evaluation returned NaN");
    44         _printf_(VerboseControl(),"\n        Iteration         x           f(x)       Tolerance\n\n");
    45         _printf_(VerboseControl(),"        %s    %12.6g  %12.6g  %s","   N/A",x1,fx1,"         N/A\n");
     44        cout<<setprecision(5);
     45        if(VerboseControl()) _pprintLine_("");
     46        if(VerboseControl()) _pprintLine_("       Iteration         x           f(x)       Tolerance");
     47        if(VerboseControl()) _pprintLine_("");
     48        if(VerboseControl()) _pprintLine_("           N/A    "<<setw(12)<<x1<<"  "<<setw(12)<<fx1<<"           N/A");
    4649
    4750        //update tolerances
     
    5558                fx2 = (*f)(x2,optargs);
    5659                if (isnan(fx2)) _error2_("Function evaluation returned NaN");
    57                 _printf_(VerboseControl(),"         %5i    %12.6g  %12.6g  %12.6g\n",iter,x2,fx2,fabs(x2-x1)>fabs(fx2-fx1)?fabs(fx2-fx1):fabs(x2-x1));
     60                if(VerboseControl())
     61                 _pprintLine_("         "<<setw(5)<<iter<<"    "<<setw(12)<<x2<<"  "<<setw(12)<<fx2<<"  "<<(fabs(x2-x1)>fabs(fx2-fx1)?fabs(fx2-fx1):fabs(x2-x1)));
    5862
    5963                //Stop the optimization?
  • issm/trunk-jpl/src/c/solutions/controltao_core.cpp

    r12493 r12513  
    3030        int        nsteps,maxiter;
    3131        AppCtx     user;
    32         TaoSolver  tao;
     32        TaoSolver  tao = 0;
    3333        IssmDouble    *dummy          = NULL;
    3434        int       *control_list   = NULL;
     
    5353
    5454        /*Initialize TAO*/
     55        TaoCreate(PETSC_COMM_WORLD,&tao);
    5556        _printf_(VerboseControl(),"%s\n","   Initializing the Toolkit for Advanced Optimization (TAO)");
    56         TaoCreate(PETSC_COMM_WORLD,&tao);
    5757        TaoSetFromOptions(tao);
    5858        TaoSetType(tao,"tao_blmvm");
     
    165165        if(its==0) _printf_(true,"Iter       Function      Residual  |  List of contributions\n");
    166166        if(its==0) _printf_(true,"-----------------------------------+-----------------------\n");
    167         _printf_(true,"%4i   %12.7g  %12.7g  | ",its,f,gnorm);
     167        _pprintString_(setw(4)<<its<<"   "<<setw(12)<<setprecision(7)<<f<<"  "<<setw(12)<<setprecision(7)<<gnorm<<"  | ");
    168168
    169169        /*Retrieve objective functions independently*/
    170170        for(i=0;i<num_responses;i++){
    171171                Responsex(&f,femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,EnumToStringx(responses[i]),false,i);
    172                 _printf_(true," %12.7g ","",f);
     172                _pprintString_(" "<<setw(12)<<setprecision(7)<<f);
    173173        }
    174         _printf_(true,"\n");
     174        _pprintLine_("");
    175175
    176176        /*Clean-up and return*/
Note: See TracChangeset for help on using the changeset viewer.