487      &                      colm,rowp,lhsK,lhsP,  argument
495       integer,intent(in),dimension(nshg+1)            :: colm  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
552       integer,intent(in),dimension(nshg+1)            :: colm  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
603       integer,intent(in),dimension(nshg+1)            :: colm  local
628       call fLesSparseApNGt(colm,rowp,lhsP,t2,rhsp,nshg,nnz_tot)