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