lmdata.h

 
      real (kind=8):: ule       ,ule1       ,ule2
      common /lmdata/ ule(100,3),ule1(100,3),ule2(100,3)
 
      real (kind=8):: ulg     ,ulg1     ,ulg2
      common /lmdata/ ulg(100),ulg1(100),ulg2(100)
 
      integer      :: ndfl
      common /lmdata/ ndfl(50)
 
      logical      :: lagrfl
      common /lmdata/ lagrfl