/**
* Copyright 1981-2012 ECMWF.
*
* This software is licensed under the terms of the Apache Licence 
* Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
*
* In applying this licence, ECMWF does not waive the privileges and immunities 
* granted to it by virtue of its status as an intergovernmental organisation 
* nor does it submit to any jurisdiction.
*/

#include <stdio.h>
#include <sys/types.h>
#include <sys/file.h>

#define IA_CONT 00001

#ifdef FORTRAN_NO_UNDERSCORE
#define MY_IALLOC my_ialloc 
#else
#define MY_IALLOC my_ialloc_
#endif

void MY_IALLOC( FILE ** kunit, long * isize, long * kret)
{
    *kret = 0;
    return;
}
