7        integer nsh, grlen, ngr, ishlen, ibfhi, ibflo, ish
12        ngr = 1
20            ngr = ngr + 1
25        moints_numgr = ngr
36        subroutine moints_grmap( basis, blocklen, ngr, grmap )  argument
40        integer basis, blocklen, ngr, grmap(4,ngr)  local
67        do ish=1,ngr
81       integer function gr_len( ngr, grmap, ish, ilo, ihi )
83       integer ngr  local
84       integer grmap(4,ngr)
96       subroutine gr_sh_idx( ngr, grmap, ish, ilo, ihi )  argument
98       integer ngr  local
99       integer grmap(4,ngr)
120      $                           ngr, glo, ghi, shmap,
132       integer ngr                          ! [output] Number of groups formed
199         ngr = 0
202         ngr = ngr + 1
203         glo(ngr) = 0
213               if (glo(ngr).eq.0) glo(ngr) = j + 1
218               ghi(ngr) = j
251         ngr = 1
252         glo(ngr) = 0
255           if (glo(ngr).eq.0) glo(ngr) = ish
262             ngr = ngr + 1
263             glo(ngr) = ish
265           ghi(ngr) = ish
285         write(6,550) ngr
287         do k=1,ngr              ! Example of how to use group info