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	*
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