PHOS/reconstruction/newlife.f

   1
   2         function mmconvert(mmm)
   3         mmconvert=mmm
   4         return
   5         end
   6
   7         function newtipcell(mmnew)
   8         include 'comarray.for'
   9         if(mmnew.lt.0) then
  10                 write (*,*) ' newtipcell: STRANGE mmnew ',mmnew
  11                 return
  12         endif
  13         idc=mmcells(mmnew)
  14         newtipcell=idcelmat(idc)
  15         return
  16         end