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

Fix second intsiz

Browse source
This commit is contained in:
Tjerk Straatsma 2006-03-06 21:43:39 +00:00
parent 5de3213ec7
commit c0a720708e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/space/sp_main.F
View file

@ -1,7 +1,7 @@
subroutine sp_setup(node,iwl,xw,xwcr,vw,gw,numwm,
+ isl,xs,xscr,vs,gs,numsa,lpack)
c
c $Id: sp_main.F,v 1.95 2006-03-03 23:37:19 bert Exp $
c $Id: sp_main.F,v 1.96 2006-03-06 21:43:39 d3j191 Exp $
c
implicit none
c
@ -3552,7 +3552,7 @@ c
c
c get the size of an integer on this machine in bits
c
intsiz=ma_sizeof(mt_int,1,mt_byte)
intsiz=8*ma_sizeof(mt_int,1,mt_byte)
c
c if(intsiz.le.32) then
call ga_igop(msp_14,nlst,2*npp,'+')