NWChem/src/develop/debtest.F

      Logical Function DEBTest(RTDB)
C$Id$
      Implicit NONE
      Integer RTDB
      Logical Status
      Logical SCF, RIMP2
      External SCF, RIMP2
c$$$      Integer LUOut
c$$$      Parameter (LuOut = 6)
#include "stdio.fh"
*********************************************#include "stdio_init.fh"
      Status = SCF( RTDB)
      Status = RIMP2( RTDB)
      DEBTest = Status
      Return
      End
Update call for debtest and rimp2 1996-03-15 22:04:26 +00:00			`Logical Function DEBTest(RTDB)`
HvD: In the CVS era the $Id: $ tags in the source code files would automatically be expanded to include useful information about the checkin (including the file's revision number). With the switch over to SVN this was lost because SVN only does this expansion if you explicitly ask for it (for every single file). I have added a script to the contrib directory that sets the appropriate property to get SVN to do this expansion. This script will make it easy to do this every time new source files are added. It is called svn_expand_Id, the script contains some comments that explain the issue and how it addresses this. This checkin sets this property for a subset of the relevant files (trying to commit all files at once failed with svn crashing). In future the script will only affect those files for which the property was not set before. 2010-10-29 18:04:21 +00:00			`C$Id$`
Getting my test case during the Memorial Day sale! 1994-05-27 23:34:42 +00:00			`Implicit NONE`
			`Integer RTDB`
First cut at RIMP2. 1994-06-14 22:00:36 +00:00			`Logical Status`
			`Logical SCF, RIMP2`
			`External SCF, RIMP2`
			`c$$$ Integer LUOut`
			`c$$$ Parameter (LuOut = 6)`
			`#include "stdio.fh"`
made debtest dependent upon stdio.fh in the util/include directory instead of locally added routines to check general contraction information to raktest. updated makefile rak 1996-01-17 21:46:42 +00:00			`*********************************************#include "stdio_init.fh"`
First cut at RIMP2. 1994-06-14 22:00:36 +00:00			`Status = SCF( RTDB)`
			`Status = RIMP2( RTDB)`
Update call for debtest and rimp2 1996-03-15 22:04:26 +00:00			`DEBTest = Status`
Getting my test case during the Memorial Day sale! 1994-05-27 23:34:42 +00:00			`Return`
			`End`