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