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

more equivalence to transfer conversions https://github.com/nwchemgit/nwchem/issues/224

Browse source
This commit is contained in:
edoapra 2020-07-25 16:59:03 -07:00
parent b0ce505c30
commit f45ab4e569
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/selci/rd1.F
View file

@ -181,11 +181,16 @@ c
c to determine the little-endian or big-endian addressing convention.
integer longw
integer*2 shortw(2)
#ifdef F77
equivalence (longw,shortw)
#endif
save longw, shortw
c
call ifill(nuw,0,u,1)
longw=1
#ifndef F77
shortw=transfer(longw,1)
#endif
if(shortw(1).eq.1)then
c ...little-endian.
do 10 i=1,((nuw+7)/8)
@ -259,11 +264,16 @@ c
c to determine the little-endian or big-endian addressing convention.
integer longw
integer*2 shortw(2)
#ifdef F77
equivalence (longw,shortw)
#endif
save longw, shortw
c
call ifill(nuw,0,u,1)
longw=1
#ifndef F77
shortw=transfer(longw,1)
#endif
if(shortw(1).eq.1)then
c ...little-endian.
do 10 i=1,((nuw+3)/4)