Functions/Subroutines
subroutine	putlineint1 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint2 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint3 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint4 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint5 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint6 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlineint7 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal1 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal2 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal3 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal4 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal5 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal6 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinereal7 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble1 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble2 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble3 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble4 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble5 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble6 (array, lbounds, ubounds, unit, indent, sd)

subroutine	putlinedouble7 (array, lbounds, ubounds, unit, indent, sd)

Function/Subroutine Documentation

◆ putlinedouble1()

subroutine putlinedouble1	(	real(dp), dimension(:), intent(in)	array,
		integer, dimension(1), intent(in), optional	lbounds,
		integer, dimension(1), intent(in), optional	ubounds,
		integer, intent(in), optional	unit,
		character(*), intent(in), optional	indent,
		logical, intent(in), optional	sd
	)

Definition at line 2057 of file dcstringputline.f90.

References dc_types::dp, dc_present::present_and_true(), dc_types::stdout, and dc_types::string.

                                         
                     
 
   use dc_types, only: dp, string, stdout
   use dc_string, only: tochar
   use dc_string, only: printf, cprintf
   use dc_present, only: present_and_true
   implicit none
   real(DP), intent(in):: array(:)
   integer, intent(in), optional:: lbounds(1)
   integer, intent(in), optional:: ubounds(1)
   integer, intent(in), optional:: unit
   character(*), intent(in), optional:: indent
   logical, intent(in), optional:: sd
   integer:: out_unit
   integer:: indent_len
   character(STRING):: indent_str
   integer:: i
   integer:: alldim_size, lbound_nums(1), ubound_nums(1)
   character(STRING):: size_str, sd_str
   real(DP):: max_value, min_value
   real(DP), allocatable:: array_packed(:)
   real:: avg_value, variance_value, sd_value
 continue
 
   !-----------------------------------------------------------------
   !  オプショナル引数のチェック
   !  Check optional arguments
   !-----------------------------------------------------------------
   if ( present(unit) ) then
     out_unit = unit
   else
     out_unit = stdout
   end if
 
   indent_len = 0
   indent_str = ''
   if ( present(indent) ) then
     if (len(indent) /= 0) then
       indent_len = len(indent)
       indent_str(1:indent_len) = indent
     end if
   end if
 
   !-------------------------------------------------------------------
   !  配列サイズ
   !  Array size
   !-------------------------------------------------------------------
 
   if ( present(lbounds) .and. present(ubounds) ) then
     lbound_nums = lbounds
     ubound_nums = ubounds
   else
                         lbound_nums(1) = lbound( array, 1 )
     ubound_nums(1) = ubound( array, 1 )
                     
   end if
 
   size_str = '('
   size_str = trim(size_str) // trim(tochar(lbound_nums(1))) // ':'
   size_str = trim(size_str) // trim(tochar(ubound_nums(1)))
                     
   size_str = trim(size_str) // ')'
 
   !-------------------------------------------------------------------
   !  最大値
   !  Maximum value
   !-------------------------------------------------------------------
   max_value = maxval(array)
 
   !-------------------------------------------------------------------
   !  最小値
   !  Minimum value
   !-------------------------------------------------------------------
   min_value = minval(array)
 
   !-------------------------------------------------------------------
   !  平均値
   !  Average value
   !-------------------------------------------------------------------
   alldim_size = size(array)
   avg_value = sum(array) / real(alldim_size)
 
   !-------------------------------------------------------------------
   !  標準偏差
   !  Standard deviation
   !-------------------------------------------------------------------
   sd_value = 0.0
   variance_value = 0.0
   sd_str = ''
   if ( present_and_true( sd ) ) then
     if ( alldim_size > 1 ) then
       if (allocated(array_packed)) then
         deallocate(array_packed)
       end if
       allocate( array_packed(alldim_size) )
 
                             array_packed = array
                       
 
       do i = 1, alldim_size
         variance_value = variance_value + &
           & (array_packed(i) - avg_value) * (array_packed(i) - avg_value)
       end do
       variance_value = variance_value / real(alldim_size)
       sd_value = sqrt( variance_value )
       sd_str = cprintf( ' @sd=%r', r = (/ sd_value /) )
     end if
   end if
 
   !-------------------------------------------------------------------
   !  印字
   !  Print
   !-------------------------------------------------------------------
   call printf(out_unit, &
     & indent_str(1:indent_len) // &
                         & '#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>', &
     & d = (/max_value, min_value/), r = (/avg_value/), &
                     
 
     & c1 = trim(size_str), c2 = trim(sd_str) )
 