CIPRIME CNUVAR                                                          CNUVAR      1
      LOGICAL ISAL                                                      CNUVAR      2
      COMMON /UVAR/ NSALI,ISAL(MP),BUVAR(4,MP),UVAR(6,MP),DGX(4,4)      CNUVAR      3
