/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:14 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_matpr s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_matpr.h"
/*     DRMATPR
 *>> 2006-04-02 DRMATPR Krogh Added checks with exponents.
 *>> 2001-05-22 DRMATPR Krogh Minor change for making .f90 version.
 *>> 1991-11-22 DRMATPR  Krogh Initial Code.
 * */
		/* PARAMETER translations */
#define	LUNIT	0
#define	LWIDTH	79
#define	M	4
#define	N	3
#define	NUMDIG	0
		/* end of PARAMETER translations */
 
 
int main( )
{
	long int i, j, _i, _r;
	static long int a[N][M];
	static float b[N][M];
	static double c1[N][M], c2[N][M], c3[N][M];
	static int _aini = 1;
	if( _aini ){ /* Do 1 TIME INITIALIZATIONS! */
		{ static long _itmp0[] = {1,2,3,4,5,6,7,8,9,10,11,12};
		for (i = 1, _r = 0; i <= M; i++)
		{
			for (j = 1; j <= N; j++)
			{
				a[j - 1][i - 1] = _itmp0[_r++];
				}
			}
		}
		{ static float _itmp1[] = {1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,
		 11.,12.};
		for (i = 1, _r = 0; i <= M; i++)
		{
			for (j = 1; j <= N; j++)
			{
				b[j - 1][i - 1] = _itmp1[_r++];
				}
			}
		}
		{ static double _itmp2[] = {1.e0,2.e0,3.e0,4.e0,5.e0,6.e0,
		 7.e0,8.e0,9.e0,10.e0,11.e0,12.e0};
		for (i = 1, _r = 0; i <= M; i++)
		{
			for (j = 1; j <= N; j++)
			{
				c1[j - 1][i - 1] = _itmp2[_r++];
				}
			}
		}
		{ static double _itmp3[] = {1.e0,2.e0,3.e0,4.e0,5.e0,6.e0,
		 7.e0,8.e99,9.e0,10.e0,-11.e0,12.e0};
		for (i = 1, _r = 0; i <= M; i++)
		{
			for (j = 1; j <= N; j++)
			{
				c2[j - 1][i - 1] = _itmp3[_r++];
				}
			}
		}
		{ static double _itmp4[] = {1.e0,2.e0,3.e0,4.e0,5.e0,6.e0,
		 7.e0,8.e123,9.e0,10.e0,11.e0,12.e0};
		for (i = 1, _r = 0; i <= M; i++)
		{
			for (j = 1; j <= N; j++)
			{
				c3[j - 1][i - 1] = _itmp4[_r++];
				}
			}
		}
		_aini = 0;
	}
 
 
 
 
	imatpr( (long*)a, M, M, N, "0 IMATPR.. A(,)=", LWIDTH, LUNIT );
	smatpr( (float*)b, M, M, N, "0 SMATPR.. B(,)=", LWIDTH, LUNIT,
	 NUMDIG );
	dmatpr( (double*)c1, M, M, N, "0 DMATPR.. C1(,)=", LWIDTH, LUNIT,
	 NUMDIG );
	dmatpr( (double*)c2, M, M, N, "0 DMATPR.. C2(,)=", LWIDTH, LUNIT,
	 NUMDIG );
	dmatpr( (double*)c3, M, M, N, "0 DMATPR.. C3(,)=", LWIDTH, LUNIT,
	 NUMDIG );
	exit(0);
 
} /* end of function */