/* undefi.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/*<       subroutine undefi(array,length) >*/
/* Subroutine */ int undefi_(array, length)
doublereal *array;
integer *length;
{
    /* Initialized data */

    static struct {
	char e_1[8];
	doublereal e_2;
	} equiv_3 = { {'.', 'u', ' ', ' ', ' ', ' ', ' ', ' '}, 0. };

#define aundef (*(doublereal *)&equiv_3)


    /* System generated locals */
    integer i_1;

    /* Local variables */
    static integer i;

    /* Parameter adjustments */
    --array;

    /* Function Body */
/*<       implicit double precision (a-h,o-z) >*/

/*<       dimension array(1) >*/
/*     this routine undefines the memory locations indicated by array(1) 
*/
/* through array(length). */

/*<       data aundef /2h.u/ >*/
/*<       if (length.eq.0) return >*/
    if (*length == 0) {
	return 0;
    }
/*<       do 10 i=1,length >*/
    i_1 = *length;
    for (i = 1; i <= i_1; ++i) {
/*<       array(i)=aundef >*/
	array[i] = aundef;
/*<    10 continue >*/
/* L10: */
    }
/*<       return >*/
    return 0;
/*<       end >*/
} /* undefi_ */

#undef aundef


