Changeset 18940

Timestamp:

12/04/14 15:23:56 (10 years ago)

Author:

Eric.Larour

Message:

CHG: issue with size of tape stats.

File:

• issm/trunk-jpl/src/c/cores/adgradient_core.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/cores/adgradient_core.cpp

@@ -53 +53 @@
                         /*First, stop tracing: */
                         trace_off();
+                        
+                        if(VerboseAutodiff()){ /*{{{*/
+                                size_t  tape_stats[15];
+                                tapestats(my_rank,tape_stats); //reading of tape statistics
+                                int commSize=IssmComm::GetSize();
+                                int *sstats=new int[7];
+                                sstats[0]=tape_stats[NUM_OPERATIONS];
+                                sstats[1]=tape_stats[OP_FILE_ACCESS];
+                                sstats[2]=tape_stats[NUM_LOCATIONS];
+                                sstats[3]=tape_stats[LOC_FILE_ACCESS];
+                                sstats[4]=tape_stats[NUM_VALUES];
+                                sstats[5]=tape_stats[VAL_FILE_ACCESS];
+                                sstats[6]=tape_stats[TAY_STACK_SIZE];
+                                int *rstats=NULL;
+                                if (my_rank==0) rstats=new int[commSize*7];
+                                ISSM_MPI_Gather(sstats,7,ISSM_MPI_INT,rstats,7,ISSM_MPI_INT,0,IssmComm::GetComm());
+                                if (my_rank==0) {
+                                        int offset=50;
+                                        int rOffset=(commSize/10)+1;
+                                        _printf_("   ADOLC statistics: \n");
+                                        _printf_("     "<<setw(offset)<<left<<"#independents: " <<setw(12)<<right<<tape_stats[NUM_INDEPENDENTS] << "\n");
+                                        _printf_("     "<<setw(offset)<<left<<"#dependents: " <<setw(12)<<right<<tape_stats[NUM_DEPENDENTS] << "\n");
+                                        _printf_("     "<<setw(offset)<<left<<"max #live active variables: " <<setw(12)<<right<<tape_stats[NUM_MAX_LIVES] << "\n");
+                                        _printf_("     operations: entry size "<< sizeof(unsigned char) << " Bytes \n");
+                                        _printf_("     "<<setw(offset)<<left<<"  #entries in buffer (AutodiffObufsizeEnum) " <<setw(12)<<right<<tape_stats[OP_BUFFER_SIZE] << "\n");
+                                        for (int r=0;r<commSize;++r)
+                                        _printf_("       ["<<setw(rOffset)<<right<<r<<"]"<<setw(offset-rOffset-4)<<left<<" #entries total" <<setw(12)<<right<<rstats[r*7+0] << (rstats[r*7+1]?" ->file":"") << "\n");
+                                        _printf_("     locations: entry size " << sizeof(locint) << " Bytes\n");
+                                        _printf_("     "<<setw(offset)<<left<<"  #entries in buffer (AutodiffLbufsizeEnum) " <<setw(12)<<right<<tape_stats[LOC_BUFFER_SIZE] << "\n");
+                                        for (int r=0;r<commSize;++r)
+                                        _printf_("       ["<<setw(rOffset)<<right<<r<<"]"<<setw(offset-rOffset-4)<<left<<" #entries total" <<setw(12)<<right<<rstats[r*7+2] << (rstats[r*7+3]?" ->file":"") << "\n");
+                                        _printf_("     constant values: entry size " << sizeof(double) << " Bytes\n");
+                                        _printf_("     "<<setw(offset)<<left<<"  #entries in buffer (AutodiffCbufsizeEnum) " <<setw(12)<<right<<tape_stats[VAL_BUFFER_SIZE] << "\n");
+                                        for (int r=0;r<commSize;++r)
+                                        _printf_("       ["<<setw(rOffset)<<right<<r<<"]"<<setw(offset-rOffset-4)<<left<<" #entries total" <<setw(12)<<right<<rstats[r*7+4] << (rstats[r*7+5]?" ->file":"") << "\n");
+                                        _printf_("     Taylor stack: entry size " << sizeof(revreal) << " Bytes\n");
+                                        _printf_("     "<<setw(offset)<<left<<"  #entries in buffer (AutodiffTbufsizeEnum) " <<setw(12)<<right<<tape_stats[TAY_BUFFER_SIZE] << "\n");
+                                        for (int r=0;r<commSize;++r)
+                                        _printf_("       ["<<setw(rOffset)<<right<<r<<"]"<<setw(offset-rOffset-4)<<left<<" #entries total" <<setw(12)<<right<<rstats[r*7+6] << (rstats[r*7+6]>tape_stats[TAY_BUFFER_SIZE]?" ->file":"") << "\n");
+                                        delete []rstats;
+                        }
+                        delete [] sstats;
+                } /*}}}*/
                 
                         /*retrieve parameters: */