/********************************************************************/
/* 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);