45 integer,
optional :: unit
46 integer :: mn, mx,
s,
i, lg, iunit
47 character :: fmt*10, fmt2*10
50 if(present(unit))
then
56 write(iunit,
'(a15,"= [ ")',advance=
'no')lab
66 if(a(
i) .lt. 0)
s =
s+1
70 write(fmt2,
'("(i",a4,",2x)")')fmt(1:4)
71 write(iunit,fmt2,advance=
'no')a(
i)
74 write(iunit,
'(" ];")')
90 real(kind(1.e0)) :: a(:)
93 integer,
optional :: unit
95 integer :: mn, mx,
s,
i, lg, iunit
96 character :: fmt*12, fmt2*12
99 if(present(unit))
then
105 write(iunit,
'(a15,"= [ ")',advance=
'no')lab
107 mx = floor(abs(a(
i)))
115 if(a(
i) .lt. 0)
s =
s+1
117 write(fmt,
'(i4,".",i2)')
s+1+digits,digits
119 write(fmt2,
'("(f",a5,",2x)")')fmt(1:5)
120 write(iunit,fmt2,advance=
'no')a(
i)
123 write(iunit,
'(" ];")')
140 real(kind(1.d0)) :: a(:)
143 integer,
optional :: unit
145 integer :: mn, mx,
s,
i, lg, iunit
146 character :: fmt*12, fmt2*12
149 if(present(unit))
then
155 write(iunit,
'(a15,"= [ ")',advance=
'no')lab
157 mx = floor(abs(a(
i)))
165 if(a(
i) .lt. 0)
s =
s+1
167 write(fmt,
'(i4,".",i2)')
s+1+digits,digits
169 write(fmt2,
'("(f",a5,",2x)")')fmt(1:5)
170 write(iunit,fmt2,advance=
'no')a(
i)
173 write(iunit,
'(" ];")')
193 complex(kind(1.e0)) :: a(:)
196 integer,
optional :: unit
198 integer :: mn, mx,
s,
i, lg, iunit
199 character :: fmt*12, fmt2*12, fmt3*12
202 if(present(unit))
then
208 write(iunit,
'(a15,"= [ ")',advance=
'no')lab
210 mx = floor(abs(
real(a(
i))))
218 if(
real(a(i)) .lt. 0)
s =
s+1
220 write(fmt,
'(i4,".4")')
s+5
222 write(fmt2,
'("(f",a5,","","",")')fmt(1:5)
224 mx = floor(abs(aimag(a(
i))))
232 if(aimag(a(
i)) .lt. 0)
s =
s+1
234 write(fmt,
'(i4,".",i2)')
s+1+digits,digits
236 write(fmt3,
'("f",a5,",2x)")')fmt(1:5)
238 write(iunit,fmt2//fmt3,advance=
'no')a(
i)
241 write(iunit,
'(" ];")')
258 complex(kind(1.d0)) :: a(:)
261 integer,
optional :: unit
263 integer :: mn, mx,
s,
i, lg, iunit
264 character :: fmt*12, fmt2*12, fmt3*12
267 if(present(unit))
then
273 write(iunit,
'(a15,"= [ ")',advance=
'no')lab
275 mx = floor(abs(
real(a(
i))))
283 if(
real(a(i)) .lt. 0)
s =
s+1
285 write(fmt,
'(i4,".4")')
s+5
287 write(fmt2,
'("(f",a5,","","",")')fmt(1:5)
289 mx = floor(abs(aimag(a(
i))))
297 if(aimag(a(
i)) .lt. 0)
s =
s+1
299 write(fmt,
'(i4,".",i2)')
s+1+digits,digits
301 write(fmt3,
'("f",a5,",2x)")')fmt(1:5)
303 write(iunit,fmt2//fmt3,advance=
'no')a(
i)
306 write(iunit,
'(" ];")')
subroutine qrm_prnt_carray(a, lab, digits, unit)
subroutine qrm_prnt_darray(a, lab, digits, unit)
subroutine qrm_prnt_iarray(a, lab, unit)
subroutine qrm_prnt_sarray(a, lab, digits, unit)
subroutine qrm_prnt_zarray(a, lab, digits, unit)