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

remove all the __crayx1 preprocessing

Browse source 
Cray X1 is a dead platform.  Most of this is related to weirdness in Cray Fortran character/string handling.

Signed-off-by: Jeff Hammond <jeff.science@gmail.com>
This commit is contained in:
Jeff Hammond 2024-02-27 09:21:54 +02:00
parent 1539d432fc
commit 3f100a3288
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/optim/string/string.F
View file

@ -822,7 +822,7 @@ C> @}
read(19,*,ERR=30,END=30) ch_tmp
end do
30 continue
#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(__crayx1) || defined(GCC46)
#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(GCC46)
backspace 19
#endif
write(19,*) " "

2
src/util/util_sgroup.F
View file

@ -868,7 +868,7 @@ C>
read(LuOut,*,ERR=30,END=30) ch_tmp
end do
30 continue
#if defined(FUJITSU) || defined(PSCALE) || defined(__crayx1)
#if defined(FUJITSU) || defined(PSCALE)
backspace LuOut
#endif
* **** FILE does not exist ****