1* $Id$
2      logical init_rel        ! relativistic integral initialization
3c
4      character*32 small_cmpt_name,large_cmpt_name
5      character*32 auto_small_cmpt_name,auto_large_cmpt_name
6c
7      integer rel_dbg    ! debug flag for relativistic routines
8      integer rel_typ    ! type of relativistic integral: 1 for sf, 3 for so,
9c                        ! 4 for both, 9 for derivatives
10      integer ao_to_ls   ! pointer from ao basis to large/small basis
11      integer ls_to_ao   ! pointer from large/small basis to ao basis
12      integer level_SSSS ! level for calculation of SSSS integrals
13c                        ! 0 = none
14c                        ! 1 = one-centre
15c                        ! 2 = one- and two-centre
16c                        ! 4 = full
17c
18c  Note: this routine needs nwc_const.fh
19c
20      common /c_rel_nwc/ init_rel,small_cmpt_name,large_cmpt_name,
21     &    auto_small_cmpt_name,auto_large_cmpt_name
22      common /c_rel_ptr/ ao_to_ls(nw_max_shells),ls_to_ao(nw_max_shells)
23      common /c_rel_ctl/ level_SSSS, rel_typ, rel_dbg
24