1c $Id$
2*
3C> \ingroup nwint
4C> @{
5C>
6C> \brief Print a block of 1-electron integrals
7C>
8C> Print a generic block of 1-electron integrals including labels.
9C> The routine support two print levels:
10C>
11C> * 0 - Print the integrals and labels
12C>
13C> * 1 - Print shell information in addition to the integrals and labels
14C>
15c:tex-% This is part of the standard API
16c:tex-\subsection{int\_pgen1e}
17c:tex-This routine prints a generic one electron block of integrals.
18c:tex-This requires the labels be generated and input to this routine.
19c:tex-
20c:tex-{\it Syntax:}
21c:tex-\begin{verbatim}
22      subroutine int_pgen1e(msg, i_basis, ish, j_basis, jsh,
23     &       ilab, jlab, l1e, Gen1e, print_level)
24c:tex-\end{verbatim}
25      implicit none
26c
27c generic one electron printing routine
28c  print_level = 0 print only lables and integrals
29c              = 1 print shell information etc.
30c
31#include "nwc_const.fh"
32#include "errquit.fh"
33#include "basP.fh"
34#include "geobasmapP.fh"
35c
36c::external subroutines used
37c errquit
38c::function
39      logical int_chk_sh
40      external int_chk_sh
41c::passed
42c:tex-\begin{verbatim}
43      character*(*) msg           !< [Input] informational message
44      integer i_basis             !< [Input] basis set handle for i shell
45      integer j_basis             !< [Input] basis set handle for j shell
46      integer ish                 !< [Input] i shell
47      integer jsh                 !< [Input] j shell
48      integer l1e                 !< [Input] number of integrals and labels
49      integer ilab(l1e)           !< [Input] i basis functions labels
50      integer jlab(l1e)           !< [Input] j basis functions labels
51      double precision Gen1e(l1e) !< [Input] integrals to be printed
52      integer print_level         !< [Input] print level to be used
53c. . . . . . . . . . . . . .! print_level = 0 print lables and integrals
54c. . . . . . . . . . . . . .!             = 1 also print shell info.
55c:tex-\end{verbatim}
56c
57c::local
58      integer ii
59      integer stdout
60c
61      stdout = 6
62c
63      if (print_level.ge.1) then
64        write(stdout,*)'pgen1e:',msg
65        write(stdout,10000)i_basis,j_basis,ish,jsh
66      endif
67c
68      do 00100 ii = 1,l1e
69        write(stdout,10001)ilab(ii),jlab(ii),Gen1e(ii)
7000100 continue
71c
7210000 format(1x,'<ibasis:jbasis>-<',i4,':',i4,'>',5x,
73     &       '<ish:jsh>-<',i3,':',i3,'>')
7410001 format('i = ',i4,' j = ',i4,5x,'1eval = ',1pd20.10)
75c
76      end
77C> @}
78