#include "MGCLStdAfx.h"
/********************************************************************/
/* Copyright (c) 2017 System fugen G.K. and Yuzi Mizuno          */
/* All rights reserved.                                             */
/********************************************************************/

// BVABS computes length of a vector VECTOR(.,NCD) 
// INPUT *** 
//            NCD ..... is space dimension of the VECTOR. 
//            IVEC..... is the row dimension of VECTOR, i.e. 
//                     VECTOR is declared as VECTOR(IVEC,NCD) 
//            VECTOR... the vector to evaluate. 
// OUTPUT *** 
//            BVABS....vector length of VECTOR. 
double bvabs_(int ncd, int ivec,const double *vector){
    // Builtin functions 
    double sqrt(double);

    // Local variables 
    int i;
    double r;

    r = 0.f;
    for (i=0; i <ncd; ++i)
		r += vector[i*ivec]*vector[i*ivec];
    return sqrt(r);
}