dcstringcprintf.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
character(len=string) function	dcstringcprintf (fmt, i, r, d, l, n, c1, c2, c3, ca, maxlen)
	書式変換出力 (関数版)
character(len=token) function	dcstringcprintft (fmt, i, r, d, l, n, c1, c2, c3, ca, maxlen)

Function/Subroutine Documentation

dcstringcprintf()

character(len = string) function dcstringcprintf	(	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,
		integer, intent(in), optional	maxlen )

書式変換出力 (関数版)

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

C の sprintf(3) のように文字列をフォーマットして返します。 ただし、実装は C の sprintf(3) とは大分違うのでご注意ください。

書式変換した文字列を返す

フォーマット文字列 fmt に従って変換された文字列を返します。 fmt には '' で始まる指示子を含む文字列を与えます。 '' を出力したい場合は '%' と記述します。 指示子に関しての詳細や用例に関しては dcstringsprintf.f90 を参照ください。

Parameters

[in]	fmt	指示子を含むフォーマット文字列
[in]	i	d, o, x 用の整数配列データ
[in]	r	r 用の単精度実数配列データ
[in]	d	f 用の倍精度実数配列データ
[in]	L	b, y 用の論理配列データ
[in]	n	%* 用の繰り返し回数
[in]	c1	c 用の1番目の文字列
[in]	c2	c 用の2番目の文字列
[in]	c3	c 用の3番目の文字列
[in]	ca	a 用の文字配列

Returns

書式変換された文字列

Definition at line 65 of file dcstringcprintf.f90.

 
  use dc_types, only: string, dp, sp
  use dc_string, only: printf
  implicit none
  character(len = STRING):: result
  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(:)
  integer, intent(in), optional:: maxlen
  integer:: out_len
  continue
  call printf(result, fmt, i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
  if (present(maxlen)) then
    out_len = max(0, min(len(result), maxlen))
    if (out_len == 0) then
      result = ''
    else if (out_len < len(result)) then
      result = result(1:out_len)
    end if
  end if

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

dcstringcprintft()

character(len = token) function dcstringcprintft	(	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,
		integer, intent(in), optional	maxlen )

Definition at line 92 of file dcstringcprintf.f90.

 
  use dc_types, only: string, token, dp, sp
  use dc_string, only: cprintf
  implicit none
  character(len = TOKEN):: result
  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(:)
  integer, intent(in), optional:: maxlen
  character(len = STRING):: tmp
  integer:: out_len
  continue
  if (present(maxlen)) then
    tmp = cprintf(fmt, i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca, maxlen=maxlen)
    out_len = max(0, min(len(result), maxlen))
  else
    tmp = cprintf(fmt, i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
    out_len = len(result)
  end if
  result = ''
  if (out_len > 0) then
    result(1:out_len) = tmp(1:out_len)
  end if

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