comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

initialized debug flag to false, tweaked print statement for 80 char width output, standard module title

Browse source
This commit is contained in:
Robert Harrison 1997-07-30 02:07:47 +00:00
parent e07017c829
commit 7af2fbbb7d
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/property/hnd_property.F
View file

@ -1,6 +1,6 @@
logical function hnd_property(rtdb)
*
* $Id: hnd_property.F,v 1.3 1997-06-24 16:56:32 mdupuis Exp $
* $Id: hnd_property.F,v 1.4 1997-07-30 02:07:44 d3g681 Exp $
*
implicit none
#include "mafdecls.fh"
@ -48,7 +48,7 @@ c
c
if (ga_nodeid().eq.0) then
if (util_print('information',print_low)) then
call util_print_centered(luout,'NWCHEM HND_PROP Module',
call util_print_centered(luout,'NWChem Property Module',
$ 40,.true.)
write(luout,*)
call util_flush(luout)

6
src/property/prop.F
View file

@ -5,7 +5,7 @@ c
c>>> Inquire rtdb for properties to be evaluated.
c
*
* $Id: prop.F,v 1.8 1997-07-10 22:31:12 mdupuis Exp $
* $Id: prop.F,v 1.9 1997-07-30 02:07:44 d3g681 Exp $
*
implicit none
integer rtdb ! [input]
@ -24,8 +24,8 @@ c
call ga_sync()
status = rtdb_parallel(.true.) ! Broadcast reads to all processes
if(ga_nodeid().eq.0)
$ call util_print_centered(LUout,'Properties',40,.true.)
* if(ga_nodeid().eq.0)
* $ call util_print_centered(LUout,'Properties',40,.true.)
c
c hondo property calculation routines
c

8
src/property/prp.F
View file

@ -1,5 +1,5 @@
*
* $Id: prp.F,v 1.22 1997-07-10 22:31:13 mdupuis Exp $
* $Id: prp.F,v 1.23 1997-07-30 02:07:47 d3g681 Exp $
*
SUBROUTINE HND_PROPTY(RTDB,BASIS,GEOM)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
@ -193,9 +193,9 @@ C
9999 FORMAT(/,' ----- property selection -----',/,
1 ' nodip =',I2,' noqdp =',I2,' nootp =',I2,
2 ' nopop =',I2,' nospin=',I2,
3 ' noloc =',I2,' nodpl =',I2,' nodhp =',I2,' nod2hp=',I2,/,
3 ' noloc =',I2,' nodpl =',I2,/,' nodhp =',I2,' nod2hp=',I2,
4 ' nofpl =',I2,' nofhp =',I2,' nof2hp=',I2,' nosos =',I2,
5 ' noelp =',I2,' noelf =',I2,' noelfg=',I2,' noden =',I2,
5 ' noelp =',I2,/,' noelf =',I2,' noelfg=',I2,' noden =',I2,
6 ' nonmr =',I2,' noston=',I2)
9998 FORMAT(' runtyp = --',A8,'--',/,' scftyp = --',A8,'--')
END
@ -10884,6 +10884,8 @@ C
data blank/' '/
c
c ----- fill basis function symbol table -----
c
debug = .false.
c
n = 0
lastat=0