gpamela/gpgar/solids.inc

*
* $Id$
*
* $Log$
*
*
* solids.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       DOUBLE PRECISION CBUF(MXSBUF)
       CHARACTER SOLTYP(MXSOLI)
       INTEGER NSOLID,ISTART(MXSOLI),ISOLTP(MXSOLI),INDSOL(MXSOLI),
     -      ICCURR,IQ(MXPLAN),NQ,ISOLMT(MXSOLI)
       COMMON /SOLIDS/ CBUF,ISTART,INDSOL,ISOLTP,NSOLID,ICCURR,
     -      IQ,NQ,ISOLMT
       COMMON /SOLCHR/ SOLTYP
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* solids.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			DOUBLE PRECISION CBUF(MXSBUF)
12			CHARACTER SOLTYP(MXSOLI)
13			INTEGER NSOLID,ISTART(MXSOLI),ISOLTP(MXSOLI),INDSOL(MXSOLI),
14			- ICCURR,IQ(MXPLAN),NQ,ISOLMT(MXSOLI)
15			COMMON /SOLIDS/ CBUF,ISTART,INDSOL,ISOLTP,NSOLID,ICCURR,
16			- IQ,NQ,ISOLMT
17			COMMON /SOLCHR/ SOLTYP