ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
wrc.f
Go to the documentation of this file.
1  SUBROUTINE wrcoil(nk,nkcoil,rk,zk,tk,necon,wecon)
2 
3  include 'double.inc'
4 
5  real*8 rk(*),zk(*),tk(*),wecon(*)
6  integer nk,nkcoil,necon(*)
7 
8  write(fname,'(a,a)') path(1:kname),'ecur.wr'
9  open(1,file=fname,form='formatted')
10  !open(1,file='ecur.wr',form='formatted')
11 
12  write(1,*) nk,nkcoil
13 
14  write(1,*) (rk(i),i=1,nk)
15  write(1,*) (zk(j),j=1,nk)
16  write(1,*) (tk(j),j=1,nk)
17  write(1,*) (wecon(j),j=1,nkcoil)
18  write(1,*) (necon(j),j=1,nkcoil)
19  close(1)
20  RETURN
21  END
22 
23  SUBROUTINE rdcoil(nk,nkcoil,rk,zk,tk,necon,wecon)
24 
25  include 'double.inc'
26 
27  real*8 rk(*),zk(*),tk(*),wecon(*)
28  integer nk,nkcoil,necon(*)
29 
30  write(fname,'(a,a)') path(1:kname),'ecur.wr'
31  open(1,file=fname,form='formatted')
32  !open(1,file='ecur.wr',form='formatted')
33 
34  read(1,*) nk,nkcoil
35 
36  read(1,*) (rk(i),i=1,nk)
37  read(1,*) (zk(j),j=1,nk)
38  read(1,*) (tk(j),j=1,nk)
39  read(1,*) (wecon(j),j=1,nkcoil)
40  read(1,*) (necon(j),j=1,nkcoil)
41  close(1)
42  RETURN
43  END
44 
rdcoil
subroutine rdcoil(nk, nkcoil, rk, zk, tk, necon, wecon)
Definition: wrc.f:23
wrcoil
subroutine wrcoil(nk, nkcoil, rk, zk, tk, necon, wecon)
Definition: wrc.f:1