1
subroutine smd_ewald_get_alpha(aalpha)
3
#include "smd_ewald_data.fh"
5
double precision aalpha
11
subroutine smd_ewald_get_ralphsq(aralphsq)
13
#include "smd_ewald_data.fh"
15
double precision aralphsq
21
subroutine smd_ewald_get_rksqmax(arksqmax)
23
#include "smd_ewald_data.fh"
25
double precision arksqmax
31
subroutine smd_ewald_get_kmax(akmax)
33
#include "smd_ewald_data.fh"
44
subroutine smd_ewald_set_alpha(aalpha)
46
#include "smd_ewald_data.fh"
48
double precision aalpha
54
subroutine smd_ewald_set_ralphsq(aralphsq)
56
#include "smd_ewald_data.fh"
58
double precision aralphsq
64
subroutine smd_ewald_set_rksqmax(arksqmax)
66
#include "smd_ewald_data.fh"
68
double precision arksqmax
74
subroutine smd_ewald_set_kmax(akmax)
76
#include "smd_ewald_data.fh"
87
subroutine smd_ewald_print(un)
89
#include "smd_ewald_data.fh"
93
write(un,*) "ewald data"
94
write(un,*) "kmax",kmax(1),kmax(2),kmax(3)
95
write(un,*) "alpha",alpha
96
write(un,*) "ralphsq",ralphsq
97
write(un,*) "rksqmax",rksqmax