// @(#)root/cont:$Id$
// Author: Rene Brun   06/03/95

/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/

//////////////////////////////////////////////////////////////////////////
//                                                                      //
// TArrayD                                                              //
//                                                                      //
// Array of doubles (64 bits per element).                              //
//                                                                      //
//////////////////////////////////////////////////////////////////////////

#include "TArrayD.h"
#include "TBuffer.h"


ClassImp(TArrayD)

//______________________________________________________________________________
TArrayD::TArrayD()
{
   // Default TArrayD ctor.

   fArray = 0;
}

//______________________________________________________________________________
TArrayD::TArrayD(Int_t n)
{
   // Create TArrayD object and set array size to n doubles.

   fArray = 0;
   if (n > 0) Set(n);
}

//______________________________________________________________________________
TArrayD::TArrayD(Int_t n, const Double_t *array)
{
   // Create TArrayD object and initialize it with values of array.

   fArray = 0;
   Set(n, array);
}

//______________________________________________________________________________
TArrayD::TArrayD(const TArrayD &array) : TArray(array)
{
   // Copy constructor.

   fArray = 0;
   Set(array.fN, array.fArray);
}

//______________________________________________________________________________
TArrayD &TArrayD::operator=(const TArrayD &rhs)
{
   // TArrayD assignment operator.

   if (this != &rhs)
      Set(rhs.fN, rhs.fArray);
   return *this;
}

//______________________________________________________________________________
TArrayD::~TArrayD()
{
   // Delete TArrayD object.

   delete [] fArray;
   fArray = 0;
}

//______________________________________________________________________________
void TArrayD::Adopt(Int_t n, Double_t *arr)
{
   // Adopt array arr into TArrayD, i.e. don't copy arr but use it directly
   // in TArrayD. User may not delete arr, TArrayD dtor will do it.

   if (fArray)
      delete [] fArray;

   fN     = n;
   fArray = arr;
}

//______________________________________________________________________________
void TArrayD::AddAt(Double_t c, Int_t i)
{
   // Add double c at position i. Check for out of bounds.

   if (!BoundsOk("TArrayD::AddAt", i)) return;
   fArray[i] = c;
}

//______________________________________________________________________________
void TArrayD::Set(Int_t n)
{
   // Set size of this array to n doubles.
   // A new array is created, the old contents copied to the new array,
   // then the old array is deleted.
   // This function should not be called if the array was declared via Adopt.

   if (n < 0) return;
   if (n != fN) {
      Double_t *temp = fArray;
      if (n != 0) {
         fArray = new Double_t[n];
         if (n < fN) memcpy(fArray,temp, n*sizeof(Double_t));
         else {
            memcpy(fArray,temp,fN*sizeof(Double_t));
            memset(&fArray[fN],0,(n-fN)*sizeof(Double_t));
         }
      } else {
         fArray = 0;
      }
      if (fN) delete [] temp;
      fN = n;
   }
}

//______________________________________________________________________________
void TArrayD::Set(Int_t n, const Double_t *array)
{
   // Set size of this array to n doubles and set the contents
   // This function should not be called if the array was declared via Adopt.

   if (fArray && fN != n) {
      delete [] fArray;
      fArray = 0;
   }
   fN = n;
   if (fN == 0) return;
   if (array == 0) return;
   if (!fArray) fArray = new Double_t[fN];
   memmove(fArray, array, n*sizeof(Double_t));
}

//_______________________________________________________________________
void TArrayD::Streamer(TBuffer &b)
{
   // Stream a TArrayD object.

   if (b.IsReading()) {
      Int_t n;
      b >> n;
      Set(n);
      b.ReadFastArray(fArray,n);
   } else {
      b << fN;
      b.WriteFastArray(fArray, fN);
   }
}

 TArrayD.cxx:1
 TArrayD.cxx:2
 TArrayD.cxx:3
 TArrayD.cxx:4
 TArrayD.cxx:5
 TArrayD.cxx:6
 TArrayD.cxx:7
 TArrayD.cxx:8
 TArrayD.cxx:9
 TArrayD.cxx:10
 TArrayD.cxx:11
 TArrayD.cxx:12
 TArrayD.cxx:13
 TArrayD.cxx:14
 TArrayD.cxx:15
 TArrayD.cxx:16
 TArrayD.cxx:17
 TArrayD.cxx:18
 TArrayD.cxx:19
 TArrayD.cxx:20
 TArrayD.cxx:21
 TArrayD.cxx:22
 TArrayD.cxx:23
 TArrayD.cxx:24
 TArrayD.cxx:25
 TArrayD.cxx:26
 TArrayD.cxx:27
 TArrayD.cxx:28
 TArrayD.cxx:29
 TArrayD.cxx:30
 TArrayD.cxx:31
 TArrayD.cxx:32
 TArrayD.cxx:33
 TArrayD.cxx:34
 TArrayD.cxx:35
 TArrayD.cxx:36
 TArrayD.cxx:37
 TArrayD.cxx:38
 TArrayD.cxx:39
 TArrayD.cxx:40
 TArrayD.cxx:41
 TArrayD.cxx:42
 TArrayD.cxx:43
 TArrayD.cxx:44
 TArrayD.cxx:45
 TArrayD.cxx:46
 TArrayD.cxx:47
 TArrayD.cxx:48
 TArrayD.cxx:49
 TArrayD.cxx:50
 TArrayD.cxx:51
 TArrayD.cxx:52
 TArrayD.cxx:53
 TArrayD.cxx:54
 TArrayD.cxx:55
 TArrayD.cxx:56
 TArrayD.cxx:57
 TArrayD.cxx:58
 TArrayD.cxx:59
 TArrayD.cxx:60
 TArrayD.cxx:61
 TArrayD.cxx:62
 TArrayD.cxx:63
 TArrayD.cxx:64
 TArrayD.cxx:65
 TArrayD.cxx:66
 TArrayD.cxx:67
 TArrayD.cxx:68
 TArrayD.cxx:69
 TArrayD.cxx:70
 TArrayD.cxx:71
 TArrayD.cxx:72
 TArrayD.cxx:73
 TArrayD.cxx:74
 TArrayD.cxx:75
 TArrayD.cxx:76
 TArrayD.cxx:77
 TArrayD.cxx:78
 TArrayD.cxx:79
 TArrayD.cxx:80
 TArrayD.cxx:81
 TArrayD.cxx:82
 TArrayD.cxx:83
 TArrayD.cxx:84
 TArrayD.cxx:85
 TArrayD.cxx:86
 TArrayD.cxx:87
 TArrayD.cxx:88
 TArrayD.cxx:89
 TArrayD.cxx:90
 TArrayD.cxx:91
 TArrayD.cxx:92
 TArrayD.cxx:93
 TArrayD.cxx:94
 TArrayD.cxx:95
 TArrayD.cxx:96
 TArrayD.cxx:97
 TArrayD.cxx:98
 TArrayD.cxx:99
 TArrayD.cxx:100
 TArrayD.cxx:101
 TArrayD.cxx:102
 TArrayD.cxx:103
 TArrayD.cxx:104
 TArrayD.cxx:105
 TArrayD.cxx:106
 TArrayD.cxx:107
 TArrayD.cxx:108
 TArrayD.cxx:109
 TArrayD.cxx:110
 TArrayD.cxx:111
 TArrayD.cxx:112
 TArrayD.cxx:113
 TArrayD.cxx:114
 TArrayD.cxx:115
 TArrayD.cxx:116
 TArrayD.cxx:117
 TArrayD.cxx:118
 TArrayD.cxx:119
 TArrayD.cxx:120
 TArrayD.cxx:121
 TArrayD.cxx:122
 TArrayD.cxx:123
 TArrayD.cxx:124
 TArrayD.cxx:125
 TArrayD.cxx:126
 TArrayD.cxx:127
 TArrayD.cxx:128
 TArrayD.cxx:129
 TArrayD.cxx:130
 TArrayD.cxx:131
 TArrayD.cxx:132
 TArrayD.cxx:133
 TArrayD.cxx:134
 TArrayD.cxx:135
 TArrayD.cxx:136
 TArrayD.cxx:137
 TArrayD.cxx:138
 TArrayD.cxx:139
 TArrayD.cxx:140
 TArrayD.cxx:141
 TArrayD.cxx:142
 TArrayD.cxx:143
 TArrayD.cxx:144
 TArrayD.cxx:145
 TArrayD.cxx:146
 TArrayD.cxx:147
 TArrayD.cxx:148
 TArrayD.cxx:149
 TArrayD.cxx:150
 TArrayD.cxx:151
 TArrayD.cxx:152
 TArrayD.cxx:153
 TArrayD.cxx:154
 TArrayD.cxx:155
 TArrayD.cxx:156
 TArrayD.cxx:157
 TArrayD.cxx:158
 TArrayD.cxx:159
 TArrayD.cxx:160