307 lines
14 KiB
C
307 lines
14 KiB
C
|
|
// 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/>.
|
|
|
|
/************************************************************************
|
|
* UNIVERSITE DE BRETAGNE SUD (UBS) --- ENSIBS DE LORIENT *
|
|
************************************************************************
|
|
* IRDL - Equipe DE GENIE MECANIQUE ET MATERIAUX (EG2M) *
|
|
* Centre de Recherche Rue de Saint Maudé - 56325 Lorient cedex *
|
|
* tel. 02.97.87.45.70 fax. 02.97.87.45.72 http://www-lg2m.univ-ubs.fr *
|
|
************************************************************************
|
|
* DATE: 08/03/2005 *
|
|
* $ *
|
|
* AUTEUR: G RIO/H LAURENT (mailto:gerard.rio@univ-ubs.fr) *
|
|
* Tel 0297874571 fax : 02.97.87.45.72 *
|
|
* $ *
|
|
************************************************************************
|
|
* BUT: échange de structures de données: fortran Umat -> C++ *
|
|
* fonction C a implanter du coté d'abaqus (ou autre prog) *
|
|
* accés directe aux informations. *
|
|
* *
|
|
* $ *
|
|
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
|
|
* *
|
|
* VERIFICATION: *
|
|
* *
|
|
* ! date ! auteur ! but ! *
|
|
* ------------------------------------------------------------ *
|
|
* ! ! ! ! *
|
|
* $ *
|
|
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
|
|
* MODIFICATIONS: *
|
|
* ! date ! auteur ! but ! *
|
|
* 5 avril 2016 : G Rio : prise en compte des éléments axi *
|
|
* 17 janvier 2018 : G Rio : prise en compte des contraintes *
|
|
* planes et déformation planes. *
|
|
* ------------------------------------------------------------ *
|
|
* $ *
|
|
************************************************************************/
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <stdio.h>
|
|
#include <fcntl.h> /* Pour O_WRONLY, etc */
|
|
#include <unistd.h> /* pour les ordres read write close*/
|
|
|
|
/* définition d'une union qui lie les réels, les entiers et les caractères */
|
|
union Tab_car_double_int
|
|
{ char tampon[928];
|
|
double x[116];
|
|
int n[232];
|
|
} ;
|
|
Tab_car_double_int t_car_x_n;
|
|
|
|
/* --- def des variables globales (a commenter certaines si elles sont declarees autre part) */
|
|
/* nom du tube nommé pour l'envoi des donnees */
|
|
char* envoi="../Umat_envoi_Hz";
|
|
/* nom du tube nomme pour la reception des donnees */
|
|
char* reception="../Umat_reception_Hz";
|
|
/* -- declarations des variables de passages avec un nom assez long pour qu'il n'y ait pas */
|
|
/* -- de confusion avec les noms du programme appelant */
|
|
/* --- en sortie uniquement */
|
|
double* u_herezh_DDSDDT = &t_car_x_n.x[0]; /* 6 */
|
|
double* u_herezh_DRPLDE = &t_car_x_n.x[6]; /* 6 */
|
|
double* u_herezh_DDSDDE = &t_car_x_n.x[12]; /* 36 */
|
|
/* --- en entrée - sortie */
|
|
double* u_herezh_RPL = &t_car_x_n.x[48]; /* 1 */
|
|
double* u_herezh_STRESS = &t_car_x_n.x[49]; /* 6 */
|
|
double* u_herezh_SSE = &t_car_x_n.x[55]; /* 1 */
|
|
double* u_herezh_SPD = &t_car_x_n.x[56]; /* 1 */
|
|
double* u_herezh_SCD = &t_car_x_n.x[57]; /* 1 */
|
|
double* u_herezh_DRPLDT = &t_car_x_n.x[58]; /* 1 */
|
|
double* u_herezh_PNEWDT = &t_car_x_n.x[59]; /* 1 */
|
|
/* --- en entrée seulement */
|
|
double* u_herezh_STRAN = &t_car_x_n.x[60]; /* 6 */
|
|
double* u_herezh_DSTRAN = &t_car_x_n.x[66]; /* 6 */
|
|
double* u_herezh_TIME = &t_car_x_n.x[72]; /* 2 */
|
|
double* u_herezh_DTIME = &t_car_x_n.x[74]; /* 1 */
|
|
double* u_herezh_TemP = &t_car_x_n.x[75]; /* 1 */
|
|
double* u_herezh_DTEMP = &t_car_x_n.x[76]; /* 1 */
|
|
double* u_herezh_COORDS = &t_car_x_n.x[77]; /* 3 */
|
|
double* u_herezh_DROT = &t_car_x_n.x[80]; /* 9 */
|
|
double* u_herezh_CELENT = &t_car_x_n.x[89]; /* 1 */
|
|
double* u_herezh_DFGRD0 = &t_car_x_n.x[90]; /* 9 */
|
|
double* u_herezh_DFGRD1 = &t_car_x_n.x[99]; /* 9 */
|
|
|
|
int* u_herezh_NDI = &t_car_x_n.n[216]; /* 1 */
|
|
int* u_herezh_NSHR = &t_car_x_n.n[217]; /* 1 */
|
|
int* u_herezh_NTENS = &t_car_x_n.n[218]; /* 1 */
|
|
int* u_herezh_NSTATV = &t_car_x_n.n[219]; /* 1 */
|
|
int* u_herezh_NOEL = &t_car_x_n.n[220]; /* 1 */
|
|
int* u_herezh_NPT = &t_car_x_n.n[221]; /* 1 */
|
|
int* u_herezh_LAYER = &t_car_x_n.n[222]; /* 1 */
|
|
int* u_herezh_KSPT = &t_car_x_n.n[223]; /* 1 */
|
|
int* u_herezh_KSTEP = &t_car_x_n.n[224]; /* 1 */
|
|
int* u_herezh_KINC = &t_car_x_n.n[225]; /* 1 */
|
|
|
|
char* u_herezh_CMNAME = &t_car_x_n.tampon[904]; /* 24 */
|
|
|
|
|
|
/* --------------------- rappel des parametres de passage de la routine fortran ------------- */
|
|
|
|
/* SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
|
|
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
|
|
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,MATERL,NDI,NSHR,NTENS,
|
|
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
|
|
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
|
|
C
|
|
INCLUDE 'ABA_PARAM.INC'
|
|
C
|
|
CHARACTER*80 MATERL
|
|
DIMENSION STRESS(NTENS),STATEV(NSTATV),
|
|
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),
|
|
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),
|
|
3 PROPS(NPROPS),COORDS(3),DROT(3,3),
|
|
4 DFGRD0(3,3),DFGRD1(3,3)
|
|
C
|
|
DIMENSION EELAS(6),EPLAS(6),FLOW(6)
|
|
PARAMETER (ONE=1.0D0,TWO=2.0D0,THREE=3.0D0,SIX=6.0D0)
|
|
DATA NEWTON,TOLER/10,1.D-6/
|
|
*/
|
|
|
|
/* --------------------- fin rappel des parametres de passage de la routine fortran ------------- */
|
|
|
|
/* procedure de lecture de recuperation sur le pipe des infos calculees */
|
|
void LectureDonneesUmat(double* STRESS,double* DDSDDE
|
|
,double* SSE,double* SPD,double* SCD
|
|
,const int* NDI,const int* NSHR,const int* NTENS
|
|
,double* PNEWDT
|
|
,double* RPL,double* DDSDDT,double* DRPLDE,double* DRPLDT)
|
|
|
|
{
|
|
|
|
/* Creation d'un processus de reception des donnees */
|
|
int tub;
|
|
/* ouverture du tube nomme en lecture */
|
|
tub = open(envoi,O_RDONLY);
|
|
/* lecture dans le tampon */
|
|
read (tub,t_car_x_n.tampon,480);
|
|
close (tub); /* fermeture du tampon */
|
|
/* transformation de l'information
|
|
a priori *NDI + *NSHR = *NTENS, mais abaqus garde les 3 valeurs donc on se refere uniquement sur les 2
|
|
premieres donnees -> d'ou un test */
|
|
if ((*NDI == 3) && (*NSHR == 3))
|
|
{/* cas classique 3D */
|
|
int ij;
|
|
for (ij=0;ij<6;ij++)
|
|
{STRESS[ij] = u_herezh_STRESS[ij];
|
|
DDSDDT[ij] = u_herezh_DDSDDT[ij];
|
|
DRPLDE[ij] = u_herezh_DRPLDE[ij];
|
|
int kl;
|
|
for (kl=0;kl<6;kl++)
|
|
{int r=ij*6+kl;
|
|
DDSDDE[r] = u_herezh_DDSDDE[r];
|
|
};
|
|
};
|
|
}
|
|
else if ((*NDI == 2) && (*NSHR == 1))
|
|
{ /* cas des contraintes planes */
|
|
int ij;
|
|
for (ij=0;ij<3;ij++)
|
|
{ STRESS[ij] = u_herezh_STRESS[ij];
|
|
DDSDDT[ij] = u_herezh_DDSDDT[ij];
|
|
DRPLDE[ij] = u_herezh_DRPLDE[ij];
|
|
int kl;
|
|
for (kl=0;kl<3;kl++)
|
|
{int r=ij*3+kl;
|
|
DDSDDE[r] = u_herezh_DDSDDE[r];
|
|
};
|
|
};
|
|
}
|
|
else if ((*NDI == 3) && (*NSHR == 1))
|
|
{/* cas d'elements axisymetrique 3D */
|
|
int ij;
|
|
for (ij=0;ij<4;ij++)
|
|
{STRESS[ij] = u_herezh_STRESS[ij];
|
|
DDSDDT[ij] = u_herezh_DDSDDT[ij];
|
|
DRPLDE[ij] = u_herezh_DRPLDE[ij];
|
|
int kl;
|
|
for (kl=0;kl<4;kl++)
|
|
{int r=ij*4+kl;
|
|
DDSDDE[r] = u_herezh_DDSDDE[r];
|
|
};
|
|
};
|
|
};
|
|
*SSE = *u_herezh_SSE; *SPD = *u_herezh_SPD; *SCD = *u_herezh_SCD;
|
|
*PNEWDT = *u_herezh_PNEWDT;
|
|
*RPL = *u_herezh_RPL;
|
|
*DRPLDT = *u_herezh_DRPLDT;
|
|
};
|
|
|
|
union Tab_car_et_double
|
|
{ char tampon[21];
|
|
double truc[2];
|
|
} ;
|
|
|
|
/* procedure d'ecriture sur le pipe des infos passees par le programme principal */
|
|
void EcritureDonneesUmat(double* STRESS
|
|
,double* SSE,double* SPD,double* SCD
|
|
,const double* STRAN,const double* DSTRAN
|
|
,const double* TIME,const double* DTIME,const double* TemP,const double* DTEMP
|
|
,const char* CMNAME
|
|
,const int* NDI,const int* NSHR,const int* NTENS
|
|
,const int* NSTATV
|
|
,const double* COORDS,const double* DROT
|
|
,double* PNEWDT,const double* CELENT
|
|
,const double* DFGRD0,const double* DFGRD1
|
|
,const int* NOEL,const int* NPT,const int* LAYER
|
|
,const int* KSPT,const int* KSTEP,const int* KINC)
|
|
{
|
|
|
|
/* a priori *NDI + *NSHR = *NTENS, mais abaqus garde les 3 valeurs donc on se refere uniquement sur les 2
|
|
premieres donnees -> d'ou un test (que l'on pourrait sans doute eviter ) */
|
|
if ((*NDI == 3) && (*NSHR == 3))
|
|
{ /* cas classique 3D */
|
|
int ij;
|
|
for (ij=0;ij<6;ij++)
|
|
{u_herezh_STRESS[ij] = STRESS[ij];
|
|
u_herezh_STRAN[ij] = STRAN[ij];
|
|
u_herezh_DSTRAN[ij] = DSTRAN[ij];
|
|
};
|
|
}
|
|
else if ((*NDI == 2) && (*NSHR == 1))
|
|
{ /* cas des contraintes planes */
|
|
int ij;
|
|
for (ij=0;ij<3;ij++)
|
|
{u_herezh_STRESS[ij] = STRESS[ij];
|
|
u_herezh_STRAN[ij] = STRAN[ij];
|
|
u_herezh_DSTRAN[ij] = DSTRAN[ij];
|
|
};
|
|
}
|
|
else if ((*NDI == 3) && (*NSHR == 1))
|
|
{ /* cas d'éléments axisymétrique 3D */
|
|
int ij;
|
|
for (ij=0;ij<4;ij++)
|
|
{u_herezh_STRESS[ij] = STRESS[ij];
|
|
u_herezh_STRAN[ij] = STRAN[ij];
|
|
u_herezh_DSTRAN[ij] = DSTRAN[ij];
|
|
};
|
|
};
|
|
|
|
*u_herezh_SSE = *SSE; *u_herezh_SPD = *SPD; *u_herezh_SCD = *SCD;
|
|
*u_herezh_PNEWDT= *PNEWDT;
|
|
u_herezh_TIME[0]= TIME[0]; u_herezh_TIME[1]= TIME[1]; *u_herezh_DTIME = *DTIME;
|
|
*u_herezh_TemP = *TemP; *u_herezh_DTEMP = *DTEMP;
|
|
*u_herezh_NDI = *NDI; *u_herezh_NSHR = *NSHR; *u_herezh_NTENS = *NTENS; *u_herezh_NSTATV = *NSTATV;
|
|
int i;
|
|
for (i=0;i<3;i++)
|
|
{u_herezh_COORDS[i]= COORDS[i];
|
|
int j;
|
|
for (j=0;j<3;j++)
|
|
{int r=i*3+j;
|
|
u_herezh_DROT[r]= DROT[r]; u_herezh_DFGRD0[r]=DFGRD0[r]; u_herezh_DFGRD1[r]=DFGRD1[r];
|
|
}
|
|
};
|
|
*u_herezh_CELENT = *CELENT;
|
|
*u_herezh_NOEL = *NOEL; *u_herezh_NPT = *NPT; *u_herezh_LAYER = *LAYER; *u_herezh_KSPT = *KSPT;
|
|
*u_herezh_KSTEP = *KSTEP; *u_herezh_KINC = *KINC;
|
|
for (i=0;i<20;i++) u_herezh_CMNAME[i] = CMNAME[i];
|
|
|
|
/*cout << "\n *********** grandeurs expedier du sous prog c abaqus ************ ";
|
|
cout << "\n sigma_t "; for (int i=0;i<6;i++) cout << " ("<<i<<")=" << u_herezh_STRESS[i];
|
|
cout << "\n def "; for (int i=0;i<6;i++) cout << " ("<<i<<")=" << u_herezh_STRAN[i];
|
|
cout << "\n deltatdef "; for (int i=0;i<6;i++) cout << " ("<<i<<")=" << u_herezh_DSTRAN[i];
|
|
cout << "\n rotation "; for (int i=0;i<9;i++) cout << " ("<<i<<")=" << u_herezh_DROT[i];
|
|
cout << "\n gradiant_t "; for (int i=1;i<9;i++) cout << " ("<<i<<")=" << u_herezh_DFGRD0[i];
|
|
cout << "\n gradiant_tdt "; for (int i=1;i<9;i++) cout << " ("<<i<<")=" << u_herezh_DFGRD1[i];
|
|
cout << endl; */
|
|
/* Creation d'un processus de pour l'ecriture des donnees */
|
|
/* ouverture du tube nomme en ecriture */
|
|
printf("\n on ouvre le tube pour l'ecriture: sp essai");
|
|
int tub = open(reception,O_WRONLY);
|
|
/* ecriture dans le tampon */
|
|
/* en fait l'objectif est d'ecrire que les variables d'entrees ou */
|
|
/* d'entree sortie */
|
|
char* tampon_envoi = &(t_car_x_n.tampon[384]);
|
|
write (tub,tampon_envoi,544); /*sizeof(tampon)); */
|
|
close (tub); /* fermeture du tampon */
|
|
printf("\n fermeture du tampon: sp essai");
|
|
return;
|
|
};
|
|
|