dcstringfprintf.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcstringfprintf (unit, fmt, i, r, d, l, n, c1, c2, c3, ca)
	Formatted output conversion to file unit.

Function/Subroutine Documentation

dcstringfprintf()

subroutine dcstringfprintf	(	integer, intent(in), optional	unit,
		character(*), intent(in)	fmt,
		integer, dimension(:), intent(in), optional	i,
		real(sp), dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	l,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca )

Formatted output conversion to file unit.

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Format a string like C sprintf(3) and output to a file unit. Note that the implementation is quite different from C sprintf(3).

Format string and output to unit

Return a formatted string according to format string fmt to unit unit. If unit is omitted, output to standard output. Use specifiers starting with '' in fmt. Use '%' to output a literal ''. See dcstringsprintf.f90 for specifier details and examples.

Parameters

[in]	unit	Output unit number (default: standard output)
[in]	fmt	Format string with specifiers
[in]	i	Integer array data for d, o, x
[in]	r	Single precision real array data for r
[in]	d	Double precision real array data for f
[in]	L	Logical array data for b, y
[in]	n	Repeat counts for %* specifier
[in]	c1	First character string for c
[in]	c2	Second character string for c
[in]	c3	Third character string for c
[in]	ca	Character array for a

Definition at line 67 of file dcstringfprintf.f90.

 
  use dc_types, only: string, dp,sp
  use dc_string, only: printf
  implicit none
  integer, intent(in), optional:: unit
  character(*), intent(in):: fmt
  integer, intent(in), optional:: i(:), n(:)
  real(SP), intent(in), optional:: r(:)
  real(DP), intent(in), optional:: d(:)
  logical, intent(in), optional:: L(:)
  character(*), intent(in), optional:: c1, c2, c3
  character(*), intent(in), optional:: ca(:)
  character(STRING):: buf
  continue
  call printf(buf, fmt, i=i, r=r, d=d, l=l, n=n, &
    & c1=c1, c2=c2, c3=c3, ca=ca)
  if (present(unit)) then
    write(unit, '(A)') trim(buf)
  else
    write(*, '(A)') trim(buf)
  endif

References dc_types::dp, dc_types::sp, and dc_types::string.