analyse_part.c File Reference

#include "hardware.inc"
#include <stdio.h>
#include <stdlib.h>
#include "analyse_name.inc"
#include "analyse.h"
#include "analyse_part.h"

Go to the source code of this file.

Macros
#define	_FCALL

Functions
void	analyse_part_scan (int *tab_id)
void	apartscan (int *itab)
void	apartscan_ (int *itab)
void	apartscan__ (int *itab)
void _FCALL	APARTSCAN (int *itab)
void	analyse_part_set (int part_id, int type)
void	apartset (int *id, int *type)
void	apartset_ (int *id, int *type)
void	apartset__ (int *id, int *type)
void _FCALL	APARTSET (int *id, int *type)
static void	analyse_part_tab_init (int nb)
void	apartin (int *nb)
void	apartin_ (int *nb)
void	apartin__ (int *nb)
void _FCALL	APARTIN (int *nb)

Variables
static int	NB_PART
static int *	TAB_PART

Macro Definition Documentation

_FCALL

#define _FCALL

Definition at line 34 of file analyse_part.c.

Function Documentation

analyse_part_scan()

void analyse_part_scan

(

int *

tab_id

)

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	part_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;
    }
}

analyse_part_tab_init()

void analyse_part_tab_init ( int nb )

static

Definition at line 135 of file analyse_part.c.

{
  int i;
  
  TAB_PART = (int *) malloc(sizeof(int)*nb);
  NB_PART = nb;
 
  for(i=0; i<NB_PART; i++)
    {
      TAB_PART[i] = 0;
    }
}

APARTIN()

void _FCALL APARTIN

(

int *

nb

)

Definition at line 164 of file analyse_part.c.

{
  analyse_part_tab_init( *nb);
}

apartin()

void apartin

(

int *

nb

)

Definition at line 148 of file analyse_part.c.

{
  analyse_part_tab_init( *nb);
}

apartin_()

void apartin_

(

int *

nb

)

Definition at line 153 of file analyse_part.c.

{
  analyse_part_tab_init( *nb);
}

apartin__()

void apartin__

(

int *

nb

)

Definition at line 158 of file analyse_part.c.

{
  analyse_part_tab_init( *nb);
}

APARTSCAN()

void _FCALL APARTSCAN

(

int *

itab

)

Definition at line 90 of file analyse_part.c.

{
  analyse_part_scan(itab);
}

apartscan()

void apartscan

(

int *

itab

)

Definition at line 74 of file analyse_part.c.

{
  analyse_part_scan(itab);
}

apartscan_()

void apartscan_

(

int *

itab

)

Definition at line 79 of file analyse_part.c.

{
  analyse_part_scan(itab);
}

apartscan__()

void apartscan__

(

int *

itab

)

Definition at line 84 of file analyse_part.c.

{
  analyse_part_scan(itab);
}

APARTSET()

void _FCALL APARTSET	(	int *	id,
		int *	type )

Definition at line 128 of file analyse_part.c.

{
  analyse_part_set(*id, *type);
}

apartset()

void apartset	(	int *	id,
		int *	type )

Definition at line 112 of file analyse_part.c.

{
  analyse_part_set(*id, *type);
}

apartset_()

void apartset_	(	int *	id,
		int *	type )

Definition at line 117 of file analyse_part.c.

{
  analyse_part_set(*id, *type);
}

apartset__()

void apartset__	(	int *	id,
		int *	type )

Definition at line 122 of file analyse_part.c.

{
  analyse_part_set(*id, *type);
}

Variable Documentation

NB_PART

int NB_PART

static

Definition at line 47 of file analyse_part.c.

TAB_PART

int* TAB_PART

static

Definition at line 48 of file analyse_part.c.