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

Remove everything related to FUJITSU_VPP(64)

Browse source 
I removed this target from makefile.h in 2015 and no one has noticed,
so clearly none of this code has been in use.  This platform was relevant in the year 2000.

Signed-off-by: Jeff Hammond <jeff.science@gmail.com>
This commit is contained in:
Jeff Hammond 2022-03-03 14:59:53 +02:00
parent 0d605f4f21
commit 310ca3eac3
30 changed files with 5 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/config/makefile.h
View file

@ -634,18 +634,6 @@ ifeq ($(TARGET),PURESOLARIS)
endif
ifeq ($(TARGET),FUJITSU_VPP)
@echo DEPRECATED
@exit
endif
ifeq ($(TARGET),FUJITSU_VPP64)
@echo DEPRECATED
@exit
endif
ifeq ($(TARGET),cray-sv2)
@echo DEPRECATED
@exit

2
src/geninterface/NWChemWrap.F
View file

@ -33,7 +33,7 @@ C Worry about input file. For now use a dummy one
10001 continue
c
else
#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) ||defined(FUJITSU_VPP) ||defined(FUJITSU_VPP64))
#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) )
close(LuIn)
#endif
endif

2
src/geninterface/geninterface.F
View file

@ -84,7 +84,7 @@ c10000 call errquit('nwchem: failed to open the input file', 0)
c10001 continue
c
c else
c#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) ||defined(FUJITSU_VPP) ||defined(FUJITSU_VPP64))
c#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) )
c close(LuIn)
c#endif
c endif

4
src/geom/geom.F
View file

@ -984,11 +984,7 @@ c
rz = coords(3,i,geom)-coords(3,j,geom)
rz = rz*rz
r = sqrt(rx+ry+rz)
#ifdef FUJITSU_VPP
if (r > 1.d-10) e = e + charge(i,geom)*charge(j,geom)/r
#else
e = e + charge(i,geom)*charge(j,geom)/r
#endif
endif
end do
end do

8
src/input/get_inp_file.F
View file

@ -17,9 +17,6 @@ c
integer arg,nargs
#if defined(CRAY)
integer ilen,ierror
#endif
#if defined(FUJITSU_VPP)
logical file_exists
#endif
integer l
#ifdef USE_POSIXF
@ -65,13 +62,8 @@ c
call fix_windows_path(input_filename)
#endif
c
#ifdef FUJITSU_VPP
inquire (file=input_filename, exist=file_exists)
if (.not. file_exists) goto 10
#else
open(LuIn,file=input_filename,status='old',err=10)
close(LuIn)
#endif
return
c
10 l = inp_strlen(input_filename)

2
src/nwchem.F
View file

@ -118,7 +118,7 @@ c
10001 continue
c
else
#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) ||defined(FUJITSU_VPP) ||defined(FUJITSU_VPP64))
#if !(defined(KSR) || defined(IBM) || defined(FUJITSU_SOLARIS) )
close(LuIn)
#endif
endif

3
src/nwdft/xc/xc_att_xc.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
Subroutine xc_att_xc(rho,ipol,Ex,Amat,Cmat)
#elif defined(SECOND_DERIV) && !defined(THIRD_DERIV)

3
src/nwdft/xc/xc_becke88.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
Subroutine xc_becke88(tol_rho, fac, lfac, nlfac, rho, delrho,
& Amat, Cmat, nq, ipol, Ex, qwght,ldew,func)

3
src/nwdft/xc/xc_camb88.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
Subroutine xc_camb88(tol_rho, fac, lfac, nlfac, rho, delrho,
& Amat, Cmat, nq, ipol, Ex, qwght,ldew,func)

3
src/nwdft/xc/xc_cams12x.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine xc_cams12x(tol_rho, fac, lfac, nlfac, rho, delrho,
& Amat, Cmat, nq, ipol, Ex, qwght,ldew,func,is12x)

3
src/nwdft/xc/xc_cs00.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
Subroutine xc_cs00(tol_rho, fac, rho, delrho,
& Amat, nq, ipol, delta, e_homo)
c

3
src/nwdft/xc/xc_s12x.F
View file

@ -1,6 +1,3 @@
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine xc_s12x(tol_rho, fac, lfac, nlfac, rho, delrho,
& Amat, Cmat, nq, ipol, Ex, qwght,ldew,func,is12x)

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_cs00.F
View file

@ -25,9 +25,6 @@ C> spectra", J. Chem. Phys. <b>113</b>, 8918-8935 (2000), DOI:
C> <A HREF="https://doi.org/10.1063/1.1319649">
C> 10.1063/1.1319649</A>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
Subroutine nwpwxc_cs00(param, tol_rho, ipol, nq, wght, rho,
& rgamma, func, Amat, Cmat)
c

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_x_att.F
View file

@ -10,9 +10,6 @@ C> @}
C>
C> \ingroup nwpwxc_priv
C> @{
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine nwpwxc_x_att(param,tol_rho,rho,ipol,Ex,Amat,Cmat)
#else

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_x_b88.F
View file

@ -23,9 +23,6 @@ C> Phys. Rev. A <b>38</b>, 3098-3100 (1998), DOI:
C> <a href="https://doi.org/10.1103/PhysRevA.38.3098">
C> 10.1103/PhysRevA.38.3098</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine nwpwxc_x_b88(tol_rho, ipol, nq, wght, rho, rgamma,
& func, Amat, Cmat)

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_x_camb88.F
View file

@ -31,9 +31,6 @@ C> Phys. Rev. A <b>38</b>, 3098-3100 (1998), DOI:
C> <a href="https://doi.org/10.1103/PhysRevA.38.3098">
C> 10.1103/PhysRevA.38.3098</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine nwpwxc_x_camb88(param,tol_rho, ipol, nq, wght,
& rho, rgamma, func, Amat, Cmat)

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_x_cams12.F
View file

@ -22,9 +22,6 @@ C> Chem. Phys. Lett. (In Press, 2013), DOI:
C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045">
C> 10.1016/j.cplett.2013.06.045</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine nwpwxc_x_cams12(param, tol_rho, ipol, nq, wght, rho,
& rgamma, func, Amat, Cmat)

3
src/nwpw/nwpwlib/nwpwxc/nwpwxc_x_s12.F
View file

@ -22,9 +22,6 @@ C> Chem. Phys. Lett. <b>580</b> (2013) 166-171, DOI:
C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045">
C> 10.1016/j.cplett.2013.06.045</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#ifndef SECOND_DERIV
Subroutine nwpwxc_x_s12(param,tol_rho,ipol,nq,wght,rho,rgamma,
& func, Amat, Cmat)

3
src/nwxc/nwxc_cs00.F
View file

@ -25,9 +25,6 @@ C> spectra", J. Chem. Phys. <b>113</b>, 8918-8935 (2000), DOI:
C> <A HREF="https://doi.org/10.1063/1.1319649">
C> 10.1063/1.1319649</A>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
Subroutine nwxc_cs00(param, tol_rho, ipol, nq, wght, rho,
& rgamma, func, Amat, Cmat)
c

3
src/nwxc/nwxc_x_att.F
View file

@ -12,9 +12,6 @@ C> @}
C>
C> \ingroup nwxc_priv
C> @{
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
#if defined(NWAD_PRINT)
Subroutine nwxc_x_att_p(param,tol_rho,rho,ipol,Ex)

3
src/nwxc/nwxc_x_b88.F
View file

@ -25,9 +25,6 @@ C> Phys. Rev. A <b>38</b>, 3098-3100 (1998), DOI:
C> <a href="https://doi.org/10.1103/PhysRevA.38.3098">
C> 10.1103/PhysRevA.38.3098</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
#if defined(NWAD_PRINT)
Subroutine nwxc_x_b88_p(tol_rho, ipol, nq, wght, rho, rgamma,

3
src/nwxc/nwxc_x_camb88.F
View file

@ -33,9 +33,6 @@ C> Phys. Rev. A <b>38</b>, 3098-3100 (1998), DOI:
C> <a href="https://doi.org/10.1103/PhysRevA.38.3098">
C> 10.1103/PhysRevA.38.3098</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
#if defined(NWAD_PRINT)
Subroutine nwxc_x_camb88_p(param,tol_rho, ipol, nq, wght,

3
src/nwxc/nwxc_x_cams12.F
View file

@ -24,9 +24,6 @@ C> Chem. Phys. Lett. (In Press, 2013), DOI:
C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045">
C> 10.1016/j.cplett.2013.06.045</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
#if defined(NWAD_PRINT)
Subroutine nwxc_x_cams12_p(param, tol_rho, ipol, nq, wght, rho,

3
src/nwxc/nwxc_x_s12.F
View file

@ -24,9 +24,6 @@ C> Chem. Phys. Lett. <b>580</b> (2013) 166-171, DOI:
C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045">
C> 10.1016/j.cplett.2013.06.045</a>.
C>
#if defined(FUJITSU_VPP)
!ocl scalar
#endif
#if !defined(SECOND_DERIV) && !defined(THIRD_DERIV)
#if defined(NWAD_PRINT)
Subroutine nwxc_x_s12_p(param, tol_rho, ipol, nq, wght, rho,

10
src/peigs/DEFS
View file

@ -658,16 +658,6 @@ peigs_CPP = /usr/bin/cpp -I${peigs_HDIR} -D${peigs_CPU} -D${peigs_COMM} \
-D${peigs_TARGET_definition}
endif
ifeq ($(peigs_TARGET),FUJITSU_VPP)
peigs_CODEOBJ = DBLE
peigs_CPU = VPP
endif
ifeq ($(peigs_TARGET),FUJITSU_VPP64)
peigs_CODEOBJ = DBLE
peigs_CPU = VPP
endif
ifeq ($(peigs_TARGET),BGL)
#Blue Gene/L
peigs_COMM =TCGMSG

5
src/peigs/DEFS.nwchem
View file

@ -443,11 +443,6 @@ peigs_CPP = /usr/bin/cpp -I${peigs_HDIR} -D${peigs_CPU} -D${peigs_COMM} \
-D${peigs_TARGET_definition}
endif
ifeq ($(peigs_TARGET),FUJITSU_VPP)
peigs_CODEOBJ = DBLE
peigs_CPU = VPP
endif
export peigs_COMM
export peigs_CC
export peigs_FC

10
src/peigs/h/blas_lapack.data
View file

@ -127,13 +127,3 @@
data DLAMCHS/2.2250738585072014D-308/
data DLAMCHU/2.22507385850720138D-308/
#endif
#ifdef FUJITSU_VPP
double precision DLAMCHE, DLAMCHP, DLAMCHS, DLAMCHU, DLAMCHB
real SLAMCHE, SLAMCHP, SLAMCHS, SLAMCHU, SLAMCHB
data DLAMCHE/1.1102230246251565D-16/
data DLAMCHP/1.1102230246251565D-16/
data DLAMCHB/2.D0/
data DLAMCHS/2.2250738585072014D-308/
data DLAMCHU/2.22507385850720138D-308/
#endif

9
src/peigs/h/blas_lapack.h
View file

@ -220,15 +220,6 @@
#define DLAMCHU 2.2250738585072014e-308
#endif
#ifdef FUJITSU_VPP
#define DLAMCHE 1.1102230246251565e-016
#define DLAMCHP 1.1102230246251565e-016
#define DLAMCHB 2.e0
#define DLAMCHS 2.2250738585072014e-308
#define DLAMCHU 2.2250738585072014e-308
#endif
/* DLAMCH guesses when they are not set */

2
src/rimp2/ftnio.fh
View file

@ -7,7 +7,7 @@ C
#if defined(sun) || defined(IBM) || defined(SP1) || defined(_CRAY) || defined(__ksr__) || (defined(LINUX)&&!defined(__alpha)) || defined(WIN32) || defined(MACX)
C$Id$
Parameter ( MT_DAFRecL = MT_BYTE )
#elif defined(__PARAGON__) || defined(__IPSC__) ||defined(HPUX) ||defined(FUJITSU_VPP) || defined(FUJITSU_VPP64)
#elif defined(__PARAGON__) || defined(__IPSC__) ||defined(HPUX)
Parameter ( MT_DAFRecL = MT_BYTE )
#elif defined(sgi) || defined(__alpha)
Parameter ( MT_DAFRecL = MT_INT )

2
src/util/util_cpusec.F
View file

@ -13,7 +13,7 @@ c $Id$
double precision ibm_cputime
external ibm_cputime
util_cpusec = ibm_cputime()
#elif defined(SUN) || defined(SOLARIS) || defined(FUJITSU_VPP)|| defined(LINUXALPHA)
#elif defined(SUN) || defined(SOLARIS) || defined(LINUXALPHA)
real*4 tarray(2)
real*4 etime
#ifndef GCC4