/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:20 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_vecpr s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_vecpr.h"
/*     DRVECPR
 *>> 2006-04-02 DRVECPR Krogh Added checks with exponents.
 *>> 2001-05-22 DRVECPR Krogh Minor change for making .f90 version.
 *>> 1991-11-22 DRVECPR   Krogh Initial Code.
 * */
		/* PARAMETER translations */
#define	LUNIT	0
#define	LWIDTH	79
#define	N	6
#define	NUMDIG	0
		/* end of PARAMETER translations */
 
 
int main( )
{
	long int i, _i, _r;
	static long int a[N];
	static float b1[N], b2[N];
	static double c1[N], c2[N], c3[N];
	static int _aini = 1;
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const A = &a[0] - 1;
	float *const B1 = &b1[0] - 1;
	float *const B2 = &b2[0] - 1;
	double *const C1 = &c1[0] - 1;
	double *const C2 = &c2[0] - 1;
	double *const C3 = &c3[0] - 1;
		/* end of OFFSET VECTORS */
	if( _aini ){ /* Do 1 TIME INITIALIZATIONS! */
		{ static long _itmp0[] = {1,2,3,4,5,6};
		for (i = 1, _r = 0; i <= N; i++)
		{
			A[i] = _itmp0[_r++];
			}
		}
		{ static float _itmp1[] = {1.e0,2.e0,3.e0,4.e0,5.e0,6.e0};
		for (i = 1, _r = 0; i <= N; i++)
		{
			B1[i] = _itmp1[_r++];
			}
		}
		{ static float _itmp2[] = {1.e4,2.e-4,-3.e0,4.e0,5.e0,6.e0};
		for (i = 1, _r = 0; i <= N; i++)
		{
			B2[i] = _itmp2[_r++];
			}
		}
		{ static double _itmp3[] = {1.e2,2.e0,3.e0,-4.e1,5.e0,6.e0};
		for (i = 1, _r = 0; i <= N; i++)
		{
			C1[i] = _itmp3[_r++];
			}
		}
		{ static double _itmp4[] = {1.e2,2.e0,3.e0,-4.e11,5.e0,6.e0};
		for (i = 1, _r = 0; i <= N; i++)
		{
			C2[i] = _itmp4[_r++];
			}
		}
		{ static double _itmp5[] = {1.e14,2.e1,-3.e100,4.e0,5.e0,6.e3};
		for (i = 1, _r = 0; i <= N; i++)
		{
			C3[i] = _itmp5[_r++];
			}
		}
		_aini = 0;
	}
 
 
 
	ivecpr( a, N, "0 IVECPR.. A()=", LWIDTH, LUNIT );
	svecpr( b1, N, "0 SVECPR.. B1()=", LWIDTH, LUNIT, NUMDIG );
	dvecpr( c1, N, "0 DVECPR.. C1()=", LWIDTH, LUNIT, NUMDIG );
	svecpr( b2, N, "0 SVECPR.. B2()=", LWIDTH, LUNIT, NUMDIG );
	dvecpr( c2, N, "0 DVECPR.. C2()=", LWIDTH, LUNIT, NUMDIG );
	dvecpr( c3, N, "0 DVECPR.. C3()=", LWIDTH, LUNIT, NUMDIG );
 
	exit(0);
} /* end of function */