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