      INTEGER JA ! вставлено 08/06/04 02:39pm, до этого было некорректно 
C                  в случае двойной точности, нужно только для генерируемых файлов
      COMMON/MLINK/IA(2000),JA(10000),NELT,NIA,NURSV
     #,A(10000),B(2000),AD(2000), GLV(2000), GLP(2000)