igsm/inc/NEM.COM

c   These two common block are use to pass data from 
C        TEM to NEM
        parameter (jmnem=72,imnem=144)
        common /data4nem/ncell(imnem,jmnem),aggrcarea(imnem,jmnem),
     &  solc1(imnem,jmnem),soln1(imnem,jmnem),solc(imnem,jmnem),
     &  soln(imnem,jmnem)
        integer aggrcarea
        real *4 solc1,soln1,solc,soln
C
1	c These two common block are use to pass data from
2	C TEM to NEM
3	parameter (jmnem=72,imnem=144)
4	common /data4nem/ncell(imnem,jmnem),aggrcarea(imnem,jmnem),
5	& solc1(imnem,jmnem),soln1(imnem,jmnem),solc(imnem,jmnem),
6	& soln(imnem,jmnem)
7	integer aggrcarea
8	real *4 solc1,soln1,solc,soln
9	C