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)