/[escript]/trunk/escript/src/DataTagged.cpp
ViewVC logotype

Diff of /trunk/escript/src/DataTagged.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 800 by gross, Tue Aug 8 11:23:18 2006 UTC revision 1388 by trankine, Fri Jan 11 07:45:58 2008 UTC
# Line 1  Line 1 
 // $Id$  
1    
2  /*  /* $Id$ */
3   ************************************************************  
4   *          Copyright 2006 by ACcESS MNRF                   *  /*******************************************************
5   *                                                          *   *
6   *              http://www.access.edu.au                    *   *           Copyright 2003-2007 by ACceSS MNRF
7   *       Primary Business: Queensland, Australia            *   *       Copyright 2007 by University of Queensland
8   *  Licensed under the Open Software License version 3.0    *   *
9   *     http://www.opensource.org/licenses/osl-3.0.php       *   *                http://esscc.uq.edu.au
10   *                                                          *   *        Primary Business: Queensland, Australia
11   ************************************************************   *  Licensed under the Open Software License version 3.0
12  */   *     http://www.opensource.org/licenses/osl-3.0.php
13     *
14     *******************************************************/
15    
16  #include "DataTagged.h"  #include "DataTagged.h"
17    
18  #include "DataConstant.h"  #include "DataConstant.h"
19  #include "DataException.h"  #include "DataException.h"
20    #ifdef USE_NETCDF
21    #include <netcdfcpp.h>
22    #endif
23    
24  using namespace std;  using namespace std;
25    
# Line 131  DataTagged::DataTagged(const DataConstan Line 135  DataTagged::DataTagged(const DataConstan
135    setPointDataView(temp);    setPointDataView(temp);
136  }  }
137    
 void  
 DataTagged::reshapeDataPoint(const DataArrayView::ShapeType& shape)  
 {  
   // can only reshape a rank zero data point  
   if (getPointDataView().getRank()!=0) {  
     stringstream temp;  
     temp << "Error - Can only reshape Data with data points of rank 0. "  
      << "This Data has data points with rank: "  
      << getPointDataView().getRank();  
     throw DataException(temp.str());  
   }  
   
   // allocate enough space for all values  
   DataArrayView::ValueType newData(DataArrayView::noValues(shape)*(m_offsetLookup.size()+1));  
   DataArrayView newView(newData,shape);  
   newView.copy(0,getDefaultValue()());  
   
   // loop through the tag values  
   DataMapType::iterator pos;  
   DataArrayView::ValueType::size_type tagOffset=DataArrayView::noValues(shape);  
   for (pos=m_offsetLookup.begin();pos!=m_offsetLookup.end();pos++){  
     newView.copy(tagOffset,m_data[pos->second]);  
     pos->second=tagOffset;  
     tagOffset+=DataArrayView::noValues(shape);  
   }  
   m_data=newData;  
   DataArrayView temp(m_data,shape);  
   setPointDataView(temp);  
 }  
   
138  DataAbstract*  DataAbstract*
139  DataTagged::getSlice(const DataArrayView::RegionType& region) const  DataTagged::getSlice(const DataArrayView::RegionType& region) const
140  {  {
# Line 517  DataTagged::transpose(DataAbstract* ev, Line 491  DataTagged::transpose(DataAbstract* ev,
491  }  }
492    
493  void  void
494  DataTagged::swap(DataAbstract* ev, int axis_offset)  DataTagged::swapaxes(DataAbstract* ev, int axis0, int axis1)
495  {  {
496    DataTagged* temp_ev=dynamic_cast<DataTagged*>(ev);    DataTagged* temp_ev=dynamic_cast<DataTagged*>(ev);
497    if (temp_ev==0) {    if (temp_ev==0) {
498      throw DataException("Error - DataTagged::swap casting to DataTagged failed (probably a programming error).");      throw DataException("Error - DataTagged::swapaxes casting to DataTagged failed (probably a programming error).");
499    }    }
500    const DataTagged::DataMapType& thisLookup=getTagLookup();    const DataTagged::DataMapType& thisLookup=getTagLookup();
501    DataTagged::DataMapType::const_iterator i;    DataTagged::DataMapType::const_iterator i;
# Line 530  DataTagged::swap(DataAbstract* ev, int a Line 504  DataTagged::swap(DataAbstract* ev, int a
504        temp_ev->addTaggedValue(i->first,temp_ev->getDefaultValue());        temp_ev->addTaggedValue(i->first,temp_ev->getDefaultValue());
505        DataArrayView thisView=getDataPointByTag(i->first);        DataArrayView thisView=getDataPointByTag(i->first);
506        DataArrayView evView=temp_ev->getDataPointByTag(i->first);        DataArrayView evView=temp_ev->getDataPointByTag(i->first);
507        DataArrayView::swap(thisView,0,evView,0, axis_offset);        DataArrayView::swapaxes(thisView,0,evView,0,axis0,axis1);
508    }    }
509    DataArrayView::swap(getDefaultValue(),0,temp_ev->getDefaultValue(),0,axis_offset);    DataArrayView::swapaxes(getDefaultValue(),0,temp_ev->getDefaultValue(),0,axis0,axis1);
510  }  }
511    
512  void  void
# Line 583  DataTagged::eigenvalues_and_eigenvectors Line 557  DataTagged::eigenvalues_and_eigenvectors
557    
558  }  }
559    
560    void
561    DataTagged::setToZero(){
562        DataArrayView::ValueType::size_type n=m_data.size();
563        for (int i=0; i<n ;++i) m_data[i]=0.;
564    }
565    
566    void
567    DataTagged::dump(const std::string fileName) const
568    {
569       #ifdef PASO_MPI
570       throw DataException("Error - DataTagged:: dump is not implemented for MPI yet.");
571       #endif
572       #ifdef USE_NETCDF
573       const int ldims=DataArrayView::maxRank+1;
574       const NcDim* ncdims[ldims];
575       NcVar *var, *tags_var;
576       int rank = getPointDataView().getRank();
577       int type=  getFunctionSpace().getTypeCode();
578       int ndims =0;
579       long dims[ldims];
580       const double* d_ptr=&(m_data[0]);
581       DataArrayView::ShapeType shape = getPointDataView().getShape();
582    
583       // netCDF error handler
584       NcError err(NcError::verbose_nonfatal);
585       // Create the file.
586       NcFile dataFile(fileName.c_str(), NcFile::Replace);
587       // check if writing was successful
588       if (!dataFile.is_valid())
589            throw DataException("Error - DataTagged:: opening of netCDF file for output failed.");
590       if (!dataFile.add_att("type_id",1) )
591            throw DataException("Error - DataTagged:: appending data type to netCDF file failed.");
592       if (!dataFile.add_att("rank",rank) )
593            throw DataException("Error - DataTagged:: appending rank attribute to netCDF file failed.");
594       if (!dataFile.add_att("function_space_type",type))
595            throw DataException("Error - DataTagged:: appending function space attribute to netCDF file failed.");
596       ndims=rank+1;
597       if ( rank >0 ) {
598           dims[0]=shape[0];
599           if (! (ncdims[0] = dataFile.add_dim("d0",shape[0])) )
600                throw DataException("Error - DataTagged:: appending ncdimsion 0 to netCDF file failed.");
601       }
602       if ( rank >1 ) {
603           dims[1]=shape[1];
604           if (! (ncdims[1] = dataFile.add_dim("d1",shape[1])) )
605                throw DataException("Error - DataTagged:: appending ncdimsion 1 to netCDF file failed.");
606       }
607       if ( rank >2 ) {
608           dims[2]=shape[2];
609           if (! (ncdims[2] = dataFile.add_dim("d2", shape[2])) )
610                throw DataException("Error - DataTagged:: appending ncdimsion 2 to netCDF file failed.");
611       }
612       if ( rank >3 ) {
613           dims[3]=shape[3];
614           if (! (ncdims[3] = dataFile.add_dim("d3", shape[3])) )
615                throw DataException("Error - DataTagged:: appending ncdimsion 3 to netCDF file failed.");
616       }
617       const DataTagged::DataMapType& thisLookup=getTagLookup();
618       DataTagged::DataMapType::const_iterator i;
619       DataTagged::DataMapType::const_iterator thisLookupEnd=thisLookup.end();
620       int ntags=1;
621       for (i=thisLookup.begin();i!=thisLookupEnd;i++) ntags++;
622       int* tags =(int*) malloc(ntags*sizeof(int));
623       int c=1;
624       tags[0]=-1;
625       for (i=thisLookup.begin();i!=thisLookupEnd;i++) tags[c++]=i->first;
626       dims[rank]=ntags;
627       if (! (ncdims[rank] = dataFile.add_dim("num_tags", dims[rank])) )
628       {
629           free(tags);
630               throw DataException("Error - DataTagged:: appending num_tags to netCDF file failed.");
631       }
632       if (! ( tags_var = dataFile.add_var("tags", ncInt, ncdims[rank])) )
633       {
634        free(tags);
635            throw DataException("Error - DataTagged:: appending tags to netCDF file failed.");
636       }
637       if (! (tags_var->put(tags,dims[rank])) )
638       {
639        free(tags);
640            throw DataException("Error - DataTagged:: copy tags to netCDF buffer failed.");
641       }
642       if (! ( var = dataFile.add_var("data", ncDouble, ndims, ncdims)) )
643       {
644        free(tags);
645            throw DataException("Error - DataTagged:: appending variable to netCDF file failed.");
646       }
647       if (! (var->put(d_ptr,dims)) )
648       {
649        free(tags);
650            throw DataException("Error - DataTagged:: copy data to netCDF buffer failed.");
651       }
652       #else
653       throw DataException("Error - DataTagged:: dump is not configured with netCDF. Please contact your installation manager.");
654       #endif
655    }
656  }  // end of namespace  }  // end of namespace

Legend:
Removed from v.800  
changed lines
  Added in v.1388

  ViewVC Help
Powered by ViewVC 1.1.26