$***********************************************************
$   макро запоминает трехмерные векторы ускорений, скоростей
$   и перемещений точки тела в неподвижной системе координат,
$   и заносит их в специальный COMMON программы fm486
$***********************************************************
$      формальные параметры шага МОДЕЛЬ
$ p1  - номер  тела
$ p2  - номер узла тела
$
BL14 NPDS  NTIP   LX  LY  LZ  UX  UY  UZ
@   'блок запоминания ускорений'
       npu1    nmx1   0   0   0   0   0   0
@   'блок запоминания скоростей и перемещений'
       npu2    nmx2   0   0   0   0   0   0
@   'фиктивное звено'
       npu3    111    0   0   0   0   0   0
@   'фиктивное звено'
       npu4    111    0   0   0   0   0   0
BL16 NMX NAPR  TUF  KPAR  TDF  KPAR
@   'блок запоминания ускорений'
       nmx1    1    486   4    50    1
@   'блок запоминания скоростей и перемещений'
       nmx2    1    487   4    50    1
BL17  NSE  NT1  NUZ1  NT2  NUZ2  NMX
@   'вход по VX'
    nse1    p1   p2    npu2    1   -1
@   'вход по VY'
    nse2    p1   p2    npu2    2   -2
@   'вход по VZ'
    nse3    p1   p2    npu2    3   -3
@   'вход по X'
    nse4    p1   p2    npu2    4    1
@   'вход по Y'
    nse5    p1   p2    npu2    5    2
@   'вход по Z'
    nse6    p1   p2    npu2    6    3
@   'вход по AX'
    nse7    p1   p2    npu1    1   11
@   'вход по AY'
    nse8    p1   p2    npu1    2   12
@   'вход по AZ'
    nse9    p1   p2    npu1    3   13
@   'выход по AX'
    nse10   npu1  1    npu3    1    1
@   'выход по VX'
    nse11   npu2  1    npu4    1    1
$************************************************
$      формальные параметры шага РАСЧЕТ
$              Параметров нет
$
BL33    NXAR    PRSOST    PRSL      KSTROK
        nmx1     1        1          1
          0.   0.   0.   0.
        nmx1     1        2          1
          0.   0.   0.   0.
        nmx2     1        1          1
          0.   0.   0.   0.
        nmx2     1        2          1
          0.   0.   0.   0.