6 INTEGER,
PRIVATE :: js, lu, lv
10 SUBROUTINE dump_special
16 WRITE (66,100) ns, ntheta, ntheta3, nzeta
17 100
FORMAT(
"NS: ",i4,
" NU: ",i4,
" NU2: ",i4,
" NV: ",i4)
19 110
FORMAT(
"JS POINT: ", i4, /)
21 WRITE (66, *)
" R1 Z1 RU ZU",
24 CALL write_rzl(r1,z1,ru,zu,rv,zv,js)
26 END SUBROUTINE dump_special
28 SUBROUTINE write_rzl(r1,z1,ru,zu,rv,zv,jspt)
29 REAL(rprec),
INTENT(in),
DIMENSION(ns,nzeta,ntheta3,0:1) ::
30 1 r1, z1, ru, zu, rv, zv
31 REAL(rprec) :: factor, temp1, temp2, temp3, temp4, temp5, temp6
39 temp1 = r1(jspt,lv,lu,0) + factor*r1(jspt,lv,lu,1)
40 temp2 = z1(jspt,lv,lu,0) + factor*z1(jspt,lv,lu,1)
41 temp3 = ru(jspt,lv,lu,0) + factor*ru(jspt,lv,lu,1)
42 temp4 = zu(jspt,lv,lu,0) + factor*zu(jspt,lv,lu,1)
43 temp5 = rv(jspt,lv,lu,0) + factor*rv(jspt,lv,lu,1)
44 temp6 = zv(jspt,lv,lu,0) + factor*zv(jspt,lv,lu,1)
45 WRITE (66, 200) lv, temp1, temp2, temp3,
50 100
FORMAT (
"lu: ", i4)
51 200
FORMAT (i4, 1p,6e12.4)
53 END SUBROUTINE write_rzl
55 END MODULE dump_output