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

moved integer declarations to a point before they are used so it would compile on linux

Browse source
This commit is contained in:
Ricky Kendall 2000-03-07 23:04:31 +00:00
parent 62c8dce6e1
commit 138e99e376
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/develop/jantest.F
View file

@ -2072,6 +2072,15 @@ c
#include "rtdb.fh"
#include "inp.fh"
integer rtdb
c
integer nmo, g_tmp, l_occ, k_occ,
$ l_eval, k_eval, l_mos, k_mos, l_most, k_most
integer nocc, nvirt, nopen, nclosed, nso, noso
integer l_t, k_t, l_t2, k_t2, l_f, k_f
integer l_t1, k_t1, l_r1, k_r1
integer l_pmost, k_pmost, l_hmost, k_hmost
integer l_work, k_work, l_h, k_h
integer l_t1_vomos, k_t1_vomos
c
double precision g_mo(nmo,nmo,nmo,nmo)
double precision fock(nmo,nmo)
@ -2083,14 +2092,6 @@ c
logical movecs_read, movecs_read_header
external movecs_read, movecs_read_header
c
integer nmo, g_tmp, l_occ, k_occ,
$ l_eval, k_eval, l_mos, k_mos, l_most, k_most
integer nocc, nvirt, nopen, nclosed, nso, noso
integer l_t, k_t, l_t2, k_t2, l_f, k_f
integer l_t1, k_t1, l_r1, k_r1
integer l_pmost, k_pmost, l_hmost, k_hmost
integer l_work, k_work, l_h, k_h
integer l_t1_vomos, k_t1_vomos
logical int_normalize
external int_normalize
c