dcstringcprintf.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
function dcstringcprintf(fmt, i, r, d, L, n, c1, c2, c3, ca, maxlen) result(result)
 
  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
end function dcstringcprintf
 
function dcstringcprintft(fmt, i, r, d, L, n, c1, c2, c3, ca, maxlen) result(result)
 
  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
end function dcstringcprintft