Herezh_dev/Tableaux/Tableau_5D.cc

// This file is part of the Herezh++ application.
//
// The finite element software Herezh++ is dedicated to the field
// of mechanics for large transformations of solid structures.
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
//
// Herezh++ is distributed under GPL 3 license ou ultérieure.
//
// Copyright (C) 1997-2022 Université Bretagne Sud (France)
// AUTHOR : Gérard Rio
// E-MAIL  : gerardrio56@free.fr
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License,
// or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <https://www.gnu.org/licenses/>.
//
// For more information, please consult: <https://herezh.irdl.fr/>.

// FICHIER : Tableau_5D.cp
// CLASSE : Tableau_5D


#include <iostream>
using namespace std;
#include <stdlib.h>


#include "Tableau_5D.h"


Tableau_5D::Tableau_5D ()
// Constructeur par defaut
{
	
	dim1=0;
	dim2=0;
	dim3=0;
	dim4=0;
	dim5=0;
	t=NULL;
	
};

Tableau_5D::Tableau_5D (int d1,int d2,int d3,int d4,int d5,double val)
// Constructeur utile quand les cinq dimensions ainsi qu'une 
// eventuelle valeur d'initialisation sont connues 
{
	
	if ( ( d1<0 ) || ( d2<0 ) || ( d3<0 ) || ( d4<0 ) || ( d5<0 ) )
	{
		cout << "\nErreur : taille(s) invalide(s) !\n";
		cout << "TABLEAU_5D::TABLEAU_5D(int ,int ,int ,int ,int ,double ) \n";
		exit(1);
	};
	if ( ( d1==0 ) || ( d2==0 ) || ( d3==0 ) || ( d4==0 ) || ( d5==0 ) )
	// cas ou une des dimensions est nulle : initialisation identique
	// a l'appel du constructeur par defaut
	{
		dim1=0;
		dim2=0;
		dim3=0;
		dim4=0;
		dim5=0;
		t=NULL;
	}
	else
	// autres cas
	{
		dim1=d1;
		dim2=d2;
		dim3=d3;
		dim4=d4;
		dim5=d5;
		t=new double [d1*d2*d3*d4*d5]; // allocation dynamique de la memoire
		Initialise(val); // initialisation des composantes a val
	};
	
};

Tableau_5D::Tableau_5D (const Tableau_5D& tab)
// Constructeur de copie
{
	
	if ( tab.dim1==0 )
	// cas ou le tableau copie est vide : initialisation 
	// identique a l'appel du constructeur par defaut
	{
		dim1=0;
		dim2=0;
		dim3=0;
		dim4=0;
		dim5=0;
		t=NULL;
	}
	else
	{
		dim1=tab.dim1;
		dim2=tab.dim2;
		dim3=tab.dim3;
		dim4=tab.dim4;
		dim5=tab.dim5;
		t=new double [dim1*dim2*dim3*dim4*dim5]; // allocation dynamique de la memoire
		double* ptr1=t;
		double* ptr2=tab.t;
		for (int i=0;i<dim1;i++)
		{
			for (int j=0;j<dim2;j++)
			{
				for (int k=0;k<dim3;k++)
				{
					for (int l=0;l<dim4;l++)
					{
						for (int m=0;m<dim5;m++)
						{
							(*ptr1++)=(*ptr2++); // copie des composantes du tableau tab
						}; // endfor m
					}; // endfor l
				}; // endfor k
			}; // endfor j
		}; // endfor i
	};
	
};

Tableau_5D::~Tableau_5D ()
// Destructeur (N.B. : Apres l'appel de ce destructeur le tableau est identique
// a ce qu'il aurait ete a la suite d'un appel du constructeur par defaut)
{
	
	Libere();
	
};

void
Tableau_5D::Initialise (double val)
// Initialisation des composantes du tableau a cinq dimensions
{
	
	double* ptr=t;
	for (int i=0;i<dim1;i++)
	{
		for (int j=0;j<dim2;j++)
		{
			for (int k=0;k<dim3;k++)
			{
				for (int l=0;l<dim4;l++)
				{
					for (int m=0;m<dim5;m++)
					{
						(*ptr++)=val; // initialisation des composantes a val
					}; // endfor m
				}; // endfor l
			}; // endfor k
		}; // endfor j
	}; // endfor i
		
};
	
void 
Tableau_5D::Libere ()
// Apres l'appel de cette methode le tableau est identique a ce qu'il
// aurait ete a la suite d'un appel du constructeur par defaut
{
	
	if ( dim1>0 )
		delete [] t; // desallocation de la place memoire
	else
	{
		if ( t!=NU