487      &                      colm,rowp,lhsK,lhsP,  argument
498       real(kind=8),intent(in),dimension(4,nnz_tot)    :: lhsP  local
516       call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
527       call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
543      &                      colm,rowp,lhsK,lhsP,  argument
555       real(kind=8),intent(in),dimension(4,nnz_tot)    :: lhsP  local
570       call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
581       call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
594      &                      colm,rowp,lhsK,lhsP,  argument
606       real(kind=8),intent(in),dimension(4,nnz_tot)    :: lhsP  local
628       call fLesSparseApNGt(colm,rowp,lhsP,t2,rhsp,nshg,nnz_tot)