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
#	User	Rev	Content
1	picher	199	//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	picher	209	}