-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathpush1_h.f90
127 lines (127 loc) · 3.84 KB
/
push1_h.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
!-----------------------------------------------------------------------
! Interface file for push1.f
module push1_h
implicit none
!
interface
subroutine DISTR1(part,vtx,vdx,npx,idimp,nop,nx,ipbc)
implicit none
integer, intent(in) :: npx, idimp, nop, nx, ipbc
real, intent(in) :: vtx, vdx
real, dimension(idimp,nop), intent(inout) :: part
end subroutine
end interface
!
interface
subroutine GPUSH1L(part,fx,qbm,dt,ek,idimp,nop,nx,nxv,ipbc)
implicit none
integer, intent(in) :: idimp, nop, nx, nxv, ipbc
real, intent(in) :: qbm, dt
real, intent(inout) :: ek
real, dimension(idimp,nop), intent(inout) :: part
real, dimension(nxv), intent(in) :: fx
end subroutine
end interface
!
interface
subroutine MGPUSH1L(part,fx,qbm,dt,ek,idimp,nop,nvp,nx,nxv,ipbc&
&)
implicit none
integer, intent(in) :: idimp, nop, nvp, nx, nxv, ipbc
real, intent(in) :: qbm, dt
real, intent(inout) :: ek
real, dimension(idimp,nop), intent(inout) :: part
real, dimension(nxv), intent(in) :: fx
end subroutine
end interface
!
interface
subroutine GPOST1L(part,q,qm,nop,idimp,nxv)
implicit none
integer, intent(in) :: nop, idimp, nxv
real, intent(in) :: qm
real, dimension(idimp,nop), intent(in) :: part
real, dimension(nxv), intent(inout) :: q
end subroutine
end interface
!
interface
subroutine CGUARD1L(fx,nx,nxe)
implicit none
integer, intent(in) :: nx, nxe
real, dimension(nxe), intent(inout) :: fx
end subroutine
end interface
!
interface
subroutine AGUARD1L(q,nx,nxe)
implicit none
integer, intent(in) :: nx, nxe
real, dimension(nxe), intent(inout) :: q
end subroutine
end interface
!
interface
subroutine POIS1(q,fx,isign,ffc,ax,affp,we,nx)
implicit none
integer, intent(in) :: isign, nx
real, intent(in) :: ax, affp
real, intent(inout) :: we
real, dimension(nx), intent(in) :: q
real, dimension(nx), intent(inout) :: fx
complex, dimension(nx/2), intent(inout) :: ffc
end subroutine
end interface
!
interface
subroutine WFFT1RINIT(mixup,sct,indx,nxhd)
implicit none
integer, intent(in) :: indx, nxhd
integer, dimension(nxhd), intent(inout) :: mixup
complex, dimension(nxhd), intent(inout) :: sct
end subroutine
end interface
!
interface
subroutine FFT1RXX(f,t,isign,mixup,sct,indx,nxd,nxhd)
implicit none
integer, intent(in) :: isign, indx, nxd, nxhd
real, dimension(nxd), intent(inout) :: f
complex, dimension(nxhd), intent(inout) :: t
integer, dimension(nxhd), intent(in) :: mixup
complex, dimension(nxhd), intent(in) :: sct
end subroutine
end interface
!
interface
subroutine EADDEXT1(fxe,amodex,freq,time,trmp,toff,el0,er0,nx, &
&nxe)
implicit none
integer, intent(in) :: nx, nxe
real, intent(in) :: amodex, freq, time, trmp, toff, el0, er0
real, dimension(nxe), intent(inout) :: fxe
end subroutine
end interface
!
interface
function ranorm()
implicit none
double precision :: ranorm
end function
end interface
!
interface
function randum()
implicit none
double precision :: randum
end function
end interface
!
interface
subroutine NEXTRAN1(nextrand,np)
implicit none
integer, intent(in) :: nextrand, np
end subroutine
end interface
!
end module