2 ! test namelist with scalars and arrays.
3 ! Based on example provided by thomas.koenig@online.de
8 integer, parameter :: dr=selected_real_kind(15)
10 integer, parameter :: nkmax=6
11 real (kind=dr) :: rb(nkmax)
17 real (kind=dr) :: delta
22 real (kind=dr) :: phi, phi0, rad, rex, zk, z0, drdphi, dzdphi
24 namelist /schnecke/ z, dg, a, t, delta, s, nk, rb, alpha0
26 open (10,status="scratch")
27 write (10, *) "&SCHNECKE"
29 write (10, *) " dg=58.4,"
30 write (10, *) " a=48.,"
31 write (10, *) " delta=0.4,"
32 write (10, *) " s=0.4,"
33 write (10, *) " nk=6,"
34 write (10, *) " rb=60, 0, 40,"
35 write (10, *) " alpha0=20.,"
41 if ((z /= 1) .or. (dg /= 58.4_dr) .or. (a /= 48.0_dr) .or. &
42 (delta /= 0.4_dr).or. (s /= 0.4_dr) .or. (nk /= 6) .or. &
43 (rb(1) /= 60._dr).or. (rb(2) /= 0.0_dr).or. (rb(3) /=40.0_dr).or. &
44 (alpha0 /= 20.0_dr)) call abort ()