165                                                             ithread, j, lmax_global, n, natom, nc, &  local
208       lmax_global = 0
214          lmax_global = MAX(MAXVAL(mylmax), lmax_global)
217       lmax_global = 2*lmax_global - 2
323                                                  lmax_global=lmax_global)
358                                                             j, lmax_global, lppl, n, natom, ni, &  local
401       lmax_global = 0
406          lmax_global = MAX(lppl, lmax_global)
408       lmax_global = 2*lmax_global - 2
508                                                  lmax_global=lmax_global)
559          jset, lmax_global, m1, maxco, maxpgf, maxset, maxsgf, maxsgf_set, my_pos, na1, natom, &  local
638       lmax_global = 0
642          lmax_global = MAX(MAXVAL(mylmax), lmax_global)
727                                                           lmax_global=lmax_global)
744          lmax_global = 0
755             lmax_global = MAX(MAXVAL(mylmax), lmax_global)
845                                     map_consistent=map_consistent, lmax_global=lmax_global)
986                                                  lmax_global=0)
1081                                            lmax_global=0)
1181                use_subpatch=.TRUE., subpatch_pattern=subpatch_pattern, lmax_global=0)
1275                                            lmax_global=0)
1377                use_subpatch=.TRUE., subpatch_pattern=subpatch_pattern, lmax_global=0)
1442          lmax_global, maxco, maxpgf, maxset, maxsgf, maxsgf_set, my_der_type, my_idir, n, na1, &  local
1568       lmax_global = 0
1583          lmax_global = MAX(MAXVAL(mylmax), lmax_global)
1590          lmax_global = lmax_global + 1
1592          lmax_global = lmax_global + 1
1594          lmax_global = lmax_global + 1
1596          lmax_global = lmax_global + 1
1598          lmax_global = lmax_global + 2
1600          lmax_global = lmax_global + 2
1602          lmax_global = lmax_global + 2
1604          lmax_global = lmax_global + 1
1606          lmax_global = lmax_global
1851                      subpatch_pattern=tasks(6, itask), lmax_global=lmax_global)
1864                      subpatch_pattern=tasks(6, itask), lmax_global=lmax_global)
1877                      subpatch_pattern=tasks(6, itask), lmax_global=lmax_global)
1889                      subpatch_pattern=tasks(6, itask), lmax_global=lmax_global)
1995          jpgf, jset, jset_old, lmax_global, maxco, maxpgf, maxset, maxsgf, maxsgf_set, na1, na2, &  local
2091       lmax_global = 0
2106          lmax_global = MAX(MAXVAL(mylmax), lmax_global)
2110       lmax_global = lmax_global + 1
2315                   lmax_global=lmax_global)
2327                   lmax_global=lmax_global)
2404          lmax_global, maxco, maxsgf_set, my_pos, na1, na2, nao, natom, ncoa, nseta, offset, sgfa  local
2483       lmax_global = 0
2488          lmax_global = MAX(MAXVAL(mylmax), lmax_global)
2564                   lmax_global=lmax_global)
2647                                            lmax_global)  argument
2671       INTEGER, INTENT(IN)                      :: lmax_global  local
2695       REAL(kind=dp), DIMENSION(0:lmax_global*2, 0:lmax_global, 0:lmax_global, 3) :: alpha
2696 …REAL(kind=dp), DIMENSION(((lmax_global*2 + 1)*(lmax_global*2 + 2)*(lmax_global*2 + 3))/6) :: coef_…
2697       REAL(kind=dp), DIMENSION(((lmax_global*2 + 1)*(lmax_global*2 + 2))/2) :: coef_xyt
2698       REAL(kind=dp), DIMENSION(0:lmax_global*2) :: coef_xtt