1 cdaq 1.1 **************** begin: gen_pawspace.cmn **********************
|
2 cdaq 1.2 * $Log: gen_pawspace.cmn,v $
3 * Revision 1.1 1994/02/07 19:41:18 cdaq
4 * Initial revision
5 *
|
6 cdaq 1.1 *
7 *-sizes of CERNLIB working space
8 *
9 INTEGER G_sizeHBOOK,G_sizeHIGZ,G_sizeKUIP,G_sizePAW
|
10 cdaq 1.2 PARAMETER (G_sizeHBOOK= 1000000)
|
11 cdaq 1.1 PARAMETER (G_sizeHIGZ= 50000)
12 PARAMETER (G_sizeKUIP= 75000)
13 PARAMETER (G_sizePAW=G_sizeHIGZ+G_sizeKUIP+
14 & G_sizeHBOOK+100000)
15 *
16 *-CERNLIB working space
17 *
18 integer G_CERNmemory(G_sizePAW)
19 COMMON /PAWC/ G_CERNmemory !special nonstandard name!
20 *
21 **************** end: gen_pawspace.cmn **********************
22 * Local Variables:
23 * mode: fortran
24 * End:
|