analyse_part.h File Reference

Go to the source code of this file.

Functions
void	analyse_part_scan (int *itab)
void	analyse_part_set (int nod_id, int type)

Function Documentation

analyse_part_scan()

void analyse_part_scan

(

int *

itab

)

Definition at line 50 of file analyse_part.c.

{
  int i;
  int nbthick;
  int thick_shell_part = 0;
 
  for(i=0; i<NB_PART; i++)
    {
      /* Shell */
      nbthick = (TAB_PART[i] >> 0) & 0x1;
 
      if (nbthick == 1)
    {
      analyse_stack_int(*(tab_id + i*50 + (4-1)));
      analyse_call_error(AN_INFO, 461, ANINFO_BLIND_2);
 
      thick_shell_part++;
    }
    }
 
  analyse_stack_int(thick_shell_part);
  analyse_call_check(110);
}

analyse_part_set()

void analyse_part_set	(	int	nod_id,
		int	type )

Definition at line 96 of file analyse_part.c.

{
  /* 
     WARNING : START OF TAB IN FORTRAN AND C IS SHIFTED BY 1 :
     part_id = 1, is the first elt in model, this means tab_part[0] 
  */
  part_id = part_id - 1;
 
  switch(type)
    {
    case CHECK_THICK_SHELL:
      TAB_PART[part_id] = TAB_PART[part_id] | 0x1;
      break;
    }
}