/*
 * Tensor.c
 * 
 */
#ident "@(#) $Id: Tensor.c 19969 2008-10-28 18:37:30Z carrie $ SwRI"

#include <stdio.h>
#include "pidf_local.h"

int 
Tensor (char *locater, PIDF what, SDDAS_INT dimennum, SDDAS_INT unitnum)
{
    switch (what) {
        case TENSORDEF : 
        case TENSORRANK : sprintf (locater, "%s.Tensor.rank", locater); break;
        case DIMENNAME : sprintf (locater, "%s.Tensor.TensorDimension%d.name", locater, dimennum); break;
        case DIMENID : sprintf (locater, "%s.Tensor.TensorDimension%d.id", locater, dimennum); break;
        case DIMENSIZE : sprintf (locater, "%s.Tensor.TensorDimension%d.length", locater, dimennum); break;
        case DIMENVALUES : sprintf (locater, "%s.Tensor.TensorDimension%d.values", locater, dimennum); break;
        case NUNITS : sprintf (locater, "%s.Tensor.TensorDimension%d.num_units", locater, dimennum); break;
        case UNITNUMS : sprintf (locater, "%s.Tensor.TensorDimension%d.unit_number", locater, dimennum); break;
        default : return Unit (locater, what, unitnum);
    }				/* end switch */
    return ALL_OKAY;
}