/[escript]/branches/arrexp_2137_win/escript/src/DataTagged.cpp
ViewVC logotype

Diff of /branches/arrexp_2137_win/escript/src/DataTagged.cpp

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

trunk/escript/src/DataTagged.cpp revision 983 by gross, Tue Feb 20 02:49:08 2007 UTC temp/escript/src/DataTagged.cpp revision 1387 by trankine, Fri Jan 11 07:45:26 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>  #include <netcdfcpp.h>
22    #endif
23    
24  using namespace std;  using namespace std;
25    
# Line 555  DataTagged::eigenvalues_and_eigenvectors Line 558  DataTagged::eigenvalues_and_eigenvectors
558  }  }
559    
560  void  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  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;     const int ldims=DataArrayView::maxRank+1;
574     const NcDim* ncdims[ldims];     const NcDim* ncdims[ldims];
575     NcVar *var, *tags_var;     NcVar *var, *tags_var;
# Line 564  DataTagged::dump(const std::string fileN Line 577  DataTagged::dump(const std::string fileN
577     int type=  getFunctionSpace().getTypeCode();     int type=  getFunctionSpace().getTypeCode();
578     int ndims =0;     int ndims =0;
579     long dims[ldims];     long dims[ldims];
580       const double* d_ptr=&(m_data[0]);
581     DataArrayView::ShapeType shape = getPointDataView().getShape();     DataArrayView::ShapeType shape = getPointDataView().getShape();
582    
583     // netCDF error handler     // netCDF error handler
# Line 573  DataTagged::dump(const std::string fileN Line 587  DataTagged::dump(const std::string fileN
587     // check if writing was successful     // check if writing was successful
588     if (!dataFile.is_valid())     if (!dataFile.is_valid())
589          throw DataException("Error - DataTagged:: opening of netCDF file for output failed.");          throw DataException("Error - DataTagged:: opening of netCDF file for output failed.");
590     if (!dataFile.add_att("type","tagged") )     if (!dataFile.add_att("type_id",1) )
591          throw DataException("Error - DataTagged:: appending data type to netCDF file failed.");          throw DataException("Error - DataTagged:: appending data type to netCDF file failed.");
592     if (!dataFile.add_att("rank",rank) )     if (!dataFile.add_att("rank",rank) )
593          throw DataException("Error - DataTagged:: appending rank attribute to netCDF file failed.");          throw DataException("Error - DataTagged:: appending rank attribute to netCDF file failed.");
# Line 605  DataTagged::dump(const std::string fileN Line 619  DataTagged::dump(const std::string fileN
619     DataTagged::DataMapType::const_iterator thisLookupEnd=thisLookup.end();     DataTagged::DataMapType::const_iterator thisLookupEnd=thisLookup.end();
620     int ntags=1;     int ntags=1;
621     for (i=thisLookup.begin();i!=thisLookupEnd;i++) ntags++;     for (i=thisLookup.begin();i!=thisLookupEnd;i++) ntags++;
622     int tags[ntags], c=1;     int* tags =(int*) malloc(ntags*sizeof(int));
623       int c=1;
624     tags[0]=-1;     tags[0]=-1;
625     for (i=thisLookup.begin();i!=thisLookupEnd;i++) tags[c++]=i->first;     for (i=thisLookup.begin();i!=thisLookupEnd;i++) tags[c++]=i->first;
626     dims[rank]=ntags;     dims[rank]=ntags;
627     if (! (ncdims[rank] = dataFile.add_dim("num_tags", dims[rank])) )     if (! (ncdims[rank] = dataFile.add_dim("num_tags", dims[rank])) )
628              throw DataException("Error - DataTagged:: appending num_tags to netCDF file failed.");     {
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])) )     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.");          throw DataException("Error - DataTagged:: appending tags to netCDF file failed.");
636       }
637     if (! (tags_var->put(tags,dims[rank])) )     if (! (tags_var->put(tags,dims[rank])) )
638       {
639        free(tags);
640          throw DataException("Error - DataTagged:: copy tags to netCDF buffer failed.");          throw DataException("Error - DataTagged:: copy tags to netCDF buffer failed.");
641       }
642     if (! ( var = dataFile.add_var("data", ncDouble, ndims, ncdims)) )     if (! ( var = dataFile.add_var("data", ncDouble, ndims, ncdims)) )
643       {
644        free(tags);
645          throw DataException("Error - DataTagged:: appending variable to netCDF file failed.");          throw DataException("Error - DataTagged:: appending variable to netCDF file failed.");
646     if (! (var->put(&m_data[0],dims)) )     }
647       if (! (var->put(d_ptr,dims)) )
648       {
649        free(tags);
650          throw DataException("Error - DataTagged:: copy data to netCDF buffer failed.");          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.983  
changed lines
  Added in v.1387

  ViewVC Help
Powered by ViewVC 1.1.26