al_szptr_.c File Reference

Miscellaneous of internal routines to convert sz pointers to integer pointers. More...

#include "al_hidden.h"

Include dependency graph for al_szptr_.c:

Go to the source code of this file.

Functions
int	AL_Init_stack_ ()
int	AL_Allocate_sz_ ()
int	AL_Deallocate_sz_ (int sz_ptr)
int	AL_Valid_ptr (int sz_ptr)

Variables
SZ *	sz_stack [AL_MAX_ARRAYS]
int	stack_ptr [AL_MAX_ARRAYS]
static int	stack_top
static int	stack_used

Detailed Description

Miscellaneous of internal routines to convert sz pointers to integer pointers.

Author

A. Malagoli (University of Chicago)

Date

Jul 17, 1999

Definition in file al_szptr_.c.

Function Documentation

int AL_Allocate_sz_

(

)

Return an integer pointer to an SZ stack entry.

Definition at line 58 of file al_szptr_.c.

{
  register int i;
  int sz_ptr; /* The returned pointer to the SZ array */

  sz_ptr = -1;

  /*
    First, search the stack for the first 
     available pointer 
  */
  for( i=0; i<AL_MAX_ARRAYS; i++){
    if( stack_ptr[i] == AL_STACK_FREE ){
      sz_ptr = i;
      stack_ptr[i] = AL_STACK_USED;
      break;
    }
  }

  /* 
     If the allocation did not fail, then proceed to
     allocate a SZ structure 
  */
  if( sz_ptr != -1 ){
    if( !(sz_stack[i] = (SZ *)malloc(sizeof(SZ))) ){
      printf("AL_Allocate_sz_: Failed to allocate SZ\n");
    }
  }

  /*
    If we were successful, then set sz.compiled to AL_FALSE,
    indicating the need for intialization.
  */
  sz_stack[sz_ptr]->compiled = AL_FALSE;

  return sz_ptr;

} 

Here is the caller graph for this function:

int AL_Deallocate_sz_

(

int

sz_ptr

)

Deallocate an integer pointer to an SZ stack entry.

Parameters

[in]

sz_ptr

Integer pointer to an entry in the SZ stack

Definition at line 102 of file al_szptr_.c.

{
  register int i;
  int ndim;
  SZ *s;

  if(sz_ptr<0) return AL_SUCCESS;
  if(stack_ptr[sz_ptr] == AL_STACK_FREE) return AL_SUCCESS;
  
  s = sz_stack[sz_ptr];
  ndim = s->ndim;

  /* 
     Free the MPI data types
  */
  if( s->compiled == AL_TRUE ){
    for( i=0; i<ndim; i++){
      MPI_Type_free(&(s->strided[i]));
      MPI_Type_free(&(s->type_lr[i]));
      MPI_Type_free(&(s->type_rl[i]));
      MPI_Comm_free(&(s->oned_comm[i]));
    }

    MPI_Type_free(&(s->gsubarr));
    MPI_Type_free(&(s->lsubarr));
    MPI_Comm_free(&(s->cart_comm));
  }

  if( (s->begs != NULL) ) free(s->begs);

  /*
    Begin by dellocating the SZ structure 
  */
  free(sz_stack[sz_ptr]); 
  
  /*
    Now we can reset the integer pointer
  */
  stack_ptr[sz_ptr] = AL_STACK_FREE;
  return (int) AL_SUCCESS;
} 

Here is the caller graph for this function:

int AL_Init_stack_

(

)

Initialize the stack of SZ pointers This routine is called internally by AL_Init.

Definition at line 33 of file al_szptr_.c.

{
  register int i;
  int myrank;

  stack_top  = 0;
  stack_used = 0;

  for( i=0; i<AL_MAX_ARRAYS;i++){ stack_ptr[i] = AL_STACK_FREE ;}

  MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
  
#ifdef DEBUG
  printf("AL_Init_stack_: SZ stack initialized\n");
#endif

  return 0;
}

Here is the caller graph for this function:

int AL_Valid_ptr

(

int

sz_ptr

)

Return AL_TRUE if the input pointer points to an allocated distributed array. Return AL_FALSE otherwise.

Parameters

[in]

sz_ptr

Integer pointer to an entry in the SZ stack

Definition at line 150 of file al_szptr_.c.

{
  if(stack_ptr[sz_ptr]!=AL_STACK_USED ) return AL_FALSE;
  return sz_stack[sz_ptr]->compiled;
}

Variable Documentation

int stack_ptr[AL_MAX_ARRAYS]

Definition at line 26 of file al_szptr_.c.

int stack_top

static

Definition at line 29 of file al_szptr_.c.

int stack_used

static

Definition at line 30 of file al_szptr_.c.

SZ* sz_stack[AL_MAX_ARRAYS]

Definition at line 18 of file al_szptr_.c.