\hypertarget{dcstringputline_8f90}{}\section{dc\+\_\+utils/dcstringputline.f90 File Reference}
\label{dcstringputline_8f90}\index{dc\+\_\+utils/dcstringputline.\+f90@{dc\+\_\+utils/dcstringputline.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dcstringputline_8f90_aa178e56ebb45319e0b889dc10900aee2}{putlineint1} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a88a125fb43d36b6a5c482d218defec11}{putlineint2} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_ae26543a192b35b838e4b3b95bc0d45b9}{putlineint3} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a5240db3c48b35d16f23e6c2badaf32c8}{putlineint4} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a4591fe67d4a9c48eaeca8de84e84a83a}{putlineint5} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a3ebf6445bcf559f76efb074baeb2753c}{putlineint6} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a2d4c37f2a0be65d9464a39a422a75600}{putlineint7} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a1890cdd6b486137ad4f5a981d3a3c0cb}{putlinereal1} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_ac948161eddf2e27791a5bc678465379d}{putlinereal2} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a7c3e3fc139420952d93dc329230d2f9c}{putlinereal3} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a86c58b3e7f5aa553ba1ec1e824b7d8f0}{putlinereal4} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_acea9f2357a37a5467b5963109adbf9d3}{putlinereal5} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a1bfcb7368c35887fe3a417725893ea39}{putlinereal6} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_ac5ce83d66003ab502579884150da941b}{putlinereal7} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a787e2e80b2202ae4c28f170226f9509e}{putlinedouble1} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_ac9a27d5f015033881732e7d076e092f2}{putlinedouble2} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_afb033aea80e969dbd5226941deecb3a4}{putlinedouble3} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a39334a033c47f7a5a2cf5655564a245d}{putlinedouble4} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a49f19d2de8530f7c039924c9d82c6b87}{putlinedouble5} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_a055ed856027312ef4d7f2eea2d2eb4d0}{putlinedouble6} (array, lbounds, ubounds, unit, indent, sd)
\item 
subroutine \hyperlink{dcstringputline_8f90_af60f8760b3d59cef1b36181dc3fc5db9}{putlinedouble7} (array, lbounds, ubounds, unit, indent, sd)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcstringputline_8f90_a787e2e80b2202ae4c28f170226f9509e}\label{dcstringputline_8f90_a787e2e80b2202ae4c28f170226f9509e}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble1@{putlinedouble1}}
\index{putlinedouble1@{putlinedouble1}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble1()}{putlinedouble1()}}
{\footnotesize\ttfamily subroutine putlinedouble1 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:), intent(in)}]{array,  }\item[{integer, dimension(1), intent(in), optional}]{lbounds,  }\item[{integer, dimension(1), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2057 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2057                                         
2058                     
2059 
2060   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2061   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2062   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2063   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2064   \textcolor{keywordtype}{implicit none}
2065   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:)
2066   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(1)
2067   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(1)
2068   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2069   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2070   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2071   \textcolor{keywordtype}{integer}:: out\_unit
2072   \textcolor{keywordtype}{integer}:: indent\_len
2073   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2074   \textcolor{keywordtype}{integer}:: i
2075   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(1), ubound\_nums(1)
2076   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2077   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2078   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2079   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2080 \textcolor{keywordflow}{continue}
2081 
2082   \textcolor{comment}{!-----------------------------------------------------------------}
2083   \textcolor{comment}{!  オプショナル引数のチェック}
2084   \textcolor{comment}{!  Check optional arguments}
2085   \textcolor{comment}{!-----------------------------------------------------------------}
2086   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2087     out\_unit = unit
2088   \textcolor{keywordflow}{else}
2089     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2090 \textcolor{keywordflow}{  end if}
2091 
2092   indent\_len = 0
2093   indent\_str = \textcolor{stringliteral}{''}
2094   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2095     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2096       indent\_len = len(indent)
2097       indent\_str(1:indent\_len) = indent
2098 \textcolor{keywordflow}{    end if}
2099 \textcolor{keywordflow}{  end if}
2100 
2101   \textcolor{comment}{!-------------------------------------------------------------------}
2102   \textcolor{comment}{!  配列サイズ}
2103   \textcolor{comment}{!  Array size}
2104   \textcolor{comment}{!-------------------------------------------------------------------}
2105 
2106   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2107     lbound\_nums = lbounds
2108     ubound\_nums = ubounds
2109   \textcolor{keywordflow}{else}
2110                         lbound\_nums(1) = lbound( array, 1 )
2111     ubound\_nums(1) = ubound( array, 1 )
2112                     
2113 \textcolor{keywordflow}{  end if}
2114 
2115   size\_str = \textcolor{stringliteral}{'('}
2116   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2117   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2118                     
2119   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2120 
2121   \textcolor{comment}{!-------------------------------------------------------------------}
2122   \textcolor{comment}{!  最大値}
2123   \textcolor{comment}{!  Maximum value}
2124   \textcolor{comment}{!-------------------------------------------------------------------}
2125   max\_value = maxval(array)
2126 
2127   \textcolor{comment}{!-------------------------------------------------------------------}
2128   \textcolor{comment}{!  最小値}
2129   \textcolor{comment}{!  Minimum value}
2130   \textcolor{comment}{!-------------------------------------------------------------------}
2131   min\_value = minval(array)
2132 
2133   \textcolor{comment}{!-------------------------------------------------------------------}
2134   \textcolor{comment}{!  平均値}
2135   \textcolor{comment}{!  Average value}
2136   \textcolor{comment}{!-------------------------------------------------------------------}
2137   alldim\_size = \textcolor{keyword}{size}(array)
2138   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2139 
2140   \textcolor{comment}{!-------------------------------------------------------------------}
2141   \textcolor{comment}{!  標準偏差}
2142   \textcolor{comment}{!  Standard deviation}
2143   \textcolor{comment}{!-------------------------------------------------------------------}
2144   sd\_value = 0.0
2145   variance\_value = 0.0
2146   sd\_str = \textcolor{stringliteral}{''}
2147   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2148     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2149       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2150         \textcolor{keyword}{deallocate}(array\_packed)
2151 \textcolor{keywordflow}{      end if}
2152       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2153 
2154                             array\_packed = array
2155                       
2156 
2157       \textcolor{keywordflow}{do} i = 1, alldim\_size
2158         variance\_value = variance\_value + &
2159           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2160 \textcolor{keywordflow}{      end do}
2161       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2162       sd\_value = sqrt( variance\_value )
2163       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2164 \textcolor{keywordflow}{    end if}
2165 \textcolor{keywordflow}{  end if}
2166 
2167   \textcolor{comment}{!-------------------------------------------------------------------}
2168   \textcolor{comment}{!  印字}
2169   \textcolor{comment}{!  Print}
2170   \textcolor{comment}{!-------------------------------------------------------------------}
2171   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2172     & indent\_str(1:indent\_len) // &
2173                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2174     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2175                     
2176 
2177     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2178 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_a787e2e80b2202ae4c28f170226f9509e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_ac9a27d5f015033881732e7d076e092f2}\label{dcstringputline_8f90_ac9a27d5f015033881732e7d076e092f2}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble2@{putlinedouble2}}
\index{putlinedouble2@{putlinedouble2}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble2()}{putlinedouble2()}}
{\footnotesize\ttfamily subroutine putlinedouble2 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(2), intent(in), optional}]{lbounds,  }\item[{integer, dimension(2), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2183 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2183                     
2184 
2185   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2186   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2187   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2188   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2189   \textcolor{keywordtype}{implicit none}
2190   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
2191   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(2)
2192   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(2)
2193   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2194   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2195   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2196   \textcolor{keywordtype}{integer}:: out\_unit
2197   \textcolor{keywordtype}{integer}:: indent\_len
2198   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2199   \textcolor{keywordtype}{integer}:: i
2200   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(2), ubound\_nums(2)
2201   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2202   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2203   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2204   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2205 \textcolor{keywordflow}{continue}
2206 
2207   \textcolor{comment}{!-----------------------------------------------------------------}
2208   \textcolor{comment}{!  オプショナル引数のチェック}
2209   \textcolor{comment}{!  Check optional arguments}
2210   \textcolor{comment}{!-----------------------------------------------------------------}
2211   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2212     out\_unit = unit
2213   \textcolor{keywordflow}{else}
2214     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2215 \textcolor{keywordflow}{  end if}
2216 
2217   indent\_len = 0
2218   indent\_str = \textcolor{stringliteral}{''}
2219   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2220     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2221       indent\_len = len(indent)
2222       indent\_str(1:indent\_len) = indent
2223 \textcolor{keywordflow}{    end if}
2224 \textcolor{keywordflow}{  end if}
2225 
2226   \textcolor{comment}{!-------------------------------------------------------------------}
2227   \textcolor{comment}{!  配列サイズ}
2228   \textcolor{comment}{!  Array size}
2229   \textcolor{comment}{!-------------------------------------------------------------------}
2230 
2231   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2232     lbound\_nums = lbounds
2233     ubound\_nums = ubounds
2234   \textcolor{keywordflow}{else}
2235                         lbound\_nums(1) = lbound( array, 1 )
2236     ubound\_nums(1) = ubound( array, 1 )
2237                     
2238     lbound\_nums(2) = lbound( array, 2 )
2239     ubound\_nums(2) = ubound( array, 2 )
2240                     
2241 \textcolor{keywordflow}{  end if}
2242 
2243   size\_str = \textcolor{stringliteral}{'('}
2244   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2245   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2246                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2247   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2248                     
2249   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2250 
2251   \textcolor{comment}{!-------------------------------------------------------------------}
2252   \textcolor{comment}{!  最大値}
2253   \textcolor{comment}{!  Maximum value}
2254   \textcolor{comment}{!-------------------------------------------------------------------}
2255   max\_value = maxval(array)
2256 
2257   \textcolor{comment}{!-------------------------------------------------------------------}
2258   \textcolor{comment}{!  最小値}
2259   \textcolor{comment}{!  Minimum value}
2260   \textcolor{comment}{!-------------------------------------------------------------------}
2261   min\_value = minval(array)
2262 
2263   \textcolor{comment}{!-------------------------------------------------------------------}
2264   \textcolor{comment}{!  平均値}
2265   \textcolor{comment}{!  Average value}
2266   \textcolor{comment}{!-------------------------------------------------------------------}
2267   alldim\_size = \textcolor{keyword}{size}(array)
2268   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2269 
2270   \textcolor{comment}{!-------------------------------------------------------------------}
2271   \textcolor{comment}{!  標準偏差}
2272   \textcolor{comment}{!  Standard deviation}
2273   \textcolor{comment}{!-------------------------------------------------------------------}
2274   sd\_value = 0.0
2275   variance\_value = 0.0
2276   sd\_str = \textcolor{stringliteral}{''}
2277   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2278     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2279       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2280         \textcolor{keyword}{deallocate}(array\_packed)
2281 \textcolor{keywordflow}{      end if}
2282       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2283 
2284                             array\_packed = pack(array, .true.)
2285                       
2286 
2287       \textcolor{keywordflow}{do} i = 1, alldim\_size
2288         variance\_value = variance\_value + &
2289           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2290 \textcolor{keywordflow}{      end do}
2291       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2292       sd\_value = sqrt( variance\_value )
2293       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2294 \textcolor{keywordflow}{    end if}
2295 \textcolor{keywordflow}{  end if}
2296 
2297   \textcolor{comment}{!-------------------------------------------------------------------}
2298   \textcolor{comment}{!  印字}
2299   \textcolor{comment}{!  Print}
2300   \textcolor{comment}{!-------------------------------------------------------------------}
2301   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2302     & indent\_str(1:indent\_len) // &
2303                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2304     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2305                     
2306 
2307     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2308 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_ac9a27d5f015033881732e7d076e092f2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_afb033aea80e969dbd5226941deecb3a4}\label{dcstringputline_8f90_afb033aea80e969dbd5226941deecb3a4}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble3@{putlinedouble3}}
\index{putlinedouble3@{putlinedouble3}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble3()}{putlinedouble3()}}
{\footnotesize\ttfamily subroutine putlinedouble3 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(3), intent(in), optional}]{lbounds,  }\item[{integer, dimension(3), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2313 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2313                     
2314 
2315   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2316   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2317   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2318   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2319   \textcolor{keywordtype}{implicit none}
2320   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
2321   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(3)
2322   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(3)
2323   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2324   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2325   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2326   \textcolor{keywordtype}{integer}:: out\_unit
2327   \textcolor{keywordtype}{integer}:: indent\_len
2328   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2329   \textcolor{keywordtype}{integer}:: i
2330   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(3), ubound\_nums(3)
2331   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2332   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2333   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2334   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2335 \textcolor{keywordflow}{continue}
2336 
2337   \textcolor{comment}{!-----------------------------------------------------------------}
2338   \textcolor{comment}{!  オプショナル引数のチェック}
2339   \textcolor{comment}{!  Check optional arguments}
2340   \textcolor{comment}{!-----------------------------------------------------------------}
2341   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2342     out\_unit = unit
2343   \textcolor{keywordflow}{else}
2344     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2345 \textcolor{keywordflow}{  end if}
2346 
2347   indent\_len = 0
2348   indent\_str = \textcolor{stringliteral}{''}
2349   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2350     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2351       indent\_len = len(indent)
2352       indent\_str(1:indent\_len) = indent
2353 \textcolor{keywordflow}{    end if}
2354 \textcolor{keywordflow}{  end if}
2355 
2356   \textcolor{comment}{!-------------------------------------------------------------------}
2357   \textcolor{comment}{!  配列サイズ}
2358   \textcolor{comment}{!  Array size}
2359   \textcolor{comment}{!-------------------------------------------------------------------}
2360 
2361   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2362     lbound\_nums = lbounds
2363     ubound\_nums = ubounds
2364   \textcolor{keywordflow}{else}
2365                         lbound\_nums(1) = lbound( array, 1 )
2366     ubound\_nums(1) = ubound( array, 1 )
2367                     
2368     lbound\_nums(2) = lbound( array, 2 )
2369     ubound\_nums(2) = ubound( array, 2 )
2370                     
2371     lbound\_nums(3) = lbound( array, 3 )
2372     ubound\_nums(3) = ubound( array, 3 )
2373                     
2374 \textcolor{keywordflow}{  end if}
2375 
2376   size\_str = \textcolor{stringliteral}{'('}
2377   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2378   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2379                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2380   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2381                     
2382   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
2383   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
2384                     
2385   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2386 
2387   \textcolor{comment}{!-------------------------------------------------------------------}
2388   \textcolor{comment}{!  最大値}
2389   \textcolor{comment}{!  Maximum value}
2390   \textcolor{comment}{!-------------------------------------------------------------------}
2391   max\_value = maxval(array)
2392 
2393   \textcolor{comment}{!-------------------------------------------------------------------}
2394   \textcolor{comment}{!  最小値}
2395   \textcolor{comment}{!  Minimum value}
2396   \textcolor{comment}{!-------------------------------------------------------------------}
2397   min\_value = minval(array)
2398 
2399   \textcolor{comment}{!-------------------------------------------------------------------}
2400   \textcolor{comment}{!  平均値}
2401   \textcolor{comment}{!  Average value}
2402   \textcolor{comment}{!-------------------------------------------------------------------}
2403   alldim\_size = \textcolor{keyword}{size}(array)
2404   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2405 
2406   \textcolor{comment}{!-------------------------------------------------------------------}
2407   \textcolor{comment}{!  標準偏差}
2408   \textcolor{comment}{!  Standard deviation}
2409   \textcolor{comment}{!-------------------------------------------------------------------}
2410   sd\_value = 0.0
2411   variance\_value = 0.0
2412   sd\_str = \textcolor{stringliteral}{''}
2413   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2414     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2415       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2416         \textcolor{keyword}{deallocate}(array\_packed)
2417 \textcolor{keywordflow}{      end if}
2418       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2419 
2420                             array\_packed = pack(array, .true.)
2421                       
2422 
2423       \textcolor{keywordflow}{do} i = 1, alldim\_size
2424         variance\_value = variance\_value + &
2425           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2426 \textcolor{keywordflow}{      end do}
2427       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2428       sd\_value = sqrt( variance\_value )
2429       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2430 \textcolor{keywordflow}{    end if}
2431 \textcolor{keywordflow}{  end if}
2432 
2433   \textcolor{comment}{!-------------------------------------------------------------------}
2434   \textcolor{comment}{!  印字}
2435   \textcolor{comment}{!  Print}
2436   \textcolor{comment}{!-------------------------------------------------------------------}
2437   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2438     & indent\_str(1:indent\_len) // &
2439                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2440     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2441                     
2442 
2443     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2444 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_afb033aea80e969dbd5226941deecb3a4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a39334a033c47f7a5a2cf5655564a245d}\label{dcstringputline_8f90_a39334a033c47f7a5a2cf5655564a245d}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble4@{putlinedouble4}}
\index{putlinedouble4@{putlinedouble4}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble4()}{putlinedouble4()}}
{\footnotesize\ttfamily subroutine putlinedouble4 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(4), intent(in), optional}]{lbounds,  }\item[{integer, dimension(4), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2449 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2449                     
2450 
2451   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2452   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2453   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2454   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2455   \textcolor{keywordtype}{implicit none}
2456   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
2457   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(4)
2458   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(4)
2459   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2460   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2461   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2462   \textcolor{keywordtype}{integer}:: out\_unit
2463   \textcolor{keywordtype}{integer}:: indent\_len
2464   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2465   \textcolor{keywordtype}{integer}:: i
2466   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(4), ubound\_nums(4)
2467   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2468   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2469   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2470   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2471 \textcolor{keywordflow}{continue}
2472 
2473   \textcolor{comment}{!-----------------------------------------------------------------}
2474   \textcolor{comment}{!  オプショナル引数のチェック}
2475   \textcolor{comment}{!  Check optional arguments}
2476   \textcolor{comment}{!-----------------------------------------------------------------}
2477   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2478     out\_unit = unit
2479   \textcolor{keywordflow}{else}
2480     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2481 \textcolor{keywordflow}{  end if}
2482 
2483   indent\_len = 0
2484   indent\_str = \textcolor{stringliteral}{''}
2485   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2486     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2487       indent\_len = len(indent)
2488       indent\_str(1:indent\_len) = indent
2489 \textcolor{keywordflow}{    end if}
2490 \textcolor{keywordflow}{  end if}
2491 
2492   \textcolor{comment}{!-------------------------------------------------------------------}
2493   \textcolor{comment}{!  配列サイズ}
2494   \textcolor{comment}{!  Array size}
2495   \textcolor{comment}{!-------------------------------------------------------------------}
2496 
2497   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2498     lbound\_nums = lbounds
2499     ubound\_nums = ubounds
2500   \textcolor{keywordflow}{else}
2501                         lbound\_nums(1) = lbound( array, 1 )
2502     ubound\_nums(1) = ubound( array, 1 )
2503                     
2504     lbound\_nums(2) = lbound( array, 2 )
2505     ubound\_nums(2) = ubound( array, 2 )
2506                     
2507     lbound\_nums(3) = lbound( array, 3 )
2508     ubound\_nums(3) = ubound( array, 3 )
2509                     
2510     lbound\_nums(4) = lbound( array, 4 )
2511     ubound\_nums(4) = ubound( array, 4 )
2512                     
2513 \textcolor{keywordflow}{  end if}
2514 
2515   size\_str = \textcolor{stringliteral}{'('}
2516   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2517   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2518                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2519   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2520                     
2521   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
2522   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
2523                     
2524   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
2525   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
2526                     
2527   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2528 
2529   \textcolor{comment}{!-------------------------------------------------------------------}
2530   \textcolor{comment}{!  最大値}
2531   \textcolor{comment}{!  Maximum value}
2532   \textcolor{comment}{!-------------------------------------------------------------------}
2533   max\_value = maxval(array)
2534 
2535   \textcolor{comment}{!-------------------------------------------------------------------}
2536   \textcolor{comment}{!  最小値}
2537   \textcolor{comment}{!  Minimum value}
2538   \textcolor{comment}{!-------------------------------------------------------------------}
2539   min\_value = minval(array)
2540 
2541   \textcolor{comment}{!-------------------------------------------------------------------}
2542   \textcolor{comment}{!  平均値}
2543   \textcolor{comment}{!  Average value}
2544   \textcolor{comment}{!-------------------------------------------------------------------}
2545   alldim\_size = \textcolor{keyword}{size}(array)
2546   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2547 
2548   \textcolor{comment}{!-------------------------------------------------------------------}
2549   \textcolor{comment}{!  標準偏差}
2550   \textcolor{comment}{!  Standard deviation}
2551   \textcolor{comment}{!-------------------------------------------------------------------}
2552   sd\_value = 0.0
2553   variance\_value = 0.0
2554   sd\_str = \textcolor{stringliteral}{''}
2555   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2556     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2557       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2558         \textcolor{keyword}{deallocate}(array\_packed)
2559 \textcolor{keywordflow}{      end if}
2560       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2561 
2562                             array\_packed = pack(array, .true.)
2563                       
2564 
2565       \textcolor{keywordflow}{do} i = 1, alldim\_size
2566         variance\_value = variance\_value + &
2567           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2568 \textcolor{keywordflow}{      end do}
2569       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2570       sd\_value = sqrt( variance\_value )
2571       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2572 \textcolor{keywordflow}{    end if}
2573 \textcolor{keywordflow}{  end if}
2574 
2575   \textcolor{comment}{!-------------------------------------------------------------------}
2576   \textcolor{comment}{!  印字}
2577   \textcolor{comment}{!  Print}
2578   \textcolor{comment}{!-------------------------------------------------------------------}
2579   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2580     & indent\_str(1:indent\_len) // &
2581                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2582     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2583                     
2584 
2585     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2586 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_a39334a033c47f7a5a2cf5655564a245d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a49f19d2de8530f7c039924c9d82c6b87}\label{dcstringputline_8f90_a49f19d2de8530f7c039924c9d82c6b87}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble5@{putlinedouble5}}
\index{putlinedouble5@{putlinedouble5}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble5()}{putlinedouble5()}}
{\footnotesize\ttfamily subroutine putlinedouble5 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(5), intent(in), optional}]{lbounds,  }\item[{integer, dimension(5), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2591 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2591                     
2592 
2593   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2594   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2595   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2596   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2597   \textcolor{keywordtype}{implicit none}
2598   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
2599   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(5)
2600   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(5)
2601   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2602   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2603   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2604   \textcolor{keywordtype}{integer}:: out\_unit
2605   \textcolor{keywordtype}{integer}:: indent\_len
2606   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2607   \textcolor{keywordtype}{integer}:: i
2608   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(5), ubound\_nums(5)
2609   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2610   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2611   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2612   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2613 \textcolor{keywordflow}{continue}
2614 
2615   \textcolor{comment}{!-----------------------------------------------------------------}
2616   \textcolor{comment}{!  オプショナル引数のチェック}
2617   \textcolor{comment}{!  Check optional arguments}
2618   \textcolor{comment}{!-----------------------------------------------------------------}
2619   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2620     out\_unit = unit
2621   \textcolor{keywordflow}{else}
2622     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2623 \textcolor{keywordflow}{  end if}
2624 
2625   indent\_len = 0
2626   indent\_str = \textcolor{stringliteral}{''}
2627   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2628     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2629       indent\_len = len(indent)
2630       indent\_str(1:indent\_len) = indent
2631 \textcolor{keywordflow}{    end if}
2632 \textcolor{keywordflow}{  end if}
2633 
2634   \textcolor{comment}{!-------------------------------------------------------------------}
2635   \textcolor{comment}{!  配列サイズ}
2636   \textcolor{comment}{!  Array size}
2637   \textcolor{comment}{!-------------------------------------------------------------------}
2638 
2639   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2640     lbound\_nums = lbounds
2641     ubound\_nums = ubounds
2642   \textcolor{keywordflow}{else}
2643                         lbound\_nums(1) = lbound( array, 1 )
2644     ubound\_nums(1) = ubound( array, 1 )
2645                     
2646     lbound\_nums(2) = lbound( array, 2 )
2647     ubound\_nums(2) = ubound( array, 2 )
2648                     
2649     lbound\_nums(3) = lbound( array, 3 )
2650     ubound\_nums(3) = ubound( array, 3 )
2651                     
2652     lbound\_nums(4) = lbound( array, 4 )
2653     ubound\_nums(4) = ubound( array, 4 )
2654                     
2655     lbound\_nums(5) = lbound( array, 5 )
2656     ubound\_nums(5) = ubound( array, 5 )
2657                     
2658 \textcolor{keywordflow}{  end if}
2659 
2660   size\_str = \textcolor{stringliteral}{'('}
2661   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2662   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2663                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2664   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2665                     
2666   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
2667   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
2668                     
2669   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
2670   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
2671                     
2672   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
2673   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
2674                     
2675   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2676 
2677   \textcolor{comment}{!-------------------------------------------------------------------}
2678   \textcolor{comment}{!  最大値}
2679   \textcolor{comment}{!  Maximum value}
2680   \textcolor{comment}{!-------------------------------------------------------------------}
2681   max\_value = maxval(array)
2682 
2683   \textcolor{comment}{!-------------------------------------------------------------------}
2684   \textcolor{comment}{!  最小値}
2685   \textcolor{comment}{!  Minimum value}
2686   \textcolor{comment}{!-------------------------------------------------------------------}
2687   min\_value = minval(array)
2688 
2689   \textcolor{comment}{!-------------------------------------------------------------------}
2690   \textcolor{comment}{!  平均値}
2691   \textcolor{comment}{!  Average value}
2692   \textcolor{comment}{!-------------------------------------------------------------------}
2693   alldim\_size = \textcolor{keyword}{size}(array)
2694   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2695 
2696   \textcolor{comment}{!-------------------------------------------------------------------}
2697   \textcolor{comment}{!  標準偏差}
2698   \textcolor{comment}{!  Standard deviation}
2699   \textcolor{comment}{!-------------------------------------------------------------------}
2700   sd\_value = 0.0
2701   variance\_value = 0.0
2702   sd\_str = \textcolor{stringliteral}{''}
2703   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2704     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2705       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2706         \textcolor{keyword}{deallocate}(array\_packed)
2707 \textcolor{keywordflow}{      end if}
2708       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2709 
2710                             array\_packed = pack(array, .true.)
2711                       
2712 
2713       \textcolor{keywordflow}{do} i = 1, alldim\_size
2714         variance\_value = variance\_value + &
2715           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2716 \textcolor{keywordflow}{      end do}
2717       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2718       sd\_value = sqrt( variance\_value )
2719       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2720 \textcolor{keywordflow}{    end if}
2721 \textcolor{keywordflow}{  end if}
2722 
2723   \textcolor{comment}{!-------------------------------------------------------------------}
2724   \textcolor{comment}{!  印字}
2725   \textcolor{comment}{!  Print}
2726   \textcolor{comment}{!-------------------------------------------------------------------}
2727   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2728     & indent\_str(1:indent\_len) // &
2729                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2730     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2731                     
2732 
2733     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2734 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_a49f19d2de8530f7c039924c9d82c6b87_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a055ed856027312ef4d7f2eea2d2eb4d0}\label{dcstringputline_8f90_a055ed856027312ef4d7f2eea2d2eb4d0}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble6@{putlinedouble6}}
\index{putlinedouble6@{putlinedouble6}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble6()}{putlinedouble6()}}
{\footnotesize\ttfamily subroutine putlinedouble6 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(6), intent(in), optional}]{lbounds,  }\item[{integer, dimension(6), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2739 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2739                     
2740 
2741   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2742   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2743   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2744   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2745   \textcolor{keywordtype}{implicit none}
2746   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
2747   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(6)
2748   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(6)
2749   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2750   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2751   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2752   \textcolor{keywordtype}{integer}:: out\_unit
2753   \textcolor{keywordtype}{integer}:: indent\_len
2754   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2755   \textcolor{keywordtype}{integer}:: i
2756   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(6), ubound\_nums(6)
2757   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2758   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2759   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2760   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2761 \textcolor{keywordflow}{continue}
2762 
2763   \textcolor{comment}{!-----------------------------------------------------------------}
2764   \textcolor{comment}{!  オプショナル引数のチェック}
2765   \textcolor{comment}{!  Check optional arguments}
2766   \textcolor{comment}{!-----------------------------------------------------------------}
2767   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2768     out\_unit = unit
2769   \textcolor{keywordflow}{else}
2770     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2771 \textcolor{keywordflow}{  end if}
2772 
2773   indent\_len = 0
2774   indent\_str = \textcolor{stringliteral}{''}
2775   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2776     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2777       indent\_len = len(indent)
2778       indent\_str(1:indent\_len) = indent
2779 \textcolor{keywordflow}{    end if}
2780 \textcolor{keywordflow}{  end if}
2781 
2782   \textcolor{comment}{!-------------------------------------------------------------------}
2783   \textcolor{comment}{!  配列サイズ}
2784   \textcolor{comment}{!  Array size}
2785   \textcolor{comment}{!-------------------------------------------------------------------}
2786 
2787   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2788     lbound\_nums = lbounds
2789     ubound\_nums = ubounds
2790   \textcolor{keywordflow}{else}
2791                         lbound\_nums(1) = lbound( array, 1 )
2792     ubound\_nums(1) = ubound( array, 1 )
2793                     
2794     lbound\_nums(2) = lbound( array, 2 )
2795     ubound\_nums(2) = ubound( array, 2 )
2796                     
2797     lbound\_nums(3) = lbound( array, 3 )
2798     ubound\_nums(3) = ubound( array, 3 )
2799                     
2800     lbound\_nums(4) = lbound( array, 4 )
2801     ubound\_nums(4) = ubound( array, 4 )
2802                     
2803     lbound\_nums(5) = lbound( array, 5 )
2804     ubound\_nums(5) = ubound( array, 5 )
2805                     
2806     lbound\_nums(6) = lbound( array, 6 )
2807     ubound\_nums(6) = ubound( array, 6 )
2808                     
2809 \textcolor{keywordflow}{  end if}
2810 
2811   size\_str = \textcolor{stringliteral}{'('}
2812   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2813   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2814                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2815   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2816                     
2817   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
2818   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
2819                     
2820   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
2821   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
2822                     
2823   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
2824   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
2825                     
2826   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
2827   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
2828                     
2829   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2830 
2831   \textcolor{comment}{!-------------------------------------------------------------------}
2832   \textcolor{comment}{!  最大値}
2833   \textcolor{comment}{!  Maximum value}
2834   \textcolor{comment}{!-------------------------------------------------------------------}
2835   max\_value = maxval(array)
2836 
2837   \textcolor{comment}{!-------------------------------------------------------------------}
2838   \textcolor{comment}{!  最小値}
2839   \textcolor{comment}{!  Minimum value}
2840   \textcolor{comment}{!-------------------------------------------------------------------}
2841   min\_value = minval(array)
2842 
2843   \textcolor{comment}{!-------------------------------------------------------------------}
2844   \textcolor{comment}{!  平均値}
2845   \textcolor{comment}{!  Average value}
2846   \textcolor{comment}{!-------------------------------------------------------------------}
2847   alldim\_size = \textcolor{keyword}{size}(array)
2848   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2849 
2850   \textcolor{comment}{!-------------------------------------------------------------------}
2851   \textcolor{comment}{!  標準偏差}
2852   \textcolor{comment}{!  Standard deviation}
2853   \textcolor{comment}{!-------------------------------------------------------------------}
2854   sd\_value = 0.0
2855   variance\_value = 0.0
2856   sd\_str = \textcolor{stringliteral}{''}
2857   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2858     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2859       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2860         \textcolor{keyword}{deallocate}(array\_packed)
2861 \textcolor{keywordflow}{      end if}
2862       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2863 
2864                             array\_packed = pack(array, .true.)
2865                       
2866 
2867       \textcolor{keywordflow}{do} i = 1, alldim\_size
2868         variance\_value = variance\_value + &
2869           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2870 \textcolor{keywordflow}{      end do}
2871       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2872       sd\_value = sqrt( variance\_value )
2873       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2874 \textcolor{keywordflow}{    end if}
2875 \textcolor{keywordflow}{  end if}
2876 
2877   \textcolor{comment}{!-------------------------------------------------------------------}
2878   \textcolor{comment}{!  印字}
2879   \textcolor{comment}{!  Print}
2880   \textcolor{comment}{!-------------------------------------------------------------------}
2881   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2882     & indent\_str(1:indent\_len) // &
2883                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
2884     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
2885                     
2886 
2887     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2888 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_a055ed856027312ef4d7f2eea2d2eb4d0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_af60f8760b3d59cef1b36181dc3fc5db9}\label{dcstringputline_8f90_af60f8760b3d59cef1b36181dc3fc5db9}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinedouble7@{putlinedouble7}}
\index{putlinedouble7@{putlinedouble7}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinedouble7()}{putlinedouble7()}}
{\footnotesize\ttfamily subroutine putlinedouble7 (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(7), intent(in), optional}]{lbounds,  }\item[{integer, dimension(7), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 2893 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
2893                     
2894 
2895   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2896   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
2897   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
2898   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2899   \textcolor{keywordtype}{implicit none}
2900   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
2901   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(7)
2902   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(7)
2903   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
2904   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
2905   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
2906   \textcolor{keywordtype}{integer}:: out\_unit
2907   \textcolor{keywordtype}{integer}:: indent\_len
2908   \textcolor{keywordtype}{character(STRING)}:: indent\_str
2909   \textcolor{keywordtype}{integer}:: i
2910   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(7), ubound\_nums(7)
2911   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
2912   \textcolor{keywordtype}{real(DP)}:: max\_value, min\_value
2913   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
2914   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
2915 \textcolor{keywordflow}{continue}
2916 
2917   \textcolor{comment}{!-----------------------------------------------------------------}
2918   \textcolor{comment}{!  オプショナル引数のチェック}
2919   \textcolor{comment}{!  Check optional arguments}
2920   \textcolor{comment}{!-----------------------------------------------------------------}
2921   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
2922     out\_unit = unit
2923   \textcolor{keywordflow}{else}
2924     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
2925 \textcolor{keywordflow}{  end if}
2926 
2927   indent\_len = 0
2928   indent\_str = \textcolor{stringliteral}{''}
2929   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
2930     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
2931       indent\_len = len(indent)
2932       indent\_str(1:indent\_len) = indent
2933 \textcolor{keywordflow}{    end if}
2934 \textcolor{keywordflow}{  end if}
2935 
2936   \textcolor{comment}{!-------------------------------------------------------------------}
2937   \textcolor{comment}{!  配列サイズ}
2938   \textcolor{comment}{!  Array size}
2939   \textcolor{comment}{!-------------------------------------------------------------------}
2940 
2941   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
2942     lbound\_nums = lbounds
2943     ubound\_nums = ubounds
2944   \textcolor{keywordflow}{else}
2945                         lbound\_nums(1) = lbound( array, 1 )
2946     ubound\_nums(1) = ubound( array, 1 )
2947                     
2948     lbound\_nums(2) = lbound( array, 2 )
2949     ubound\_nums(2) = ubound( array, 2 )
2950                     
2951     lbound\_nums(3) = lbound( array, 3 )
2952     ubound\_nums(3) = ubound( array, 3 )
2953                     
2954     lbound\_nums(4) = lbound( array, 4 )
2955     ubound\_nums(4) = ubound( array, 4 )
2956                     
2957     lbound\_nums(5) = lbound( array, 5 )
2958     ubound\_nums(5) = ubound( array, 5 )
2959                     
2960     lbound\_nums(6) = lbound( array, 6 )
2961     ubound\_nums(6) = ubound( array, 6 )
2962                     
2963     lbound\_nums(7) = lbound( array, 7 )
2964     ubound\_nums(7) = ubound( array, 7 )
2965                     
2966 \textcolor{keywordflow}{  end if}
2967 
2968   size\_str = \textcolor{stringliteral}{'('}
2969   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
2970   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
2971                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
2972   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
2973                     
2974   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
2975   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
2976                     
2977   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
2978   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
2979                     
2980   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
2981   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
2982                     
2983   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
2984   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
2985                     
2986   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(7)))
2987   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(7)))
2988                     
2989   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
2990 
2991   \textcolor{comment}{!-------------------------------------------------------------------}
2992   \textcolor{comment}{!  最大値}
2993   \textcolor{comment}{!  Maximum value}
2994   \textcolor{comment}{!-------------------------------------------------------------------}
2995   max\_value = maxval(array)
2996 
2997   \textcolor{comment}{!-------------------------------------------------------------------}
2998   \textcolor{comment}{!  最小値}
2999   \textcolor{comment}{!  Minimum value}
3000   \textcolor{comment}{!-------------------------------------------------------------------}
3001   min\_value = minval(array)
3002 
3003   \textcolor{comment}{!-------------------------------------------------------------------}
3004   \textcolor{comment}{!  平均値}
3005   \textcolor{comment}{!  Average value}
3006   \textcolor{comment}{!-------------------------------------------------------------------}
3007   alldim\_size = \textcolor{keyword}{size}(array)
3008   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
3009 
3010   \textcolor{comment}{!-------------------------------------------------------------------}
3011   \textcolor{comment}{!  標準偏差}
3012   \textcolor{comment}{!  Standard deviation}
3013   \textcolor{comment}{!-------------------------------------------------------------------}
3014   sd\_value = 0.0
3015   variance\_value = 0.0
3016   sd\_str = \textcolor{stringliteral}{''}
3017   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
3018     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
3019       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
3020         \textcolor{keyword}{deallocate}(array\_packed)
3021 \textcolor{keywordflow}{      end if}
3022       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
3023 
3024                             array\_packed = pack(array, .true.)
3025                       
3026 
3027       \textcolor{keywordflow}{do} i = 1, alldim\_size
3028         variance\_value = variance\_value + &
3029           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
3030 \textcolor{keywordflow}{      end do}
3031       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
3032       sd\_value = sqrt( variance\_value )
3033       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
3034 \textcolor{keywordflow}{    end if}
3035 \textcolor{keywordflow}{  end if}
3036 
3037   \textcolor{comment}{!-------------------------------------------------------------------}
3038   \textcolor{comment}{!  印字}
3039   \textcolor{comment}{!  Print}
3040   \textcolor{comment}{!-------------------------------------------------------------------}
3041   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
3042     & indent\_str(1:indent\_len) // &
3043                         & \textcolor{stringliteral}{'#<DP-ARRAY:: @size=%c, @max=%f, @min=%f, @avg=%r%c>'}, &
3044     & d = (/max\_value, min\_value/), r = (/avg\_value/), &
3045                     
3046 
3047     & c1 = trim(size\_str), c2 = trim(sd\_str) )
3048 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=298pt]{dcstringputline_8f90_af60f8760b3d59cef1b36181dc3fc5db9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_aa178e56ebb45319e0b889dc10900aee2}\label{dcstringputline_8f90_aa178e56ebb45319e0b889dc10900aee2}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint1@{putlineint1}}
\index{putlineint1@{putlineint1}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint1()}{putlineint1()}}
{\footnotesize\ttfamily subroutine putlineint1 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{array,  }\item[{integer, dimension(1), intent(in), optional}]{lbounds,  }\item[{integer, dimension(1), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 19 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
19                                           \textcolor{comment}{!}
20   \textcolor{comment}{! 数値型配列の要約を以下のように印字します. }
21   \textcolor{comment}{! avg は平均値, sd は標準偏差です. }
22   \textcolor{comment}{! 標準偏差は, 論理型オプショナル引数 sd に真を与えたときのみ}
23   \textcolor{comment}{! 表示します. }
24   \textcolor{comment}{!}
25   \textcolor{comment}{! Summary of numerical array is printed as follows.}
26   \textcolor{comment}{! "avg" is average value, "sd" is standard deviation.}
27   \textcolor{comment}{! Standard deviation is displayed only when .true. is set to }
28   \textcolor{comment}{! logical optional argument "sd". }
29   \textcolor{comment}{!}
30   \textcolor{comment}{!   #<INT-ARRAY:: @size=(1:3), @max=3, @min=1, @avg=2. @sd=0.816496611>}
31   \textcolor{comment}{!   #<SP-ARRAY:: @size=(1:1), @max=0., @min=0., @avg=0. @sd=0.>}
32   \textcolor{comment}{!   #<DP-ARRAY:: @size=(1:3,1:3,1:3), @max=20., @min=7., @avg=13.5 @sd=3.29140282>}
33   \textcolor{comment}{!}
34   \textcolor{comment}{! *array* には整数, 単精度実数, 倍精度実数の配列 (1 〜 7) を}
35   \textcolor{comment}{! 与えます. 配列添字の下限と上限を表示したい場合には, }
36   \textcolor{comment}{! 以下のように *lbounds* と *ubounds* を指定します. }
37   \textcolor{comment}{! これらを指定しない場合には, }
38   \textcolor{comment}{! 表示される配列添字は 1:<配列サイズ> となります.}
39   \textcolor{comment}{! }
40   \textcolor{comment}{! Integer, single precision, and double precision array }
41   \textcolor{comment}{! (1 -- 7) is given to *array*. }
42   \textcolor{comment}{! In order to print the upper bound and the lower bound }
43   \textcolor{comment}{! for subscript of array, }
44   \textcolor{comment}{! specify *lbounds* and *ubounds* as follows. }
45   \textcolor{comment}{! Otherwise, 1:<size of array> is printed as subscript of array.}
46   \textcolor{comment}{! }
47   \textcolor{comment}{!   program putline\_test}
48   \textcolor{comment}{!     use dc\_string, only: PutLine}
49   \textcolor{comment}{!     real:: rarray(-2:2, -3:3)}
50   \textcolor{comment}{!   }
51   \textcolor{comment}{!     rarray(-2:0, -3:0) = -1.0}
52   \textcolor{comment}{!     rarray(-2:0, 1:3) = -2.0}
53   \textcolor{comment}{!     rarray(1:2, -3:0) = 1.0}
54   \textcolor{comment}{!     rarray(1:2, 1:3) = 2.0}
55   \textcolor{comment}{!     call PutLine ( rarray, & }
56   \textcolor{comment}{!       & lbounds = lbound(rarray), ubounds = ubound(rarray) )}
57   \textcolor{comment}{!   end program putline\_test}
58   \textcolor{comment}{!}
59   \textcolor{comment}{! *unit* には印字する装置番号を指定します. デフォルトは標準出力です.}
60   \textcolor{comment}{! *indent* には字下げのための空白を与えます.}
61   \textcolor{comment}{!}
62   \textcolor{comment}{! Unit number for print is specified to *unit*. Default is standard output.}
63   \textcolor{comment}{! Blank for indent is specified to *indent*.}
64   \textcolor{comment}{!}
65                     
66                     
67 
68   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
69   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
70   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
71   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
72   \textcolor{keywordtype}{implicit none}
73   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:)
74   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(1)
75   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(1)
76   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
77   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
78   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
79   \textcolor{keywordtype}{integer}:: out\_unit
80   \textcolor{keywordtype}{integer}:: indent\_len
81   \textcolor{keywordtype}{character(STRING)}:: indent\_str
82   \textcolor{keywordtype}{integer}:: i
83   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(1), ubound\_nums(1)
84   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
85   \textcolor{keywordtype}{integer}:: max\_value, min\_value
86   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
87   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
88 \textcolor{keywordflow}{continue}
89 
90   \textcolor{comment}{!-----------------------------------------------------------------}
91   \textcolor{comment}{!  オプショナル引数のチェック}
92   \textcolor{comment}{!  Check optional arguments}
93   \textcolor{comment}{!-----------------------------------------------------------------}
94   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
95     out\_unit = unit
96   \textcolor{keywordflow}{else}
97     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
98 \textcolor{keywordflow}{  end if}
99 
100   indent\_len = 0
101   indent\_str = \textcolor{stringliteral}{''}
102   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
103     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
104       indent\_len = len(indent)
105       indent\_str(1:indent\_len) = indent
106 \textcolor{keywordflow}{    end if}
107 \textcolor{keywordflow}{  end if}
108 
109   \textcolor{comment}{!-------------------------------------------------------------------}
110   \textcolor{comment}{!  配列サイズ}
111   \textcolor{comment}{!  Array size}
112   \textcolor{comment}{!-------------------------------------------------------------------}
113 
114   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
115     lbound\_nums = lbounds
116     ubound\_nums = ubounds
117   \textcolor{keywordflow}{else}
118                         lbound\_nums(1) = lbound( array, 1 )
119     ubound\_nums(1) = ubound( array, 1 )
120                     
121 \textcolor{keywordflow}{  end if}
122 
123   size\_str = \textcolor{stringliteral}{'('}
124   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
125   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
126                     
127   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
128 
129   \textcolor{comment}{!-------------------------------------------------------------------}
130   \textcolor{comment}{!  最大値}
131   \textcolor{comment}{!  Maximum value}
132   \textcolor{comment}{!-------------------------------------------------------------------}
133   max\_value = maxval(array)
134 
135   \textcolor{comment}{!-------------------------------------------------------------------}
136   \textcolor{comment}{!  最小値}
137   \textcolor{comment}{!  Minimum value}
138   \textcolor{comment}{!-------------------------------------------------------------------}
139   min\_value = minval(array)
140 
141   \textcolor{comment}{!-------------------------------------------------------------------}
142   \textcolor{comment}{!  平均値}
143   \textcolor{comment}{!  Average value}
144   \textcolor{comment}{!-------------------------------------------------------------------}
145   alldim\_size = \textcolor{keyword}{size}(array)
146   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
147 
148   \textcolor{comment}{!-------------------------------------------------------------------}
149   \textcolor{comment}{!  標準偏差}
150   \textcolor{comment}{!  Standard deviation}
151   \textcolor{comment}{!-------------------------------------------------------------------}
152   sd\_value = 0.0
153   variance\_value = 0.0
154   sd\_str = \textcolor{stringliteral}{''}
155   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
156     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
157       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
158         \textcolor{keyword}{deallocate}(array\_packed)
159 \textcolor{keywordflow}{      end if}
160       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
161 
162                             array\_packed = array
163                       
164 
165       \textcolor{keywordflow}{do} i = 1, alldim\_size
166         variance\_value = variance\_value + &
167           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
168 \textcolor{keywordflow}{      end do}
169       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
170       sd\_value = sqrt( variance\_value )
171       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
172 \textcolor{keywordflow}{    end if}
173 \textcolor{keywordflow}{  end if}
174 
175   \textcolor{comment}{!-------------------------------------------------------------------}
176   \textcolor{comment}{!  印字}
177   \textcolor{comment}{!  Print}
178   \textcolor{comment}{!-------------------------------------------------------------------}
179   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
180     & indent\_str(1:indent\_len) // &
181                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
182     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
183                     
184 
185     & c1 = trim(size\_str), c2 = trim(sd\_str) )
186 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_aa178e56ebb45319e0b889dc10900aee2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a88a125fb43d36b6a5c482d218defec11}\label{dcstringputline_8f90_a88a125fb43d36b6a5c482d218defec11}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint2@{putlineint2}}
\index{putlineint2@{putlineint2}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint2()}{putlineint2()}}
{\footnotesize\ttfamily subroutine putlineint2 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(2), intent(in), optional}]{lbounds,  }\item[{integer, dimension(2), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 191 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
191                     
192 
193   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
194   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
195   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
196   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
197   \textcolor{keywordtype}{implicit none}
198   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
199   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(2)
200   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(2)
201   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
202   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
203   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
204   \textcolor{keywordtype}{integer}:: out\_unit
205   \textcolor{keywordtype}{integer}:: indent\_len
206   \textcolor{keywordtype}{character(STRING)}:: indent\_str
207   \textcolor{keywordtype}{integer}:: i
208   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(2), ubound\_nums(2)
209   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
210   \textcolor{keywordtype}{integer}:: max\_value, min\_value
211   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
212   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
213 \textcolor{keywordflow}{continue}
214 
215   \textcolor{comment}{!-----------------------------------------------------------------}
216   \textcolor{comment}{!  オプショナル引数のチェック}
217   \textcolor{comment}{!  Check optional arguments}
218   \textcolor{comment}{!-----------------------------------------------------------------}
219   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
220     out\_unit = unit
221   \textcolor{keywordflow}{else}
222     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
223 \textcolor{keywordflow}{  end if}
224 
225   indent\_len = 0
226   indent\_str = \textcolor{stringliteral}{''}
227   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
228     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
229       indent\_len = len(indent)
230       indent\_str(1:indent\_len) = indent
231 \textcolor{keywordflow}{    end if}
232 \textcolor{keywordflow}{  end if}
233 
234   \textcolor{comment}{!-------------------------------------------------------------------}
235   \textcolor{comment}{!  配列サイズ}
236   \textcolor{comment}{!  Array size}
237   \textcolor{comment}{!-------------------------------------------------------------------}
238 
239   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
240     lbound\_nums = lbounds
241     ubound\_nums = ubounds
242   \textcolor{keywordflow}{else}
243                         lbound\_nums(1) = lbound( array, 1 )
244     ubound\_nums(1) = ubound( array, 1 )
245                     
246     lbound\_nums(2) = lbound( array, 2 )
247     ubound\_nums(2) = ubound( array, 2 )
248                     
249 \textcolor{keywordflow}{  end if}
250 
251   size\_str = \textcolor{stringliteral}{'('}
252   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
253   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
254                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
255   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
256                     
257   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
258 
259   \textcolor{comment}{!-------------------------------------------------------------------}
260   \textcolor{comment}{!  最大値}
261   \textcolor{comment}{!  Maximum value}
262   \textcolor{comment}{!-------------------------------------------------------------------}
263   max\_value = maxval(array)
264 
265   \textcolor{comment}{!-------------------------------------------------------------------}
266   \textcolor{comment}{!  最小値}
267   \textcolor{comment}{!  Minimum value}
268   \textcolor{comment}{!-------------------------------------------------------------------}
269   min\_value = minval(array)
270 
271   \textcolor{comment}{!-------------------------------------------------------------------}
272   \textcolor{comment}{!  平均値}
273   \textcolor{comment}{!  Average value}
274   \textcolor{comment}{!-------------------------------------------------------------------}
275   alldim\_size = \textcolor{keyword}{size}(array)
276   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
277 
278   \textcolor{comment}{!-------------------------------------------------------------------}
279   \textcolor{comment}{!  標準偏差}
280   \textcolor{comment}{!  Standard deviation}
281   \textcolor{comment}{!-------------------------------------------------------------------}
282   sd\_value = 0.0
283   variance\_value = 0.0
284   sd\_str = \textcolor{stringliteral}{''}
285   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
286     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
287       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
288         \textcolor{keyword}{deallocate}(array\_packed)
289 \textcolor{keywordflow}{      end if}
290       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
291 
292                             array\_packed = pack(array, .true.)
293                       
294 
295       \textcolor{keywordflow}{do} i = 1, alldim\_size
296         variance\_value = variance\_value + &
297           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
298 \textcolor{keywordflow}{      end do}
299       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
300       sd\_value = sqrt( variance\_value )
301       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
302 \textcolor{keywordflow}{    end if}
303 \textcolor{keywordflow}{  end if}
304 
305   \textcolor{comment}{!-------------------------------------------------------------------}
306   \textcolor{comment}{!  印字}
307   \textcolor{comment}{!  Print}
308   \textcolor{comment}{!-------------------------------------------------------------------}
309   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
310     & indent\_str(1:indent\_len) // &
311                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
312     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
313                     
314 
315     & c1 = trim(size\_str), c2 = trim(sd\_str) )
316 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_a88a125fb43d36b6a5c482d218defec11_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_ae26543a192b35b838e4b3b95bc0d45b9}\label{dcstringputline_8f90_ae26543a192b35b838e4b3b95bc0d45b9}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint3@{putlineint3}}
\index{putlineint3@{putlineint3}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint3()}{putlineint3()}}
{\footnotesize\ttfamily subroutine putlineint3 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(3), intent(in), optional}]{lbounds,  }\item[{integer, dimension(3), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 321 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
321                     
322 
323   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
324   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
325   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
326   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
327   \textcolor{keywordtype}{implicit none}
328   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
329   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(3)
330   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(3)
331   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
332   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
333   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
334   \textcolor{keywordtype}{integer}:: out\_unit
335   \textcolor{keywordtype}{integer}:: indent\_len
336   \textcolor{keywordtype}{character(STRING)}:: indent\_str
337   \textcolor{keywordtype}{integer}:: i
338   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(3), ubound\_nums(3)
339   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
340   \textcolor{keywordtype}{integer}:: max\_value, min\_value
341   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
342   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
343 \textcolor{keywordflow}{continue}
344 
345   \textcolor{comment}{!-----------------------------------------------------------------}
346   \textcolor{comment}{!  オプショナル引数のチェック}
347   \textcolor{comment}{!  Check optional arguments}
348   \textcolor{comment}{!-----------------------------------------------------------------}
349   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
350     out\_unit = unit
351   \textcolor{keywordflow}{else}
352     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
353 \textcolor{keywordflow}{  end if}
354 
355   indent\_len = 0
356   indent\_str = \textcolor{stringliteral}{''}
357   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
358     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
359       indent\_len = len(indent)
360       indent\_str(1:indent\_len) = indent
361 \textcolor{keywordflow}{    end if}
362 \textcolor{keywordflow}{  end if}
363 
364   \textcolor{comment}{!-------------------------------------------------------------------}
365   \textcolor{comment}{!  配列サイズ}
366   \textcolor{comment}{!  Array size}
367   \textcolor{comment}{!-------------------------------------------------------------------}
368 
369   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
370     lbound\_nums = lbounds
371     ubound\_nums = ubounds
372   \textcolor{keywordflow}{else}
373                         lbound\_nums(1) = lbound( array, 1 )
374     ubound\_nums(1) = ubound( array, 1 )
375                     
376     lbound\_nums(2) = lbound( array, 2 )
377     ubound\_nums(2) = ubound( array, 2 )
378                     
379     lbound\_nums(3) = lbound( array, 3 )
380     ubound\_nums(3) = ubound( array, 3 )
381                     
382 \textcolor{keywordflow}{  end if}
383 
384   size\_str = \textcolor{stringliteral}{'('}
385   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
386   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
387                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
388   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
389                     
390   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
391   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
392                     
393   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
394 
395   \textcolor{comment}{!-------------------------------------------------------------------}
396   \textcolor{comment}{!  最大値}
397   \textcolor{comment}{!  Maximum value}
398   \textcolor{comment}{!-------------------------------------------------------------------}
399   max\_value = maxval(array)
400 
401   \textcolor{comment}{!-------------------------------------------------------------------}
402   \textcolor{comment}{!  最小値}
403   \textcolor{comment}{!  Minimum value}
404   \textcolor{comment}{!-------------------------------------------------------------------}
405   min\_value = minval(array)
406 
407   \textcolor{comment}{!-------------------------------------------------------------------}
408   \textcolor{comment}{!  平均値}
409   \textcolor{comment}{!  Average value}
410   \textcolor{comment}{!-------------------------------------------------------------------}
411   alldim\_size = \textcolor{keyword}{size}(array)
412   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
413 
414   \textcolor{comment}{!-------------------------------------------------------------------}
415   \textcolor{comment}{!  標準偏差}
416   \textcolor{comment}{!  Standard deviation}
417   \textcolor{comment}{!-------------------------------------------------------------------}
418   sd\_value = 0.0
419   variance\_value = 0.0
420   sd\_str = \textcolor{stringliteral}{''}
421   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
422     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
423       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
424         \textcolor{keyword}{deallocate}(array\_packed)
425 \textcolor{keywordflow}{      end if}
426       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
427 
428                             array\_packed = pack(array, .true.)
429                       
430 
431       \textcolor{keywordflow}{do} i = 1, alldim\_size
432         variance\_value = variance\_value + &
433           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
434 \textcolor{keywordflow}{      end do}
435       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
436       sd\_value = sqrt( variance\_value )
437       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
438 \textcolor{keywordflow}{    end if}
439 \textcolor{keywordflow}{  end if}
440 
441   \textcolor{comment}{!-------------------------------------------------------------------}
442   \textcolor{comment}{!  印字}
443   \textcolor{comment}{!  Print}
444   \textcolor{comment}{!-------------------------------------------------------------------}
445   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
446     & indent\_str(1:indent\_len) // &
447                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
448     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
449                     
450 
451     & c1 = trim(size\_str), c2 = trim(sd\_str) )
452 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_ae26543a192b35b838e4b3b95bc0d45b9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a5240db3c48b35d16f23e6c2badaf32c8}\label{dcstringputline_8f90_a5240db3c48b35d16f23e6c2badaf32c8}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint4@{putlineint4}}
\index{putlineint4@{putlineint4}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint4()}{putlineint4()}}
{\footnotesize\ttfamily subroutine putlineint4 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(4), intent(in), optional}]{lbounds,  }\item[{integer, dimension(4), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 457 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
457                     
458 
459   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
460   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
461   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
462   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
463   \textcolor{keywordtype}{implicit none}
464   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
465   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(4)
466   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(4)
467   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
468   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
469   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
470   \textcolor{keywordtype}{integer}:: out\_unit
471   \textcolor{keywordtype}{integer}:: indent\_len
472   \textcolor{keywordtype}{character(STRING)}:: indent\_str
473   \textcolor{keywordtype}{integer}:: i
474   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(4), ubound\_nums(4)
475   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
476   \textcolor{keywordtype}{integer}:: max\_value, min\_value
477   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
478   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
479 \textcolor{keywordflow}{continue}
480 
481   \textcolor{comment}{!-----------------------------------------------------------------}
482   \textcolor{comment}{!  オプショナル引数のチェック}
483   \textcolor{comment}{!  Check optional arguments}
484   \textcolor{comment}{!-----------------------------------------------------------------}
485   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
486     out\_unit = unit
487   \textcolor{keywordflow}{else}
488     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
489 \textcolor{keywordflow}{  end if}
490 
491   indent\_len = 0
492   indent\_str = \textcolor{stringliteral}{''}
493   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
494     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
495       indent\_len = len(indent)
496       indent\_str(1:indent\_len) = indent
497 \textcolor{keywordflow}{    end if}
498 \textcolor{keywordflow}{  end if}
499 
500   \textcolor{comment}{!-------------------------------------------------------------------}
501   \textcolor{comment}{!  配列サイズ}
502   \textcolor{comment}{!  Array size}
503   \textcolor{comment}{!-------------------------------------------------------------------}
504 
505   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
506     lbound\_nums = lbounds
507     ubound\_nums = ubounds
508   \textcolor{keywordflow}{else}
509                         lbound\_nums(1) = lbound( array, 1 )
510     ubound\_nums(1) = ubound( array, 1 )
511                     
512     lbound\_nums(2) = lbound( array, 2 )
513     ubound\_nums(2) = ubound( array, 2 )
514                     
515     lbound\_nums(3) = lbound( array, 3 )
516     ubound\_nums(3) = ubound( array, 3 )
517                     
518     lbound\_nums(4) = lbound( array, 4 )
519     ubound\_nums(4) = ubound( array, 4 )
520                     
521 \textcolor{keywordflow}{  end if}
522 
523   size\_str = \textcolor{stringliteral}{'('}
524   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
525   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
526                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
527   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
528                     
529   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
530   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
531                     
532   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
533   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
534                     
535   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
536 
537   \textcolor{comment}{!-------------------------------------------------------------------}
538   \textcolor{comment}{!  最大値}
539   \textcolor{comment}{!  Maximum value}
540   \textcolor{comment}{!-------------------------------------------------------------------}
541   max\_value = maxval(array)
542 
543   \textcolor{comment}{!-------------------------------------------------------------------}
544   \textcolor{comment}{!  最小値}
545   \textcolor{comment}{!  Minimum value}
546   \textcolor{comment}{!-------------------------------------------------------------------}
547   min\_value = minval(array)
548 
549   \textcolor{comment}{!-------------------------------------------------------------------}
550   \textcolor{comment}{!  平均値}
551   \textcolor{comment}{!  Average value}
552   \textcolor{comment}{!-------------------------------------------------------------------}
553   alldim\_size = \textcolor{keyword}{size}(array)
554   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
555 
556   \textcolor{comment}{!-------------------------------------------------------------------}
557   \textcolor{comment}{!  標準偏差}
558   \textcolor{comment}{!  Standard deviation}
559   \textcolor{comment}{!-------------------------------------------------------------------}
560   sd\_value = 0.0
561   variance\_value = 0.0
562   sd\_str = \textcolor{stringliteral}{''}
563   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
564     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
565       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
566         \textcolor{keyword}{deallocate}(array\_packed)
567 \textcolor{keywordflow}{      end if}
568       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
569 
570                             array\_packed = pack(array, .true.)
571                       
572 
573       \textcolor{keywordflow}{do} i = 1, alldim\_size
574         variance\_value = variance\_value + &
575           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
576 \textcolor{keywordflow}{      end do}
577       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
578       sd\_value = sqrt( variance\_value )
579       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
580 \textcolor{keywordflow}{    end if}
581 \textcolor{keywordflow}{  end if}
582 
583   \textcolor{comment}{!-------------------------------------------------------------------}
584   \textcolor{comment}{!  印字}
585   \textcolor{comment}{!  Print}
586   \textcolor{comment}{!-------------------------------------------------------------------}
587   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
588     & indent\_str(1:indent\_len) // &
589                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
590     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
591                     
592 
593     & c1 = trim(size\_str), c2 = trim(sd\_str) )
594 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_a5240db3c48b35d16f23e6c2badaf32c8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a4591fe67d4a9c48eaeca8de84e84a83a}\label{dcstringputline_8f90_a4591fe67d4a9c48eaeca8de84e84a83a}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint5@{putlineint5}}
\index{putlineint5@{putlineint5}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint5()}{putlineint5()}}
{\footnotesize\ttfamily subroutine putlineint5 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(5), intent(in), optional}]{lbounds,  }\item[{integer, dimension(5), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 599 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
599                     
600 
601   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
602   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
603   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
604   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
605   \textcolor{keywordtype}{implicit none}
606   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
607   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(5)
608   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(5)
609   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
610   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
611   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
612   \textcolor{keywordtype}{integer}:: out\_unit
613   \textcolor{keywordtype}{integer}:: indent\_len
614   \textcolor{keywordtype}{character(STRING)}:: indent\_str
615   \textcolor{keywordtype}{integer}:: i
616   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(5), ubound\_nums(5)
617   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
618   \textcolor{keywordtype}{integer}:: max\_value, min\_value
619   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
620   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
621 \textcolor{keywordflow}{continue}
622 
623   \textcolor{comment}{!-----------------------------------------------------------------}
624   \textcolor{comment}{!  オプショナル引数のチェック}
625   \textcolor{comment}{!  Check optional arguments}
626   \textcolor{comment}{!-----------------------------------------------------------------}
627   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
628     out\_unit = unit
629   \textcolor{keywordflow}{else}
630     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
631 \textcolor{keywordflow}{  end if}
632 
633   indent\_len = 0
634   indent\_str = \textcolor{stringliteral}{''}
635   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
636     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
637       indent\_len = len(indent)
638       indent\_str(1:indent\_len) = indent
639 \textcolor{keywordflow}{    end if}
640 \textcolor{keywordflow}{  end if}
641 
642   \textcolor{comment}{!-------------------------------------------------------------------}
643   \textcolor{comment}{!  配列サイズ}
644   \textcolor{comment}{!  Array size}
645   \textcolor{comment}{!-------------------------------------------------------------------}
646 
647   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
648     lbound\_nums = lbounds
649     ubound\_nums = ubounds
650   \textcolor{keywordflow}{else}
651                         lbound\_nums(1) = lbound( array, 1 )
652     ubound\_nums(1) = ubound( array, 1 )
653                     
654     lbound\_nums(2) = lbound( array, 2 )
655     ubound\_nums(2) = ubound( array, 2 )
656                     
657     lbound\_nums(3) = lbound( array, 3 )
658     ubound\_nums(3) = ubound( array, 3 )
659                     
660     lbound\_nums(4) = lbound( array, 4 )
661     ubound\_nums(4) = ubound( array, 4 )
662                     
663     lbound\_nums(5) = lbound( array, 5 )
664     ubound\_nums(5) = ubound( array, 5 )
665                     
666 \textcolor{keywordflow}{  end if}
667 
668   size\_str = \textcolor{stringliteral}{'('}
669   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
670   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
671                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
672   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
673                     
674   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
675   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
676                     
677   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
678   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
679                     
680   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
681   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
682                     
683   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
684 
685   \textcolor{comment}{!-------------------------------------------------------------------}
686   \textcolor{comment}{!  最大値}
687   \textcolor{comment}{!  Maximum value}
688   \textcolor{comment}{!-------------------------------------------------------------------}
689   max\_value = maxval(array)
690 
691   \textcolor{comment}{!-------------------------------------------------------------------}
692   \textcolor{comment}{!  最小値}
693   \textcolor{comment}{!  Minimum value}
694   \textcolor{comment}{!-------------------------------------------------------------------}
695   min\_value = minval(array)
696 
697   \textcolor{comment}{!-------------------------------------------------------------------}
698   \textcolor{comment}{!  平均値}
699   \textcolor{comment}{!  Average value}
700   \textcolor{comment}{!-------------------------------------------------------------------}
701   alldim\_size = \textcolor{keyword}{size}(array)
702   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
703 
704   \textcolor{comment}{!-------------------------------------------------------------------}
705   \textcolor{comment}{!  標準偏差}
706   \textcolor{comment}{!  Standard deviation}
707   \textcolor{comment}{!-------------------------------------------------------------------}
708   sd\_value = 0.0
709   variance\_value = 0.0
710   sd\_str = \textcolor{stringliteral}{''}
711   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
712     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
713       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
714         \textcolor{keyword}{deallocate}(array\_packed)
715 \textcolor{keywordflow}{      end if}
716       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
717 
718                             array\_packed = pack(array, .true.)
719                       
720 
721       \textcolor{keywordflow}{do} i = 1, alldim\_size
722         variance\_value = variance\_value + &
723           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
724 \textcolor{keywordflow}{      end do}
725       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
726       sd\_value = sqrt( variance\_value )
727       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
728 \textcolor{keywordflow}{    end if}
729 \textcolor{keywordflow}{  end if}
730 
731   \textcolor{comment}{!-------------------------------------------------------------------}
732   \textcolor{comment}{!  印字}
733   \textcolor{comment}{!  Print}
734   \textcolor{comment}{!-------------------------------------------------------------------}
735   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
736     & indent\_str(1:indent\_len) // &
737                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
738     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
739                     
740 
741     & c1 = trim(size\_str), c2 = trim(sd\_str) )
742 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_a4591fe67d4a9c48eaeca8de84e84a83a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a3ebf6445bcf559f76efb074baeb2753c}\label{dcstringputline_8f90_a3ebf6445bcf559f76efb074baeb2753c}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint6@{putlineint6}}
\index{putlineint6@{putlineint6}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint6()}{putlineint6()}}
{\footnotesize\ttfamily subroutine putlineint6 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(6), intent(in), optional}]{lbounds,  }\item[{integer, dimension(6), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 747 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
747                     
748 
749   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
750   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
751   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
752   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
753   \textcolor{keywordtype}{implicit none}
754   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
755   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(6)
756   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(6)
757   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
758   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
759   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
760   \textcolor{keywordtype}{integer}:: out\_unit
761   \textcolor{keywordtype}{integer}:: indent\_len
762   \textcolor{keywordtype}{character(STRING)}:: indent\_str
763   \textcolor{keywordtype}{integer}:: i
764   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(6), ubound\_nums(6)
765   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
766   \textcolor{keywordtype}{integer}:: max\_value, min\_value
767   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
768   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
769 \textcolor{keywordflow}{continue}
770 
771   \textcolor{comment}{!-----------------------------------------------------------------}
772   \textcolor{comment}{!  オプショナル引数のチェック}
773   \textcolor{comment}{!  Check optional arguments}
774   \textcolor{comment}{!-----------------------------------------------------------------}
775   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
776     out\_unit = unit
777   \textcolor{keywordflow}{else}
778     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
779 \textcolor{keywordflow}{  end if}
780 
781   indent\_len = 0
782   indent\_str = \textcolor{stringliteral}{''}
783   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
784     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
785       indent\_len = len(indent)
786       indent\_str(1:indent\_len) = indent
787 \textcolor{keywordflow}{    end if}
788 \textcolor{keywordflow}{  end if}
789 
790   \textcolor{comment}{!-------------------------------------------------------------------}
791   \textcolor{comment}{!  配列サイズ}
792   \textcolor{comment}{!  Array size}
793   \textcolor{comment}{!-------------------------------------------------------------------}
794 
795   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
796     lbound\_nums = lbounds
797     ubound\_nums = ubounds
798   \textcolor{keywordflow}{else}
799                         lbound\_nums(1) = lbound( array, 1 )
800     ubound\_nums(1) = ubound( array, 1 )
801                     
802     lbound\_nums(2) = lbound( array, 2 )
803     ubound\_nums(2) = ubound( array, 2 )
804                     
805     lbound\_nums(3) = lbound( array, 3 )
806     ubound\_nums(3) = ubound( array, 3 )
807                     
808     lbound\_nums(4) = lbound( array, 4 )
809     ubound\_nums(4) = ubound( array, 4 )
810                     
811     lbound\_nums(5) = lbound( array, 5 )
812     ubound\_nums(5) = ubound( array, 5 )
813                     
814     lbound\_nums(6) = lbound( array, 6 )
815     ubound\_nums(6) = ubound( array, 6 )
816                     
817 \textcolor{keywordflow}{  end if}
818 
819   size\_str = \textcolor{stringliteral}{'('}
820   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
821   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
822                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
823   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
824                     
825   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
826   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
827                     
828   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
829   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
830                     
831   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
832   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
833                     
834   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
835   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
836                     
837   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
838 
839   \textcolor{comment}{!-------------------------------------------------------------------}
840   \textcolor{comment}{!  最大値}
841   \textcolor{comment}{!  Maximum value}
842   \textcolor{comment}{!-------------------------------------------------------------------}
843   max\_value = maxval(array)
844 
845   \textcolor{comment}{!-------------------------------------------------------------------}
846   \textcolor{comment}{!  最小値}
847   \textcolor{comment}{!  Minimum value}
848   \textcolor{comment}{!-------------------------------------------------------------------}
849   min\_value = minval(array)
850 
851   \textcolor{comment}{!-------------------------------------------------------------------}
852   \textcolor{comment}{!  平均値}
853   \textcolor{comment}{!  Average value}
854   \textcolor{comment}{!-------------------------------------------------------------------}
855   alldim\_size = \textcolor{keyword}{size}(array)
856   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
857 
858   \textcolor{comment}{!-------------------------------------------------------------------}
859   \textcolor{comment}{!  標準偏差}
860   \textcolor{comment}{!  Standard deviation}
861   \textcolor{comment}{!-------------------------------------------------------------------}
862   sd\_value = 0.0
863   variance\_value = 0.0
864   sd\_str = \textcolor{stringliteral}{''}
865   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
866     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
867       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
868         \textcolor{keyword}{deallocate}(array\_packed)
869 \textcolor{keywordflow}{      end if}
870       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
871 
872                             array\_packed = pack(array, .true.)
873                       
874 
875       \textcolor{keywordflow}{do} i = 1, alldim\_size
876         variance\_value = variance\_value + &
877           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
878 \textcolor{keywordflow}{      end do}
879       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
880       sd\_value = sqrt( variance\_value )
881       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
882 \textcolor{keywordflow}{    end if}
883 \textcolor{keywordflow}{  end if}
884 
885   \textcolor{comment}{!-------------------------------------------------------------------}
886   \textcolor{comment}{!  印字}
887   \textcolor{comment}{!  Print}
888   \textcolor{comment}{!-------------------------------------------------------------------}
889   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
890     & indent\_str(1:indent\_len) // &
891                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
892     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
893                     
894 
895     & c1 = trim(size\_str), c2 = trim(sd\_str) )
896 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_a3ebf6445bcf559f76efb074baeb2753c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a2d4c37f2a0be65d9464a39a422a75600}\label{dcstringputline_8f90_a2d4c37f2a0be65d9464a39a422a75600}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlineint7@{putlineint7}}
\index{putlineint7@{putlineint7}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlineint7()}{putlineint7()}}
{\footnotesize\ttfamily subroutine putlineint7 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(7), intent(in), optional}]{lbounds,  }\item[{integer, dimension(7), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 901 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
901                     
902 
903   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
904   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
905   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
906   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
907   \textcolor{keywordtype}{implicit none}
908   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
909   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(7)
910   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(7)
911   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
912   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
913   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
914   \textcolor{keywordtype}{integer}:: out\_unit
915   \textcolor{keywordtype}{integer}:: indent\_len
916   \textcolor{keywordtype}{character(STRING)}:: indent\_str
917   \textcolor{keywordtype}{integer}:: i
918   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(7), ubound\_nums(7)
919   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
920   \textcolor{keywordtype}{integer}:: max\_value, min\_value
921   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
922   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
923 \textcolor{keywordflow}{continue}
924 
925   \textcolor{comment}{!-----------------------------------------------------------------}
926   \textcolor{comment}{!  オプショナル引数のチェック}
927   \textcolor{comment}{!  Check optional arguments}
928   \textcolor{comment}{!-----------------------------------------------------------------}
929   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
930     out\_unit = unit
931   \textcolor{keywordflow}{else}
932     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
933 \textcolor{keywordflow}{  end if}
934 
935   indent\_len = 0
936   indent\_str = \textcolor{stringliteral}{''}
937   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
938     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
939       indent\_len = len(indent)
940       indent\_str(1:indent\_len) = indent
941 \textcolor{keywordflow}{    end if}
942 \textcolor{keywordflow}{  end if}
943 
944   \textcolor{comment}{!-------------------------------------------------------------------}
945   \textcolor{comment}{!  配列サイズ}
946   \textcolor{comment}{!  Array size}
947   \textcolor{comment}{!-------------------------------------------------------------------}
948 
949   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
950     lbound\_nums = lbounds
951     ubound\_nums = ubounds
952   \textcolor{keywordflow}{else}
953                         lbound\_nums(1) = lbound( array, 1 )
954     ubound\_nums(1) = ubound( array, 1 )
955                     
956     lbound\_nums(2) = lbound( array, 2 )
957     ubound\_nums(2) = ubound( array, 2 )
958                     
959     lbound\_nums(3) = lbound( array, 3 )
960     ubound\_nums(3) = ubound( array, 3 )
961                     
962     lbound\_nums(4) = lbound( array, 4 )
963     ubound\_nums(4) = ubound( array, 4 )
964                     
965     lbound\_nums(5) = lbound( array, 5 )
966     ubound\_nums(5) = ubound( array, 5 )
967                     
968     lbound\_nums(6) = lbound( array, 6 )
969     ubound\_nums(6) = ubound( array, 6 )
970                     
971     lbound\_nums(7) = lbound( array, 7 )
972     ubound\_nums(7) = ubound( array, 7 )
973                     
974 \textcolor{keywordflow}{  end if}
975 
976   size\_str = \textcolor{stringliteral}{'('}
977   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
978   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
979                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
980   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
981                     
982   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
983   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
984                     
985   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
986   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
987                     
988   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
989   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
990                     
991   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
992   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
993                     
994   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(7)))
995   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(7)))
996                     
997   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
998 
999   \textcolor{comment}{!-------------------------------------------------------------------}
1000   \textcolor{comment}{!  最大値}
1001   \textcolor{comment}{!  Maximum value}
1002   \textcolor{comment}{!-------------------------------------------------------------------}
1003   max\_value = maxval(array)
1004 
1005   \textcolor{comment}{!-------------------------------------------------------------------}
1006   \textcolor{comment}{!  最小値}
1007   \textcolor{comment}{!  Minimum value}
1008   \textcolor{comment}{!-------------------------------------------------------------------}
1009   min\_value = minval(array)
1010 
1011   \textcolor{comment}{!-------------------------------------------------------------------}
1012   \textcolor{comment}{!  平均値}
1013   \textcolor{comment}{!  Average value}
1014   \textcolor{comment}{!-------------------------------------------------------------------}
1015   alldim\_size = \textcolor{keyword}{size}(array)
1016   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1017 
1018   \textcolor{comment}{!-------------------------------------------------------------------}
1019   \textcolor{comment}{!  標準偏差}
1020   \textcolor{comment}{!  Standard deviation}
1021   \textcolor{comment}{!-------------------------------------------------------------------}
1022   sd\_value = 0.0
1023   variance\_value = 0.0
1024   sd\_str = \textcolor{stringliteral}{''}
1025   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1026     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1027       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1028         \textcolor{keyword}{deallocate}(array\_packed)
1029 \textcolor{keywordflow}{      end if}
1030       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1031 
1032                             array\_packed = pack(array, .true.)
1033                       
1034 
1035       \textcolor{keywordflow}{do} i = 1, alldim\_size
1036         variance\_value = variance\_value + &
1037           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1038 \textcolor{keywordflow}{      end do}
1039       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1040       sd\_value = sqrt( variance\_value )
1041       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1042 \textcolor{keywordflow}{    end if}
1043 \textcolor{keywordflow}{  end if}
1044 
1045   \textcolor{comment}{!-------------------------------------------------------------------}
1046   \textcolor{comment}{!  印字}
1047   \textcolor{comment}{!  Print}
1048   \textcolor{comment}{!-------------------------------------------------------------------}
1049   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1050     & indent\_str(1:indent\_len) // &
1051                         & \textcolor{stringliteral}{'#<INT-ARRAY:: @size=%c, @max=%d, @min=%d, @avg=%r%c>'}, &
1052     & i = (/max\_value, min\_value/), r = (/avg\_value/), &
1053                     
1054 
1055     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1056 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=280pt]{dcstringputline_8f90_a2d4c37f2a0be65d9464a39a422a75600_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a1890cdd6b486137ad4f5a981d3a3c0cb}\label{dcstringputline_8f90_a1890cdd6b486137ad4f5a981d3a3c0cb}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal1@{putlinereal1}}
\index{putlinereal1@{putlinereal1}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal1()}{putlinereal1()}}
{\footnotesize\ttfamily subroutine putlinereal1 (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in)}]{array,  }\item[{integer, dimension(1), intent(in), optional}]{lbounds,  }\item[{integer, dimension(1), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1061 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1061                                         
1062                     
1063 
1064   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1065   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1066   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1067   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1068   \textcolor{keywordtype}{implicit none}
1069   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:)
1070   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(1)
1071   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(1)
1072   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1073   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1074   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1075   \textcolor{keywordtype}{integer}:: out\_unit
1076   \textcolor{keywordtype}{integer}:: indent\_len
1077   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1078   \textcolor{keywordtype}{integer}:: i
1079   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(1), ubound\_nums(1)
1080   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1081   \textcolor{keywordtype}{real}:: max\_value, min\_value
1082   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1083   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1084 \textcolor{keywordflow}{continue}
1085 
1086   \textcolor{comment}{!-----------------------------------------------------------------}
1087   \textcolor{comment}{!  オプショナル引数のチェック}
1088   \textcolor{comment}{!  Check optional arguments}
1089   \textcolor{comment}{!-----------------------------------------------------------------}
1090   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1091     out\_unit = unit
1092   \textcolor{keywordflow}{else}
1093     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1094 \textcolor{keywordflow}{  end if}
1095 
1096   indent\_len = 0
1097   indent\_str = \textcolor{stringliteral}{''}
1098   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1099     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1100       indent\_len = len(indent)
1101       indent\_str(1:indent\_len) = indent
1102 \textcolor{keywordflow}{    end if}
1103 \textcolor{keywordflow}{  end if}
1104 
1105   \textcolor{comment}{!-------------------------------------------------------------------}
1106   \textcolor{comment}{!  配列サイズ}
1107   \textcolor{comment}{!  Array size}
1108   \textcolor{comment}{!-------------------------------------------------------------------}
1109 
1110   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1111     lbound\_nums = lbounds
1112     ubound\_nums = ubounds
1113   \textcolor{keywordflow}{else}
1114                         lbound\_nums(1) = lbound( array, 1 )
1115     ubound\_nums(1) = ubound( array, 1 )
1116                     
1117 \textcolor{keywordflow}{  end if}
1118 
1119   size\_str = \textcolor{stringliteral}{'('}
1120   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1121   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1122                     
1123   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1124 
1125   \textcolor{comment}{!-------------------------------------------------------------------}
1126   \textcolor{comment}{!  最大値}
1127   \textcolor{comment}{!  Maximum value}
1128   \textcolor{comment}{!-------------------------------------------------------------------}
1129   max\_value = maxval(array)
1130 
1131   \textcolor{comment}{!-------------------------------------------------------------------}
1132   \textcolor{comment}{!  最小値}
1133   \textcolor{comment}{!  Minimum value}
1134   \textcolor{comment}{!-------------------------------------------------------------------}
1135   min\_value = minval(array)
1136 
1137   \textcolor{comment}{!-------------------------------------------------------------------}
1138   \textcolor{comment}{!  平均値}
1139   \textcolor{comment}{!  Average value}
1140   \textcolor{comment}{!-------------------------------------------------------------------}
1141   alldim\_size = \textcolor{keyword}{size}(array)
1142   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1143 
1144   \textcolor{comment}{!-------------------------------------------------------------------}
1145   \textcolor{comment}{!  標準偏差}
1146   \textcolor{comment}{!  Standard deviation}
1147   \textcolor{comment}{!-------------------------------------------------------------------}
1148   sd\_value = 0.0
1149   variance\_value = 0.0
1150   sd\_str = \textcolor{stringliteral}{''}
1151   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1152     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1153       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1154         \textcolor{keyword}{deallocate}(array\_packed)
1155 \textcolor{keywordflow}{      end if}
1156       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1157 
1158                             array\_packed = array
1159                       
1160 
1161       \textcolor{keywordflow}{do} i = 1, alldim\_size
1162         variance\_value = variance\_value + &
1163           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1164 \textcolor{keywordflow}{      end do}
1165       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1166       sd\_value = sqrt( variance\_value )
1167       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1168 \textcolor{keywordflow}{    end if}
1169 \textcolor{keywordflow}{  end if}
1170 
1171   \textcolor{comment}{!-------------------------------------------------------------------}
1172   \textcolor{comment}{!  印字}
1173   \textcolor{comment}{!  Print}
1174   \textcolor{comment}{!-------------------------------------------------------------------}
1175   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1176     & indent\_str(1:indent\_len) // &
1177                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1178     & r = (/max\_value, min\_value, avg\_value/), &
1179                     
1180 
1181     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1182 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_a1890cdd6b486137ad4f5a981d3a3c0cb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_ac948161eddf2e27791a5bc678465379d}\label{dcstringputline_8f90_ac948161eddf2e27791a5bc678465379d}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal2@{putlinereal2}}
\index{putlinereal2@{putlinereal2}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal2()}{putlinereal2()}}
{\footnotesize\ttfamily subroutine putlinereal2 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(2), intent(in), optional}]{lbounds,  }\item[{integer, dimension(2), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1187 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1187                     
1188 
1189   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1190   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1191   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1192   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1193   \textcolor{keywordtype}{implicit none}
1194   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
1195   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(2)
1196   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(2)
1197   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1198   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1199   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1200   \textcolor{keywordtype}{integer}:: out\_unit
1201   \textcolor{keywordtype}{integer}:: indent\_len
1202   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1203   \textcolor{keywordtype}{integer}:: i
1204   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(2), ubound\_nums(2)
1205   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1206   \textcolor{keywordtype}{real}:: max\_value, min\_value
1207   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1208   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1209 \textcolor{keywordflow}{continue}
1210 
1211   \textcolor{comment}{!-----------------------------------------------------------------}
1212   \textcolor{comment}{!  オプショナル引数のチェック}
1213   \textcolor{comment}{!  Check optional arguments}
1214   \textcolor{comment}{!-----------------------------------------------------------------}
1215   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1216     out\_unit = unit
1217   \textcolor{keywordflow}{else}
1218     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1219 \textcolor{keywordflow}{  end if}
1220 
1221   indent\_len = 0
1222   indent\_str = \textcolor{stringliteral}{''}
1223   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1224     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1225       indent\_len = len(indent)
1226       indent\_str(1:indent\_len) = indent
1227 \textcolor{keywordflow}{    end if}
1228 \textcolor{keywordflow}{  end if}
1229 
1230   \textcolor{comment}{!-------------------------------------------------------------------}
1231   \textcolor{comment}{!  配列サイズ}
1232   \textcolor{comment}{!  Array size}
1233   \textcolor{comment}{!-------------------------------------------------------------------}
1234 
1235   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1236     lbound\_nums = lbounds
1237     ubound\_nums = ubounds
1238   \textcolor{keywordflow}{else}
1239                         lbound\_nums(1) = lbound( array, 1 )
1240     ubound\_nums(1) = ubound( array, 1 )
1241                     
1242     lbound\_nums(2) = lbound( array, 2 )
1243     ubound\_nums(2) = ubound( array, 2 )
1244                     
1245 \textcolor{keywordflow}{  end if}
1246 
1247   size\_str = \textcolor{stringliteral}{'('}
1248   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1249   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1250                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1251   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1252                     
1253   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1254 
1255   \textcolor{comment}{!-------------------------------------------------------------------}
1256   \textcolor{comment}{!  最大値}
1257   \textcolor{comment}{!  Maximum value}
1258   \textcolor{comment}{!-------------------------------------------------------------------}
1259   max\_value = maxval(array)
1260 
1261   \textcolor{comment}{!-------------------------------------------------------------------}
1262   \textcolor{comment}{!  最小値}
1263   \textcolor{comment}{!  Minimum value}
1264   \textcolor{comment}{!-------------------------------------------------------------------}
1265   min\_value = minval(array)
1266 
1267   \textcolor{comment}{!-------------------------------------------------------------------}
1268   \textcolor{comment}{!  平均値}
1269   \textcolor{comment}{!  Average value}
1270   \textcolor{comment}{!-------------------------------------------------------------------}
1271   alldim\_size = \textcolor{keyword}{size}(array)
1272   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1273 
1274   \textcolor{comment}{!-------------------------------------------------------------------}
1275   \textcolor{comment}{!  標準偏差}
1276   \textcolor{comment}{!  Standard deviation}
1277   \textcolor{comment}{!-------------------------------------------------------------------}
1278   sd\_value = 0.0
1279   variance\_value = 0.0
1280   sd\_str = \textcolor{stringliteral}{''}
1281   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1282     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1283       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1284         \textcolor{keyword}{deallocate}(array\_packed)
1285 \textcolor{keywordflow}{      end if}
1286       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1287 
1288                             array\_packed = pack(array, .true.)
1289                       
1290 
1291       \textcolor{keywordflow}{do} i = 1, alldim\_size
1292         variance\_value = variance\_value + &
1293           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1294 \textcolor{keywordflow}{      end do}
1295       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1296       sd\_value = sqrt( variance\_value )
1297       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1298 \textcolor{keywordflow}{    end if}
1299 \textcolor{keywordflow}{  end if}
1300 
1301   \textcolor{comment}{!-------------------------------------------------------------------}
1302   \textcolor{comment}{!  印字}
1303   \textcolor{comment}{!  Print}
1304   \textcolor{comment}{!-------------------------------------------------------------------}
1305   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1306     & indent\_str(1:indent\_len) // &
1307                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1308     & r = (/max\_value, min\_value, avg\_value/), &
1309                     
1310 
1311     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1312 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_ac948161eddf2e27791a5bc678465379d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a7c3e3fc139420952d93dc329230d2f9c}\label{dcstringputline_8f90_a7c3e3fc139420952d93dc329230d2f9c}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal3@{putlinereal3}}
\index{putlinereal3@{putlinereal3}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal3()}{putlinereal3()}}
{\footnotesize\ttfamily subroutine putlinereal3 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(3), intent(in), optional}]{lbounds,  }\item[{integer, dimension(3), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1317 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1317                     
1318 
1319   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1320   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1321   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1322   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1323   \textcolor{keywordtype}{implicit none}
1324   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
1325   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(3)
1326   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(3)
1327   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1328   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1329   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1330   \textcolor{keywordtype}{integer}:: out\_unit
1331   \textcolor{keywordtype}{integer}:: indent\_len
1332   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1333   \textcolor{keywordtype}{integer}:: i
1334   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(3), ubound\_nums(3)
1335   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1336   \textcolor{keywordtype}{real}:: max\_value, min\_value
1337   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1338   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1339 \textcolor{keywordflow}{continue}
1340 
1341   \textcolor{comment}{!-----------------------------------------------------------------}
1342   \textcolor{comment}{!  オプショナル引数のチェック}
1343   \textcolor{comment}{!  Check optional arguments}
1344   \textcolor{comment}{!-----------------------------------------------------------------}
1345   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1346     out\_unit = unit
1347   \textcolor{keywordflow}{else}
1348     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1349 \textcolor{keywordflow}{  end if}
1350 
1351   indent\_len = 0
1352   indent\_str = \textcolor{stringliteral}{''}
1353   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1354     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1355       indent\_len = len(indent)
1356       indent\_str(1:indent\_len) = indent
1357 \textcolor{keywordflow}{    end if}
1358 \textcolor{keywordflow}{  end if}
1359 
1360   \textcolor{comment}{!-------------------------------------------------------------------}
1361   \textcolor{comment}{!  配列サイズ}
1362   \textcolor{comment}{!  Array size}
1363   \textcolor{comment}{!-------------------------------------------------------------------}
1364 
1365   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1366     lbound\_nums = lbounds
1367     ubound\_nums = ubounds
1368   \textcolor{keywordflow}{else}
1369                         lbound\_nums(1) = lbound( array, 1 )
1370     ubound\_nums(1) = ubound( array, 1 )
1371                     
1372     lbound\_nums(2) = lbound( array, 2 )
1373     ubound\_nums(2) = ubound( array, 2 )
1374                     
1375     lbound\_nums(3) = lbound( array, 3 )
1376     ubound\_nums(3) = ubound( array, 3 )
1377                     
1378 \textcolor{keywordflow}{  end if}
1379 
1380   size\_str = \textcolor{stringliteral}{'('}
1381   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1382   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1383                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1384   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1385                     
1386   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
1387   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
1388                     
1389   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1390 
1391   \textcolor{comment}{!-------------------------------------------------------------------}
1392   \textcolor{comment}{!  最大値}
1393   \textcolor{comment}{!  Maximum value}
1394   \textcolor{comment}{!-------------------------------------------------------------------}
1395   max\_value = maxval(array)
1396 
1397   \textcolor{comment}{!-------------------------------------------------------------------}
1398   \textcolor{comment}{!  最小値}
1399   \textcolor{comment}{!  Minimum value}
1400   \textcolor{comment}{!-------------------------------------------------------------------}
1401   min\_value = minval(array)
1402 
1403   \textcolor{comment}{!-------------------------------------------------------------------}
1404   \textcolor{comment}{!  平均値}
1405   \textcolor{comment}{!  Average value}
1406   \textcolor{comment}{!-------------------------------------------------------------------}
1407   alldim\_size = \textcolor{keyword}{size}(array)
1408   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1409 
1410   \textcolor{comment}{!-------------------------------------------------------------------}
1411   \textcolor{comment}{!  標準偏差}
1412   \textcolor{comment}{!  Standard deviation}
1413   \textcolor{comment}{!-------------------------------------------------------------------}
1414   sd\_value = 0.0
1415   variance\_value = 0.0
1416   sd\_str = \textcolor{stringliteral}{''}
1417   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1418     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1419       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1420         \textcolor{keyword}{deallocate}(array\_packed)
1421 \textcolor{keywordflow}{      end if}
1422       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1423 
1424                             array\_packed = pack(array, .true.)
1425                       
1426 
1427       \textcolor{keywordflow}{do} i = 1, alldim\_size
1428         variance\_value = variance\_value + &
1429           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1430 \textcolor{keywordflow}{      end do}
1431       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1432       sd\_value = sqrt( variance\_value )
1433       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1434 \textcolor{keywordflow}{    end if}
1435 \textcolor{keywordflow}{  end if}
1436 
1437   \textcolor{comment}{!-------------------------------------------------------------------}
1438   \textcolor{comment}{!  印字}
1439   \textcolor{comment}{!  Print}
1440   \textcolor{comment}{!-------------------------------------------------------------------}
1441   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1442     & indent\_str(1:indent\_len) // &
1443                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1444     & r = (/max\_value, min\_value, avg\_value/), &
1445                     
1446 
1447     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1448 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_a7c3e3fc139420952d93dc329230d2f9c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a86c58b3e7f5aa553ba1ec1e824b7d8f0}\label{dcstringputline_8f90_a86c58b3e7f5aa553ba1ec1e824b7d8f0}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal4@{putlinereal4}}
\index{putlinereal4@{putlinereal4}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal4()}{putlinereal4()}}
{\footnotesize\ttfamily subroutine putlinereal4 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(4), intent(in), optional}]{lbounds,  }\item[{integer, dimension(4), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1453 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1453                     
1454 
1455   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1456   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1457   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1458   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1459   \textcolor{keywordtype}{implicit none}
1460   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
1461   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(4)
1462   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(4)
1463   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1464   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1465   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1466   \textcolor{keywordtype}{integer}:: out\_unit
1467   \textcolor{keywordtype}{integer}:: indent\_len
1468   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1469   \textcolor{keywordtype}{integer}:: i
1470   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(4), ubound\_nums(4)
1471   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1472   \textcolor{keywordtype}{real}:: max\_value, min\_value
1473   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1474   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1475 \textcolor{keywordflow}{continue}
1476 
1477   \textcolor{comment}{!-----------------------------------------------------------------}
1478   \textcolor{comment}{!  オプショナル引数のチェック}
1479   \textcolor{comment}{!  Check optional arguments}
1480   \textcolor{comment}{!-----------------------------------------------------------------}
1481   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1482     out\_unit = unit
1483   \textcolor{keywordflow}{else}
1484     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1485 \textcolor{keywordflow}{  end if}
1486 
1487   indent\_len = 0
1488   indent\_str = \textcolor{stringliteral}{''}
1489   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1490     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1491       indent\_len = len(indent)
1492       indent\_str(1:indent\_len) = indent
1493 \textcolor{keywordflow}{    end if}
1494 \textcolor{keywordflow}{  end if}
1495 
1496   \textcolor{comment}{!-------------------------------------------------------------------}
1497   \textcolor{comment}{!  配列サイズ}
1498   \textcolor{comment}{!  Array size}
1499   \textcolor{comment}{!-------------------------------------------------------------------}
1500 
1501   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1502     lbound\_nums = lbounds
1503     ubound\_nums = ubounds
1504   \textcolor{keywordflow}{else}
1505                         lbound\_nums(1) = lbound( array, 1 )
1506     ubound\_nums(1) = ubound( array, 1 )
1507                     
1508     lbound\_nums(2) = lbound( array, 2 )
1509     ubound\_nums(2) = ubound( array, 2 )
1510                     
1511     lbound\_nums(3) = lbound( array, 3 )
1512     ubound\_nums(3) = ubound( array, 3 )
1513                     
1514     lbound\_nums(4) = lbound( array, 4 )
1515     ubound\_nums(4) = ubound( array, 4 )
1516                     
1517 \textcolor{keywordflow}{  end if}
1518 
1519   size\_str = \textcolor{stringliteral}{'('}
1520   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1521   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1522                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1523   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1524                     
1525   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
1526   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
1527                     
1528   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
1529   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
1530                     
1531   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1532 
1533   \textcolor{comment}{!-------------------------------------------------------------------}
1534   \textcolor{comment}{!  最大値}
1535   \textcolor{comment}{!  Maximum value}
1536   \textcolor{comment}{!-------------------------------------------------------------------}
1537   max\_value = maxval(array)
1538 
1539   \textcolor{comment}{!-------------------------------------------------------------------}
1540   \textcolor{comment}{!  最小値}
1541   \textcolor{comment}{!  Minimum value}
1542   \textcolor{comment}{!-------------------------------------------------------------------}
1543   min\_value = minval(array)
1544 
1545   \textcolor{comment}{!-------------------------------------------------------------------}
1546   \textcolor{comment}{!  平均値}
1547   \textcolor{comment}{!  Average value}
1548   \textcolor{comment}{!-------------------------------------------------------------------}
1549   alldim\_size = \textcolor{keyword}{size}(array)
1550   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1551 
1552   \textcolor{comment}{!-------------------------------------------------------------------}
1553   \textcolor{comment}{!  標準偏差}
1554   \textcolor{comment}{!  Standard deviation}
1555   \textcolor{comment}{!-------------------------------------------------------------------}
1556   sd\_value = 0.0
1557   variance\_value = 0.0
1558   sd\_str = \textcolor{stringliteral}{''}
1559   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1560     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1561       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1562         \textcolor{keyword}{deallocate}(array\_packed)
1563 \textcolor{keywordflow}{      end if}
1564       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1565 
1566                             array\_packed = pack(array, .true.)
1567                       
1568 
1569       \textcolor{keywordflow}{do} i = 1, alldim\_size
1570         variance\_value = variance\_value + &
1571           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1572 \textcolor{keywordflow}{      end do}
1573       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1574       sd\_value = sqrt( variance\_value )
1575       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1576 \textcolor{keywordflow}{    end if}
1577 \textcolor{keywordflow}{  end if}
1578 
1579   \textcolor{comment}{!-------------------------------------------------------------------}
1580   \textcolor{comment}{!  印字}
1581   \textcolor{comment}{!  Print}
1582   \textcolor{comment}{!-------------------------------------------------------------------}
1583   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1584     & indent\_str(1:indent\_len) // &
1585                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1586     & r = (/max\_value, min\_value, avg\_value/), &
1587                     
1588 
1589     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1590 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_a86c58b3e7f5aa553ba1ec1e824b7d8f0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_acea9f2357a37a5467b5963109adbf9d3}\label{dcstringputline_8f90_acea9f2357a37a5467b5963109adbf9d3}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal5@{putlinereal5}}
\index{putlinereal5@{putlinereal5}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal5()}{putlinereal5()}}
{\footnotesize\ttfamily subroutine putlinereal5 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(5), intent(in), optional}]{lbounds,  }\item[{integer, dimension(5), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1595 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1595                     
1596 
1597   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1598   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1599   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1600   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1601   \textcolor{keywordtype}{implicit none}
1602   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
1603   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(5)
1604   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(5)
1605   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1606   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1607   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1608   \textcolor{keywordtype}{integer}:: out\_unit
1609   \textcolor{keywordtype}{integer}:: indent\_len
1610   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1611   \textcolor{keywordtype}{integer}:: i
1612   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(5), ubound\_nums(5)
1613   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1614   \textcolor{keywordtype}{real}:: max\_value, min\_value
1615   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1616   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1617 \textcolor{keywordflow}{continue}
1618 
1619   \textcolor{comment}{!-----------------------------------------------------------------}
1620   \textcolor{comment}{!  オプショナル引数のチェック}
1621   \textcolor{comment}{!  Check optional arguments}
1622   \textcolor{comment}{!-----------------------------------------------------------------}
1623   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1624     out\_unit = unit
1625   \textcolor{keywordflow}{else}
1626     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1627 \textcolor{keywordflow}{  end if}
1628 
1629   indent\_len = 0
1630   indent\_str = \textcolor{stringliteral}{''}
1631   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1632     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1633       indent\_len = len(indent)
1634       indent\_str(1:indent\_len) = indent
1635 \textcolor{keywordflow}{    end if}
1636 \textcolor{keywordflow}{  end if}
1637 
1638   \textcolor{comment}{!-------------------------------------------------------------------}
1639   \textcolor{comment}{!  配列サイズ}
1640   \textcolor{comment}{!  Array size}
1641   \textcolor{comment}{!-------------------------------------------------------------------}
1642 
1643   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1644     lbound\_nums = lbounds
1645     ubound\_nums = ubounds
1646   \textcolor{keywordflow}{else}
1647                         lbound\_nums(1) = lbound( array, 1 )
1648     ubound\_nums(1) = ubound( array, 1 )
1649                     
1650     lbound\_nums(2) = lbound( array, 2 )
1651     ubound\_nums(2) = ubound( array, 2 )
1652                     
1653     lbound\_nums(3) = lbound( array, 3 )
1654     ubound\_nums(3) = ubound( array, 3 )
1655                     
1656     lbound\_nums(4) = lbound( array, 4 )
1657     ubound\_nums(4) = ubound( array, 4 )
1658                     
1659     lbound\_nums(5) = lbound( array, 5 )
1660     ubound\_nums(5) = ubound( array, 5 )
1661                     
1662 \textcolor{keywordflow}{  end if}
1663 
1664   size\_str = \textcolor{stringliteral}{'('}
1665   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1666   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1667                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1668   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1669                     
1670   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
1671   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
1672                     
1673   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
1674   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
1675                     
1676   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
1677   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
1678                     
1679   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1680 
1681   \textcolor{comment}{!-------------------------------------------------------------------}
1682   \textcolor{comment}{!  最大値}
1683   \textcolor{comment}{!  Maximum value}
1684   \textcolor{comment}{!-------------------------------------------------------------------}
1685   max\_value = maxval(array)
1686 
1687   \textcolor{comment}{!-------------------------------------------------------------------}
1688   \textcolor{comment}{!  最小値}
1689   \textcolor{comment}{!  Minimum value}
1690   \textcolor{comment}{!-------------------------------------------------------------------}
1691   min\_value = minval(array)
1692 
1693   \textcolor{comment}{!-------------------------------------------------------------------}
1694   \textcolor{comment}{!  平均値}
1695   \textcolor{comment}{!  Average value}
1696   \textcolor{comment}{!-------------------------------------------------------------------}
1697   alldim\_size = \textcolor{keyword}{size}(array)
1698   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1699 
1700   \textcolor{comment}{!-------------------------------------------------------------------}
1701   \textcolor{comment}{!  標準偏差}
1702   \textcolor{comment}{!  Standard deviation}
1703   \textcolor{comment}{!-------------------------------------------------------------------}
1704   sd\_value = 0.0
1705   variance\_value = 0.0
1706   sd\_str = \textcolor{stringliteral}{''}
1707   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1708     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1709       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1710         \textcolor{keyword}{deallocate}(array\_packed)
1711 \textcolor{keywordflow}{      end if}
1712       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1713 
1714                             array\_packed = pack(array, .true.)
1715                       
1716 
1717       \textcolor{keywordflow}{do} i = 1, alldim\_size
1718         variance\_value = variance\_value + &
1719           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1720 \textcolor{keywordflow}{      end do}
1721       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1722       sd\_value = sqrt( variance\_value )
1723       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1724 \textcolor{keywordflow}{    end if}
1725 \textcolor{keywordflow}{  end if}
1726 
1727   \textcolor{comment}{!-------------------------------------------------------------------}
1728   \textcolor{comment}{!  印字}
1729   \textcolor{comment}{!  Print}
1730   \textcolor{comment}{!-------------------------------------------------------------------}
1731   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1732     & indent\_str(1:indent\_len) // &
1733                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1734     & r = (/max\_value, min\_value, avg\_value/), &
1735                     
1736 
1737     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1738 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_acea9f2357a37a5467b5963109adbf9d3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_a1bfcb7368c35887fe3a417725893ea39}\label{dcstringputline_8f90_a1bfcb7368c35887fe3a417725893ea39}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal6@{putlinereal6}}
\index{putlinereal6@{putlinereal6}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal6()}{putlinereal6()}}
{\footnotesize\ttfamily subroutine putlinereal6 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(6), intent(in), optional}]{lbounds,  }\item[{integer, dimension(6), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1743 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1743                     
1744 
1745   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1746   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1747   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1748   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1749   \textcolor{keywordtype}{implicit none}
1750   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
1751   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(6)
1752   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(6)
1753   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1754   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1755   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1756   \textcolor{keywordtype}{integer}:: out\_unit
1757   \textcolor{keywordtype}{integer}:: indent\_len
1758   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1759   \textcolor{keywordtype}{integer}:: i
1760   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(6), ubound\_nums(6)
1761   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1762   \textcolor{keywordtype}{real}:: max\_value, min\_value
1763   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1764   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1765 \textcolor{keywordflow}{continue}
1766 
1767   \textcolor{comment}{!-----------------------------------------------------------------}
1768   \textcolor{comment}{!  オプショナル引数のチェック}
1769   \textcolor{comment}{!  Check optional arguments}
1770   \textcolor{comment}{!-----------------------------------------------------------------}
1771   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1772     out\_unit = unit
1773   \textcolor{keywordflow}{else}
1774     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1775 \textcolor{keywordflow}{  end if}
1776 
1777   indent\_len = 0
1778   indent\_str = \textcolor{stringliteral}{''}
1779   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1780     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1781       indent\_len = len(indent)
1782       indent\_str(1:indent\_len) = indent
1783 \textcolor{keywordflow}{    end if}
1784 \textcolor{keywordflow}{  end if}
1785 
1786   \textcolor{comment}{!-------------------------------------------------------------------}
1787   \textcolor{comment}{!  配列サイズ}
1788   \textcolor{comment}{!  Array size}
1789   \textcolor{comment}{!-------------------------------------------------------------------}
1790 
1791   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1792     lbound\_nums = lbounds
1793     ubound\_nums = ubounds
1794   \textcolor{keywordflow}{else}
1795                         lbound\_nums(1) = lbound( array, 1 )
1796     ubound\_nums(1) = ubound( array, 1 )
1797                     
1798     lbound\_nums(2) = lbound( array, 2 )
1799     ubound\_nums(2) = ubound( array, 2 )
1800                     
1801     lbound\_nums(3) = lbound( array, 3 )
1802     ubound\_nums(3) = ubound( array, 3 )
1803                     
1804     lbound\_nums(4) = lbound( array, 4 )
1805     ubound\_nums(4) = ubound( array, 4 )
1806                     
1807     lbound\_nums(5) = lbound( array, 5 )
1808     ubound\_nums(5) = ubound( array, 5 )
1809                     
1810     lbound\_nums(6) = lbound( array, 6 )
1811     ubound\_nums(6) = ubound( array, 6 )
1812                     
1813 \textcolor{keywordflow}{  end if}
1814 
1815   size\_str = \textcolor{stringliteral}{'('}
1816   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1817   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1818                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1819   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1820                     
1821   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
1822   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
1823                     
1824   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
1825   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
1826                     
1827   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
1828   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
1829                     
1830   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
1831   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
1832                     
1833   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1834 
1835   \textcolor{comment}{!-------------------------------------------------------------------}
1836   \textcolor{comment}{!  最大値}
1837   \textcolor{comment}{!  Maximum value}
1838   \textcolor{comment}{!-------------------------------------------------------------------}
1839   max\_value = maxval(array)
1840 
1841   \textcolor{comment}{!-------------------------------------------------------------------}
1842   \textcolor{comment}{!  最小値}
1843   \textcolor{comment}{!  Minimum value}
1844   \textcolor{comment}{!-------------------------------------------------------------------}
1845   min\_value = minval(array)
1846 
1847   \textcolor{comment}{!-------------------------------------------------------------------}
1848   \textcolor{comment}{!  平均値}
1849   \textcolor{comment}{!  Average value}
1850   \textcolor{comment}{!-------------------------------------------------------------------}
1851   alldim\_size = \textcolor{keyword}{size}(array)
1852   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
1853 
1854   \textcolor{comment}{!-------------------------------------------------------------------}
1855   \textcolor{comment}{!  標準偏差}
1856   \textcolor{comment}{!  Standard deviation}
1857   \textcolor{comment}{!-------------------------------------------------------------------}
1858   sd\_value = 0.0
1859   variance\_value = 0.0
1860   sd\_str = \textcolor{stringliteral}{''}
1861   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
1862     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
1863       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
1864         \textcolor{keyword}{deallocate}(array\_packed)
1865 \textcolor{keywordflow}{      end if}
1866       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
1867 
1868                             array\_packed = pack(array, .true.)
1869                       
1870 
1871       \textcolor{keywordflow}{do} i = 1, alldim\_size
1872         variance\_value = variance\_value + &
1873           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
1874 \textcolor{keywordflow}{      end do}
1875       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
1876       sd\_value = sqrt( variance\_value )
1877       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
1878 \textcolor{keywordflow}{    end if}
1879 \textcolor{keywordflow}{  end if}
1880 
1881   \textcolor{comment}{!-------------------------------------------------------------------}
1882   \textcolor{comment}{!  印字}
1883   \textcolor{comment}{!  Print}
1884   \textcolor{comment}{!-------------------------------------------------------------------}
1885   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
1886     & indent\_str(1:indent\_len) // &
1887                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
1888     & r = (/max\_value, min\_value, avg\_value/), &
1889                     
1890 
1891     & c1 = trim(size\_str), c2 = trim(sd\_str) )
1892 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_a1bfcb7368c35887fe3a417725893ea39_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcstringputline_8f90_ac5ce83d66003ab502579884150da941b}\label{dcstringputline_8f90_ac5ce83d66003ab502579884150da941b}} 
\index{dcstringputline.\+f90@{dcstringputline.\+f90}!putlinereal7@{putlinereal7}}
\index{putlinereal7@{putlinereal7}!dcstringputline.\+f90@{dcstringputline.\+f90}}
\subsubsection{\texorpdfstring{putlinereal7()}{putlinereal7()}}
{\footnotesize\ttfamily subroutine putlinereal7 (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{integer, dimension(7), intent(in), optional}]{lbounds,  }\item[{integer, dimension(7), intent(in), optional}]{ubounds,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(in), optional}]{sd }\end{DoxyParamCaption})}



Definition at line 1897 of file dcstringputline.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
1897                     
1898 
1899   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1900   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
1901   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
1902   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1903   \textcolor{keywordtype}{implicit none}
1904   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
1905   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: lbounds(7)
1906   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ubounds(7)
1907   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
1908   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
1909   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: sd
1910   \textcolor{keywordtype}{integer}:: out\_unit
1911   \textcolor{keywordtype}{integer}:: indent\_len
1912   \textcolor{keywordtype}{character(STRING)}:: indent\_str
1913   \textcolor{keywordtype}{integer}:: i
1914   \textcolor{keywordtype}{integer}:: alldim\_size, lbound\_nums(7), ubound\_nums(7)
1915   \textcolor{keywordtype}{character(STRING)}:: size\_str, sd\_str
1916   \textcolor{keywordtype}{real}:: max\_value, min\_value
1917   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable}:: array\_packed(:)
1918   \textcolor{keywordtype}{real}:: avg\_value, variance\_value, sd\_value
1919 \textcolor{keywordflow}{continue}
1920 
1921   \textcolor{comment}{!-----------------------------------------------------------------}
1922   \textcolor{comment}{!  オプショナル引数のチェック}
1923   \textcolor{comment}{!  Check optional arguments}
1924   \textcolor{comment}{!-----------------------------------------------------------------}
1925   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
1926     out\_unit = unit
1927   \textcolor{keywordflow}{else}
1928     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
1929 \textcolor{keywordflow}{  end if}
1930 
1931   indent\_len = 0
1932   indent\_str = \textcolor{stringliteral}{''}
1933   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
1934     \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
1935       indent\_len = len(indent)
1936       indent\_str(1:indent\_len) = indent
1937 \textcolor{keywordflow}{    end if}
1938 \textcolor{keywordflow}{  end if}
1939 
1940   \textcolor{comment}{!-------------------------------------------------------------------}
1941   \textcolor{comment}{!  配列サイズ}
1942   \textcolor{comment}{!  Array size}
1943   \textcolor{comment}{!-------------------------------------------------------------------}
1944 
1945   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(lbounds) .and. \textcolor{keyword}{present}(ubounds) ) \textcolor{keywordflow}{then}
1946     lbound\_nums = lbounds
1947     ubound\_nums = ubounds
1948   \textcolor{keywordflow}{else}
1949                         lbound\_nums(1) = lbound( array, 1 )
1950     ubound\_nums(1) = ubound( array, 1 )
1951                     
1952     lbound\_nums(2) = lbound( array, 2 )
1953     ubound\_nums(2) = ubound( array, 2 )
1954                     
1955     lbound\_nums(3) = lbound( array, 3 )
1956     ubound\_nums(3) = ubound( array, 3 )
1957                     
1958     lbound\_nums(4) = lbound( array, 4 )
1959     ubound\_nums(4) = ubound( array, 4 )
1960                     
1961     lbound\_nums(5) = lbound( array, 5 )
1962     ubound\_nums(5) = ubound( array, 5 )
1963                     
1964     lbound\_nums(6) = lbound( array, 6 )
1965     ubound\_nums(6) = ubound( array, 6 )
1966                     
1967     lbound\_nums(7) = lbound( array, 7 )
1968     ubound\_nums(7) = ubound( array, 7 )
1969                     
1970 \textcolor{keywordflow}{  end if}
1971 
1972   size\_str = \textcolor{stringliteral}{'('}
1973   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(1))) // \textcolor{stringliteral}{':'}
1974   size\_str = trim(size\_str) // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(1)))
1975                       size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(2)))
1976   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(2)))
1977                     
1978   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(3)))
1979   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(3)))
1980                     
1981   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(4)))
1982   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(4)))
1983                     
1984   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(5)))
1985   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(5)))
1986                     
1987   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(6)))
1988   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(6)))
1989                     
1990   size\_str = trim(size\_str) // \textcolor{stringliteral}{','} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(lbound\_nums(7)))
1991   size\_str = trim(size\_str) // \textcolor{stringliteral}{':'} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(ubound\_nums(7)))
1992                     
1993   size\_str = trim(size\_str) // \textcolor{stringliteral}{')'}
1994 
1995   \textcolor{comment}{!-------------------------------------------------------------------}
1996   \textcolor{comment}{!  最大値}
1997   \textcolor{comment}{!  Maximum value}
1998   \textcolor{comment}{!-------------------------------------------------------------------}
1999   max\_value = maxval(array)
2000 
2001   \textcolor{comment}{!-------------------------------------------------------------------}
2002   \textcolor{comment}{!  最小値}
2003   \textcolor{comment}{!  Minimum value}
2004   \textcolor{comment}{!-------------------------------------------------------------------}
2005   min\_value = minval(array)
2006 
2007   \textcolor{comment}{!-------------------------------------------------------------------}
2008   \textcolor{comment}{!  平均値}
2009   \textcolor{comment}{!  Average value}
2010   \textcolor{comment}{!-------------------------------------------------------------------}
2011   alldim\_size = \textcolor{keyword}{size}(array)
2012   avg\_value = sum(array) / \textcolor{keywordtype}{real}(alldim\_size)
2013 
2014   \textcolor{comment}{!-------------------------------------------------------------------}
2015   \textcolor{comment}{!  標準偏差}
2016   \textcolor{comment}{!  Standard deviation}
2017   \textcolor{comment}{!-------------------------------------------------------------------}
2018   sd\_value = 0.0
2019   variance\_value = 0.0
2020   sd\_str = \textcolor{stringliteral}{''}
2021   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( sd ) ) \textcolor{keywordflow}{then}
2022     \textcolor{keywordflow}{if} ( alldim\_size > 1 ) \textcolor{keywordflow}{then}
2023       \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array\_packed)) \textcolor{keywordflow}{then}
2024         \textcolor{keyword}{deallocate}(array\_packed)
2025 \textcolor{keywordflow}{      end if}
2026       \textcolor{keyword}{allocate}( array\_packed(alldim\_size) )
2027 
2028                             array\_packed = pack(array, .true.)
2029                       
2030 
2031       \textcolor{keywordflow}{do} i = 1, alldim\_size
2032         variance\_value = variance\_value + &
2033           & (array\_packed(i) - avg\_value) * (array\_packed(i) - avg\_value)
2034 \textcolor{keywordflow}{      end do}
2035       variance\_value = variance\_value / \textcolor{keywordtype}{real}(alldim\_size)
2036       sd\_value = sqrt( variance\_value )
2037       sd\_str = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{' @sd=%r'}, r = (/ sd\_value /) )
2038 \textcolor{keywordflow}{    end if}
2039 \textcolor{keywordflow}{  end if}
2040 
2041   \textcolor{comment}{!-------------------------------------------------------------------}
2042   \textcolor{comment}{!  印字}
2043   \textcolor{comment}{!  Print}
2044   \textcolor{comment}{!-------------------------------------------------------------------}
2045   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
2046     & indent\_str(1:indent\_len) // &
2047                         & \textcolor{stringliteral}{'#<SP-ARRAY:: @size=%c, @max=%r, @min=%r, @avg=%r%c>'}, &
2048     & r = (/max\_value, min\_value, avg\_value/), &
2049                     
2050 
2051     & c1 = trim(size\_str), c2 = trim(sd\_str) )
2052 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=285pt]{dcstringputline_8f90_ac5ce83d66003ab502579884150da941b_cgraph}
\end{center}
\end{figure}
