Context Navigation

pamain.c@ 3892

Visit:

Last change on this file since 3892 was 2414, checked in by cmv, 22 years ago
Exemple pour interface cfortan (CERN) cmv 21/07/2003
File size: 339 bytes

Rev	Line
[2414]	1	#include <stdlib.h>
	2	#include <cfortran.h>
	3	#include <paw.h>
	4	#include <kuip.h>
	5
	6	#define PAWC_SIZE 9000000
	7
	8	typedef struct { float PAW[PAWC_SIZE]; } PAWC_DEF;
	9	#define PAWC COMMON_BLOCK(PAWC,pawc)
	10	COMMON_BLOCK_DEF(PAWC_DEF,PAWC);
	11
	12	int main()
	13	{
	14	int iwtyp;
	15
	16	PAW(PAWC_SIZE,iwtyp);
	17
	18	KUWHAG();
	19
	20	PAEXIT();
	21
	22	return 0;
	23	}

Note: See TracBrowser for help on using the repository browser.