/******  DELOPT    --- Copyright (c) 1994 Sebastian Ceria
 ******                Copyright (c) 1994 Alkis Vazacopoulos
 ******                All rights reserved.
 ******
 ******		       TERMS AND CONDITIONS
 ******
 ******  This code is licensed to Prograph Management for testing
 ******  purposes only. Commercial use is prohibited. 
 ******  No parts of this code can be reproduced, modified,
 ******  distributed or used for any purposes other than testing,
 ******  without written permission of the authors.
 ******
 ******  WARRANTY: This program is distributed WITHOUT ANY WARRANTY;
 ******            without even the implied warranty of MERCHANTABILITY or
 ******            FITNESS FOR A PARTICULAR PURPOSE.
 ******
 ******                     NO WARRANTY POLICY
 ******
 ******  1. BECAUSE THE PROGRAM IS LICENSED FOR TESTING PURPOSES ONLY,
 ******  AND FREE OF CHARGE UNTIL AN AGREEMENT IS REACHED, THERE IS NO WARRANTY
 ******  FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
 ******  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS
 ******  AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF
 ******  ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED
 ******  TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 ******  PARTICULAR PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND
 ******  PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
 ******  PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY
 ******  SERVICING, REPAIR OR CORRECTION.
 ******  2. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
 ******  WRITING WILL ANY COPYRIGHT HOLDER, BE LIABLE TO YOU FOR DAMAGES,
 ******  INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES
 ******  ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM
 ******  (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED
 ******  INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE
 ******  OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
 ******  EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
 ******  POSSIBILITY OF SUCH DAMAGES.
 ******/

/*
 * File    : alocation.c
 * Author  : Sebastian Ceria
 * Purpose : alocate vectors from memory
 */


/*
 * Standard includes
 */

#include <stdio.h>
#include <malloc.h>
#include <math.h>


/*
 * Private includes
 */

#include "aloca.h"

/*
 * Public Functions
 */

/*
 * FUNCTION : alocc
 *
 * PURPOSE  : alocate a character array
 *
 * INPUTS   :
 *
 * RETURNS  :
 *
 * SIDE EFF.:
 */


long alocc(char **ia,
          long csize)
{
  long return_flag;

  /*
   * alocate space
   */

  *ia = (char *) calloc (csize,sizeof(char));

  /*
   * check if succesful
   */

  if (*ia == NULL){
    return_flag = 0;
  }
  else{
    return_flag = 1;
  }
  return(return_flag);
}

 
/*
 * FUNCTION : aloci
 *
 * PURPOSE  : alocate an integer array
 *
 * INPUTS   :
 *
 * RETURNS  :
 *
 * SIDE EFF.:
 */


long aloci(long **ia,
          long isize)
{
  long return_flag;

  /*
   * alocate space
   */

  *ia = (long *) calloc (isize,sizeof(long));

  /*
   * check if succesful
   */

  if (*ia == NULL){
    return_flag = 0;
  }
  else{
    return_flag = 1;
  }
  return(return_flag);
}

 
/*
 * FUNCTION : alocp
 *
 * PURPOSE  : alocate an pointer array
 *
 * INPUTS   :
 *
 * RETURNS  :
 *
 * SIDE EFF.:
 */


long alocp(void ***ia,
          long isize)
{
  long return_flag;

  /*
   * alocate space
   */

  *ia = (void **) calloc (isize,sizeof(void *));

  /*
   * check if succesful
   */

  if (*ia == NULL){
    return_flag = 0;
  }
  else{
    return_flag = 1;
  }
  return(return_flag);
}

 

/*
 * FUNCTION : alocd
 *
 * PURPOSE  : alocate a double array
 *
 * INPUTS   :
 *
 * RETURNS  :
 *
 * SIDE EFF.:
 */


long alocd(double **ia,
          long dsize)
{
  long return_flag;

  /*
   * alocate space
   */

  *ia = (double *) calloc (dsize,sizeof(double));

  /*
   * check if succesful
   */

  if (*ia == NULL){
    return_flag = 0;
  }
  else{
    return_flag = 1;
  }
  return(return_flag);
}