CIPRIME CNSPWK                                                          CNSPWK      1
      COMPLEX WORKC,WORKR,RHS                                           CNSPWK      2
      COMMON /SCRAT3/ WORKC(NB),WORKR(NB),RHS(NB),NODEX(NPL3*3/4)       CNSPWK      3
