Subroutine DCStringSPrintf

subroutine DCStringSPrintf

        ! Uses
    use dcstring_base, only: VSTRING, assignment(=)
    use dc_types, only: DP

        ! Calls
    call append

        ! Variables
    character (len=*), intent(out) :: unit
    character (len=*), intent(in) :: fmt
    integer, optional, intent(in), dimension (:) :: i
    integer, optional, intent(in), dimension (:) :: n
    real, optional, intent(in), dimension (:) :: r
    real (kind=DP), optional, intent(in), dimension (:) :: d
    logical, optional, intent(in), dimension (:) :: L
    type (VSTRING), optional, intent(in), dimension (:) :: s
    character (len=*), optional, intent(in) :: c1
    character (len=*), optional, intent(in) :: c2
    character (len=*), optional, intent(in) :: c3
    character (len=*), optional, intent(in), dimension (:) :: ca
    integer :: ni
    integer :: nr
    integer :: nd
    integer :: nl
    integer :: ns
    integer :: nc
    integer :: na
    integer :: nn
    integer :: ucur
    integer :: endp
    integer :: cur
    integer :: ptr
    integer :: repeat
    integer :: m
    integer :: stat
    character (len=80) :: cbuf

        ! Subroutines and functions
    subroutine append (unit, ucur, val, stat)

end subroutine DCStringSPrintf

Description of Variables

unit

character (len=*), intent(out) :: unit

fmt

character (len=*), intent(in) :: fmt

i

integer, optional, intent(in), dimension (:) :: i

n

integer, optional, intent(in), dimension (:) :: n

r

real, optional, intent(in), dimension (:) :: r

d

real (kind=DP), optional, intent(in), dimension (:) :: d

L

logical, optional, intent(in), dimension (:) :: L

s

type (VSTRING), optional, intent(in), dimension (:) :: s

c1

character (len=*), optional, intent(in) :: c1

c2

character (len=*), optional, intent(in) :: c2

c3

character (len=*), optional, intent(in) :: c3

ca

character (len=*), optional, intent(in), dimension (:) :: ca

ni

integer :: ni

nr

integer :: nr

nd

integer :: nd

nl

integer :: nl

ns

integer :: ns

nc

integer :: nc

na

integer :: na

nn

integer :: nn

ucur

integer :: ucur

endp

integer :: endp

cur

integer :: cur

ptr

integer :: ptr

repeat

integer :: repeat

m

integer :: m

stat

integer :: stat

cbuf

character (len=80) :: cbuf

Description of Subroutines and Functions

append

subroutine append (unit, ucur, val, stat)
    character (len=*), intent(inout) :: unit
    integer, intent(inout) :: ucur
    character (len=*), intent(in) :: val
    integer, intent(out) :: stat
end subroutine append