/*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_matp s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_matp.h"
 
int main( )
{
	long int i, j, _i, _r;
	static long int a[3][4];
	static float b[3][4];
	static double c[3][4];
	static long m = 4;
	static long n = 3;
	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 <= 4; i++)
		{
			for (j = 1; j <= 3; 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 <= 4; i++)
		{
			for (j = 1; j <= 3; 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 <= 4; i++)
		{
			for (j = 1; j <= 3; j++)
			{
				c[j - 1][i - 1] = _itmp2[_r++];
				}
			}
		}
		_aini = 0;
	}
 
	/*>> 2001-05-22 DRMATP Krogh Minor change for making .f90 version.
	 *>> 1992-04-22 CLL
	 *>> 1987-12-09 DRMATP Lawson  Initial Code.
	 * */
 
 
	imatp( (long*)a, m, m, n, "0 IMATP.. A(,)=" );
	smatp( (float*)b, m, m, n, "0 SMATP.. B(,)=" );
	dmatp( (double*)c, m, m, n, "0 DMATP.. C(,)=" );
 
	exit(0);
} /* end of function */