/* fichero vector1n.c */
double *crear_vector(int n)
{
    int    i;
    double *vector;
    vector = calloc(n, sizeof(double));
    return --vector;
}