2
c $Id: list_const.f,v 1.1 2008-04-18 17:48:12 marat Exp $
5
SUBROUTINE list_const(ncons,ntcons,consatm)
15
integer ncons,ntcons,consatm
17
dimension consatm(mxcons,2)
25
if(atmtype(i).eq.consatm(j,1))then
28
if(ntcons.gt.mxcons2)then
29
write(output,*)'Increase mxcons2 to ',ntcons
33
k=consatm(j,2)-consatm(j,1)