5 ! Contributed by Scott Pakin
7 subroutine broken
( name1
, name2
, bmix
)
11 integer, parameter :: i_knd
= kind
( 1 )
12 integer, parameter :: r_knd
= selected_real_kind
( 13 )
14 character(len
=8) :: dum
15 character(len
=8) :: blk
16 real(r_knd
), dimension(*) :: bmix
, name1
, name2
17 integer(i_knd
) :: j
, idx1
, n
, i
18 integer(i_knd
), external :: nafix
20 write (*, 99002) name1
(j
),
22 & transfer
(name2
(nafix
(bmix
(idx1
+i
),1)),dum
)//blk
23 & //blk
), bmix
(idx1
+i
+1), i
= 1, n
, 2 )
25 99002 format (' *', 10x
, a8
, 8x
, 3(a24
,1pe12
.5
,',',6x
))