/*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_vecp s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_vecp.h"
 
int main( )
{
	long int i, _i, _r;
	static long int a[4];
	static float b[4];
	static double c[4];
	static long n = 4;
	static int _aini = 1;
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const A = &a[0] - 1;
	float *const B = &b[0] - 1;
	double *const C = &c[0] - 1;
		/* end of OFFSET VECTORS */
	if( _aini ){ /* Do 1 TIME INITIALIZATIONS! */
		{ static long _itmp0[] = {1,2,3,4};
		for (i = 1, _r = 0; i <= 4; i++)
		{
			A[i] = _itmp0[_r++];
			}
		}
		{ static float _itmp1[] = {1.,2.,3.,4.};
		for (i = 1, _r = 0; i <= 4; i++)
		{
			B[i] = _itmp1[_r++];
			}
		}
		{ static double _itmp2[] = {1.e0,2.e0,3.e0,4.e0};
		for (i = 1, _r = 0; i <= 4; i++)
		{
			C[i] = _itmp2[_r++];
			}
		}
		_aini = 0;
	}
 
	/*>> 2001-05-22 DRVECPR Krogh Minor change for making .f90 version.
	 *>> 1992-04-22 CLL
	 *>> 1987-12-09 DRVECP   Lawson  Initial Code.
	 * */
 
 
	ivecp( a, n, "0 IVECP.. A()=" );
	svecp( b, n, "0 SVECP.. B()=" );
	dvecp( c, n, "0 DVECP.. C()=" );
 
	exit(0);
} /* end of function */