optimisation/src/affecter_materiau.cpp

//function pour l'affectation des matériaux
//selon les groupes de mailles
#include "write_num.h"
#include "bib_0000.h"

void affecter_materiau(ulong niveau,vifl *nmailleniv)
{


char buffer[10000];
char NUM[10];
FILE *fic_materiau =fopen("./materiau2.comm","wt");

sprintf(buffer,"\nCHMAT=AFFE_MATERIAU(MAILLAGE=MAIL,  AFFE = (");

  for (ulong i = 1;i<=niveau;i++)
  {
    if (nmailleniv[i] != 0.)
    {
      write_num(i,NUM);
      sprintf(buffer,"%s\n           _F(GROUP_MA='GM_%s',MATER= MA_%s ),",buffer,NUM,NUM);
    }
  }

sprintf(buffer,"%s ),);",buffer);

fprintf(fic_materiau, "%s\n",buffer);

fclose(fic_materiau);

}
Revision:	209
Committed:	Mon Jul 27 13:53:35 2009 UTC (15 years, 9 months ago) by picher
File size:	631 byte(s)
Log Message:	Mise a jour mineure de la methode d'optimisation
#	Content
1	//function pour l'affectation des matériaux
2	//selon les groupes de mailles
3	#include "write_num.h"
4	#include "bib_0000.h"
5
6	void affecter_materiau(ulong niveau,vifl *nmailleniv)
7	{
8
9
10	char buffer[10000];
11	char NUM[10];
12	FILE *fic_materiau =fopen("./materiau2.comm","wt");
13
14	sprintf(buffer,"\nCHMAT=AFFE_MATERIAU(MAILLAGE=MAIL, AFFE = (");
15
16	for (ulong i = 1;i<=niveau;i++)
17	{
18	if (nmailleniv[i] != 0.)
19	{
20	write_num(i,NUM);
21	sprintf(buffer,"%s\n _F(GROUP_MA='GM_%s',MATER= MA_%s ),",buffer,NUM,NUM);
22	}
23	}
24
25	sprintf(buffer,"%s ),);",buffer);
26
27	fprintf(fic_materiau, "%s\n",buffer);
28
29	fclose(fic_materiau);
30
31	}