#ident "@(#) $Id: TensorDef.c 20936 2010-11-22 15:59:39Z joey $ SwRI"

#include "pidf_local.h"

SDDAS_INT TensorDefined (SDDAS_ULONG key, const SDDAS_CHAR *exten, SDDAS_INT *tensor_defined)
{
    SDDAS_INT error_code, trank;

    /* The Tensor defined flag is determine based upon whether the tensor structure    */
    /* exists.  The TENSORRANK component must be defined within the tensor structure   */
    /* IF a tensor is defined.                                                         */

    if ((error_code = ReadNewPidf (key, exten, TENSOR, NOTUSED, NOTUSED, TENSORRANK, &trank)) != ALL_OKAY) 
      *tensor_defined = 0;
    else
      *tensor_defined = 1;

    /* To be consistent with previously written modules  */

    return (1);
}