\hypertarget{historyget_8f90}{}\section{gtool/gtool\+\_\+history/historyget.f90 File Reference}
\label{historyget_8f90}\index{gtool/gtool\+\_\+history/historyget.\+f90@{gtool/gtool\+\_\+history/historyget.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer} (file, varname, array, range, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa19ff4ed63468d114e7490982d336199}{historygetdouble0timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a46d0ec26afa96e660ed0b3ab4c7c68ed}{historygetdouble1timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0115c8b4e386bab330a53c13f8756489}{historygetdouble2timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a997b65125c9db56f2197c503971221cd}{historygetdouble3timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_abeb57bd6e5207813f0f4f4dfdd9371b7}{historygetdouble4timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a55cf94c49b5a3d22f28650986a052041}{historygetdouble5timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab359bda2a4f3385fc199ce608ba81c31}{historygetdouble6timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae98eb6c200367fc64abd48b15ea6dcce}{historygetdouble7timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_afc840681cad70666635f2c21ab941892}{historygetdouble0pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab9ccc36d98e5e19bfd3ffd2ef23bc8c4}{historygetdouble1pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7b6350bcf8a47b890824ff14ff3da88e}{historygetdouble2pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a9d8ab31749042685ff482b932040011c}{historygetdouble3pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6bab4ce974439301616481abf34bfbb8}{historygetdouble4pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab039c3506ad9f7909fb32afe4a7ff459}{historygetdouble5pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aad0911802113761611ed6f4a2759579a}{historygetdouble6pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a13af1e3dc842f270391f151e8e6141f0}{historygetdouble7pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a2e0a4598f6199d26bff46482831767d4}{historygetreal0timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8550581ce0b1ea312e1570cf83e094d1}{historygetreal1timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_af3b0df6d2471b9ea6e9133e0aaec0e25}{historygetreal2timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a13401bf9eb6abbf6efe238fba74d3b3d}{historygetreal3timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3986c83701f371af96fe6a4d487f1ece}{historygetreal4timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aab05368cbf5c38c92d24f8dd56056a69}{historygetreal5timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a4783f9426af428e555b8d792f7e67cb7}{historygetreal6timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a848afb4289567c64ab53cc348eea7bfe}{historygetreal7timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae02aa382b803dda87d1bde46526e3752}{historygetreal0pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a43d46b739e1941588d4fa282af961809}{historygetreal1pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a05157a22b124ae83522f694ac4706345}{historygetreal2pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3120e09802837deadf51fbfadf85a29d}{historygetreal3pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a207a75b151fc3a9d7807ba34d1c7789a}{historygetreal4pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_af45ec7544db9e1d4265dd4de0a98fbea}{historygetreal5pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6488c48d24c041dbd507ca8c294a197f}{historygetreal6pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a2f550f1e34875ce073aeb2a41e955025}{historygetreal7pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8ed7c96708742d074122eaf37cc60d4b}{historygetint0timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7ee3a057774ae23f4ba14be18906e4e9}{historygetint1timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7dfdc12ad4f6bc7a48aa199f340e2d61}{historygetint2timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a34c024c0953901b084997d7542b6c0c1}{historygetint3timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa2d6956e60afe5381265062348d4794f}{historygetint4timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a4138c8b7451da3ea1ffe62da988bd593}{historygetint5timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_abd10bd8c7176b487bca62a5af1289774}{historygetint6timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acc40fb31a5854ab455e677319b64cff0}{historygetint7timer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_adaa66ee4b4a013f6acd29e84c4631f29}{historygetint0pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ac1184420dd9fa01b48e62dc99431df86}{historygetint1pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a932c53e262f91636de06cbf113885650}{historygetint2pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8ad9a656c938374636919ccfe1687708}{historygetint3pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab28bcfd5f9ffed04385e801d3d7a40f9}{historygetint4pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a57bb3692fcbd70842b0d27c7cfb0888c}{historygetint5pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae1c47babdaae300dd8b0991a6ae36193}{historygetint6pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ac2a45310fa54733338aba63ebd0794ec}{historygetint7pointertimer} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad37463dd57daba6a5a1089c753b9e4b0}{historygetdouble0timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acfc256353974f0b01a758214193990ee}{historygetdouble1timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a1eed44d272a14d94c52a4ccbd96054bd}{historygetdouble2timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ada8bce048dd2fec443d7a0946f5445e3}{historygetdouble3timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5341d9be64bb52788b7a51590c48e01c}{historygetdouble4timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a2323282c5bdf5ab9f9f1a83ceb6eb3ce}{historygetdouble5timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6b72cb469c5ca6f263d7ca0c1393375d}{historygetdouble6timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a40fed42d8f909e9e1bde7d551cd8c087}{historygetdouble7timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a36189e2020600a811dd170fc6d4770da}{historygetdouble0pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a93f3a8a8d62ba5c76e53531180143055}{historygetdouble1pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0dea9cc993c867da0d076cdf2843a38e}{historygetdouble2pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5203735ed170ebc5a2425c4b8876fe42}{historygetdouble3pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad3b74a757911181af5ebf523d7918dd4}{historygetdouble4pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8e21eb035c11e8ca04c73d69890b2379}{historygetdouble5pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a00650769352c6906a2d1a283d722b4a0}{historygetdouble6pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a794fccad8bfa46d5f7a41356b3ad0762}{historygetdouble7pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a90929db2f3af0a230e7af4278555df0e}{historygetreal0timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ade7b83ab0fa157de60796c9d36c83457}{historygetreal1timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3685451163216c44c899d31c5fa49419}{historygetreal2timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0928cef9ccbb7200e5dd5dad2a590052}{historygetreal3timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_adbf99fd03a75b31830c4b4dd68a51e3e}{historygetreal4timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8fc6eca3d23c9eb721dda053f3f8fdc0}{historygetreal5timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6a2bded1d05403808b3050d25423b50a}{historygetreal6timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6168514b787b5e79784ab22977e1ac3b}{historygetreal7timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a733c6d9ec39d90a1e9f8b1e2030095e8}{historygetreal0pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7114b3be5e846e8d629687bac82d1220}{historygetreal1pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa58ca7dd13d4e29fdf2e579599523800}{historygetreal2pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6af89f3b5effda321545c1f66ad610b9}{historygetreal3pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a437ddf0704b678ad2823b71fab30faed}{historygetreal4pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a67f099581f4dd100c2dd5ebbc76e72e4}{historygetreal5pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_af8d7cb8e4b660a4aefcc964a24562e30}{historygetreal6pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab0fbd0e1954d2e6cd31bcf015838dc9e}{historygetreal7pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad7e7df0a4fb40676d5eee16748016ac0}{historygetint0timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a000bc8f11e62549cd512e48d6adf014b}{historygetint1timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_afc486850c94d5f3015b8db4155ad66a9}{historygetint2timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a6fdcac832e7d37712f28fbc2e5210958}{historygetint3timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aaee2065260d1a04d05580ff6c673f1f3}{historygetint4timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a04cebb218a46695b093a4b82e21c877f}{historygetint5timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a9ed95523d8d1dc3afcac19674eb1fbe0}{historygetint6timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0e37bbee54e961435a64412fa7b2b16c}{historygetint7timed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0b915a81310a34a3194bba1eef60b507}{historygetint0pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_abe4b9e3a4bd8af1109d0ae782872b066}{historygetint1pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_afd85a886138e8ff50c0ddb03c2977d98}{historygetint2pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ac8f327cc2bd81309003c05b7b9cc9736}{historygetint3pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acb0573ec5b1dac9ba2272d7b603b084e}{historygetint4pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a0f2a4ee8971a9e70d5fbbf744a9a5448}{historygetint5pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ac42fc1dbf1fee0c602ea1a3ef7b7dd00}{historygetint6pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a45ec85c8a67443e9551a013d9f909a87}{historygetint7pointertimed} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aef98074b0efb4fb1306369eafe252af9}{historygetdouble0timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a237f7219ac1e7a705a44fdfe91ade305}{historygetdouble1timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acb55f588802f26c52d462d0302990a99}{historygetdouble2timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aad660b64be1fe3ba7d068eab1a3be8f3}{historygetdouble3timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a70f1d426e32c0a22b6c070040370e72a}{historygetdouble4timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a33cd3d00de0b04c2cb7c014c15ce609a}{historygetdouble5timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a23e21ebbbf3f5a475bd29e5a88923aab}{historygetdouble6timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aefa48bb3567bddb813913a30d2cdb11e}{historygetdouble7timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aaf375af7827f89d97b9d88c469619c80}{historygetdouble0pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab1b831ab5508d905a3a77cd5558118bf}{historygetdouble1pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad4e481816d2005b34f284e6632bbd518}{historygetdouble2pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a77ac1034efc3a8ab7df6c0d6d74b8751}{historygetdouble3pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5657ba9674c23f72fc9e09b165a3db79}{historygetdouble4pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_acd92ef1abbf732face4dae7e3ca731f6}{historygetdouble5pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a634f265192047feccbd7e526a1fe09ab}{historygetdouble6pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a4174ed01ac557d519a40aa84c7fc5714}{historygetdouble7pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_abdd7631888bf270034413e10bed6887b}{historygetreal0timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a09491449cedf1f8f0b94933ab220fa81}{historygetreal1timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a31c64af9b90bfb6475a6f2c7cb95cb06}{historygetreal2timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a68bdd25df4f4866fabdfb621196a9e74}{historygetreal3timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a8f32db436f162fadbc0c18ffd7ceded2}{historygetreal4timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_af68068882295d17e7cd9a798386f6975}{historygetreal5timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a83acc1dd09adb894c385f87431c061a0}{historygetreal6timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7ccb971b6ca191d22ff979725aaa19a0}{historygetreal7timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a40e531554afb3268a5f8ff94098f46c6}{historygetreal0pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a7a6831872da5500cb2e17c7e60b18964}{historygetreal1pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a64551b0c2b2b58bc6cdadede229a929b}{historygetreal2pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a43c04d45a6966f135db5633ef2d5baca}{historygetreal3pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_afdbaa03cce62d79a3ceb2325d8b68307}{historygetreal4pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a131357166ca3dbe1956b01b0cf817a51}{historygetreal5pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad9d418fd198ea20d08941e87f2f8dddf}{historygetreal6pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a72f7b56a12deaf108b33d71a6648c802}{historygetreal7pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a465327000fdd3deb629ffbbaacff629b}{historygetint0timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_aa3cda8d5b2a3901e09baf5cb2ddc0f2d}{historygetint1timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a663014093fb5e739d5af4f4d2aacd555}{historygetint2timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a73bbb52913e6325df98408f13a23c4e7}{historygetint3timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a190cc48f7a2d7df8acf18cd2bdbdf0a6}{historygetint4timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5f3125b18c93fec93407ff30a9070f8a}{historygetint5timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a5d324c54a371617e29b9323e7244b5cd}{historygetint6timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a16fb4330d003738629d0b6d6bf577c11}{historygetint7timei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a971082086c925d639a64f3eccf775918}{historygetint0pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a145bbd714a3310159c504ca5a8f49102}{historygetint1pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a3f1cc1b0914e47dbb2e29d0fbf0c1690}{historygetint2pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ac5126b972df80cb533ede4bda27ca85b}{historygetint3pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ab429ed375736c7ecce46a67dbb26f6fe}{historygetint4pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a58579af607ff2e1f0136f0a3ca849c3b}{historygetint5pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ae6ed1d34669af6a9df8d1300be8668de}{historygetint6pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_ad7f536689ba03d4bb646bf573ca4ec1e}{historygetint7pointertimei} (file, varname, array, time, quiet, flag\+\_\+mpi\+\_\+split, returned\+\_\+time, flag\+\_\+time\+\_\+exist, err)
\item 
subroutine \hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\+\_\+growable\+\_\+url} (file, varname, url, range, flag\+\_\+time\+\_\+exist, time\+\_\+name, err)
\item 
subroutine \hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\+\_\+iorange\+\_\+dump} (url, actual\+\_\+url, returned\+\_\+time, time\+\_\+name, err)
\item 
character(string) function \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\+\_\+rename\+\_\+mpi} (file)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}\label{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}} 
\index{historyget.\+f90@{historyget.\+f90}!actual\+\_\+iorange\+\_\+dump@{actual\+\_\+iorange\+\_\+dump}}
\index{actual\+\_\+iorange\+\_\+dump@{actual\+\_\+iorange\+\_\+dump}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{actual\+\_\+iorange\+\_\+dump()}{actual\_iorange\_dump()}}
{\footnotesize\ttfamily subroutine actual\+\_\+iorange\+\_\+dump (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{url,  }\item[{character($\ast$), intent(out), optional}]{actual\+\_\+url,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{character($\ast$), intent(in), optional}]{time\+\_\+name,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17858 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+url\+::gt\+\_\+colon, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+string\+::joinchar(), dc\+\_\+regex\+::match(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble0(), historygetdouble0pointer(), historygetdouble1(), historygetdouble1pointer(), historygetdouble2(), historygetdouble2pointer(), historygetdouble3(), historygetdouble3pointer(), historygetdouble4(), historygetdouble4pointer(), historygetdouble5(), historygetdouble5pointer(), historygetdouble6(), historygetdouble6pointer(), historygetdouble7(), historygetdouble7pointer(), historygetint0(), historygetint0pointer(), historygetint1(), historygetint1pointer(), historygetint2(), historygetint2pointer(), historygetint3(), historygetint3pointer(), historygetint4(), historygetint4pointer(), historygetint5(), historygetint5pointer(), historygetint6(), historygetint6pointer(), historygetint7(), historygetint7pointer(), historygetreal0(), historygetreal0pointer(), historygetreal1(), historygetreal1pointer(), historygetreal2(), historygetreal2pointer(), historygetreal3(), historygetreal3pointer(), historygetreal4(), historygetreal4pointer(), historygetreal5(), historygetreal5pointer(), historygetreal6(), historygetreal6pointer(), historygetreal7(), and historygetreal7pointer().


\begin{DoxyCode}
17858   \textcolor{comment}{!}
17859   \textcolor{comment}{! 変数 URL *url* に対応するファイル, 変数からデータを取り出す際,}
17860   \textcolor{comment}{! 入出力範囲指定によって切り出される値の本当の位置を}
17861   \textcolor{comment}{! 標準出力に出力する. *actual\_url* が与えられる場合には}
17862   \textcolor{comment}{! その引数に値を返し, 標準出力には出力しない.}
17863   \textcolor{comment}{!}
17864   \textcolor{comment}{! HistoryGet, HistoryGetPointer が下層で呼び出している}
17865   \textcolor{comment}{! gtdata\_generic#Get は, 入出力範囲が次元データに正確に一致しない}
17866   \textcolor{comment}{! 場合, 最も近い値を自動的に選択して切り出す. しかしその結果,}
17867   \textcolor{comment}{! 「本当はどこのデータを入力したか」がわからない場合があるため,}
17868   \textcolor{comment}{! このサブルーチンによって正確な位置をユーザに知らせる.}
17869   \textcolor{comment}{!}
17870   \textcolor{comment}{! *time\_name* と *returned\_time* が与えられる場合には,}
17871   \textcolor{comment}{! *returned\_time* に時刻の数値を返す.}
17872   \textcolor{comment}{! *returned\_time* のみ与えられる場合には 0 を返す.}
17873   \textcolor{comment}{!}
17874   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17875   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, 
      \hyperlink{interfacedc__string_1_1roundnum}{roundnum}
17876   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsearchiorange}{urlsearchiorange}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}
17877   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, \hyperlink{namespacedc__url_a8a012262cb2d70e929fb1d929c1f5752}{gt\_colon}
17878   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
17879   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17880   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
17881   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
17882   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}, \hyperlink{interfacegtdata__generic_1_1get}{get}
17883   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,  only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
17884   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: url            \textcolor{comment}{! 変数 URL}
17885   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: actual\_url
17886                                              \textcolor{comment}{! 正確な入出力範囲指定に修正}
17887                                              \textcolor{comment}{! された変数 URL}
17888   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
17889   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name  \textcolor{comment}{! 時刻次元の名称}
17890   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err      \textcolor{comment}{! エラーのフラグ}
17891   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer} :: iorange\_each(:) =>null()
17892   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer} :: range\_values(:) =>null()
17893   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer} :: new\_iorange\_each(:) =>null()
17894   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer} :: new\_range\_values(:) =>null()
17895   \textcolor{keywordtype}{character(STRING)}:: new\_url, new\_iorange, url\_tmp, dimname
17896   \textcolor{keywordtype}{character(STRING)}:: file, varname, range, cause\_c
17897   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
17898   \textcolor{keywordtype}{real} :: iorange\_value(1)
17899   \textcolor{keywordtype}{integer} :: i, j, regex\_len, regex\_stat, stat
17900   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"actual\_iorange\_dump"}
17901   \textcolor{keywordflow}{continue}
17902   new\_iorange = \textcolor{stringliteral}{''}
17903   cause\_c = \textcolor{stringliteral}{''}
17904   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
17905   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(returned\_time) ) \textcolor{keywordflow}{then}
17906     returned\_time = 0.
17907 \textcolor{keywordflow}{  end if}
17908   \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}(url, file, varname, iorange=range)
17909   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}(range, iorange\_each, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma})
17910   \textcolor{keyword}{allocate}(new\_iorange\_each(\textcolor{keyword}{size}(iorange\_each)))
17911   \textcolor{keywordflow}{do} i = 1, \textcolor{keyword}{size}(iorange\_each)
17912     \textcolor{keyword}{call }\hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}(\hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, iorange\_each(i), regex\_len, regex\_stat)
17913     \textcolor{keywordflow}{if} (regex\_stat < 0 .or. regex\_len < 2) \textcolor{keywordflow}{then}
17914       new\_iorange\_each(i) = trim(iorange\_each(i))
17915     \textcolor{keywordflow}{else}
17916       dimname = iorange\_each(i)(:regex\_len-1)
17917       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}(iorange\_each(i)(regex\_len+1:), range\_values, \hyperlink{namespacedc__url_a8a012262cb2d70e929fb1d929c1f5752}{gt\_colon})
17918       \textcolor{keyword}{allocate}(new\_range\_values(\textcolor{keyword}{size}(range\_values)))
17919       \textcolor{keywordflow}{do} j = 1, \textcolor{keyword}{size}(range\_values)
17920         url\_tmp = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file, dimname, \textcolor{stringliteral}{''}, &
17921           & iorange=trim(dimname) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(range\_values(j)))
17922         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url\_tmp)
17923         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, iorange\_value, 1)
17924         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var)
17925         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(time\_name) .and. \textcolor{keyword}{present}(returned\_time) ) \textcolor{keywordflow}{then}
17926           \textcolor{keywordflow}{if} ( trim(time\_name) == trim(dimname) ) \textcolor{keywordflow}{then}
17927             returned\_time = iorange\_value(1)
17928 \textcolor{keywordflow}{          end if}
17929 \textcolor{keywordflow}{        end if}
17930         new\_range\_values(j) = \hyperlink{interfacedc__string_1_1roundnum}{roundnum}( \hyperlink{interfacedc__string_1_1tochar}{tochar}(iorange\_value) )
17931 \textcolor{keywordflow}{      end do}
17932       new\_iorange\_each(i) = &
17933         & trim(dimname) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(new\_range\_values, 
      \hyperlink{namespacedc__url_a8a012262cb2d70e929fb1d929c1f5752}{gt\_colon})
17934       \textcolor{keyword}{deallocate}(new\_range\_values)
17935       \textcolor{keyword}{deallocate}(range\_values)
17936 \textcolor{keywordflow}{    end if}
17937 \textcolor{keywordflow}{  end do}
17938   new\_iorange = \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(new\_iorange\_each, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma})
17939   \textcolor{keyword}{deallocate}(new\_iorange\_each)
17940   \textcolor{keyword}{deallocate}(iorange\_each)
17941   new\_url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file, varname, \textcolor{stringliteral}{''}, new\_iorange)
17942   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(actual\_url)) \textcolor{keywordflow}{then}
17943     actual\_url = new\_url
17944   \textcolor{keywordflow}{else}
17945     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(new\_url))
17946 \textcolor{keywordflow}{  end if}
17947 999 \textcolor{keywordflow}{continue}
17948   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[height=550pt]{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}\label{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}} 
\index{historyget.\+f90@{historyget.\+f90}!file\+\_\+rename\+\_\+mpi@{file\+\_\+rename\+\_\+mpi}}
\index{file\+\_\+rename\+\_\+mpi@{file\+\_\+rename\+\_\+mpi}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{file\+\_\+rename\+\_\+mpi()}{file\_rename\_mpi()}}
{\footnotesize\ttfamily character(string) function file\+\_\+rename\+\_\+mpi (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file }\end{DoxyParamCaption})}



Definition at line 17951 of file historyget.\+f90.



References dc\+\_\+types\+::string, and dc\+\_\+types\+::token.



Referenced by historygetdouble0(), historygetdouble0pointer(), historygetdouble0pointertimed(), historygetdouble0pointertimei(), historygetdouble0pointertimer(), historygetdouble0timed(), historygetdouble0timei(), historygetdouble0timer(), historygetdouble1(), historygetdouble1pointer(), historygetdouble1pointertimed(), historygetdouble1pointertimei(), historygetdouble1pointertimer(), historygetdouble1timed(), historygetdouble1timei(), historygetdouble1timer(), historygetdouble2(), historygetdouble2pointer(), historygetdouble2pointertimed(), historygetdouble2pointertimei(), historygetdouble2pointertimer(), historygetdouble2timed(), historygetdouble2timei(), historygetdouble2timer(), historygetdouble3(), historygetdouble3pointer(), historygetdouble3pointertimed(), historygetdouble3pointertimei(), historygetdouble3pointertimer(), historygetdouble3timed(), historygetdouble3timei(), historygetdouble3timer(), historygetdouble4(), historygetdouble4pointer(), historygetdouble4pointertimed(), historygetdouble4pointertimei(), historygetdouble4pointertimer(), historygetdouble4timed(), historygetdouble4timei(), historygetdouble4timer(), historygetdouble5(), historygetdouble5pointer(), historygetdouble5pointertimed(), historygetdouble5pointertimei(), historygetdouble5pointertimer(), historygetdouble5timed(), historygetdouble5timei(), historygetdouble5timer(), historygetdouble6(), historygetdouble6pointer(), historygetdouble6pointertimed(), historygetdouble6pointertimei(), historygetdouble6pointertimer(), historygetdouble6timed(), historygetdouble6timei(), historygetdouble6timer(), historygetdouble7(), historygetdouble7pointer(), historygetdouble7pointertimed(), historygetdouble7pointertimei(), historygetdouble7pointertimer(), historygetdouble7timed(), historygetdouble7timei(), historygetdouble7timer(), historygetint0(), historygetint0pointer(), historygetint0pointertimed(), historygetint0pointertimei(), historygetint0pointertimer(), historygetint0timed(), historygetint0timei(), historygetint0timer(), historygetint1(), historygetint1pointer(), historygetint1pointertimed(), historygetint1pointertimei(), historygetint1pointertimer(), historygetint1timed(), historygetint1timei(), historygetint1timer(), historygetint2(), historygetint2pointer(), historygetint2pointertimed(), historygetint2pointertimei(), historygetint2pointertimer(), historygetint2timed(), historygetint2timei(), historygetint2timer(), historygetint3(), historygetint3pointer(), historygetint3pointertimed(), historygetint3pointertimei(), historygetint3pointertimer(), historygetint3timed(), historygetint3timei(), historygetint3timer(), historygetint4(), historygetint4pointer(), historygetint4pointertimed(), historygetint4pointertimei(), historygetint4pointertimer(), historygetint4timed(), historygetint4timei(), historygetint4timer(), historygetint5(), historygetint5pointer(), historygetint5pointertimed(), historygetint5pointertimei(), historygetint5pointertimer(), historygetint5timed(), historygetint5timei(), historygetint5timer(), historygetint6(), historygetint6pointer(), historygetint6pointertimed(), historygetint6pointertimei(), historygetint6pointertimer(), historygetint6timed(), historygetint6timei(), historygetint6timer(), historygetint7(), historygetint7pointer(), historygetint7pointertimed(), historygetint7pointertimei(), historygetint7pointertimer(), historygetint7timed(), historygetint7timei(), historygetint7timer(), historygetreal0(), historygetreal0pointer(), historygetreal0pointertimed(), historygetreal0pointertimei(), historygetreal0pointertimer(), historygetreal0timed(), historygetreal0timei(), historygetreal0timer(), historygetreal1(), historygetreal1pointer(), historygetreal1pointertimed(), historygetreal1pointertimei(), historygetreal1pointertimer(), historygetreal1timed(), historygetreal1timei(), historygetreal1timer(), historygetreal2(), historygetreal2pointer(), historygetreal2pointertimed(), historygetreal2pointertimei(), historygetreal2pointertimer(), historygetreal2timed(), historygetreal2timei(), historygetreal2timer(), historygetreal3(), historygetreal3pointer(), historygetreal3pointertimed(), historygetreal3pointertimei(), historygetreal3pointertimer(), historygetreal3timed(), historygetreal3timei(), historygetreal3timer(), historygetreal4(), historygetreal4pointer(), historygetreal4pointertimed(), historygetreal4pointertimei(), historygetreal4pointertimer(), historygetreal4timed(), historygetreal4timei(), historygetreal4timer(), historygetreal5(), historygetreal5pointer(), historygetreal5pointertimed(), historygetreal5pointertimei(), historygetreal5pointertimer(), historygetreal5timed(), historygetreal5timei(), historygetreal5timer(), historygetreal6(), historygetreal6pointer(), historygetreal6pointertimed(), historygetreal6pointertimei(), historygetreal6pointertimer(), historygetreal6timed(), historygetreal6timei(), historygetreal6timer(), historygetreal7(), historygetreal7pointer(), historygetreal7pointertimed(), historygetreal7pointertimei(), historygetreal7pointertimer(), historygetreal7timed(), historygetreal7timei(), historygetreal7timer(), historygettattrchar0(), historygettattrdouble0(), historygettattrdouble1(), historygettattrint0(), historygettattrint1(), historygettattrreal0(), and historygettattrreal1().


\begin{DoxyCode}
17951   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
17952   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}, \hyperlink{interfacedc__string_1_1lchar}{lchar}
17953   \textcolor{keywordtype}{implicit none}
17954   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17955   \textcolor{keywordtype}{character(STRING)}:: result
17956   \textcolor{keywordflow}{continue}
17957   result = file
17958   \textcolor{keywordflow}{return}
\end{DoxyCode}
\mbox{\Hypertarget{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}\label{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0@{historygetdouble0}}
\index{historygetdouble0@{historygetdouble0}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0()}{historygetdouble0()}}
{\footnotesize\ttfamily subroutine historygetdouble0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 93 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble0timed(), historygetdouble0timei(), and historygetdouble0timer().


\begin{DoxyCode}
93   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
94   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
95   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
96   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
97   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
98   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
99   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
100   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
101   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
102   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
103     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
104   \textcolor{keywordtype}{implicit none}
105   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
106   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
107   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
108   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
109   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
110   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
111   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
112   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
113   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
114   \textcolor{keywordtype}{real(DP)} :: array\_tmp(1)
115   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
116   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
117   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
118   \textcolor{keywordtype}{integer}:: domain
119   \textcolor{keywordtype}{character(STRING)}:: tname
120   \textcolor{keywordtype}{integer}:: stat
121   \textcolor{keywordtype}{character(STRING)}:: cause\_c
122   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0"}
123   \textcolor{keyword}{interface}
124 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
125       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
126       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
127       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
128       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
129       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
130       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
131       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
132 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
133 \textcolor{keyword}{  end interface}
134   \textcolor{keyword}{interface}
135 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
136       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
137       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
138       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
139       \textcolor{comment}{! 正確な入出力範囲指定}
140       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
141       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
142       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
143 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
144 \textcolor{keyword}{  end interface}
145   \textcolor{keyword}{interface}
146 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
147       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
148       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
149       \textcolor{keywordtype}{character(STRING)}:: result
150 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
151 \textcolor{keyword}{  end interface}
152   \textcolor{keywordflow}{continue}
153   cause\_c = \textcolor{stringliteral}{''}
154   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
155   file\_work = file
156   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
157   \textcolor{comment}{! Change filename (for MPI)}
158   \textcolor{comment}{!}
159   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
160     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
161   \textcolor{comment}{! 最新時刻の URL 取得}
162   \textcolor{comment}{! Get URL of latest time}
163   \textcolor{comment}{!}
164   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
165     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
166   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
167     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
168     cause\_c = url
169     \textcolor{keywordflow}{goto} 999
170 \textcolor{keywordflow}{  end if}
171   \textcolor{comment}{! ファイルオープン}
172   \textcolor{comment}{! File open}
173   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
174   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
175     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
176     cause\_c = url
177     \textcolor{keywordflow}{goto} 999
178 \textcolor{keywordflow}{  end if}
179   \textcolor{comment}{!-------------------------------------------------------------------}
180   \textcolor{comment}{!  配列形状のチェック}
181   \textcolor{comment}{!  Check array shape}
182   \textcolor{comment}{!-------------------------------------------------------------------}
183   \textcolor{comment}{! 入力ファイル中のデータの次元数}
184   \textcolor{comment}{! Get size of dimesions in data of an input file}
185   \textcolor{comment}{!}
186   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
187     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
188   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
189   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
190   array\_rank = 0
191   \textcolor{comment}{! 次元数の比較}
192   \textcolor{comment}{! Compare sizes of dimensions}
193   \textcolor{comment}{!}
194   \textcolor{keywordflow}{if} ( .not. 0 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
195     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
196       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
197         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
198         & i = (/rank, 0/), c1 = trim(url) )
199 \textcolor{keywordflow}{    end if}
200     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
201     cause\_c = \textcolor{stringliteral}{'array'}
202     \textcolor{keywordflow}{goto} 999
203 \textcolor{keywordflow}{  end if}
204   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
205   \textcolor{comment}{! Get shape of data in an input file}
206   \textcolor{comment}{!-------------------------------------}
207   \textcolor{comment}{!  データ取得}
208   \textcolor{comment}{!  Get data}
209   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
210     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
211   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var = var, & \textcolor{comment}{! (inout)}
212     & nvalue = domain, & \textcolor{comment}{! (in)}
213     & \textcolor{keywordtype}{value} = array\_tmp) \textcolor{comment}{! (out)}
214   array = array\_tmp(1)
215   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
216   \textcolor{comment}{!-------------------------------------}
217   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
218   \textcolor{comment}{!  Print data filename and clipping range}
219   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
220     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
221     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
222     & err = err)                   \textcolor{comment}{! (out) optional}
223   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
224     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
225 \textcolor{keywordflow}{  end if}
226 999 \textcolor{keywordflow}{continue}
227   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad357f95218a35efffca4f66246431bfc}\label{historyget_8f90_ad357f95218a35efffca4f66246431bfc}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0pointer@{historygetdouble0pointer}}
\index{historygetdouble0pointer@{historygetdouble0pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0pointer()}{historygetdouble0pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble0pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4812 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble0pointertimed(), historygetdouble0pointertimei(), and historygetdouble0pointertimer().


\begin{DoxyCode}
4812   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4813   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4814   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
4815   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4816   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4817   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4818   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4819   \textcolor{keywordtype}{implicit none}
4820   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4821   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4822   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4823   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
4824   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4825   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4826   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4827   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4828   \textcolor{keywordtype}{integer}:: domain
4829   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array \textcolor{comment}{! (out)}
4830   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
4831   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4832   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4833   \textcolor{keywordtype}{character(STRING)}:: tname
4834   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0Pointer"}
4835   \textcolor{keyword}{interface}
4836 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4837       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4838       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4839       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
4840       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4841       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4842       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
4843       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4844 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
4845 \textcolor{keyword}{  end interface}
4846   \textcolor{keyword}{interface}
4847 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
4848       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4849       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
4850       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
4851       \textcolor{comment}{! 正確な入出力範囲指定}
4852       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
4853       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
4854       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
4855 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4856 \textcolor{keyword}{  end interface}
4857   \textcolor{keyword}{interface}
4858 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4859       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4860       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4861       \textcolor{keywordtype}{character(STRING)}:: result
4862 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4863 \textcolor{keyword}{  end interface}
4864   \textcolor{keywordflow}{continue}
4865   file\_work = file
4866   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4867   \textcolor{comment}{! Change filename (for MPI)}
4868   \textcolor{comment}{!}
4869   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4870     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4871   \textcolor{comment}{! 必要な情報を gtool 変数化}
4872   \textcolor{comment}{!}
4873   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4874     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4875   \textcolor{keyword}{allocate}(array)
4876   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
4877   \textcolor{comment}{! いよいよデータ取得}
4878   \textcolor{comment}{!}
4879   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
4880   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var=var, size=domain)
4881   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array\_tmp, domain, err)
4882   array = array\_tmp(1)
4883   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
4884   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4885     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4886     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4887     & err = err)                   \textcolor{comment}{! (out) optional}
4888   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4889     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
4890 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad357f95218a35efffca4f66246431bfc_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad357f95218a35efffca4f66246431bfc_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a36189e2020600a811dd170fc6d4770da}\label{historyget_8f90_a36189e2020600a811dd170fc6d4770da}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0pointertimed@{historygetdouble0pointertimed}}
\index{historygetdouble0pointertimed@{historygetdouble0pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0pointertimed()}{historygetdouble0pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble0pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10974 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10974   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10975   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10976   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10977   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10978   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10979   \textcolor{keywordtype}{implicit none}
10980   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10981   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10982   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10983   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
10984   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10985   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10986   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10987   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10988   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10989   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10990   \textcolor{keywordtype}{character(STRING)}:: tname
10991   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeD"}
10992   \textcolor{keyword}{interface}
10993 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}(&
10994       & file, varname, array, range, quiet, &
10995       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10996       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10997       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10998       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10999       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11000       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11001       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11002       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11003       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11004       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11005       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
11006 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}
11007 \textcolor{keyword}{  end interface}
11008   \textcolor{keyword}{interface}
11009 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11010       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11011       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11012       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11013       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11014       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11015       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11016       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11017 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11018 \textcolor{keyword}{  end interface}
11019   \textcolor{keyword}{interface}
11020 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11021       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11022       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11023       \textcolor{keywordtype}{character(STRING)}:: result
11024 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11025 \textcolor{keyword}{  end interface}
11026   \textcolor{keywordflow}{continue}
11027   file\_work = file
11028   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11029     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11030   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11031     & url = url, &
11032     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11033   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11034     & fullname = url, iorange = iorange, remainder = remainder )
11035   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11036   timevar\_name = carray(1)
11037   \textcolor{keyword}{deallocate}( carray )
11038   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11039   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}( file = file, &
11040     & varname = varname, array = array, &
11041     & range = time\_range, quiet = quiet, &
11042     & flag\_mpi\_split = flag\_mpi\_split, &
11043     & returned\_time = returned\_time, &
11044     & flag\_time\_exist = flag\_time\_exist, &
11045     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a36189e2020600a811dd170fc6d4770da_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aaf375af7827f89d97b9d88c469619c80}\label{historyget_8f90_aaf375af7827f89d97b9d88c469619c80}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0pointertimei@{historygetdouble0pointertimei}}
\index{historygetdouble0pointertimei@{historygetdouble0pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0pointertimei()}{historygetdouble0pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble0pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14622 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14622   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14623   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14624   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14625   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14626   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14627   \textcolor{keywordtype}{implicit none}
14628   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14629   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14630   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14631   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
14632   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14633   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14634   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14635   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14636   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14637   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14638   \textcolor{keywordtype}{character(STRING)}:: tname
14639   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeI"}
14640   \textcolor{keyword}{interface}
14641 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}(&
14642       & file, varname, array, range, quiet, &
14643       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14644       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14645       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14646       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14647       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14648       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14649       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14650       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14651       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14652       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14653       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
14654 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}
14655 \textcolor{keyword}{  end interface}
14656   \textcolor{keyword}{interface}
14657 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14658       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14659       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14660       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14661       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14662       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14663       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14664       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14665 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14666 \textcolor{keyword}{  end interface}
14667   \textcolor{keyword}{interface}
14668 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14669       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14670       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14671       \textcolor{keywordtype}{character(STRING)}:: result
14672 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14673 \textcolor{keyword}{  end interface}
14674   \textcolor{keywordflow}{continue}
14675   file\_work = file
14676   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14677     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14678   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14679     & url = url, &
14680     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14681   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14682     & fullname = url, iorange = iorange, remainder = remainder )
14683   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14684   timevar\_name = carray(1)
14685   \textcolor{keyword}{deallocate}( carray )
14686   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14687   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}( file = file, &
14688     & varname = varname, array = array, &
14689     & range = time\_range, quiet = quiet, &
14690     & flag\_mpi\_split = flag\_mpi\_split, &
14691     & returned\_time = returned\_time, &
14692     & flag\_time\_exist = flag\_time\_exist, &
14693     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aaf375af7827f89d97b9d88c469619c80_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_afc840681cad70666635f2c21ab941892}\label{historyget_8f90_afc840681cad70666635f2c21ab941892}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0pointertimer@{historygetdouble0pointertimer}}
\index{historygetdouble0pointertimer@{historygetdouble0pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0pointertimer()}{historygetdouble0pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble0pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7326 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7326   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7327   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7328   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7329   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7330   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7331   \textcolor{keywordtype}{implicit none}
7332   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7333   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7334   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7335   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
7336   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7337   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7338   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7339   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7340   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7341   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7342   \textcolor{keywordtype}{character(STRING)}:: tname
7343   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeR"}
7344   \textcolor{keyword}{interface}
7345 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}(&
7346       & file, varname, array, range, quiet, &
7347       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7348       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7349       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7350       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7351       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7352       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7353       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7354       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7355       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7356       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7357       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array
7358 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}
7359 \textcolor{keyword}{  end interface}
7360   \textcolor{keyword}{interface}
7361 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7362       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7363       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7364       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7365       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7366       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7367       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7368       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7369 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7370 \textcolor{keyword}{  end interface}
7371   \textcolor{keyword}{interface}
7372 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7373       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7374       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7375       \textcolor{keywordtype}{character(STRING)}:: result
7376 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7377 \textcolor{keyword}{  end interface}
7378   \textcolor{keywordflow}{continue}
7379   file\_work = file
7380   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7381     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7382   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7383     & url = url, &
7384     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7385   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7386     & fullname = url, iorange = iorange, remainder = remainder )
7387   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7388   timevar\_name = carray(1)
7389   \textcolor{keyword}{deallocate}( carray )
7390   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7391   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad357f95218a35efffca4f66246431bfc}{historygetdouble0pointer}( file = file, &
7392     & varname = varname, array = array, &
7393     & range = time\_range, quiet = quiet, &
7394     & flag\_mpi\_split = flag\_mpi\_split, &
7395     & returned\_time = returned\_time, &
7396     & flag\_time\_exist = flag\_time\_exist, &
7397     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_afc840681cad70666635f2c21ab941892_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad37463dd57daba6a5a1089c753b9e4b0}\label{historyget_8f90_ad37463dd57daba6a5a1089c753b9e4b0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0timed@{historygetdouble0timed}}
\index{historygetdouble0timed@{historygetdouble0timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0timed()}{historygetdouble0timed()}}
{\footnotesize\ttfamily subroutine historygetdouble0timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10366 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10366   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10367   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10368   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10369   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10370   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10371   \textcolor{keywordtype}{implicit none}
10372   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10373   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10374   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10375   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
10376   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10377   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10378   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10379   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10380   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10381   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10382   \textcolor{keywordtype}{character(STRING)}:: tname
10383   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeD"}
10384   \textcolor{keyword}{interface}
10385 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}(&
10386       & file, varname, array, range, quiet, &
10387       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10388       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10389       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10390       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10391       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10392       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10393       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10394       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10395       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10396       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10397       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
10398 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}
10399 \textcolor{keyword}{  end interface}
10400   \textcolor{keyword}{interface}
10401 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10402       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10403       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10404       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10405       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10406       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10407       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10408       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10409 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10410 \textcolor{keyword}{  end interface}
10411   \textcolor{keyword}{interface}
10412 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10413       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10414       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10415       \textcolor{keywordtype}{character(STRING)}:: result
10416 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10417 \textcolor{keyword}{  end interface}
10418   \textcolor{keywordflow}{continue}
10419   file\_work = file
10420   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10421     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10422   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10423     & url = url, &
10424     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10425   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10426     & fullname = url, iorange = iorange, remainder = remainder )
10427   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10428   timevar\_name = carray(1)
10429   \textcolor{keyword}{deallocate}( carray )
10430   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10431   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}( file = file, &
10432     & varname = varname, array = array, &
10433     & range = time\_range, quiet = quiet, &
10434     & flag\_mpi\_split = flag\_mpi\_split, &
10435     & returned\_time = returned\_time, &
10436     & flag\_time\_exist = flag\_time\_exist, &
10437     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad37463dd57daba6a5a1089c753b9e4b0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aef98074b0efb4fb1306369eafe252af9}\label{historyget_8f90_aef98074b0efb4fb1306369eafe252af9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0timei@{historygetdouble0timei}}
\index{historygetdouble0timei@{historygetdouble0timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0timei()}{historygetdouble0timei()}}
{\footnotesize\ttfamily subroutine historygetdouble0timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14014 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14014   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14015   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14016   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14017   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14018   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14019   \textcolor{keywordtype}{implicit none}
14020   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14021   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14022   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14023   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
14024   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14025   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14026   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14027   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14028   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14029   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14030   \textcolor{keywordtype}{character(STRING)}:: tname
14031   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeI"}
14032   \textcolor{keyword}{interface}
14033 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}(&
14034       & file, varname, array, range, quiet, &
14035       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14036       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14037       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14038       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14039       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14040       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14041       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14042       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14043       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14044       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14045       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
14046 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}
14047 \textcolor{keyword}{  end interface}
14048   \textcolor{keyword}{interface}
14049 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14050       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14051       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14052       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14053       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14054       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14055       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14056       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14057 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14058 \textcolor{keyword}{  end interface}
14059   \textcolor{keyword}{interface}
14060 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14061       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14062       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14063       \textcolor{keywordtype}{character(STRING)}:: result
14064 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14065 \textcolor{keyword}{  end interface}
14066   \textcolor{keywordflow}{continue}
14067   file\_work = file
14068   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14069     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14070   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14071     & url = url, &
14072     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14073   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14074     & fullname = url, iorange = iorange, remainder = remainder )
14075   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14076   timevar\_name = carray(1)
14077   \textcolor{keyword}{deallocate}( carray )
14078   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14079   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}( file = file, &
14080     & varname = varname, array = array, &
14081     & range = time\_range, quiet = quiet, &
14082     & flag\_mpi\_split = flag\_mpi\_split, &
14083     & returned\_time = returned\_time, &
14084     & flag\_time\_exist = flag\_time\_exist, &
14085     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aef98074b0efb4fb1306369eafe252af9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa19ff4ed63468d114e7490982d336199}\label{historyget_8f90_aa19ff4ed63468d114e7490982d336199}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble0timer@{historygetdouble0timer}}
\index{historygetdouble0timer@{historygetdouble0timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble0timer()}{historygetdouble0timer()}}
{\footnotesize\ttfamily subroutine historygetdouble0timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6718 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
6718   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
6719   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
6720   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6721   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
6722   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6723   \textcolor{keywordtype}{implicit none}
6724   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
6725   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
6726   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6727   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
6728   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6729   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6730   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6731   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6732   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
6733   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
6734   \textcolor{keywordtype}{character(STRING)}:: tname
6735   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble0TimeR"}
6736   \textcolor{keyword}{interface}
6737 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}(&
6738       & file, varname, array, range, quiet, &
6739       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
6740       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6741       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6742       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6743       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6744       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6745       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6746       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6747       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6748       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6749       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array
6750 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}
6751 \textcolor{keyword}{  end interface}
6752   \textcolor{keyword}{interface}
6753 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6754       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6755       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6756       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6757       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6758       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6759       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6760       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6761 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6762 \textcolor{keyword}{  end interface}
6763   \textcolor{keyword}{interface}
6764 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6765       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6766       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6767       \textcolor{keywordtype}{character(STRING)}:: result
6768 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6769 \textcolor{keyword}{  end interface}
6770   \textcolor{keywordflow}{continue}
6771   file\_work = file
6772   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6773     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6774   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
6775     & url = url, &
6776     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6777   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
6778     & fullname = url, iorange = iorange, remainder = remainder )
6779   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
6780   timevar\_name = carray(1)
6781   \textcolor{keyword}{deallocate}( carray )
6782   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
6783   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aee1dc20325422021c54c3d17b9c7456e}{historygetdouble0}( file = file, &
6784     & varname = varname, array = array, &
6785     & range = time\_range, quiet = quiet, &
6786     & flag\_mpi\_split = flag\_mpi\_split, &
6787     & returned\_time = returned\_time, &
6788     & flag\_time\_exist = flag\_time\_exist, &
6789     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa19ff4ed63468d114e7490982d336199_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}\label{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1@{historygetdouble1}}
\index{historygetdouble1@{historygetdouble1}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1()}{historygetdouble1()}}
{\footnotesize\ttfamily subroutine historygetdouble1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 231 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble1timed(), historygetdouble1timei(), and historygetdouble1timer().


\begin{DoxyCode}
231   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
232   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
233   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
234   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
235   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
236   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
237   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
238   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
239   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
240   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
241     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
242   \textcolor{keywordtype}{implicit none}
243   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
244   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
245   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
246   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
247   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
248   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
249   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
250   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
251   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
252   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
253   \textcolor{keywordtype}{integer}:: array\_allsize
254   \textcolor{keywordtype}{integer}:: array\_shape(1), data\_shape(1), array\_shape\_check(1)
255   \textcolor{keywordtype}{integer}:: allcount
256   \textcolor{keywordtype}{integer}:: i, sd
257   \textcolor{keywordtype}{logical}:: inq\_err
258   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
259   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
260   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
261   \textcolor{keywordtype}{integer}:: domain
262   \textcolor{keywordtype}{character(STRING)}:: tname
263   \textcolor{keywordtype}{integer}:: stat
264   \textcolor{keywordtype}{character(STRING)}:: cause\_c
265   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1"}
266   \textcolor{keyword}{interface}
267 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
268       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
269       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
270       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
271       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
272       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
273       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
274       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
275 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
276 \textcolor{keyword}{  end interface}
277   \textcolor{keyword}{interface}
278 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
279       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
280       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
281       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
282       \textcolor{comment}{! 正確な入出力範囲指定}
283       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
284       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
285       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
286 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
287 \textcolor{keyword}{  end interface}
288   \textcolor{keyword}{interface}
289 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
290       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
291       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
292       \textcolor{keywordtype}{character(STRING)}:: result
293 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
294 \textcolor{keyword}{  end interface}
295   \textcolor{keywordflow}{continue}
296   cause\_c = \textcolor{stringliteral}{''}
297   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
298   file\_work = file
299   array\_shape = shape( array )
300   array\_allsize = \textcolor{keyword}{size}( array )
301   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
302   \textcolor{comment}{! Change filename (for MPI)}
303   \textcolor{comment}{!}
304   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
305     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
306   \textcolor{comment}{! 最新時刻の URL 取得}
307   \textcolor{comment}{! Get URL of latest time}
308   \textcolor{comment}{!}
309   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
310     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
311   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
312     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
313     cause\_c = url
314     \textcolor{keywordflow}{goto} 999
315 \textcolor{keywordflow}{  end if}
316   \textcolor{comment}{! ファイルオープン}
317   \textcolor{comment}{! File open}
318   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
319   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
320     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
321     cause\_c = url
322     \textcolor{keywordflow}{goto} 999
323 \textcolor{keywordflow}{  end if}
324   \textcolor{comment}{!-------------------------------------------------------------------}
325   \textcolor{comment}{!  配列形状のチェック}
326   \textcolor{comment}{!  Check array shape}
327   \textcolor{comment}{!-------------------------------------------------------------------}
328   \textcolor{comment}{! 入力ファイル中のデータの次元数}
329   \textcolor{comment}{! Get size of dimesions in data of an input file}
330   \textcolor{comment}{!}
331   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
332     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
333   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
334   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
335   array\_rank = 1
336   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
337   \textcolor{comment}{! 次元数の比較}
338   \textcolor{comment}{! Compare sizes of dimensions}
339   \textcolor{comment}{!}
340   \textcolor{keywordflow}{if} ( .not. 1 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
341     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
342       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
343         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
344         & i = (/rank, 1/), c1 = trim(url) )
345 \textcolor{keywordflow}{    end if}
346     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
347     cause\_c = \textcolor{stringliteral}{'array'}
348     \textcolor{keywordflow}{goto} 999
349 \textcolor{keywordflow}{  end if}
350   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
351   \textcolor{comment}{! Get shape of data in an input file}
352   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
353     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
354   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
355     data\_shape(1) = allcount
356   \textcolor{keywordflow}{else}
357     data\_shape(1) = 1
358 \textcolor{keywordflow}{  end if}
359   \textcolor{comment}{! 引数の配列形状整形}
360   \textcolor{comment}{! Arrange shape of an argument}
361   \textcolor{comment}{!}
362   array\_shape\_check = array\_shape
363   sd = 1
364   \textcolor{keywordflow}{do} i = 1, 1 - 1
365     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
366       array\_shape\_check(sd:1) = cshift( array\_shape\_check(sd:1), 1, 1 )
367     \textcolor{keywordflow}{else}
368       sd = sd + 1
369 \textcolor{keywordflow}{    end if}
370 \textcolor{keywordflow}{  end do}
371   \textcolor{comment}{! 配列形状の比較}
372   \textcolor{comment}{! Compare shapes}
373   \textcolor{comment}{!}
374   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
375     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
376       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
377         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
378         & c1 = trim( url ), &
379         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
380         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
381 \textcolor{keywordflow}{    end if}
382     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
383     cause\_c = \textcolor{stringliteral}{'array'}
384     \textcolor{keywordflow}{goto} 999
385 \textcolor{keywordflow}{  end if}
386   \textcolor{comment}{!-------------------------------------}
387   \textcolor{comment}{!  データ取得}
388   \textcolor{comment}{!  Get data}
389   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
390     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
391   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
392   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
393   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
394   array = reshape( array\_tmp, array\_shape )
395   \textcolor{keyword}{deallocate}( array\_tmp )
396   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
397   \textcolor{comment}{!-------------------------------------}
398   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
399   \textcolor{comment}{!  Print data filename and clipping range}
400   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
401     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
402     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
403     & err = err)                   \textcolor{comment}{! (out) optional}
404   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
405     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
406 \textcolor{keywordflow}{  end if}
407 999 \textcolor{keywordflow}{continue}
408   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}\label{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1pointer@{historygetdouble1pointer}}
\index{historygetdouble1pointer@{historygetdouble1pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1pointer()}{historygetdouble1pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble1pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4894 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble1pointertimed(), historygetdouble1pointertimei(), and historygetdouble1pointertimer().


\begin{DoxyCode}
4894   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4895   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4896   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
4897   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4898   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4899   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4900   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4901   \textcolor{keywordtype}{implicit none}
4902   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4903   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4904   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4905   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
4906   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4907   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4908   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4909   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4910   \textcolor{keywordtype}{integer}:: domain
4911   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:) \textcolor{comment}{! (out)}
4912   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
4913   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4914   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4915   \textcolor{keywordtype}{character(STRING)}:: tname
4916   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1Pointer"}
4917   \textcolor{keyword}{interface}
4918 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4919       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4920       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4921       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
4922       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4923       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4924       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
4925       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4926 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
4927 \textcolor{keyword}{  end interface}
4928   \textcolor{keyword}{interface}
4929 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
4930       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4931       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
4932       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
4933       \textcolor{comment}{! 正確な入出力範囲指定}
4934       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
4935       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
4936       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
4937 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4938 \textcolor{keyword}{  end interface}
4939   \textcolor{keyword}{interface}
4940 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4941       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4942       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4943       \textcolor{keywordtype}{character(STRING)}:: result
4944 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4945 \textcolor{keyword}{  end interface}
4946   \textcolor{keywordflow}{continue}
4947   file\_work = file
4948   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4949   \textcolor{comment}{! Change filename (for MPI)}
4950   \textcolor{comment}{!}
4951   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4952     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4953   \textcolor{comment}{! 必要な情報を gtool 変数化}
4954   \textcolor{comment}{!}
4955   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4956     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4957   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
4958   \textcolor{comment}{! いよいよデータ取得}
4959   \textcolor{comment}{!}
4960   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
4961   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
4962   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
4963   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4964     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4965     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4966     & err = err)                   \textcolor{comment}{! (out) optional}
4967   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4968     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
4969 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a93f3a8a8d62ba5c76e53531180143055}\label{historyget_8f90_a93f3a8a8d62ba5c76e53531180143055}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1pointertimed@{historygetdouble1pointertimed}}
\index{historygetdouble1pointertimed@{historygetdouble1pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1pointertimed()}{historygetdouble1pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble1pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11050 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11050   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11051   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11052   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11053   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11054   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11055   \textcolor{keywordtype}{implicit none}
11056   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11057   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11058   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11059   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
11060   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11061   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11062   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11063   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11064   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11065   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11066   \textcolor{keywordtype}{character(STRING)}:: tname
11067   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeD"}
11068   \textcolor{keyword}{interface}
11069 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}(&
11070       & file, varname, array, range, quiet, &
11071       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11072       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11073       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11074       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11075       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11076       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11077       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11078       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11079       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11080       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11081       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
11082 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}
11083 \textcolor{keyword}{  end interface}
11084   \textcolor{keyword}{interface}
11085 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11086       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11087       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11088       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11089       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11090       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11091       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11092       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11093 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11094 \textcolor{keyword}{  end interface}
11095   \textcolor{keyword}{interface}
11096 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11097       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11098       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11099       \textcolor{keywordtype}{character(STRING)}:: result
11100 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11101 \textcolor{keyword}{  end interface}
11102   \textcolor{keywordflow}{continue}
11103   file\_work = file
11104   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11105     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11106   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11107     & url = url, &
11108     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11109   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11110     & fullname = url, iorange = iorange, remainder = remainder )
11111   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11112   timevar\_name = carray(1)
11113   \textcolor{keyword}{deallocate}( carray )
11114   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11115   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}( file = file, &
11116     & varname = varname, array = array, &
11117     & range = time\_range, quiet = quiet, &
11118     & flag\_mpi\_split = flag\_mpi\_split, &
11119     & returned\_time = returned\_time, &
11120     & flag\_time\_exist = flag\_time\_exist, &
11121     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a93f3a8a8d62ba5c76e53531180143055_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab1b831ab5508d905a3a77cd5558118bf}\label{historyget_8f90_ab1b831ab5508d905a3a77cd5558118bf}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1pointertimei@{historygetdouble1pointertimei}}
\index{historygetdouble1pointertimei@{historygetdouble1pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1pointertimei()}{historygetdouble1pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble1pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14698 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14698   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14699   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14700   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14701   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14702   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14703   \textcolor{keywordtype}{implicit none}
14704   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14705   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14706   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14707   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
14708   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14709   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14710   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14711   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14712   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14713   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14714   \textcolor{keywordtype}{character(STRING)}:: tname
14715   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeI"}
14716   \textcolor{keyword}{interface}
14717 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}(&
14718       & file, varname, array, range, quiet, &
14719       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14720       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14721       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14722       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14723       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14724       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14725       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14726       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14727       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14728       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14729       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
14730 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}
14731 \textcolor{keyword}{  end interface}
14732   \textcolor{keyword}{interface}
14733 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14734       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14735       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14736       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14737       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14738       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14739       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14740       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14741 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14742 \textcolor{keyword}{  end interface}
14743   \textcolor{keyword}{interface}
14744 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14745       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14746       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14747       \textcolor{keywordtype}{character(STRING)}:: result
14748 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14749 \textcolor{keyword}{  end interface}
14750   \textcolor{keywordflow}{continue}
14751   file\_work = file
14752   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14753     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14754   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14755     & url = url, &
14756     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14757   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14758     & fullname = url, iorange = iorange, remainder = remainder )
14759   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14760   timevar\_name = carray(1)
14761   \textcolor{keyword}{deallocate}( carray )
14762   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14763   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}( file = file, &
14764     & varname = varname, array = array, &
14765     & range = time\_range, quiet = quiet, &
14766     & flag\_mpi\_split = flag\_mpi\_split, &
14767     & returned\_time = returned\_time, &
14768     & flag\_time\_exist = flag\_time\_exist, &
14769     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab1b831ab5508d905a3a77cd5558118bf_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab9ccc36d98e5e19bfd3ffd2ef23bc8c4}\label{historyget_8f90_ab9ccc36d98e5e19bfd3ffd2ef23bc8c4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1pointertimer@{historygetdouble1pointertimer}}
\index{historygetdouble1pointertimer@{historygetdouble1pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1pointertimer()}{historygetdouble1pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble1pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7402 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7402   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7403   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7404   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7405   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7406   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7407   \textcolor{keywordtype}{implicit none}
7408   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7409   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7410   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7411   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
7412   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7413   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7414   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7415   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7416   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7417   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7418   \textcolor{keywordtype}{character(STRING)}:: tname
7419   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeR"}
7420   \textcolor{keyword}{interface}
7421 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}(&
7422       & file, varname, array, range, quiet, &
7423       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7424       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7425       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7426       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7427       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7428       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7429       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7430       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7431       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7432       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7433       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:)
7434 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}
7435 \textcolor{keyword}{  end interface}
7436   \textcolor{keyword}{interface}
7437 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7438       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7439       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7440       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7441       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7442       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7443       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7444       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7445 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7446 \textcolor{keyword}{  end interface}
7447   \textcolor{keyword}{interface}
7448 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7449       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7450       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7451       \textcolor{keywordtype}{character(STRING)}:: result
7452 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7453 \textcolor{keyword}{  end interface}
7454   \textcolor{keywordflow}{continue}
7455   file\_work = file
7456   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7457     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7458   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7459     & url = url, &
7460     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7461   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7462     & fullname = url, iorange = iorange, remainder = remainder )
7463   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7464   timevar\_name = carray(1)
7465   \textcolor{keyword}{deallocate}( carray )
7466   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7467   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7056f8408d0cde0867ea127cd0f20691}{historygetdouble1pointer}( file = file, &
7468     & varname = varname, array = array, &
7469     & range = time\_range, quiet = quiet, &
7470     & flag\_mpi\_split = flag\_mpi\_split, &
7471     & returned\_time = returned\_time, &
7472     & flag\_time\_exist = flag\_time\_exist, &
7473     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab9ccc36d98e5e19bfd3ffd2ef23bc8c4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acfc256353974f0b01a758214193990ee}\label{historyget_8f90_acfc256353974f0b01a758214193990ee}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1timed@{historygetdouble1timed}}
\index{historygetdouble1timed@{historygetdouble1timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1timed()}{historygetdouble1timed()}}
{\footnotesize\ttfamily subroutine historygetdouble1timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10442 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10442   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10443   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10444   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10445   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10446   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10447   \textcolor{keywordtype}{implicit none}
10448   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10449   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10450   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10451   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
10452   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10453   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10454   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10455   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10456   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10457   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10458   \textcolor{keywordtype}{character(STRING)}:: tname
10459   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeD"}
10460   \textcolor{keyword}{interface}
10461 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}(&
10462       & file, varname, array, range, quiet, &
10463       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10464       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10465       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10466       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10467       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10468       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10469       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10470       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10471       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10472       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10473       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
10474 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}
10475 \textcolor{keyword}{  end interface}
10476   \textcolor{keyword}{interface}
10477 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10478       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10479       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10480       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10481       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10482       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10483       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10484       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10485 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10486 \textcolor{keyword}{  end interface}
10487   \textcolor{keyword}{interface}
10488 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10489       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10490       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10491       \textcolor{keywordtype}{character(STRING)}:: result
10492 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10493 \textcolor{keyword}{  end interface}
10494   \textcolor{keywordflow}{continue}
10495   file\_work = file
10496   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10497     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10498   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10499     & url = url, &
10500     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10501   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10502     & fullname = url, iorange = iorange, remainder = remainder )
10503   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10504   timevar\_name = carray(1)
10505   \textcolor{keyword}{deallocate}( carray )
10506   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10507   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}( file = file, &
10508     & varname = varname, array = array, &
10509     & range = time\_range, quiet = quiet, &
10510     & flag\_mpi\_split = flag\_mpi\_split, &
10511     & returned\_time = returned\_time, &
10512     & flag\_time\_exist = flag\_time\_exist, &
10513     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acfc256353974f0b01a758214193990ee_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a237f7219ac1e7a705a44fdfe91ade305}\label{historyget_8f90_a237f7219ac1e7a705a44fdfe91ade305}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1timei@{historygetdouble1timei}}
\index{historygetdouble1timei@{historygetdouble1timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1timei()}{historygetdouble1timei()}}
{\footnotesize\ttfamily subroutine historygetdouble1timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14090 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14090   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14091   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14092   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14093   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14094   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14095   \textcolor{keywordtype}{implicit none}
14096   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14097   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14098   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14099   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
14100   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14101   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14102   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14103   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14104   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14105   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14106   \textcolor{keywordtype}{character(STRING)}:: tname
14107   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeI"}
14108   \textcolor{keyword}{interface}
14109 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}(&
14110       & file, varname, array, range, quiet, &
14111       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14112       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14113       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14114       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14115       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14116       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14117       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14118       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14119       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14120       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14121       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
14122 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}
14123 \textcolor{keyword}{  end interface}
14124   \textcolor{keyword}{interface}
14125 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14126       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14127       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14128       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14129       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14130       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14131       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14132       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14133 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14134 \textcolor{keyword}{  end interface}
14135   \textcolor{keyword}{interface}
14136 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14137       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14138       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14139       \textcolor{keywordtype}{character(STRING)}:: result
14140 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14141 \textcolor{keyword}{  end interface}
14142   \textcolor{keywordflow}{continue}
14143   file\_work = file
14144   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14145     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14146   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14147     & url = url, &
14148     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14149   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14150     & fullname = url, iorange = iorange, remainder = remainder )
14151   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14152   timevar\_name = carray(1)
14153   \textcolor{keyword}{deallocate}( carray )
14154   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14155   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}( file = file, &
14156     & varname = varname, array = array, &
14157     & range = time\_range, quiet = quiet, &
14158     & flag\_mpi\_split = flag\_mpi\_split, &
14159     & returned\_time = returned\_time, &
14160     & flag\_time\_exist = flag\_time\_exist, &
14161     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a237f7219ac1e7a705a44fdfe91ade305_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a46d0ec26afa96e660ed0b3ab4c7c68ed}\label{historyget_8f90_a46d0ec26afa96e660ed0b3ab4c7c68ed}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble1timer@{historygetdouble1timer}}
\index{historygetdouble1timer@{historygetdouble1timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble1timer()}{historygetdouble1timer()}}
{\footnotesize\ttfamily subroutine historygetdouble1timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6794 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
6794   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
6795   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
6796   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6797   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
6798   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6799   \textcolor{keywordtype}{implicit none}
6800   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
6801   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
6802   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6803   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
6804   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6805   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6806   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6807   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6808   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
6809   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
6810   \textcolor{keywordtype}{character(STRING)}:: tname
6811   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble1TimeR"}
6812   \textcolor{keyword}{interface}
6813 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}(&
6814       & file, varname, array, range, quiet, &
6815       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
6816       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6817       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6818       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6819       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6820       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6821       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6822       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6823       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6824       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6825       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
6826 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}
6827 \textcolor{keyword}{  end interface}
6828   \textcolor{keyword}{interface}
6829 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6830       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6831       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6832       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6833       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6834       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6835       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6836       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6837 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6838 \textcolor{keyword}{  end interface}
6839   \textcolor{keyword}{interface}
6840 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6841       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6842       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6843       \textcolor{keywordtype}{character(STRING)}:: result
6844 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6845 \textcolor{keyword}{  end interface}
6846   \textcolor{keywordflow}{continue}
6847   file\_work = file
6848   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6849     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6850   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
6851     & url = url, &
6852     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6853   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
6854     & fullname = url, iorange = iorange, remainder = remainder )
6855   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
6856   timevar\_name = carray(1)
6857   \textcolor{keyword}{deallocate}( carray )
6858   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
6859   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a0854ef4d7648913e979c93978d28cc0e}{historygetdouble1}( file = file, &
6860     & varname = varname, array = array, &
6861     & range = time\_range, quiet = quiet, &
6862     & flag\_mpi\_split = flag\_mpi\_split, &
6863     & returned\_time = returned\_time, &
6864     & flag\_time\_exist = flag\_time\_exist, &
6865     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a46d0ec26afa96e660ed0b3ab4c7c68ed_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}\label{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2@{historygetdouble2}}
\index{historygetdouble2@{historygetdouble2}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2()}{historygetdouble2()}}
{\footnotesize\ttfamily subroutine historygetdouble2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 412 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble2timed(), historygetdouble2timei(), and historygetdouble2timer().


\begin{DoxyCode}
412   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
413   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
414   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
415   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
416   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
417   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
418   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
419   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
420   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
421   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
422     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
423   \textcolor{keywordtype}{implicit none}
424   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
425   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
426   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
427   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
428   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
429   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
430   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
431   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
432   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
433   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
434   \textcolor{keywordtype}{integer}:: array\_allsize
435   \textcolor{keywordtype}{integer}:: array\_shape(2), data\_shape(2), array\_shape\_check(2)
436   \textcolor{keywordtype}{integer}:: allcount
437   \textcolor{keywordtype}{integer}:: i, sd
438   \textcolor{keywordtype}{logical}:: inq\_err
439   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
440   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
441   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
442   \textcolor{keywordtype}{integer}:: domain
443   \textcolor{keywordtype}{character(STRING)}:: tname
444   \textcolor{keywordtype}{integer}:: stat
445   \textcolor{keywordtype}{character(STRING)}:: cause\_c
446   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2"}
447   \textcolor{keyword}{interface}
448 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
449       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
450       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
451       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
452       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
453       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
454       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
455       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
456 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
457 \textcolor{keyword}{  end interface}
458   \textcolor{keyword}{interface}
459 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
460       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
461       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
462       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
463       \textcolor{comment}{! 正確な入出力範囲指定}
464       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
465       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
466       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
467 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
468 \textcolor{keyword}{  end interface}
469   \textcolor{keyword}{interface}
470 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
471       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
472       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
473       \textcolor{keywordtype}{character(STRING)}:: result
474 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
475 \textcolor{keyword}{  end interface}
476   \textcolor{keywordflow}{continue}
477   cause\_c = \textcolor{stringliteral}{''}
478   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
479   file\_work = file
480   array\_shape = shape( array )
481   array\_allsize = \textcolor{keyword}{size}( array )
482   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
483   \textcolor{comment}{! Change filename (for MPI)}
484   \textcolor{comment}{!}
485   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
486     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
487   \textcolor{comment}{! 最新時刻の URL 取得}
488   \textcolor{comment}{! Get URL of latest time}
489   \textcolor{comment}{!}
490   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
491     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
492   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
493     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
494     cause\_c = url
495     \textcolor{keywordflow}{goto} 999
496 \textcolor{keywordflow}{  end if}
497   \textcolor{comment}{! ファイルオープン}
498   \textcolor{comment}{! File open}
499   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
500   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
501     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
502     cause\_c = url
503     \textcolor{keywordflow}{goto} 999
504 \textcolor{keywordflow}{  end if}
505   \textcolor{comment}{!-------------------------------------------------------------------}
506   \textcolor{comment}{!  配列形状のチェック}
507   \textcolor{comment}{!  Check array shape}
508   \textcolor{comment}{!-------------------------------------------------------------------}
509   \textcolor{comment}{! 入力ファイル中のデータの次元数}
510   \textcolor{comment}{! Get size of dimesions in data of an input file}
511   \textcolor{comment}{!}
512   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
513     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
514   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
515   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
516   array\_rank = 2
517   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
518   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
519   \textcolor{comment}{! 次元数の比較}
520   \textcolor{comment}{! Compare sizes of dimensions}
521   \textcolor{comment}{!}
522   \textcolor{keywordflow}{if} ( .not. 2 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
523     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
524       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
525         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
526         & i = (/rank, 2/), c1 = trim(url) )
527 \textcolor{keywordflow}{    end if}
528     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
529     cause\_c = \textcolor{stringliteral}{'array'}
530     \textcolor{keywordflow}{goto} 999
531 \textcolor{keywordflow}{  end if}
532   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
533   \textcolor{comment}{! Get shape of data in an input file}
534   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
535     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
536   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
537     data\_shape(1) = allcount
538   \textcolor{keywordflow}{else}
539     data\_shape(1) = 1
540 \textcolor{keywordflow}{  end if}
541   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
542     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
543   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
544     data\_shape(2) = allcount
545   \textcolor{keywordflow}{else}
546     data\_shape(2) = 1
547 \textcolor{keywordflow}{  end if}
548   \textcolor{comment}{! 引数の配列形状整形}
549   \textcolor{comment}{! Arrange shape of an argument}
550   \textcolor{comment}{!}
551   array\_shape\_check = array\_shape
552   sd = 1
553   \textcolor{keywordflow}{do} i = 1, 2 - 1
554     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
555       array\_shape\_check(sd:2) = cshift( array\_shape\_check(sd:2), 1, 1 )
556     \textcolor{keywordflow}{else}
557       sd = sd + 1
558 \textcolor{keywordflow}{    end if}
559 \textcolor{keywordflow}{  end do}
560   \textcolor{comment}{! 配列形状の比較}
561   \textcolor{comment}{! Compare shapes}
562   \textcolor{comment}{!}
563   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
564     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
565       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
566         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
567         & c1 = trim( url ), &
568         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
569         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
570 \textcolor{keywordflow}{    end if}
571     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
572     cause\_c = \textcolor{stringliteral}{'array'}
573     \textcolor{keywordflow}{goto} 999
574 \textcolor{keywordflow}{  end if}
575   \textcolor{comment}{!-------------------------------------}
576   \textcolor{comment}{!  データ取得}
577   \textcolor{comment}{!  Get data}
578   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
579     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
580   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
581   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
582   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
583   array = reshape( array\_tmp, array\_shape )
584   \textcolor{keyword}{deallocate}( array\_tmp )
585   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
586   \textcolor{comment}{!-------------------------------------}
587   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
588   \textcolor{comment}{!  Print data filename and clipping range}
589   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
590     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
591     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
592     & err = err)                   \textcolor{comment}{! (out) optional}
593   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
594     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
595 \textcolor{keywordflow}{  end if}
596 999 \textcolor{keywordflow}{continue}
597   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}\label{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2pointer@{historygetdouble2pointer}}
\index{historygetdouble2pointer@{historygetdouble2pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2pointer()}{historygetdouble2pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble2pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4973 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble2pointertimed(), historygetdouble2pointertimei(), and historygetdouble2pointertimer().


\begin{DoxyCode}
4973   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4974   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4975   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
4976   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4977   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4978   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4979   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4980   \textcolor{keywordtype}{implicit none}
4981   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4982   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4983   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4984   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
4985   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4986   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4987   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4988   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4989   \textcolor{keywordtype}{integer}:: domain
4990   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:) \textcolor{comment}{! (out)}
4991   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
4992   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4993   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4994   \textcolor{keywordtype}{character(STRING)}:: tname
4995   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2Pointer"}
4996   \textcolor{keyword}{interface}
4997 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4998       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4999       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5000       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5001       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5002       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5003       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5004       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5005 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5006 \textcolor{keyword}{  end interface}
5007   \textcolor{keyword}{interface}
5008 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5009       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5010       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5011       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5012       \textcolor{comment}{! 正確な入出力範囲指定}
5013       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5014       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5015       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5016 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5017 \textcolor{keyword}{  end interface}
5018   \textcolor{keyword}{interface}
5019 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5020       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5021       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5022       \textcolor{keywordtype}{character(STRING)}:: result
5023 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5024 \textcolor{keyword}{  end interface}
5025   \textcolor{keywordflow}{continue}
5026   file\_work = file
5027   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5028   \textcolor{comment}{! Change filename (for MPI)}
5029   \textcolor{comment}{!}
5030   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5031     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5032   \textcolor{comment}{! 必要な情報を gtool 変数化}
5033   \textcolor{comment}{!}
5034   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5035     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5036   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5037   \textcolor{comment}{! いよいよデータ取得}
5038   \textcolor{comment}{!}
5039   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5040   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5041   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5042   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5043     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5044     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5045     & err = err)                   \textcolor{comment}{! (out) optional}
5046   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5047     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5048 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0dea9cc993c867da0d076cdf2843a38e}\label{historyget_8f90_a0dea9cc993c867da0d076cdf2843a38e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2pointertimed@{historygetdouble2pointertimed}}
\index{historygetdouble2pointertimed@{historygetdouble2pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2pointertimed()}{historygetdouble2pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble2pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11126 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11126   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11127   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11128   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11129   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11130   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11131   \textcolor{keywordtype}{implicit none}
11132   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11133   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11134   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11135   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
11136   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11137   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11138   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11139   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11140   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11141   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11142   \textcolor{keywordtype}{character(STRING)}:: tname
11143   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeD"}
11144   \textcolor{keyword}{interface}
11145 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}(&
11146       & file, varname, array, range, quiet, &
11147       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11148       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11149       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11150       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11151       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11152       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11153       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11154       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11155       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11156       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11157       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
11158 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}
11159 \textcolor{keyword}{  end interface}
11160   \textcolor{keyword}{interface}
11161 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11162       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11163       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11164       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11165       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11166       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11167       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11168       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11169 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11170 \textcolor{keyword}{  end interface}
11171   \textcolor{keyword}{interface}
11172 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11173       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11174       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11175       \textcolor{keywordtype}{character(STRING)}:: result
11176 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11177 \textcolor{keyword}{  end interface}
11178   \textcolor{keywordflow}{continue}
11179   file\_work = file
11180   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11181     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11182   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11183     & url = url, &
11184     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11185   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11186     & fullname = url, iorange = iorange, remainder = remainder )
11187   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11188   timevar\_name = carray(1)
11189   \textcolor{keyword}{deallocate}( carray )
11190   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11191   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}( file = file, &
11192     & varname = varname, array = array, &
11193     & range = time\_range, quiet = quiet, &
11194     & flag\_mpi\_split = flag\_mpi\_split, &
11195     & returned\_time = returned\_time, &
11196     & flag\_time\_exist = flag\_time\_exist, &
11197     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0dea9cc993c867da0d076cdf2843a38e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad4e481816d2005b34f284e6632bbd518}\label{historyget_8f90_ad4e481816d2005b34f284e6632bbd518}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2pointertimei@{historygetdouble2pointertimei}}
\index{historygetdouble2pointertimei@{historygetdouble2pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2pointertimei()}{historygetdouble2pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble2pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14774 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14774   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14775   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14776   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14777   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14778   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14779   \textcolor{keywordtype}{implicit none}
14780   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14781   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14782   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14783   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
14784   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14785   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14786   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14787   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14788   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14789   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14790   \textcolor{keywordtype}{character(STRING)}:: tname
14791   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeI"}
14792   \textcolor{keyword}{interface}
14793 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}(&
14794       & file, varname, array, range, quiet, &
14795       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14796       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14797       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14798       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14799       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14800       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14801       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14802       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14803       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14804       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14805       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
14806 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}
14807 \textcolor{keyword}{  end interface}
14808   \textcolor{keyword}{interface}
14809 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14810       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14811       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14812       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14813       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14814       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14815       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14816       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14817 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14818 \textcolor{keyword}{  end interface}
14819   \textcolor{keyword}{interface}
14820 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14821       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14822       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14823       \textcolor{keywordtype}{character(STRING)}:: result
14824 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14825 \textcolor{keyword}{  end interface}
14826   \textcolor{keywordflow}{continue}
14827   file\_work = file
14828   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14829     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14830   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14831     & url = url, &
14832     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14833   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14834     & fullname = url, iorange = iorange, remainder = remainder )
14835   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14836   timevar\_name = carray(1)
14837   \textcolor{keyword}{deallocate}( carray )
14838   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14839   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}( file = file, &
14840     & varname = varname, array = array, &
14841     & range = time\_range, quiet = quiet, &
14842     & flag\_mpi\_split = flag\_mpi\_split, &
14843     & returned\_time = returned\_time, &
14844     & flag\_time\_exist = flag\_time\_exist, &
14845     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad4e481816d2005b34f284e6632bbd518_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7b6350bcf8a47b890824ff14ff3da88e}\label{historyget_8f90_a7b6350bcf8a47b890824ff14ff3da88e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2pointertimer@{historygetdouble2pointertimer}}
\index{historygetdouble2pointertimer@{historygetdouble2pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2pointertimer()}{historygetdouble2pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble2pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7478 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7478   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7479   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7480   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7481   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7482   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7483   \textcolor{keywordtype}{implicit none}
7484   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7485   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7486   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7487   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
7488   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7489   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7490   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7491   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7492   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7493   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7494   \textcolor{keywordtype}{character(STRING)}:: tname
7495   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeR"}
7496   \textcolor{keyword}{interface}
7497 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}(&
7498       & file, varname, array, range, quiet, &
7499       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7500       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7501       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7502       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7503       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7504       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7505       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7506       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7507       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7508       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7509       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
7510 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}
7511 \textcolor{keyword}{  end interface}
7512   \textcolor{keyword}{interface}
7513 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7514       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7515       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7516       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7517       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7518       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7519       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7520       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7521 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7522 \textcolor{keyword}{  end interface}
7523   \textcolor{keyword}{interface}
7524 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7525       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7526       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7527       \textcolor{keywordtype}{character(STRING)}:: result
7528 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7529 \textcolor{keyword}{  end interface}
7530   \textcolor{keywordflow}{continue}
7531   file\_work = file
7532   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7533     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7534   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7535     & url = url, &
7536     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7537   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7538     & fullname = url, iorange = iorange, remainder = remainder )
7539   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7540   timevar\_name = carray(1)
7541   \textcolor{keyword}{deallocate}( carray )
7542   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7543   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aed89f5292f9b742f4ec7e1630e1debc0}{historygetdouble2pointer}( file = file, &
7544     & varname = varname, array = array, &
7545     & range = time\_range, quiet = quiet, &
7546     & flag\_mpi\_split = flag\_mpi\_split, &
7547     & returned\_time = returned\_time, &
7548     & flag\_time\_exist = flag\_time\_exist, &
7549     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7b6350bcf8a47b890824ff14ff3da88e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a1eed44d272a14d94c52a4ccbd96054bd}\label{historyget_8f90_a1eed44d272a14d94c52a4ccbd96054bd}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2timed@{historygetdouble2timed}}
\index{historygetdouble2timed@{historygetdouble2timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2timed()}{historygetdouble2timed()}}
{\footnotesize\ttfamily subroutine historygetdouble2timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10518 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10518   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10519   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10520   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10521   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10522   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10523   \textcolor{keywordtype}{implicit none}
10524   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10525   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10526   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10527   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
10528   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10529   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10530   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10531   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10532   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10533   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10534   \textcolor{keywordtype}{character(STRING)}:: tname
10535   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeD"}
10536   \textcolor{keyword}{interface}
10537 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}(&
10538       & file, varname, array, range, quiet, &
10539       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10540       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10541       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10542       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10543       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10544       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10545       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10546       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10547       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10548       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10549       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
10550 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}
10551 \textcolor{keyword}{  end interface}
10552   \textcolor{keyword}{interface}
10553 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10554       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10555       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10556       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10557       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10558       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10559       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10560       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10561 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10562 \textcolor{keyword}{  end interface}
10563   \textcolor{keyword}{interface}
10564 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10565       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10566       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10567       \textcolor{keywordtype}{character(STRING)}:: result
10568 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10569 \textcolor{keyword}{  end interface}
10570   \textcolor{keywordflow}{continue}
10571   file\_work = file
10572   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10573     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10574   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10575     & url = url, &
10576     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10577   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10578     & fullname = url, iorange = iorange, remainder = remainder )
10579   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10580   timevar\_name = carray(1)
10581   \textcolor{keyword}{deallocate}( carray )
10582   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10583   \textcolor{keyword}{call }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}( file = file, &
10584     & varname = varname, array = array, &
10585     & range = time\_range, quiet = quiet, &
10586     & flag\_mpi\_split = flag\_mpi\_split, &
10587     & returned\_time = returned\_time, &
10588     & flag\_time\_exist = flag\_time\_exist, &
10589     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a1eed44d272a14d94c52a4ccbd96054bd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acb55f588802f26c52d462d0302990a99}\label{historyget_8f90_acb55f588802f26c52d462d0302990a99}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2timei@{historygetdouble2timei}}
\index{historygetdouble2timei@{historygetdouble2timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2timei()}{historygetdouble2timei()}}
{\footnotesize\ttfamily subroutine historygetdouble2timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14166 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14166   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14167   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14168   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14169   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14170   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14171   \textcolor{keywordtype}{implicit none}
14172   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14173   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14174   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14175   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
14176   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14177   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14178   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14179   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14180   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14181   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14182   \textcolor{keywordtype}{character(STRING)}:: tname
14183   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeI"}
14184   \textcolor{keyword}{interface}
14185 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}(&
14186       & file, varname, array, range, quiet, &
14187       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14188       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14189       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14190       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14191       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14192       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14193       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14194       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14195       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14196       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14197       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
14198 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}
14199 \textcolor{keyword}{  end interface}
14200   \textcolor{keyword}{interface}
14201 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14202       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14203       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14204       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14205       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14206       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14207       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14208       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14209 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14210 \textcolor{keyword}{  end interface}
14211   \textcolor{keyword}{interface}
14212 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14213       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14214       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14215       \textcolor{keywordtype}{character(STRING)}:: result
14216 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14217 \textcolor{keyword}{  end interface}
14218   \textcolor{keywordflow}{continue}
14219   file\_work = file
14220   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14221     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14222   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14223     & url = url, &
14224     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14225   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14226     & fullname = url, iorange = iorange, remainder = remainder )
14227   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14228   timevar\_name = carray(1)
14229   \textcolor{keyword}{deallocate}( carray )
14230   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14231   \textcolor{keyword}{call }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}( file = file, &
14232     & varname = varname, array = array, &
14233     & range = time\_range, quiet = quiet, &
14234     & flag\_mpi\_split = flag\_mpi\_split, &
14235     & returned\_time = returned\_time, &
14236     & flag\_time\_exist = flag\_time\_exist, &
14237     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acb55f588802f26c52d462d0302990a99_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0115c8b4e386bab330a53c13f8756489}\label{historyget_8f90_a0115c8b4e386bab330a53c13f8756489}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble2timer@{historygetdouble2timer}}
\index{historygetdouble2timer@{historygetdouble2timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble2timer()}{historygetdouble2timer()}}
{\footnotesize\ttfamily subroutine historygetdouble2timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6870 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
6870   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
6871   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
6872   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6873   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
6874   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6875   \textcolor{keywordtype}{implicit none}
6876   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
6877   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
6878   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6879   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
6880   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6881   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6882   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6883   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6884   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
6885   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
6886   \textcolor{keywordtype}{character(STRING)}:: tname
6887   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble2TimeR"}
6888   \textcolor{keyword}{interface}
6889 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}(&
6890       & file, varname, array, range, quiet, &
6891       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
6892       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6893       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6894       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6895       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6896       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6897       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6898       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6899       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6900       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6901       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
6902 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}
6903 \textcolor{keyword}{  end interface}
6904   \textcolor{keyword}{interface}
6905 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6906       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6907       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6908       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6909       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6910       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6911       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6912       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6913 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6914 \textcolor{keyword}{  end interface}
6915   \textcolor{keyword}{interface}
6916 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6917       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6918       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6919       \textcolor{keywordtype}{character(STRING)}:: result
6920 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6921 \textcolor{keyword}{  end interface}
6922   \textcolor{keywordflow}{continue}
6923   file\_work = file
6924   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6925     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6926   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
6927     & url = url, &
6928     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6929   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
6930     & fullname = url, iorange = iorange, remainder = remainder )
6931   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
6932   timevar\_name = carray(1)
6933   \textcolor{keyword}{deallocate}( carray )
6934   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
6935   \textcolor{keyword}{call }\hyperlink{historyget_8f90_abe976818d7e7ff5fa0668ef76219e82b}{historygetdouble2}( file = file, &
6936     & varname = varname, array = array, &
6937     & range = time\_range, quiet = quiet, &
6938     & flag\_mpi\_split = flag\_mpi\_split, &
6939     & returned\_time = returned\_time, &
6940     & flag\_time\_exist = flag\_time\_exist, &
6941     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0115c8b4e386bab330a53c13f8756489_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6708f7f400947147e03da35bd6757757}\label{historyget_8f90_a6708f7f400947147e03da35bd6757757}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3@{historygetdouble3}}
\index{historygetdouble3@{historygetdouble3}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3()}{historygetdouble3()}}
{\footnotesize\ttfamily subroutine historygetdouble3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 601 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble3timed(), historygetdouble3timei(), and historygetdouble3timer().


\begin{DoxyCode}
601   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
602   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
603   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
604   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
605   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
606   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
607   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
608   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
609   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
610   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
611     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
612   \textcolor{keywordtype}{implicit none}
613   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
614   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
615   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
616   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
617   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
618   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
619   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
620   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
621   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
622   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
623   \textcolor{keywordtype}{integer}:: array\_allsize
624   \textcolor{keywordtype}{integer}:: array\_shape(3), data\_shape(3), array\_shape\_check(3)
625   \textcolor{keywordtype}{integer}:: allcount
626   \textcolor{keywordtype}{integer}:: i, sd
627   \textcolor{keywordtype}{logical}:: inq\_err
628   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
629   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
630   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
631   \textcolor{keywordtype}{integer}:: domain
632   \textcolor{keywordtype}{character(STRING)}:: tname
633   \textcolor{keywordtype}{integer}:: stat
634   \textcolor{keywordtype}{character(STRING)}:: cause\_c
635   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3"}
636   \textcolor{keyword}{interface}
637 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
638       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
639       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
640       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
641       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
642       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
643       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
644       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
645 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
646 \textcolor{keyword}{  end interface}
647   \textcolor{keyword}{interface}
648 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
649       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
650       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
651       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
652       \textcolor{comment}{! 正確な入出力範囲指定}
653       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
654       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
655       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
656 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
657 \textcolor{keyword}{  end interface}
658   \textcolor{keyword}{interface}
659 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
660       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
661       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
662       \textcolor{keywordtype}{character(STRING)}:: result
663 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
664 \textcolor{keyword}{  end interface}
665   \textcolor{keywordflow}{continue}
666   cause\_c = \textcolor{stringliteral}{''}
667   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
668   file\_work = file
669   array\_shape = shape( array )
670   array\_allsize = \textcolor{keyword}{size}( array )
671   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
672   \textcolor{comment}{! Change filename (for MPI)}
673   \textcolor{comment}{!}
674   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
675     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
676   \textcolor{comment}{! 最新時刻の URL 取得}
677   \textcolor{comment}{! Get URL of latest time}
678   \textcolor{comment}{!}
679   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
680     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
681   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
682     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
683     cause\_c = url
684     \textcolor{keywordflow}{goto} 999
685 \textcolor{keywordflow}{  end if}
686   \textcolor{comment}{! ファイルオープン}
687   \textcolor{comment}{! File open}
688   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
689   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
690     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
691     cause\_c = url
692     \textcolor{keywordflow}{goto} 999
693 \textcolor{keywordflow}{  end if}
694   \textcolor{comment}{!-------------------------------------------------------------------}
695   \textcolor{comment}{!  配列形状のチェック}
696   \textcolor{comment}{!  Check array shape}
697   \textcolor{comment}{!-------------------------------------------------------------------}
698   \textcolor{comment}{! 入力ファイル中のデータの次元数}
699   \textcolor{comment}{! Get size of dimesions in data of an input file}
700   \textcolor{comment}{!}
701   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
702     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
703   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
704   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
705   array\_rank = 3
706   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
707   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
708   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
709   \textcolor{comment}{! 次元数の比較}
710   \textcolor{comment}{! Compare sizes of dimensions}
711   \textcolor{comment}{!}
712   \textcolor{keywordflow}{if} ( .not. 3 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
713     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
714       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
715         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
716         & i = (/rank, 3/), c1 = trim(url) )
717 \textcolor{keywordflow}{    end if}
718     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
719     cause\_c = \textcolor{stringliteral}{'array'}
720     \textcolor{keywordflow}{goto} 999
721 \textcolor{keywordflow}{  end if}
722   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
723   \textcolor{comment}{! Get shape of data in an input file}
724   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
725     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
726   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
727     data\_shape(1) = allcount
728   \textcolor{keywordflow}{else}
729     data\_shape(1) = 1
730 \textcolor{keywordflow}{  end if}
731   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
732     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
733   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
734     data\_shape(2) = allcount
735   \textcolor{keywordflow}{else}
736     data\_shape(2) = 1
737 \textcolor{keywordflow}{  end if}
738   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
739     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
740   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
741     data\_shape(3) = allcount
742   \textcolor{keywordflow}{else}
743     data\_shape(3) = 1
744 \textcolor{keywordflow}{  end if}
745   \textcolor{comment}{! 引数の配列形状整形}
746   \textcolor{comment}{! Arrange shape of an argument}
747   \textcolor{comment}{!}
748   array\_shape\_check = array\_shape
749   sd = 1
750   \textcolor{keywordflow}{do} i = 1, 3 - 1
751     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
752       array\_shape\_check(sd:3) = cshift( array\_shape\_check(sd:3), 1, 1 )
753     \textcolor{keywordflow}{else}
754       sd = sd + 1
755 \textcolor{keywordflow}{    end if}
756 \textcolor{keywordflow}{  end do}
757   \textcolor{comment}{! 配列形状の比較}
758   \textcolor{comment}{! Compare shapes}
759   \textcolor{comment}{!}
760   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
761     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
762       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
763         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
764         & c1 = trim( url ), &
765         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
766         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
767 \textcolor{keywordflow}{    end if}
768     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
769     cause\_c = \textcolor{stringliteral}{'array'}
770     \textcolor{keywordflow}{goto} 999
771 \textcolor{keywordflow}{  end if}
772   \textcolor{comment}{!-------------------------------------}
773   \textcolor{comment}{!  データ取得}
774   \textcolor{comment}{!  Get data}
775   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
776     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
777   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
778   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
779   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
780   array = reshape( array\_tmp, array\_shape )
781   \textcolor{keyword}{deallocate}( array\_tmp )
782   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
783   \textcolor{comment}{!-------------------------------------}
784   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
785   \textcolor{comment}{!  Print data filename and clipping range}
786   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
787     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
788     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
789     & err = err)                   \textcolor{comment}{! (out) optional}
790   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
791     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
792 \textcolor{keywordflow}{  end if}
793 999 \textcolor{keywordflow}{continue}
794   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6708f7f400947147e03da35bd6757757_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_a6708f7f400947147e03da35bd6757757_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}\label{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3pointer@{historygetdouble3pointer}}
\index{historygetdouble3pointer@{historygetdouble3pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3pointer()}{historygetdouble3pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble3pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5052 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble3pointertimed(), historygetdouble3pointertimei(), and historygetdouble3pointertimer().


\begin{DoxyCode}
5052   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5053   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5054   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5055   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5056   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5057   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5058   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5059   \textcolor{keywordtype}{implicit none}
5060   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5061   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5062   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5063   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5064   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5065   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5066   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5067   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5068   \textcolor{keywordtype}{integer}:: domain
5069   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:) \textcolor{comment}{! (out)}
5070   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5071   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5072   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5073   \textcolor{keywordtype}{character(STRING)}:: tname
5074   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3Pointer"}
5075   \textcolor{keyword}{interface}
5076 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5077       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5078       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5079       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5080       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5081       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5082       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5083       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5084 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5085 \textcolor{keyword}{  end interface}
5086   \textcolor{keyword}{interface}
5087 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5088       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5089       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5090       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5091       \textcolor{comment}{! 正確な入出力範囲指定}
5092       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5093       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5094       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5095 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5096 \textcolor{keyword}{  end interface}
5097   \textcolor{keyword}{interface}
5098 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5099       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5100       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5101       \textcolor{keywordtype}{character(STRING)}:: result
5102 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5103 \textcolor{keyword}{  end interface}
5104   \textcolor{keywordflow}{continue}
5105   file\_work = file
5106   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5107   \textcolor{comment}{! Change filename (for MPI)}
5108   \textcolor{comment}{!}
5109   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5110     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5111   \textcolor{comment}{! 必要な情報を gtool 変数化}
5112   \textcolor{comment}{!}
5113   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5114     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5115   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5116   \textcolor{comment}{! いよいよデータ取得}
5117   \textcolor{comment}{!}
5118   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5119   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5120   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5121   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5122     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5123     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5124     & err = err)                   \textcolor{comment}{! (out) optional}
5125   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5126     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5127 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5203735ed170ebc5a2425c4b8876fe42}\label{historyget_8f90_a5203735ed170ebc5a2425c4b8876fe42}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3pointertimed@{historygetdouble3pointertimed}}
\index{historygetdouble3pointertimed@{historygetdouble3pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3pointertimed()}{historygetdouble3pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble3pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11202 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11202   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11203   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11204   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11205   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11206   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11207   \textcolor{keywordtype}{implicit none}
11208   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11209   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11210   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11211   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
11212   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11213   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11214   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11215   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11216   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11217   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11218   \textcolor{keywordtype}{character(STRING)}:: tname
11219   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeD"}
11220   \textcolor{keyword}{interface}
11221 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}(&
11222       & file, varname, array, range, quiet, &
11223       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11224       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11225       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11226       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11227       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11228       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11229       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11230       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11231       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11232       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11233       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
11234 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}
11235 \textcolor{keyword}{  end interface}
11236   \textcolor{keyword}{interface}
11237 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11238       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11239       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11240       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11241       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11242       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11243       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11244       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11245 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11246 \textcolor{keyword}{  end interface}
11247   \textcolor{keyword}{interface}
11248 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11249       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11250       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11251       \textcolor{keywordtype}{character(STRING)}:: result
11252 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11253 \textcolor{keyword}{  end interface}
11254   \textcolor{keywordflow}{continue}
11255   file\_work = file
11256   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11257     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11258   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11259     & url = url, &
11260     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11261   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11262     & fullname = url, iorange = iorange, remainder = remainder )
11263   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11264   timevar\_name = carray(1)
11265   \textcolor{keyword}{deallocate}( carray )
11266   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11267   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}( file = file, &
11268     & varname = varname, array = array, &
11269     & range = time\_range, quiet = quiet, &
11270     & flag\_mpi\_split = flag\_mpi\_split, &
11271     & returned\_time = returned\_time, &
11272     & flag\_time\_exist = flag\_time\_exist, &
11273     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5203735ed170ebc5a2425c4b8876fe42_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a77ac1034efc3a8ab7df6c0d6d74b8751}\label{historyget_8f90_a77ac1034efc3a8ab7df6c0d6d74b8751}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3pointertimei@{historygetdouble3pointertimei}}
\index{historygetdouble3pointertimei@{historygetdouble3pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3pointertimei()}{historygetdouble3pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble3pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14850 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14850   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14851   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14852   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14853   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14854   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14855   \textcolor{keywordtype}{implicit none}
14856   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14857   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14858   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14859   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
14860   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14861   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14862   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14863   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14864   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14865   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14866   \textcolor{keywordtype}{character(STRING)}:: tname
14867   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeI"}
14868   \textcolor{keyword}{interface}
14869 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}(&
14870       & file, varname, array, range, quiet, &
14871       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14872       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14873       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14874       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14875       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14876       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14877       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14878       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14879       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14880       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14881       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
14882 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}
14883 \textcolor{keyword}{  end interface}
14884   \textcolor{keyword}{interface}
14885 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14886       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14887       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14888       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14889       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14890       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14891       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14892       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14893 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14894 \textcolor{keyword}{  end interface}
14895   \textcolor{keyword}{interface}
14896 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14897       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14898       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14899       \textcolor{keywordtype}{character(STRING)}:: result
14900 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14901 \textcolor{keyword}{  end interface}
14902   \textcolor{keywordflow}{continue}
14903   file\_work = file
14904   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14905     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14906   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14907     & url = url, &
14908     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14909   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14910     & fullname = url, iorange = iorange, remainder = remainder )
14911   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14912   timevar\_name = carray(1)
14913   \textcolor{keyword}{deallocate}( carray )
14914   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14915   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}( file = file, &
14916     & varname = varname, array = array, &
14917     & range = time\_range, quiet = quiet, &
14918     & flag\_mpi\_split = flag\_mpi\_split, &
14919     & returned\_time = returned\_time, &
14920     & flag\_time\_exist = flag\_time\_exist, &
14921     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a77ac1034efc3a8ab7df6c0d6d74b8751_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a9d8ab31749042685ff482b932040011c}\label{historyget_8f90_a9d8ab31749042685ff482b932040011c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3pointertimer@{historygetdouble3pointertimer}}
\index{historygetdouble3pointertimer@{historygetdouble3pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3pointertimer()}{historygetdouble3pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble3pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7554 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7554   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7555   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7556   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7557   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7558   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7559   \textcolor{keywordtype}{implicit none}
7560   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7561   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7562   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7563   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
7564   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7565   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7566   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7567   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7568   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7569   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7570   \textcolor{keywordtype}{character(STRING)}:: tname
7571   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeR"}
7572   \textcolor{keyword}{interface}
7573 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}(&
7574       & file, varname, array, range, quiet, &
7575       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7576       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7577       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7578       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7579       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7580       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7581       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7582       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7583       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7584       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7585       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
7586 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}
7587 \textcolor{keyword}{  end interface}
7588   \textcolor{keyword}{interface}
7589 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7590       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7591       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7592       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7593       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7594       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7595       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7596       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7597 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7598 \textcolor{keyword}{  end interface}
7599   \textcolor{keyword}{interface}
7600 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7601       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7602       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7603       \textcolor{keywordtype}{character(STRING)}:: result
7604 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7605 \textcolor{keyword}{  end interface}
7606   \textcolor{keywordflow}{continue}
7607   file\_work = file
7608   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7609     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7610   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7611     & url = url, &
7612     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7613   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7614     & fullname = url, iorange = iorange, remainder = remainder )
7615   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7616   timevar\_name = carray(1)
7617   \textcolor{keyword}{deallocate}( carray )
7618   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7619   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ea8fd4399bd891369a7674a3a5c18b0}{historygetdouble3pointer}( file = file, &
7620     & varname = varname, array = array, &
7621     & range = time\_range, quiet = quiet, &
7622     & flag\_mpi\_split = flag\_mpi\_split, &
7623     & returned\_time = returned\_time, &
7624     & flag\_time\_exist = flag\_time\_exist, &
7625     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9d8ab31749042685ff482b932040011c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ada8bce048dd2fec443d7a0946f5445e3}\label{historyget_8f90_ada8bce048dd2fec443d7a0946f5445e3}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3timed@{historygetdouble3timed}}
\index{historygetdouble3timed@{historygetdouble3timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3timed()}{historygetdouble3timed()}}
{\footnotesize\ttfamily subroutine historygetdouble3timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10594 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10594   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10595   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10596   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10597   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10598   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10599   \textcolor{keywordtype}{implicit none}
10600   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10601   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10602   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10603   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
10604   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10605   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10606   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10607   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10608   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10609   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10610   \textcolor{keywordtype}{character(STRING)}:: tname
10611   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeD"}
10612   \textcolor{keyword}{interface}
10613 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}(&
10614       & file, varname, array, range, quiet, &
10615       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10616       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10617       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10618       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10619       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10620       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10621       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10622       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10623       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10624       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10625       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
10626 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}
10627 \textcolor{keyword}{  end interface}
10628   \textcolor{keyword}{interface}
10629 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10630       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10631       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10632       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10633       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10634       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10635       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10636       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10637 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10638 \textcolor{keyword}{  end interface}
10639   \textcolor{keyword}{interface}
10640 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10641       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10642       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10643       \textcolor{keywordtype}{character(STRING)}:: result
10644 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10645 \textcolor{keyword}{  end interface}
10646   \textcolor{keywordflow}{continue}
10647   file\_work = file
10648   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10649     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10650   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10651     & url = url, &
10652     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10653   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10654     & fullname = url, iorange = iorange, remainder = remainder )
10655   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10656   timevar\_name = carray(1)
10657   \textcolor{keyword}{deallocate}( carray )
10658   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10659   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}( file = file, &
10660     & varname = varname, array = array, &
10661     & range = time\_range, quiet = quiet, &
10662     & flag\_mpi\_split = flag\_mpi\_split, &
10663     & returned\_time = returned\_time, &
10664     & flag\_time\_exist = flag\_time\_exist, &
10665     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ada8bce048dd2fec443d7a0946f5445e3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aad660b64be1fe3ba7d068eab1a3be8f3}\label{historyget_8f90_aad660b64be1fe3ba7d068eab1a3be8f3}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3timei@{historygetdouble3timei}}
\index{historygetdouble3timei@{historygetdouble3timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3timei()}{historygetdouble3timei()}}
{\footnotesize\ttfamily subroutine historygetdouble3timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14242 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14242   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14243   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14244   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14245   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14246   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14247   \textcolor{keywordtype}{implicit none}
14248   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14249   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14250   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14251   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
14252   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14253   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14254   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14255   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14256   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14257   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14258   \textcolor{keywordtype}{character(STRING)}:: tname
14259   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeI"}
14260   \textcolor{keyword}{interface}
14261 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}(&
14262       & file, varname, array, range, quiet, &
14263       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14264       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14265       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14266       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14267       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14268       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14269       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14270       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14271       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14272       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14273       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
14274 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}
14275 \textcolor{keyword}{  end interface}
14276   \textcolor{keyword}{interface}
14277 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14278       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14279       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14280       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14281       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14282       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14283       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14284       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14285 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14286 \textcolor{keyword}{  end interface}
14287   \textcolor{keyword}{interface}
14288 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14289       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14290       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14291       \textcolor{keywordtype}{character(STRING)}:: result
14292 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14293 \textcolor{keyword}{  end interface}
14294   \textcolor{keywordflow}{continue}
14295   file\_work = file
14296   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14297     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14298   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14299     & url = url, &
14300     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14301   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14302     & fullname = url, iorange = iorange, remainder = remainder )
14303   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14304   timevar\_name = carray(1)
14305   \textcolor{keyword}{deallocate}( carray )
14306   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14307   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}( file = file, &
14308     & varname = varname, array = array, &
14309     & range = time\_range, quiet = quiet, &
14310     & flag\_mpi\_split = flag\_mpi\_split, &
14311     & returned\_time = returned\_time, &
14312     & flag\_time\_exist = flag\_time\_exist, &
14313     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aad660b64be1fe3ba7d068eab1a3be8f3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a997b65125c9db56f2197c503971221cd}\label{historyget_8f90_a997b65125c9db56f2197c503971221cd}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble3timer@{historygetdouble3timer}}
\index{historygetdouble3timer@{historygetdouble3timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble3timer()}{historygetdouble3timer()}}
{\footnotesize\ttfamily subroutine historygetdouble3timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6946 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
6946   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
6947   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
6948   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6949   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
6950   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6951   \textcolor{keywordtype}{implicit none}
6952   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
6953   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
6954   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6955   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
6956   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6957   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6958   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6959   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6960   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
6961   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
6962   \textcolor{keywordtype}{character(STRING)}:: tname
6963   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble3TimeR"}
6964   \textcolor{keyword}{interface}
6965 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}(&
6966       & file, varname, array, range, quiet, &
6967       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
6968       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6969       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6970       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6971       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6972       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6973       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6974       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
6975       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6976       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6977       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
6978 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}
6979 \textcolor{keyword}{  end interface}
6980   \textcolor{keyword}{interface}
6981 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6982       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6983       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6984       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6985       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6986       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6987       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6988       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6989 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6990 \textcolor{keyword}{  end interface}
6991   \textcolor{keyword}{interface}
6992 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6993       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6994       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6995       \textcolor{keywordtype}{character(STRING)}:: result
6996 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6997 \textcolor{keyword}{  end interface}
6998   \textcolor{keywordflow}{continue}
6999   file\_work = file
7000   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7001     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7002   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7003     & url = url, &
7004     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7005   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7006     & fullname = url, iorange = iorange, remainder = remainder )
7007   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7008   timevar\_name = carray(1)
7009   \textcolor{keyword}{deallocate}( carray )
7010   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7011   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a6708f7f400947147e03da35bd6757757}{historygetdouble3}( file = file, &
7012     & varname = varname, array = array, &
7013     & range = time\_range, quiet = quiet, &
7014     & flag\_mpi\_split = flag\_mpi\_split, &
7015     & returned\_time = returned\_time, &
7016     & flag\_time\_exist = flag\_time\_exist, &
7017     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a997b65125c9db56f2197c503971221cd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}\label{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4@{historygetdouble4}}
\index{historygetdouble4@{historygetdouble4}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4()}{historygetdouble4()}}
{\footnotesize\ttfamily subroutine historygetdouble4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 798 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble4timed(), historygetdouble4timei(), and historygetdouble4timer().


\begin{DoxyCode}
798   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
799   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
800   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
801   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
802   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
803   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
804   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
805   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
806   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
807   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
808     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
809   \textcolor{keywordtype}{implicit none}
810   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
811   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
812   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
813   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
814   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
815   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
816   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
817   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
818   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
819   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
820   \textcolor{keywordtype}{integer}:: array\_allsize
821   \textcolor{keywordtype}{integer}:: array\_shape(4), data\_shape(4), array\_shape\_check(4)
822   \textcolor{keywordtype}{integer}:: allcount
823   \textcolor{keywordtype}{integer}:: i, sd
824   \textcolor{keywordtype}{logical}:: inq\_err
825   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
826   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
827   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
828   \textcolor{keywordtype}{integer}:: domain
829   \textcolor{keywordtype}{character(STRING)}:: tname
830   \textcolor{keywordtype}{integer}:: stat
831   \textcolor{keywordtype}{character(STRING)}:: cause\_c
832   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4"}
833   \textcolor{keyword}{interface}
834 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
835       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
836       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
837       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
838       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
839       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
840       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
841       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
842 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
843 \textcolor{keyword}{  end interface}
844   \textcolor{keyword}{interface}
845 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
846       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
847       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
848       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
849       \textcolor{comment}{! 正確な入出力範囲指定}
850       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
851       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
852       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
853 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
854 \textcolor{keyword}{  end interface}
855   \textcolor{keyword}{interface}
856 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
857       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
858       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
859       \textcolor{keywordtype}{character(STRING)}:: result
860 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
861 \textcolor{keyword}{  end interface}
862   \textcolor{keywordflow}{continue}
863   cause\_c = \textcolor{stringliteral}{''}
864   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
865   file\_work = file
866   array\_shape = shape( array )
867   array\_allsize = \textcolor{keyword}{size}( array )
868   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
869   \textcolor{comment}{! Change filename (for MPI)}
870   \textcolor{comment}{!}
871   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
872     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
873   \textcolor{comment}{! 最新時刻の URL 取得}
874   \textcolor{comment}{! Get URL of latest time}
875   \textcolor{comment}{!}
876   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
877     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
878   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
879     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
880     cause\_c = url
881     \textcolor{keywordflow}{goto} 999
882 \textcolor{keywordflow}{  end if}
883   \textcolor{comment}{! ファイルオープン}
884   \textcolor{comment}{! File open}
885   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
886   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
887     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
888     cause\_c = url
889     \textcolor{keywordflow}{goto} 999
890 \textcolor{keywordflow}{  end if}
891   \textcolor{comment}{!-------------------------------------------------------------------}
892   \textcolor{comment}{!  配列形状のチェック}
893   \textcolor{comment}{!  Check array shape}
894   \textcolor{comment}{!-------------------------------------------------------------------}
895   \textcolor{comment}{! 入力ファイル中のデータの次元数}
896   \textcolor{comment}{! Get size of dimesions in data of an input file}
897   \textcolor{comment}{!}
898   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
899     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
900   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
901   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
902   array\_rank = 4
903   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
904   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
905   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
906   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
907   \textcolor{comment}{! 次元数の比較}
908   \textcolor{comment}{! Compare sizes of dimensions}
909   \textcolor{comment}{!}
910   \textcolor{keywordflow}{if} ( .not. 4 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
911     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
912       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
913         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
914         & i = (/rank, 4/), c1 = trim(url) )
915 \textcolor{keywordflow}{    end if}
916     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
917     cause\_c = \textcolor{stringliteral}{'array'}
918     \textcolor{keywordflow}{goto} 999
919 \textcolor{keywordflow}{  end if}
920   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
921   \textcolor{comment}{! Get shape of data in an input file}
922   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
923     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
924   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
925     data\_shape(1) = allcount
926   \textcolor{keywordflow}{else}
927     data\_shape(1) = 1
928 \textcolor{keywordflow}{  end if}
929   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
930     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
931   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
932     data\_shape(2) = allcount
933   \textcolor{keywordflow}{else}
934     data\_shape(2) = 1
935 \textcolor{keywordflow}{  end if}
936   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
937     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
938   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
939     data\_shape(3) = allcount
940   \textcolor{keywordflow}{else}
941     data\_shape(3) = 1
942 \textcolor{keywordflow}{  end if}
943   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
944     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
945   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
946     data\_shape(4) = allcount
947   \textcolor{keywordflow}{else}
948     data\_shape(4) = 1
949 \textcolor{keywordflow}{  end if}
950   \textcolor{comment}{! 引数の配列形状整形}
951   \textcolor{comment}{! Arrange shape of an argument}
952   \textcolor{comment}{!}
953   array\_shape\_check = array\_shape
954   sd = 1
955   \textcolor{keywordflow}{do} i = 1, 4 - 1
956     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
957       array\_shape\_check(sd:4) = cshift( array\_shape\_check(sd:4), 1, 1 )
958     \textcolor{keywordflow}{else}
959       sd = sd + 1
960 \textcolor{keywordflow}{    end if}
961 \textcolor{keywordflow}{  end do}
962   \textcolor{comment}{! 配列形状の比較}
963   \textcolor{comment}{! Compare shapes}
964   \textcolor{comment}{!}
965   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
966     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
967       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
968         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
969         & c1 = trim( url ), &
970         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
971         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
972 \textcolor{keywordflow}{    end if}
973     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
974     cause\_c = \textcolor{stringliteral}{'array'}
975     \textcolor{keywordflow}{goto} 999
976 \textcolor{keywordflow}{  end if}
977   \textcolor{comment}{!-------------------------------------}
978   \textcolor{comment}{!  データ取得}
979   \textcolor{comment}{!  Get data}
980   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
981     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
982   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
983   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
984   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
985   array = reshape( array\_tmp, array\_shape )
986   \textcolor{keyword}{deallocate}( array\_tmp )
987   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
988   \textcolor{comment}{!-------------------------------------}
989   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
990   \textcolor{comment}{!  Print data filename and clipping range}
991   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
992     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
993     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
994     & err = err)                   \textcolor{comment}{! (out) optional}
995   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
996     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
997 \textcolor{keywordflow}{  end if}
998 999 \textcolor{keywordflow}{continue}
999   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}\label{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4pointer@{historygetdouble4pointer}}
\index{historygetdouble4pointer@{historygetdouble4pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4pointer()}{historygetdouble4pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble4pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5131 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble4pointertimed(), historygetdouble4pointertimei(), and historygetdouble4pointertimer().


\begin{DoxyCode}
5131   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5132   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5133   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5134   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5135   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5136   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5137   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5138   \textcolor{keywordtype}{implicit none}
5139   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5140   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5141   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5142   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5143   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5144   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5145   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5146   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5147   \textcolor{keywordtype}{integer}:: domain
5148   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:) \textcolor{comment}{! (out)}
5149   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5150   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5151   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5152   \textcolor{keywordtype}{character(STRING)}:: tname
5153   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4Pointer"}
5154   \textcolor{keyword}{interface}
5155 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5156       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5157       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5158       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5159       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5160       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5161       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5162       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5163 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5164 \textcolor{keyword}{  end interface}
5165   \textcolor{keyword}{interface}
5166 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5167       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5168       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5169       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5170       \textcolor{comment}{! 正確な入出力範囲指定}
5171       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5172       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5173       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5174 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5175 \textcolor{keyword}{  end interface}
5176   \textcolor{keyword}{interface}
5177 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5178       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5179       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5180       \textcolor{keywordtype}{character(STRING)}:: result
5181 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5182 \textcolor{keyword}{  end interface}
5183   \textcolor{keywordflow}{continue}
5184   file\_work = file
5185   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5186   \textcolor{comment}{! Change filename (for MPI)}
5187   \textcolor{comment}{!}
5188   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5189     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5190   \textcolor{comment}{! 必要な情報を gtool 変数化}
5191   \textcolor{comment}{!}
5192   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5193     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5194   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5195   \textcolor{comment}{! いよいよデータ取得}
5196   \textcolor{comment}{!}
5197   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5198   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5199   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5200   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5201     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5202     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5203     & err = err)                   \textcolor{comment}{! (out) optional}
5204   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5205     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5206 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad3b74a757911181af5ebf523d7918dd4}\label{historyget_8f90_ad3b74a757911181af5ebf523d7918dd4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4pointertimed@{historygetdouble4pointertimed}}
\index{historygetdouble4pointertimed@{historygetdouble4pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4pointertimed()}{historygetdouble4pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble4pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11278 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11278   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11279   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11280   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11281   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11282   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11283   \textcolor{keywordtype}{implicit none}
11284   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11285   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11286   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11287   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
11288   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11289   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11290   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11291   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11292   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11293   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11294   \textcolor{keywordtype}{character(STRING)}:: tname
11295   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeD"}
11296   \textcolor{keyword}{interface}
11297 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}(&
11298       & file, varname, array, range, quiet, &
11299       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11300       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11301       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11302       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11303       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11304       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11305       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11306       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11307       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11308       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11309       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
11310 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}
11311 \textcolor{keyword}{  end interface}
11312   \textcolor{keyword}{interface}
11313 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11314       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11315       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11316       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11317       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11318       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11319       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11320       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11321 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11322 \textcolor{keyword}{  end interface}
11323   \textcolor{keyword}{interface}
11324 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11325       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11326       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11327       \textcolor{keywordtype}{character(STRING)}:: result
11328 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11329 \textcolor{keyword}{  end interface}
11330   \textcolor{keywordflow}{continue}
11331   file\_work = file
11332   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11333     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11334   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11335     & url = url, &
11336     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11337   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11338     & fullname = url, iorange = iorange, remainder = remainder )
11339   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11340   timevar\_name = carray(1)
11341   \textcolor{keyword}{deallocate}( carray )
11342   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11343   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}( file = file, &
11344     & varname = varname, array = array, &
11345     & range = time\_range, quiet = quiet, &
11346     & flag\_mpi\_split = flag\_mpi\_split, &
11347     & returned\_time = returned\_time, &
11348     & flag\_time\_exist = flag\_time\_exist, &
11349     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad3b74a757911181af5ebf523d7918dd4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5657ba9674c23f72fc9e09b165a3db79}\label{historyget_8f90_a5657ba9674c23f72fc9e09b165a3db79}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4pointertimei@{historygetdouble4pointertimei}}
\index{historygetdouble4pointertimei@{historygetdouble4pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4pointertimei()}{historygetdouble4pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble4pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14926 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14926   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14927   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14928   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14929   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14930   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14931   \textcolor{keywordtype}{implicit none}
14932   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14933   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14934   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14935   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
14936   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14937   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14938   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14939   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14940   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14941   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14942   \textcolor{keywordtype}{character(STRING)}:: tname
14943   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeI"}
14944   \textcolor{keyword}{interface}
14945 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}(&
14946       & file, varname, array, range, quiet, &
14947       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14948       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14949       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14950       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14951       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14952       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14953       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14954       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14955       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14956       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14957       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
14958 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}
14959 \textcolor{keyword}{  end interface}
14960   \textcolor{keyword}{interface}
14961 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14962       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14963       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14964       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14965       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14966       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14967       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14968       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14969 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14970 \textcolor{keyword}{  end interface}
14971   \textcolor{keyword}{interface}
14972 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14973       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14974       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14975       \textcolor{keywordtype}{character(STRING)}:: result
14976 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14977 \textcolor{keyword}{  end interface}
14978   \textcolor{keywordflow}{continue}
14979   file\_work = file
14980   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14981     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14982   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14983     & url = url, &
14984     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14985   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14986     & fullname = url, iorange = iorange, remainder = remainder )
14987   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14988   timevar\_name = carray(1)
14989   \textcolor{keyword}{deallocate}( carray )
14990   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14991   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}( file = file, &
14992     & varname = varname, array = array, &
14993     & range = time\_range, quiet = quiet, &
14994     & flag\_mpi\_split = flag\_mpi\_split, &
14995     & returned\_time = returned\_time, &
14996     & flag\_time\_exist = flag\_time\_exist, &
14997     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5657ba9674c23f72fc9e09b165a3db79_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6bab4ce974439301616481abf34bfbb8}\label{historyget_8f90_a6bab4ce974439301616481abf34bfbb8}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4pointertimer@{historygetdouble4pointertimer}}
\index{historygetdouble4pointertimer@{historygetdouble4pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4pointertimer()}{historygetdouble4pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble4pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7630 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7630   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7631   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7632   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7633   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7634   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7635   \textcolor{keywordtype}{implicit none}
7636   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7637   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7638   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7639   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
7640   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7641   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7642   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7643   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7644   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7645   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7646   \textcolor{keywordtype}{character(STRING)}:: tname
7647   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeR"}
7648   \textcolor{keyword}{interface}
7649 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}(&
7650       & file, varname, array, range, quiet, &
7651       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7652       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7653       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7654       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7655       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7656       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7657       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7658       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7659       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7660       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7661       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
7662 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}
7663 \textcolor{keyword}{  end interface}
7664   \textcolor{keyword}{interface}
7665 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7666       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7667       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7668       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7669       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7670       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7671       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7672       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7673 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7674 \textcolor{keyword}{  end interface}
7675   \textcolor{keyword}{interface}
7676 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7677       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7678       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7679       \textcolor{keywordtype}{character(STRING)}:: result
7680 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7681 \textcolor{keyword}{  end interface}
7682   \textcolor{keywordflow}{continue}
7683   file\_work = file
7684   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7685     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7686   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7687     & url = url, &
7688     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7689   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7690     & fullname = url, iorange = iorange, remainder = remainder )
7691   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7692   timevar\_name = carray(1)
7693   \textcolor{keyword}{deallocate}( carray )
7694   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7695   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aca719dce9961ca7dd262a1cfcfcd25a9}{historygetdouble4pointer}( file = file, &
7696     & varname = varname, array = array, &
7697     & range = time\_range, quiet = quiet, &
7698     & flag\_mpi\_split = flag\_mpi\_split, &
7699     & returned\_time = returned\_time, &
7700     & flag\_time\_exist = flag\_time\_exist, &
7701     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6bab4ce974439301616481abf34bfbb8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5341d9be64bb52788b7a51590c48e01c}\label{historyget_8f90_a5341d9be64bb52788b7a51590c48e01c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4timed@{historygetdouble4timed}}
\index{historygetdouble4timed@{historygetdouble4timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4timed()}{historygetdouble4timed()}}
{\footnotesize\ttfamily subroutine historygetdouble4timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10670 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10670   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10671   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10672   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10673   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10674   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10675   \textcolor{keywordtype}{implicit none}
10676   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10677   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10678   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10679   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
10680   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10681   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10682   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10683   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10684   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10685   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10686   \textcolor{keywordtype}{character(STRING)}:: tname
10687   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeD"}
10688   \textcolor{keyword}{interface}
10689 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}(&
10690       & file, varname, array, range, quiet, &
10691       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10692       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10693       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10694       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10695       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10696       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10697       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10698       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10699       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10700       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10701       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
10702 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}
10703 \textcolor{keyword}{  end interface}
10704   \textcolor{keyword}{interface}
10705 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10706       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10707       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10708       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10709       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10710       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10711       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10712       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10713 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10714 \textcolor{keyword}{  end interface}
10715   \textcolor{keyword}{interface}
10716 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10717       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10718       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10719       \textcolor{keywordtype}{character(STRING)}:: result
10720 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10721 \textcolor{keyword}{  end interface}
10722   \textcolor{keywordflow}{continue}
10723   file\_work = file
10724   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10725     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10726   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10727     & url = url, &
10728     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10729   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10730     & fullname = url, iorange = iorange, remainder = remainder )
10731   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10732   timevar\_name = carray(1)
10733   \textcolor{keyword}{deallocate}( carray )
10734   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10735   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}( file = file, &
10736     & varname = varname, array = array, &
10737     & range = time\_range, quiet = quiet, &
10738     & flag\_mpi\_split = flag\_mpi\_split, &
10739     & returned\_time = returned\_time, &
10740     & flag\_time\_exist = flag\_time\_exist, &
10741     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5341d9be64bb52788b7a51590c48e01c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a70f1d426e32c0a22b6c070040370e72a}\label{historyget_8f90_a70f1d426e32c0a22b6c070040370e72a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4timei@{historygetdouble4timei}}
\index{historygetdouble4timei@{historygetdouble4timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4timei()}{historygetdouble4timei()}}
{\footnotesize\ttfamily subroutine historygetdouble4timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14318 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14318   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14319   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14320   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14321   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14322   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14323   \textcolor{keywordtype}{implicit none}
14324   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14325   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14326   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14327   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
14328   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14329   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14330   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14331   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14332   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14333   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14334   \textcolor{keywordtype}{character(STRING)}:: tname
14335   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeI"}
14336   \textcolor{keyword}{interface}
14337 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}(&
14338       & file, varname, array, range, quiet, &
14339       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14340       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14341       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14342       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14343       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14344       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14345       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14346       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14347       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14348       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14349       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
14350 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}
14351 \textcolor{keyword}{  end interface}
14352   \textcolor{keyword}{interface}
14353 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14354       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14355       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14356       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14357       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14358       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14359       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14360       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14361 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14362 \textcolor{keyword}{  end interface}
14363   \textcolor{keyword}{interface}
14364 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14365       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14366       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14367       \textcolor{keywordtype}{character(STRING)}:: result
14368 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14369 \textcolor{keyword}{  end interface}
14370   \textcolor{keywordflow}{continue}
14371   file\_work = file
14372   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14373     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14374   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14375     & url = url, &
14376     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14377   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14378     & fullname = url, iorange = iorange, remainder = remainder )
14379   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14380   timevar\_name = carray(1)
14381   \textcolor{keyword}{deallocate}( carray )
14382   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14383   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}( file = file, &
14384     & varname = varname, array = array, &
14385     & range = time\_range, quiet = quiet, &
14386     & flag\_mpi\_split = flag\_mpi\_split, &
14387     & returned\_time = returned\_time, &
14388     & flag\_time\_exist = flag\_time\_exist, &
14389     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a70f1d426e32c0a22b6c070040370e72a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_abeb57bd6e5207813f0f4f4dfdd9371b7}\label{historyget_8f90_abeb57bd6e5207813f0f4f4dfdd9371b7}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble4timer@{historygetdouble4timer}}
\index{historygetdouble4timer@{historygetdouble4timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble4timer()}{historygetdouble4timer()}}
{\footnotesize\ttfamily subroutine historygetdouble4timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7022 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7022   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7023   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7024   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7025   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7026   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7027   \textcolor{keywordtype}{implicit none}
7028   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7029   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7030   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7031   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
7032   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7033   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7034   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7035   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7036   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7037   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7038   \textcolor{keywordtype}{character(STRING)}:: tname
7039   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble4TimeR"}
7040   \textcolor{keyword}{interface}
7041 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}(&
7042       & file, varname, array, range, quiet, &
7043       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7044       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7045       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7046       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7047       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7048       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7049       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7050       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7051       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7052       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7053       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
7054 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}
7055 \textcolor{keyword}{  end interface}
7056   \textcolor{keyword}{interface}
7057 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7058       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7059       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7060       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7061       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7062       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7063       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7064       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7065 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7066 \textcolor{keyword}{  end interface}
7067   \textcolor{keyword}{interface}
7068 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7069       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7070       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7071       \textcolor{keywordtype}{character(STRING)}:: result
7072 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7073 \textcolor{keyword}{  end interface}
7074   \textcolor{keywordflow}{continue}
7075   file\_work = file
7076   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7077     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7078   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7079     & url = url, &
7080     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7081   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7082     & fullname = url, iorange = iorange, remainder = remainder )
7083   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7084   timevar\_name = carray(1)
7085   \textcolor{keyword}{deallocate}( carray )
7086   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7087   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad91defae9b3f90b9a34a77867b8f9b35}{historygetdouble4}( file = file, &
7088     & varname = varname, array = array, &
7089     & range = time\_range, quiet = quiet, &
7090     & flag\_mpi\_split = flag\_mpi\_split, &
7091     & returned\_time = returned\_time, &
7092     & flag\_time\_exist = flag\_time\_exist, &
7093     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_abeb57bd6e5207813f0f4f4dfdd9371b7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}\label{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5@{historygetdouble5}}
\index{historygetdouble5@{historygetdouble5}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5()}{historygetdouble5()}}
{\footnotesize\ttfamily subroutine historygetdouble5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1003 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble5timed(), historygetdouble5timei(), and historygetdouble5timer().


\begin{DoxyCode}
1003   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1004   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1005   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1006   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1007   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1008   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1009   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1010   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1011   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1012   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1013     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1014   \textcolor{keywordtype}{implicit none}
1015   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1016   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1017   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1018   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
1019   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1020   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
1021   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1022   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1023   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
1024   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
1025   \textcolor{keywordtype}{integer}:: array\_allsize
1026   \textcolor{keywordtype}{integer}:: array\_shape(5), data\_shape(5), array\_shape\_check(5)
1027   \textcolor{keywordtype}{integer}:: allcount
1028   \textcolor{keywordtype}{integer}:: i, sd
1029   \textcolor{keywordtype}{logical}:: inq\_err
1030   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
1031   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
1032   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
1033   \textcolor{keywordtype}{integer}:: domain
1034   \textcolor{keywordtype}{character(STRING)}:: tname
1035   \textcolor{keywordtype}{integer}:: stat
1036   \textcolor{keywordtype}{character(STRING)}:: cause\_c
1037   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5"}
1038   \textcolor{keyword}{interface}
1039 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
1040       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1041       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1042       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
1043       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1044       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1045       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
1046       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1047 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
1048 \textcolor{keyword}{  end interface}
1049   \textcolor{keyword}{interface}
1050 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
1051       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1052       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
1053       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
1054       \textcolor{comment}{! 正確な入出力範囲指定}
1055       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
1056       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
1057       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
1058 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
1059 \textcolor{keyword}{  end interface}
1060   \textcolor{keyword}{interface}
1061 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
1062       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1063       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1064       \textcolor{keywordtype}{character(STRING)}:: result
1065 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
1066 \textcolor{keyword}{  end interface}
1067   \textcolor{keywordflow}{continue}
1068   cause\_c = \textcolor{stringliteral}{''}
1069   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1070   file\_work = file
1071   array\_shape = shape( array )
1072   array\_allsize = \textcolor{keyword}{size}( array )
1073   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
1074   \textcolor{comment}{! Change filename (for MPI)}
1075   \textcolor{comment}{!}
1076   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
1077     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
1078   \textcolor{comment}{! 最新時刻の URL 取得}
1079   \textcolor{comment}{! Get URL of latest time}
1080   \textcolor{comment}{!}
1081   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
1082     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
1083   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1084     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1085     cause\_c = url
1086     \textcolor{keywordflow}{goto} 999
1087 \textcolor{keywordflow}{  end if}
1088   \textcolor{comment}{! ファイルオープン}
1089   \textcolor{comment}{! File open}
1090   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
1091   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1092     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1093     cause\_c = url
1094     \textcolor{keywordflow}{goto} 999
1095 \textcolor{keywordflow}{  end if}
1096   \textcolor{comment}{!-------------------------------------------------------------------}
1097   \textcolor{comment}{!  配列形状のチェック}
1098   \textcolor{comment}{!  Check array shape}
1099   \textcolor{comment}{!-------------------------------------------------------------------}
1100   \textcolor{comment}{! 入力ファイル中のデータの次元数}
1101   \textcolor{comment}{! Get size of dimesions in data of an input file}
1102   \textcolor{comment}{!}
1103   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
1104     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
1105   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
1106   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
1107   array\_rank = 5
1108   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
1109   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
1110   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
1111   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
1112   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
1113   \textcolor{comment}{! 次元数の比較}
1114   \textcolor{comment}{! Compare sizes of dimensions}
1115   \textcolor{comment}{!}
1116   \textcolor{keywordflow}{if} ( .not. 5 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
1117     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1118       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1119         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
1120         & i = (/rank, 5/), c1 = trim(url) )
1121 \textcolor{keywordflow}{    end if}
1122     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1123     cause\_c = \textcolor{stringliteral}{'array'}
1124     \textcolor{keywordflow}{goto} 999
1125 \textcolor{keywordflow}{  end if}
1126   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
1127   \textcolor{comment}{! Get shape of data in an input file}
1128   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
1129     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1130   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1131     data\_shape(1) = allcount
1132   \textcolor{keywordflow}{else}
1133     data\_shape(1) = 1
1134 \textcolor{keywordflow}{  end if}
1135   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
1136     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1137   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1138     data\_shape(2) = allcount
1139   \textcolor{keywordflow}{else}
1140     data\_shape(2) = 1
1141 \textcolor{keywordflow}{  end if}
1142   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
1143     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1144   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1145     data\_shape(3) = allcount
1146   \textcolor{keywordflow}{else}
1147     data\_shape(3) = 1
1148 \textcolor{keywordflow}{  end if}
1149   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
1150     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1151   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1152     data\_shape(4) = allcount
1153   \textcolor{keywordflow}{else}
1154     data\_shape(4) = 1
1155 \textcolor{keywordflow}{  end if}
1156   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
1157     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1158   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1159     data\_shape(5) = allcount
1160   \textcolor{keywordflow}{else}
1161     data\_shape(5) = 1
1162 \textcolor{keywordflow}{  end if}
1163   \textcolor{comment}{! 引数の配列形状整形}
1164   \textcolor{comment}{! Arrange shape of an argument}
1165   \textcolor{comment}{!}
1166   array\_shape\_check = array\_shape
1167   sd = 1
1168   \textcolor{keywordflow}{do} i = 1, 5 - 1
1169     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
1170       array\_shape\_check(sd:5) = cshift( array\_shape\_check(sd:5), 1, 1 )
1171     \textcolor{keywordflow}{else}
1172       sd = sd + 1
1173 \textcolor{keywordflow}{    end if}
1174 \textcolor{keywordflow}{  end do}
1175   \textcolor{comment}{! 配列形状の比較}
1176   \textcolor{comment}{! Compare shapes}
1177   \textcolor{comment}{!}
1178   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
1179     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1180       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1181         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
1182         & c1 = trim( url ), &
1183         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
1184         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
1185 \textcolor{keywordflow}{    end if}
1186     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1187     cause\_c = \textcolor{stringliteral}{'array'}
1188     \textcolor{keywordflow}{goto} 999
1189 \textcolor{keywordflow}{  end if}
1190   \textcolor{comment}{!-------------------------------------}
1191   \textcolor{comment}{!  データ取得}
1192   \textcolor{comment}{!  Get data}
1193   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
1194     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
1195   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
1196   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
1197   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
1198   array = reshape( array\_tmp, array\_shape )
1199   \textcolor{keyword}{deallocate}( array\_tmp )
1200   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
1201   \textcolor{comment}{!-------------------------------------}
1202   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
1203   \textcolor{comment}{!  Print data filename and clipping range}
1204   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
1205     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
1206     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
1207     & err = err)                   \textcolor{comment}{! (out) optional}
1208   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1209     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
1210 \textcolor{keywordflow}{  end if}
1211 999 \textcolor{keywordflow}{continue}
1212   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}\label{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5pointer@{historygetdouble5pointer}}
\index{historygetdouble5pointer@{historygetdouble5pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5pointer()}{historygetdouble5pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble5pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5210 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble5pointertimed(), historygetdouble5pointertimei(), and historygetdouble5pointertimer().


\begin{DoxyCode}
5210   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5211   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5212   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5213   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5214   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5215   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5216   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5217   \textcolor{keywordtype}{implicit none}
5218   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5219   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5220   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5221   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5222   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5223   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5224   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5225   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5226   \textcolor{keywordtype}{integer}:: domain
5227   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:) \textcolor{comment}{! (out)}
5228   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5229   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5230   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5231   \textcolor{keywordtype}{character(STRING)}:: tname
5232   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5Pointer"}
5233   \textcolor{keyword}{interface}
5234 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5235       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5236       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5237       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5238       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5239       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5240       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5241       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5242 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5243 \textcolor{keyword}{  end interface}
5244   \textcolor{keyword}{interface}
5245 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5246       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5247       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5248       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5249       \textcolor{comment}{! 正確な入出力範囲指定}
5250       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5251       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5252       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5253 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5254 \textcolor{keyword}{  end interface}
5255   \textcolor{keyword}{interface}
5256 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5257       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5258       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5259       \textcolor{keywordtype}{character(STRING)}:: result
5260 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5261 \textcolor{keyword}{  end interface}
5262   \textcolor{keywordflow}{continue}
5263   file\_work = file
5264   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5265   \textcolor{comment}{! Change filename (for MPI)}
5266   \textcolor{comment}{!}
5267   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5268     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5269   \textcolor{comment}{! 必要な情報を gtool 変数化}
5270   \textcolor{comment}{!}
5271   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5272     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5273   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5274   \textcolor{comment}{! いよいよデータ取得}
5275   \textcolor{comment}{!}
5276   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5277   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5278   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5279   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5280     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5281     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5282     & err = err)                   \textcolor{comment}{! (out) optional}
5283   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5284     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5285 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8e21eb035c11e8ca04c73d69890b2379}\label{historyget_8f90_a8e21eb035c11e8ca04c73d69890b2379}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5pointertimed@{historygetdouble5pointertimed}}
\index{historygetdouble5pointertimed@{historygetdouble5pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5pointertimed()}{historygetdouble5pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble5pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11354 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11354   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11355   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11356   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11357   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11358   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11359   \textcolor{keywordtype}{implicit none}
11360   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11361   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11362   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11363   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
11364   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11365   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11366   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11367   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11368   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11369   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11370   \textcolor{keywordtype}{character(STRING)}:: tname
11371   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeD"}
11372   \textcolor{keyword}{interface}
11373 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}(&
11374       & file, varname, array, range, quiet, &
11375       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11376       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11377       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11378       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11379       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11380       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11381       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11382       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11383       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11384       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11385       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
11386 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}
11387 \textcolor{keyword}{  end interface}
11388   \textcolor{keyword}{interface}
11389 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11390       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11391       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11392       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11393       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11394       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11395       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11396       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11397 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11398 \textcolor{keyword}{  end interface}
11399   \textcolor{keyword}{interface}
11400 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11401       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11402       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11403       \textcolor{keywordtype}{character(STRING)}:: result
11404 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11405 \textcolor{keyword}{  end interface}
11406   \textcolor{keywordflow}{continue}
11407   file\_work = file
11408   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11409     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11410   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11411     & url = url, &
11412     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11413   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11414     & fullname = url, iorange = iorange, remainder = remainder )
11415   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11416   timevar\_name = carray(1)
11417   \textcolor{keyword}{deallocate}( carray )
11418   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11419   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}( file = file, &
11420     & varname = varname, array = array, &
11421     & range = time\_range, quiet = quiet, &
11422     & flag\_mpi\_split = flag\_mpi\_split, &
11423     & returned\_time = returned\_time, &
11424     & flag\_time\_exist = flag\_time\_exist, &
11425     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8e21eb035c11e8ca04c73d69890b2379_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acd92ef1abbf732face4dae7e3ca731f6}\label{historyget_8f90_acd92ef1abbf732face4dae7e3ca731f6}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5pointertimei@{historygetdouble5pointertimei}}
\index{historygetdouble5pointertimei@{historygetdouble5pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5pointertimei()}{historygetdouble5pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble5pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15002 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15002   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15003   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15004   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15005   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15006   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15007   \textcolor{keywordtype}{implicit none}
15008   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15009   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15010   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15011   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
15012   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15013   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15014   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15015   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15016   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15017   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15018   \textcolor{keywordtype}{character(STRING)}:: tname
15019   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeI"}
15020   \textcolor{keyword}{interface}
15021 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}(&
15022       & file, varname, array, range, quiet, &
15023       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15024       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15025       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15026       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15027       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15028       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15029       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15030       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15031       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15032       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15033       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
15034 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}
15035 \textcolor{keyword}{  end interface}
15036   \textcolor{keyword}{interface}
15037 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15038       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15039       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15040       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15041       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15042       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15043       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15044       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15045 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15046 \textcolor{keyword}{  end interface}
15047   \textcolor{keyword}{interface}
15048 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15049       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15050       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15051       \textcolor{keywordtype}{character(STRING)}:: result
15052 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15053 \textcolor{keyword}{  end interface}
15054   \textcolor{keywordflow}{continue}
15055   file\_work = file
15056   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15057     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15058   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15059     & url = url, &
15060     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15061   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15062     & fullname = url, iorange = iorange, remainder = remainder )
15063   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15064   timevar\_name = carray(1)
15065   \textcolor{keyword}{deallocate}( carray )
15066   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15067   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}( file = file, &
15068     & varname = varname, array = array, &
15069     & range = time\_range, quiet = quiet, &
15070     & flag\_mpi\_split = flag\_mpi\_split, &
15071     & returned\_time = returned\_time, &
15072     & flag\_time\_exist = flag\_time\_exist, &
15073     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acd92ef1abbf732face4dae7e3ca731f6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab039c3506ad9f7909fb32afe4a7ff459}\label{historyget_8f90_ab039c3506ad9f7909fb32afe4a7ff459}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5pointertimer@{historygetdouble5pointertimer}}
\index{historygetdouble5pointertimer@{historygetdouble5pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5pointertimer()}{historygetdouble5pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble5pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7706 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7706   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7707   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7708   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7709   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7710   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7711   \textcolor{keywordtype}{implicit none}
7712   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7713   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7714   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7715   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
7716   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7717   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7718   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7719   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7720   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7721   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7722   \textcolor{keywordtype}{character(STRING)}:: tname
7723   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeR"}
7724   \textcolor{keyword}{interface}
7725 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}(&
7726       & file, varname, array, range, quiet, &
7727       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7728       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7729       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7730       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7731       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7732       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7733       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7734       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7735       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7736       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7737       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
7738 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}
7739 \textcolor{keyword}{  end interface}
7740   \textcolor{keyword}{interface}
7741 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7742       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7743       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7744       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7745       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7746       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7747       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7748       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7749 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7750 \textcolor{keyword}{  end interface}
7751   \textcolor{keyword}{interface}
7752 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7753       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7754       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7755       \textcolor{keywordtype}{character(STRING)}:: result
7756 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7757 \textcolor{keyword}{  end interface}
7758   \textcolor{keywordflow}{continue}
7759   file\_work = file
7760   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7761     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7762   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7763     & url = url, &
7764     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7765   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7766     & fullname = url, iorange = iorange, remainder = remainder )
7767   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7768   timevar\_name = carray(1)
7769   \textcolor{keyword}{deallocate}( carray )
7770   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7771   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad497784722f0ab0bb850e0dfc769cf8c}{historygetdouble5pointer}( file = file, &
7772     & varname = varname, array = array, &
7773     & range = time\_range, quiet = quiet, &
7774     & flag\_mpi\_split = flag\_mpi\_split, &
7775     & returned\_time = returned\_time, &
7776     & flag\_time\_exist = flag\_time\_exist, &
7777     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab039c3506ad9f7909fb32afe4a7ff459_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a2323282c5bdf5ab9f9f1a83ceb6eb3ce}\label{historyget_8f90_a2323282c5bdf5ab9f9f1a83ceb6eb3ce}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5timed@{historygetdouble5timed}}
\index{historygetdouble5timed@{historygetdouble5timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5timed()}{historygetdouble5timed()}}
{\footnotesize\ttfamily subroutine historygetdouble5timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10746 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10746   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10747   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10748   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10749   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10750   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10751   \textcolor{keywordtype}{implicit none}
10752   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10753   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10754   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10755   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
10756   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10757   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10758   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10759   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10760   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10761   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10762   \textcolor{keywordtype}{character(STRING)}:: tname
10763   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeD"}
10764   \textcolor{keyword}{interface}
10765 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}(&
10766       & file, varname, array, range, quiet, &
10767       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10768       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10769       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10770       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10771       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10772       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10773       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10774       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10775       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10776       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10777       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
10778 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}
10779 \textcolor{keyword}{  end interface}
10780   \textcolor{keyword}{interface}
10781 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10782       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10783       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10784       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10785       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10786       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10787       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10788       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10789 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10790 \textcolor{keyword}{  end interface}
10791   \textcolor{keyword}{interface}
10792 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10793       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10794       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10795       \textcolor{keywordtype}{character(STRING)}:: result
10796 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10797 \textcolor{keyword}{  end interface}
10798   \textcolor{keywordflow}{continue}
10799   file\_work = file
10800   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10801     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10802   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10803     & url = url, &
10804     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10805   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10806     & fullname = url, iorange = iorange, remainder = remainder )
10807   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10808   timevar\_name = carray(1)
10809   \textcolor{keyword}{deallocate}( carray )
10810   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10811   \textcolor{keyword}{call }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}( file = file, &
10812     & varname = varname, array = array, &
10813     & range = time\_range, quiet = quiet, &
10814     & flag\_mpi\_split = flag\_mpi\_split, &
10815     & returned\_time = returned\_time, &
10816     & flag\_time\_exist = flag\_time\_exist, &
10817     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a2323282c5bdf5ab9f9f1a83ceb6eb3ce_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a33cd3d00de0b04c2cb7c014c15ce609a}\label{historyget_8f90_a33cd3d00de0b04c2cb7c014c15ce609a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5timei@{historygetdouble5timei}}
\index{historygetdouble5timei@{historygetdouble5timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5timei()}{historygetdouble5timei()}}
{\footnotesize\ttfamily subroutine historygetdouble5timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14394 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14394   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14395   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14396   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14397   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14398   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14399   \textcolor{keywordtype}{implicit none}
14400   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14401   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14402   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14403   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
14404   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14405   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14406   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14407   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14408   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14409   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14410   \textcolor{keywordtype}{character(STRING)}:: tname
14411   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeI"}
14412   \textcolor{keyword}{interface}
14413 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}(&
14414       & file, varname, array, range, quiet, &
14415       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14416       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14417       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14418       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14419       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14420       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14421       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14422       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14423       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14424       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14425       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
14426 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}
14427 \textcolor{keyword}{  end interface}
14428   \textcolor{keyword}{interface}
14429 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14430       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14431       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14432       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14433       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14434       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14435       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14436       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14437 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14438 \textcolor{keyword}{  end interface}
14439   \textcolor{keyword}{interface}
14440 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14441       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14442       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14443       \textcolor{keywordtype}{character(STRING)}:: result
14444 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14445 \textcolor{keyword}{  end interface}
14446   \textcolor{keywordflow}{continue}
14447   file\_work = file
14448   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14449     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14450   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14451     & url = url, &
14452     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14453   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14454     & fullname = url, iorange = iorange, remainder = remainder )
14455   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14456   timevar\_name = carray(1)
14457   \textcolor{keyword}{deallocate}( carray )
14458   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14459   \textcolor{keyword}{call }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}( file = file, &
14460     & varname = varname, array = array, &
14461     & range = time\_range, quiet = quiet, &
14462     & flag\_mpi\_split = flag\_mpi\_split, &
14463     & returned\_time = returned\_time, &
14464     & flag\_time\_exist = flag\_time\_exist, &
14465     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a33cd3d00de0b04c2cb7c014c15ce609a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a55cf94c49b5a3d22f28650986a052041}\label{historyget_8f90_a55cf94c49b5a3d22f28650986a052041}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble5timer@{historygetdouble5timer}}
\index{historygetdouble5timer@{historygetdouble5timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble5timer()}{historygetdouble5timer()}}
{\footnotesize\ttfamily subroutine historygetdouble5timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7098 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7098   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7099   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7100   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7101   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7102   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7103   \textcolor{keywordtype}{implicit none}
7104   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7105   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7106   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7107   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
7108   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7109   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7110   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7111   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7112   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7113   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7114   \textcolor{keywordtype}{character(STRING)}:: tname
7115   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble5TimeR"}
7116   \textcolor{keyword}{interface}
7117 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}(&
7118       & file, varname, array, range, quiet, &
7119       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7120       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7121       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7122       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7123       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7124       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7125       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7126       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7127       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7128       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7129       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
7130 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}
7131 \textcolor{keyword}{  end interface}
7132   \textcolor{keyword}{interface}
7133 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7134       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7135       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7136       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7137       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7138       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7139       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7140       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7141 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7142 \textcolor{keyword}{  end interface}
7143   \textcolor{keyword}{interface}
7144 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7145       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7146       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7147       \textcolor{keywordtype}{character(STRING)}:: result
7148 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7149 \textcolor{keyword}{  end interface}
7150   \textcolor{keywordflow}{continue}
7151   file\_work = file
7152   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7153     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7154   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7155     & url = url, &
7156     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7157   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7158     & fullname = url, iorange = iorange, remainder = remainder )
7159   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7160   timevar\_name = carray(1)
7161   \textcolor{keyword}{deallocate}( carray )
7162   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7163   \textcolor{keyword}{call }\hyperlink{historyget_8f90_af74e85bb0e53820470f2ef2f5d1c6711}{historygetdouble5}( file = file, &
7164     & varname = varname, array = array, &
7165     & range = time\_range, quiet = quiet, &
7166     & flag\_mpi\_split = flag\_mpi\_split, &
7167     & returned\_time = returned\_time, &
7168     & flag\_time\_exist = flag\_time\_exist, &
7169     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a55cf94c49b5a3d22f28650986a052041_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}\label{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6@{historygetdouble6}}
\index{historygetdouble6@{historygetdouble6}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6()}{historygetdouble6()}}
{\footnotesize\ttfamily subroutine historygetdouble6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1216 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble6timed(), historygetdouble6timei(), and historygetdouble6timer().


\begin{DoxyCode}
1216   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1217   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1218   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1219   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1220   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1221   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1222   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1223   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1224   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1225   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1226     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1227   \textcolor{keywordtype}{implicit none}
1228   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1229   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1230   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1231   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
1232   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1233   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
1234   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1235   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1236   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
1237   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
1238   \textcolor{keywordtype}{integer}:: array\_allsize
1239   \textcolor{keywordtype}{integer}:: array\_shape(6), data\_shape(6), array\_shape\_check(6)
1240   \textcolor{keywordtype}{integer}:: allcount
1241   \textcolor{keywordtype}{integer}:: i, sd
1242   \textcolor{keywordtype}{logical}:: inq\_err
1243   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
1244   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
1245   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
1246   \textcolor{keywordtype}{integer}:: domain
1247   \textcolor{keywordtype}{character(STRING)}:: tname
1248   \textcolor{keywordtype}{integer}:: stat
1249   \textcolor{keywordtype}{character(STRING)}:: cause\_c
1250   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6"}
1251   \textcolor{keyword}{interface}
1252 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
1253       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1254       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1255       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
1256       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1257       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1258       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
1259       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1260 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
1261 \textcolor{keyword}{  end interface}
1262   \textcolor{keyword}{interface}
1263 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
1264       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1265       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
1266       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
1267       \textcolor{comment}{! 正確な入出力範囲指定}
1268       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
1269       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
1270       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
1271 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
1272 \textcolor{keyword}{  end interface}
1273   \textcolor{keyword}{interface}
1274 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
1275       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1276       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1277       \textcolor{keywordtype}{character(STRING)}:: result
1278 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
1279 \textcolor{keyword}{  end interface}
1280   \textcolor{keywordflow}{continue}
1281   cause\_c = \textcolor{stringliteral}{''}
1282   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1283   file\_work = file
1284   array\_shape = shape( array )
1285   array\_allsize = \textcolor{keyword}{size}( array )
1286   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
1287   \textcolor{comment}{! Change filename (for MPI)}
1288   \textcolor{comment}{!}
1289   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
1290     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
1291   \textcolor{comment}{! 最新時刻の URL 取得}
1292   \textcolor{comment}{! Get URL of latest time}
1293   \textcolor{comment}{!}
1294   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
1295     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
1296   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1297     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1298     cause\_c = url
1299     \textcolor{keywordflow}{goto} 999
1300 \textcolor{keywordflow}{  end if}
1301   \textcolor{comment}{! ファイルオープン}
1302   \textcolor{comment}{! File open}
1303   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
1304   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1305     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1306     cause\_c = url
1307     \textcolor{keywordflow}{goto} 999
1308 \textcolor{keywordflow}{  end if}
1309   \textcolor{comment}{!-------------------------------------------------------------------}
1310   \textcolor{comment}{!  配列形状のチェック}
1311   \textcolor{comment}{!  Check array shape}
1312   \textcolor{comment}{!-------------------------------------------------------------------}
1313   \textcolor{comment}{! 入力ファイル中のデータの次元数}
1314   \textcolor{comment}{! Get size of dimesions in data of an input file}
1315   \textcolor{comment}{!}
1316   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
1317     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
1318   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
1319   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
1320   array\_rank = 6
1321   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
1322   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
1323   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
1324   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
1325   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
1326   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
1327   \textcolor{comment}{! 次元数の比較}
1328   \textcolor{comment}{! Compare sizes of dimensions}
1329   \textcolor{comment}{!}
1330   \textcolor{keywordflow}{if} ( .not. 6 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
1331     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1332       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1333         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
1334         & i = (/rank, 6/), c1 = trim(url) )
1335 \textcolor{keywordflow}{    end if}
1336     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1337     cause\_c = \textcolor{stringliteral}{'array'}
1338     \textcolor{keywordflow}{goto} 999
1339 \textcolor{keywordflow}{  end if}
1340   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
1341   \textcolor{comment}{! Get shape of data in an input file}
1342   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
1343     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1344   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1345     data\_shape(1) = allcount
1346   \textcolor{keywordflow}{else}
1347     data\_shape(1) = 1
1348 \textcolor{keywordflow}{  end if}
1349   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
1350     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1351   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1352     data\_shape(2) = allcount
1353   \textcolor{keywordflow}{else}
1354     data\_shape(2) = 1
1355 \textcolor{keywordflow}{  end if}
1356   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
1357     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1358   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1359     data\_shape(3) = allcount
1360   \textcolor{keywordflow}{else}
1361     data\_shape(3) = 1
1362 \textcolor{keywordflow}{  end if}
1363   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
1364     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1365   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1366     data\_shape(4) = allcount
1367   \textcolor{keywordflow}{else}
1368     data\_shape(4) = 1
1369 \textcolor{keywordflow}{  end if}
1370   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
1371     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1372   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1373     data\_shape(5) = allcount
1374   \textcolor{keywordflow}{else}
1375     data\_shape(5) = 1
1376 \textcolor{keywordflow}{  end if}
1377   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
1378     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1379   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1380     data\_shape(6) = allcount
1381   \textcolor{keywordflow}{else}
1382     data\_shape(6) = 1
1383 \textcolor{keywordflow}{  end if}
1384   \textcolor{comment}{! 引数の配列形状整形}
1385   \textcolor{comment}{! Arrange shape of an argument}
1386   \textcolor{comment}{!}
1387   array\_shape\_check = array\_shape
1388   sd = 1
1389   \textcolor{keywordflow}{do} i = 1, 6 - 1
1390     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
1391       array\_shape\_check(sd:6) = cshift( array\_shape\_check(sd:6), 1, 1 )
1392     \textcolor{keywordflow}{else}
1393       sd = sd + 1
1394 \textcolor{keywordflow}{    end if}
1395 \textcolor{keywordflow}{  end do}
1396   \textcolor{comment}{! 配列形状の比較}
1397   \textcolor{comment}{! Compare shapes}
1398   \textcolor{comment}{!}
1399   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
1400     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1401       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1402         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
1403         & c1 = trim( url ), &
1404         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
1405         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
1406 \textcolor{keywordflow}{    end if}
1407     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1408     cause\_c = \textcolor{stringliteral}{'array'}
1409     \textcolor{keywordflow}{goto} 999
1410 \textcolor{keywordflow}{  end if}
1411   \textcolor{comment}{!-------------------------------------}
1412   \textcolor{comment}{!  データ取得}
1413   \textcolor{comment}{!  Get data}
1414   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
1415     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
1416   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
1417   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
1418   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
1419   array = reshape( array\_tmp, array\_shape )
1420   \textcolor{keyword}{deallocate}( array\_tmp )
1421   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
1422   \textcolor{comment}{!-------------------------------------}
1423   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
1424   \textcolor{comment}{!  Print data filename and clipping range}
1425   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
1426     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
1427     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
1428     & err = err)                   \textcolor{comment}{! (out) optional}
1429   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1430     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
1431 \textcolor{keywordflow}{  end if}
1432 999 \textcolor{keywordflow}{continue}
1433   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}\label{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6pointer@{historygetdouble6pointer}}
\index{historygetdouble6pointer@{historygetdouble6pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6pointer()}{historygetdouble6pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble6pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5289 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble6pointertimed(), historygetdouble6pointertimei(), and historygetdouble6pointertimer().


\begin{DoxyCode}
5289   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5290   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5291   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5292   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5293   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5294   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5295   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5296   \textcolor{keywordtype}{implicit none}
5297   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5298   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5299   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5300   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5301   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5302   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5303   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5304   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5305   \textcolor{keywordtype}{integer}:: domain
5306   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:) \textcolor{comment}{! (out)}
5307   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5308   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5309   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5310   \textcolor{keywordtype}{character(STRING)}:: tname
5311   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6Pointer"}
5312   \textcolor{keyword}{interface}
5313 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5314       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5315       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5316       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5317       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5318       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5319       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5320       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5321 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5322 \textcolor{keyword}{  end interface}
5323   \textcolor{keyword}{interface}
5324 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5325       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5326       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5327       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5328       \textcolor{comment}{! 正確な入出力範囲指定}
5329       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5330       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5331       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5332 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5333 \textcolor{keyword}{  end interface}
5334   \textcolor{keyword}{interface}
5335 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5336       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5337       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5338       \textcolor{keywordtype}{character(STRING)}:: result
5339 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5340 \textcolor{keyword}{  end interface}
5341   \textcolor{keywordflow}{continue}
5342   file\_work = file
5343   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5344   \textcolor{comment}{! Change filename (for MPI)}
5345   \textcolor{comment}{!}
5346   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5347     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5348   \textcolor{comment}{! 必要な情報を gtool 変数化}
5349   \textcolor{comment}{!}
5350   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5351     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5352   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5353   \textcolor{comment}{! いよいよデータ取得}
5354   \textcolor{comment}{!}
5355   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5356   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5357   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5358   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5359     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5360     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5361     & err = err)                   \textcolor{comment}{! (out) optional}
5362   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5363     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5364 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a00650769352c6906a2d1a283d722b4a0}\label{historyget_8f90_a00650769352c6906a2d1a283d722b4a0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6pointertimed@{historygetdouble6pointertimed}}
\index{historygetdouble6pointertimed@{historygetdouble6pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6pointertimed()}{historygetdouble6pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble6pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11430 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11430   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11431   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11432   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11433   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11434   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11435   \textcolor{keywordtype}{implicit none}
11436   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11437   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11438   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11439   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
11440   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11441   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11442   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11443   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11444   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11445   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11446   \textcolor{keywordtype}{character(STRING)}:: tname
11447   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeD"}
11448   \textcolor{keyword}{interface}
11449 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}(&
11450       & file, varname, array, range, quiet, &
11451       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11452       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11453       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11454       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11455       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11456       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11457       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11458       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11459       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11460       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11461       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
11462 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}
11463 \textcolor{keyword}{  end interface}
11464   \textcolor{keyword}{interface}
11465 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11466       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11467       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11468       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11469       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11470       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11471       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11472       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11473 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11474 \textcolor{keyword}{  end interface}
11475   \textcolor{keyword}{interface}
11476 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11477       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11478       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11479       \textcolor{keywordtype}{character(STRING)}:: result
11480 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11481 \textcolor{keyword}{  end interface}
11482   \textcolor{keywordflow}{continue}
11483   file\_work = file
11484   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11485     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11486   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11487     & url = url, &
11488     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11489   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11490     & fullname = url, iorange = iorange, remainder = remainder )
11491   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11492   timevar\_name = carray(1)
11493   \textcolor{keyword}{deallocate}( carray )
11494   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11495   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}( file = file, &
11496     & varname = varname, array = array, &
11497     & range = time\_range, quiet = quiet, &
11498     & flag\_mpi\_split = flag\_mpi\_split, &
11499     & returned\_time = returned\_time, &
11500     & flag\_time\_exist = flag\_time\_exist, &
11501     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a00650769352c6906a2d1a283d722b4a0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a634f265192047feccbd7e526a1fe09ab}\label{historyget_8f90_a634f265192047feccbd7e526a1fe09ab}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6pointertimei@{historygetdouble6pointertimei}}
\index{historygetdouble6pointertimei@{historygetdouble6pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6pointertimei()}{historygetdouble6pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble6pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15078 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15078   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15079   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15080   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15081   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15082   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15083   \textcolor{keywordtype}{implicit none}
15084   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15085   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15086   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15087   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
15088   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15089   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15090   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15091   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15092   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15093   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15094   \textcolor{keywordtype}{character(STRING)}:: tname
15095   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeI"}
15096   \textcolor{keyword}{interface}
15097 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}(&
15098       & file, varname, array, range, quiet, &
15099       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15100       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15101       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15102       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15103       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15104       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15105       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15106       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15107       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15108       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15109       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
15110 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}
15111 \textcolor{keyword}{  end interface}
15112   \textcolor{keyword}{interface}
15113 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15114       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15115       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15116       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15117       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15118       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15119       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15120       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15121 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15122 \textcolor{keyword}{  end interface}
15123   \textcolor{keyword}{interface}
15124 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15125       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15126       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15127       \textcolor{keywordtype}{character(STRING)}:: result
15128 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15129 \textcolor{keyword}{  end interface}
15130   \textcolor{keywordflow}{continue}
15131   file\_work = file
15132   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15133     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15134   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15135     & url = url, &
15136     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15137   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15138     & fullname = url, iorange = iorange, remainder = remainder )
15139   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15140   timevar\_name = carray(1)
15141   \textcolor{keyword}{deallocate}( carray )
15142   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15143   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}( file = file, &
15144     & varname = varname, array = array, &
15145     & range = time\_range, quiet = quiet, &
15146     & flag\_mpi\_split = flag\_mpi\_split, &
15147     & returned\_time = returned\_time, &
15148     & flag\_time\_exist = flag\_time\_exist, &
15149     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a634f265192047feccbd7e526a1fe09ab_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aad0911802113761611ed6f4a2759579a}\label{historyget_8f90_aad0911802113761611ed6f4a2759579a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6pointertimer@{historygetdouble6pointertimer}}
\index{historygetdouble6pointertimer@{historygetdouble6pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6pointertimer()}{historygetdouble6pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble6pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7782 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7782   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7783   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7784   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7785   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7786   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7787   \textcolor{keywordtype}{implicit none}
7788   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7789   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7790   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7791   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
7792   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7793   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7794   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7795   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7796   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7797   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7798   \textcolor{keywordtype}{character(STRING)}:: tname
7799   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeR"}
7800   \textcolor{keyword}{interface}
7801 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}(&
7802       & file, varname, array, range, quiet, &
7803       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7804       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7805       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7806       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7807       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7808       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7809       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7810       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7811       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7812       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7813       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
7814 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}
7815 \textcolor{keyword}{  end interface}
7816   \textcolor{keyword}{interface}
7817 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7818       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7819       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7820       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7821       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7822       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7823       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7824       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7825 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7826 \textcolor{keyword}{  end interface}
7827   \textcolor{keyword}{interface}
7828 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7829       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7830       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7831       \textcolor{keywordtype}{character(STRING)}:: result
7832 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7833 \textcolor{keyword}{  end interface}
7834   \textcolor{keywordflow}{continue}
7835   file\_work = file
7836   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7837     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7838   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7839     & url = url, &
7840     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7841   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7842     & fullname = url, iorange = iorange, remainder = remainder )
7843   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7844   timevar\_name = carray(1)
7845   \textcolor{keyword}{deallocate}( carray )
7846   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7847   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9d65c7dfef02da5c21c3f5aa78160d02}{historygetdouble6pointer}( file = file, &
7848     & varname = varname, array = array, &
7849     & range = time\_range, quiet = quiet, &
7850     & flag\_mpi\_split = flag\_mpi\_split, &
7851     & returned\_time = returned\_time, &
7852     & flag\_time\_exist = flag\_time\_exist, &
7853     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aad0911802113761611ed6f4a2759579a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6b72cb469c5ca6f263d7ca0c1393375d}\label{historyget_8f90_a6b72cb469c5ca6f263d7ca0c1393375d}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6timed@{historygetdouble6timed}}
\index{historygetdouble6timed@{historygetdouble6timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6timed()}{historygetdouble6timed()}}
{\footnotesize\ttfamily subroutine historygetdouble6timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10822 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10822   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10823   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10824   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10825   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10826   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10827   \textcolor{keywordtype}{implicit none}
10828   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10829   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10830   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10831   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
10832   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10833   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10834   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10835   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10836   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10837   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10838   \textcolor{keywordtype}{character(STRING)}:: tname
10839   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeD"}
10840   \textcolor{keyword}{interface}
10841 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}(&
10842       & file, varname, array, range, quiet, &
10843       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10844       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10845       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10846       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10847       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10848       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10849       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10850       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10851       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10852       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10853       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
10854 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}
10855 \textcolor{keyword}{  end interface}
10856   \textcolor{keyword}{interface}
10857 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10858       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10859       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10860       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10861       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10862       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10863       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10864       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10865 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10866 \textcolor{keyword}{  end interface}
10867   \textcolor{keyword}{interface}
10868 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10869       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10870       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10871       \textcolor{keywordtype}{character(STRING)}:: result
10872 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10873 \textcolor{keyword}{  end interface}
10874   \textcolor{keywordflow}{continue}
10875   file\_work = file
10876   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10877     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10878   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10879     & url = url, &
10880     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10881   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10882     & fullname = url, iorange = iorange, remainder = remainder )
10883   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10884   timevar\_name = carray(1)
10885   \textcolor{keyword}{deallocate}( carray )
10886   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10887   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}( file = file, &
10888     & varname = varname, array = array, &
10889     & range = time\_range, quiet = quiet, &
10890     & flag\_mpi\_split = flag\_mpi\_split, &
10891     & returned\_time = returned\_time, &
10892     & flag\_time\_exist = flag\_time\_exist, &
10893     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6b72cb469c5ca6f263d7ca0c1393375d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a23e21ebbbf3f5a475bd29e5a88923aab}\label{historyget_8f90_a23e21ebbbf3f5a475bd29e5a88923aab}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6timei@{historygetdouble6timei}}
\index{historygetdouble6timei@{historygetdouble6timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6timei()}{historygetdouble6timei()}}
{\footnotesize\ttfamily subroutine historygetdouble6timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14470 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14470   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14471   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14472   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14473   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14474   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14475   \textcolor{keywordtype}{implicit none}
14476   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14477   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14478   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14479   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
14480   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14481   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14482   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14483   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14484   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14485   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14486   \textcolor{keywordtype}{character(STRING)}:: tname
14487   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeI"}
14488   \textcolor{keyword}{interface}
14489 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}(&
14490       & file, varname, array, range, quiet, &
14491       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14492       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14493       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14494       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14495       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14496       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14497       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14498       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14499       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14500       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14501       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
14502 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}
14503 \textcolor{keyword}{  end interface}
14504   \textcolor{keyword}{interface}
14505 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14506       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14507       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14508       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14509       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14510       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14511       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14512       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14513 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14514 \textcolor{keyword}{  end interface}
14515   \textcolor{keyword}{interface}
14516 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14517       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14518       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14519       \textcolor{keywordtype}{character(STRING)}:: result
14520 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14521 \textcolor{keyword}{  end interface}
14522   \textcolor{keywordflow}{continue}
14523   file\_work = file
14524   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14525     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14526   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14527     & url = url, &
14528     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14529   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14530     & fullname = url, iorange = iorange, remainder = remainder )
14531   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14532   timevar\_name = carray(1)
14533   \textcolor{keyword}{deallocate}( carray )
14534   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14535   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}( file = file, &
14536     & varname = varname, array = array, &
14537     & range = time\_range, quiet = quiet, &
14538     & flag\_mpi\_split = flag\_mpi\_split, &
14539     & returned\_time = returned\_time, &
14540     & flag\_time\_exist = flag\_time\_exist, &
14541     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a23e21ebbbf3f5a475bd29e5a88923aab_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab359bda2a4f3385fc199ce608ba81c31}\label{historyget_8f90_ab359bda2a4f3385fc199ce608ba81c31}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble6timer@{historygetdouble6timer}}
\index{historygetdouble6timer@{historygetdouble6timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble6timer()}{historygetdouble6timer()}}
{\footnotesize\ttfamily subroutine historygetdouble6timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7174 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7174   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7175   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7176   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7177   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7178   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7179   \textcolor{keywordtype}{implicit none}
7180   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7181   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7182   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7183   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
7184   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7185   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7186   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7187   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7188   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7189   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7190   \textcolor{keywordtype}{character(STRING)}:: tname
7191   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble6TimeR"}
7192   \textcolor{keyword}{interface}
7193 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}(&
7194       & file, varname, array, range, quiet, &
7195       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7196       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7197       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7198       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7199       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7200       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7201       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7202       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7203       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7204       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7205       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
7206 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}
7207 \textcolor{keyword}{  end interface}
7208   \textcolor{keyword}{interface}
7209 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7210       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7211       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7212       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7213       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7214       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7215       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7216       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7217 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7218 \textcolor{keyword}{  end interface}
7219   \textcolor{keyword}{interface}
7220 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7221       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7222       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7223       \textcolor{keywordtype}{character(STRING)}:: result
7224 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7225 \textcolor{keyword}{  end interface}
7226   \textcolor{keywordflow}{continue}
7227   file\_work = file
7228   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7229     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7230   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7231     & url = url, &
7232     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7233   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7234     & fullname = url, iorange = iorange, remainder = remainder )
7235   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7236   timevar\_name = carray(1)
7237   \textcolor{keyword}{deallocate}( carray )
7238   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7239   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5fd1abc3fa8bdc53bd92f96aef19f937}{historygetdouble6}( file = file, &
7240     & varname = varname, array = array, &
7241     & range = time\_range, quiet = quiet, &
7242     & flag\_mpi\_split = flag\_mpi\_split, &
7243     & returned\_time = returned\_time, &
7244     & flag\_time\_exist = flag\_time\_exist, &
7245     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab359bda2a4f3385fc199ce608ba81c31_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}\label{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7@{historygetdouble7}}
\index{historygetdouble7@{historygetdouble7}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7()}{historygetdouble7()}}
{\footnotesize\ttfamily subroutine historygetdouble7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1437 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble7timed(), historygetdouble7timei(), and historygetdouble7timer().


\begin{DoxyCode}
1437   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1438   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1439   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1440   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1441   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1442   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1443   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1444   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1445   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1446   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1447     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1448   \textcolor{keywordtype}{implicit none}
1449   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1450   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1451   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1452   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
1453   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1454   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
1455   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1456   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1457   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
1458   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
1459   \textcolor{keywordtype}{integer}:: array\_allsize
1460   \textcolor{keywordtype}{integer}:: array\_shape(7), data\_shape(7), array\_shape\_check(7)
1461   \textcolor{keywordtype}{integer}:: allcount
1462   \textcolor{keywordtype}{integer}:: i, sd
1463   \textcolor{keywordtype}{logical}:: inq\_err
1464   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
1465   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
1466   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
1467   \textcolor{keywordtype}{integer}:: domain
1468   \textcolor{keywordtype}{character(STRING)}:: tname
1469   \textcolor{keywordtype}{integer}:: stat
1470   \textcolor{keywordtype}{character(STRING)}:: cause\_c
1471   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7"}
1472   \textcolor{keyword}{interface}
1473 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
1474       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1475       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1476       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
1477       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1478       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1479       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
1480       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1481 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
1482 \textcolor{keyword}{  end interface}
1483   \textcolor{keyword}{interface}
1484 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
1485       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1486       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
1487       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
1488       \textcolor{comment}{! 正確な入出力範囲指定}
1489       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
1490       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
1491       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
1492 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
1493 \textcolor{keyword}{  end interface}
1494   \textcolor{keyword}{interface}
1495 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
1496       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1497       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1498       \textcolor{keywordtype}{character(STRING)}:: result
1499 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
1500 \textcolor{keyword}{  end interface}
1501   \textcolor{keywordflow}{continue}
1502   cause\_c = \textcolor{stringliteral}{''}
1503   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1504   file\_work = file
1505   array\_shape = shape( array )
1506   array\_allsize = \textcolor{keyword}{size}( array )
1507   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
1508   \textcolor{comment}{! Change filename (for MPI)}
1509   \textcolor{comment}{!}
1510   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
1511     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
1512   \textcolor{comment}{! 最新時刻の URL 取得}
1513   \textcolor{comment}{! Get URL of latest time}
1514   \textcolor{comment}{!}
1515   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
1516     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
1517   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1518     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1519     cause\_c = url
1520     \textcolor{keywordflow}{goto} 999
1521 \textcolor{keywordflow}{  end if}
1522   \textcolor{comment}{! ファイルオープン}
1523   \textcolor{comment}{! File open}
1524   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
1525   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1526     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1527     cause\_c = url
1528     \textcolor{keywordflow}{goto} 999
1529 \textcolor{keywordflow}{  end if}
1530   \textcolor{comment}{!-------------------------------------------------------------------}
1531   \textcolor{comment}{!  配列形状のチェック}
1532   \textcolor{comment}{!  Check array shape}
1533   \textcolor{comment}{!-------------------------------------------------------------------}
1534   \textcolor{comment}{! 入力ファイル中のデータの次元数}
1535   \textcolor{comment}{! Get size of dimesions in data of an input file}
1536   \textcolor{comment}{!}
1537   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
1538     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
1539   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
1540   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
1541   array\_rank = 7
1542   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
1543   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
1544   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
1545   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
1546   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
1547   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
1548   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 7 ) == 1 ) array\_rank = array\_rank - 1
1549   \textcolor{comment}{! 次元数の比較}
1550   \textcolor{comment}{! Compare sizes of dimensions}
1551   \textcolor{comment}{!}
1552   \textcolor{keywordflow}{if} ( .not. 7 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
1553     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1554       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1555         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
1556         & i = (/rank, 7/), c1 = trim(url) )
1557 \textcolor{keywordflow}{    end if}
1558     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1559     cause\_c = \textcolor{stringliteral}{'array'}
1560     \textcolor{keywordflow}{goto} 999
1561 \textcolor{keywordflow}{  end if}
1562   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
1563   \textcolor{comment}{! Get shape of data in an input file}
1564   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
1565     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1566   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1567     data\_shape(1) = allcount
1568   \textcolor{keywordflow}{else}
1569     data\_shape(1) = 1
1570 \textcolor{keywordflow}{  end if}
1571   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
1572     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1573   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1574     data\_shape(2) = allcount
1575   \textcolor{keywordflow}{else}
1576     data\_shape(2) = 1
1577 \textcolor{keywordflow}{  end if}
1578   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
1579     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1580   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1581     data\_shape(3) = allcount
1582   \textcolor{keywordflow}{else}
1583     data\_shape(3) = 1
1584 \textcolor{keywordflow}{  end if}
1585   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
1586     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1587   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1588     data\_shape(4) = allcount
1589   \textcolor{keywordflow}{else}
1590     data\_shape(4) = 1
1591 \textcolor{keywordflow}{  end if}
1592   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
1593     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1594   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1595     data\_shape(5) = allcount
1596   \textcolor{keywordflow}{else}
1597     data\_shape(5) = 1
1598 \textcolor{keywordflow}{  end if}
1599   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
1600     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1601   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1602     data\_shape(6) = allcount
1603   \textcolor{keywordflow}{else}
1604     data\_shape(6) = 1
1605 \textcolor{keywordflow}{  end if}
1606   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 7, &   \textcolor{comment}{! (in)}
1607     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1608   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1609     data\_shape(7) = allcount
1610   \textcolor{keywordflow}{else}
1611     data\_shape(7) = 1
1612 \textcolor{keywordflow}{  end if}
1613   \textcolor{comment}{! 引数の配列形状整形}
1614   \textcolor{comment}{! Arrange shape of an argument}
1615   \textcolor{comment}{!}
1616   array\_shape\_check = array\_shape
1617   sd = 1
1618   \textcolor{keywordflow}{do} i = 1, 7 - 1
1619     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
1620       array\_shape\_check(sd:7) = cshift( array\_shape\_check(sd:7), 1, 1 )
1621     \textcolor{keywordflow}{else}
1622       sd = sd + 1
1623 \textcolor{keywordflow}{    end if}
1624 \textcolor{keywordflow}{  end do}
1625   \textcolor{comment}{! 配列形状の比較}
1626   \textcolor{comment}{! Compare shapes}
1627   \textcolor{comment}{!}
1628   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
1629     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1630       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1631         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
1632         & c1 = trim( url ), &
1633         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
1634         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
1635 \textcolor{keywordflow}{    end if}
1636     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1637     cause\_c = \textcolor{stringliteral}{'array'}
1638     \textcolor{keywordflow}{goto} 999
1639 \textcolor{keywordflow}{  end if}
1640   \textcolor{comment}{!-------------------------------------}
1641   \textcolor{comment}{!  データ取得}
1642   \textcolor{comment}{!  Get data}
1643   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
1644     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
1645   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
1646   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
1647   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
1648   array = reshape( array\_tmp, array\_shape )
1649   \textcolor{keyword}{deallocate}( array\_tmp )
1650   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
1651   \textcolor{comment}{!-------------------------------------}
1652   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
1653   \textcolor{comment}{!  Print data filename and clipping range}
1654   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
1655     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
1656     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
1657     & err = err)                   \textcolor{comment}{! (out) optional}
1658   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1659     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
1660 \textcolor{keywordflow}{  end if}
1661 999 \textcolor{keywordflow}{continue}
1662   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=326pt]{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}\label{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7pointer@{historygetdouble7pointer}}
\index{historygetdouble7pointer@{historygetdouble7pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7pointer()}{historygetdouble7pointer()}}
{\footnotesize\ttfamily subroutine historygetdouble7pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5368 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetdouble7pointertimed(), historygetdouble7pointertimei(), and historygetdouble7pointertimer().


\begin{DoxyCode}
5368   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5369   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5370   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5371   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5372   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5373   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5374   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5375   \textcolor{keywordtype}{implicit none}
5376   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5377   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5378   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5379   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5380   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5381   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5382   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5383   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5384   \textcolor{keywordtype}{integer}:: domain
5385   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:) \textcolor{comment}{! (out)}
5386   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5387   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5388   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5389   \textcolor{keywordtype}{character(STRING)}:: tname
5390   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7Pointer"}
5391   \textcolor{keyword}{interface}
5392 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5393       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5394       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5395       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5396       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5397       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5398       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5399       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5400 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5401 \textcolor{keyword}{  end interface}
5402   \textcolor{keyword}{interface}
5403 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5404       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5405       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5406       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5407       \textcolor{comment}{! 正確な入出力範囲指定}
5408       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5409       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5410       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5411 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5412 \textcolor{keyword}{  end interface}
5413   \textcolor{keyword}{interface}
5414 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5415       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5416       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5417       \textcolor{keywordtype}{character(STRING)}:: result
5418 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5419 \textcolor{keyword}{  end interface}
5420   \textcolor{keywordflow}{continue}
5421   file\_work = file
5422   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5423   \textcolor{comment}{! Change filename (for MPI)}
5424   \textcolor{comment}{!}
5425   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5426     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5427   \textcolor{comment}{! 必要な情報を gtool 変数化}
5428   \textcolor{comment}{!}
5429   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5430     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5431   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5432   \textcolor{comment}{! いよいよデータ取得}
5433   \textcolor{comment}{!}
5434   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5435   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5436   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5437   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5438     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5439     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5440     & err = err)                   \textcolor{comment}{! (out) optional}
5441   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5442     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5443 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a794fccad8bfa46d5f7a41356b3ad0762}\label{historyget_8f90_a794fccad8bfa46d5f7a41356b3ad0762}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7pointertimed@{historygetdouble7pointertimed}}
\index{historygetdouble7pointertimed@{historygetdouble7pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7pointertimed()}{historygetdouble7pointertimed()}}
{\footnotesize\ttfamily subroutine historygetdouble7pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11506 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11506   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11507   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11508   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11509   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11510   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11511   \textcolor{keywordtype}{implicit none}
11512   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11513   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11514   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11515   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
11516   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11517   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11518   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11519   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11520   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11521   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11522   \textcolor{keywordtype}{character(STRING)}:: tname
11523   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeD"}
11524   \textcolor{keyword}{interface}
11525 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}(&
11526       & file, varname, array, range, quiet, &
11527       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11528       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
11529       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11530       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11531       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11532       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11533       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11534       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11535       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11536       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11537       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
11538 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}
11539 \textcolor{keyword}{  end interface}
11540   \textcolor{keyword}{interface}
11541 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11542       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11543       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11544       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11545       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11546       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11547       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11548       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11549 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11550 \textcolor{keyword}{  end interface}
11551   \textcolor{keyword}{interface}
11552 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11553       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11554       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11555       \textcolor{keywordtype}{character(STRING)}:: result
11556 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11557 \textcolor{keyword}{  end interface}
11558   \textcolor{keywordflow}{continue}
11559   file\_work = file
11560   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11561     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11562   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11563     & url = url, &
11564     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11565   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11566     & fullname = url, iorange = iorange, remainder = remainder )
11567   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11568   timevar\_name = carray(1)
11569   \textcolor{keyword}{deallocate}( carray )
11570   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11571   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}( file = file, &
11572     & varname = varname, array = array, &
11573     & range = time\_range, quiet = quiet, &
11574     & flag\_mpi\_split = flag\_mpi\_split, &
11575     & returned\_time = returned\_time, &
11576     & flag\_time\_exist = flag\_time\_exist, &
11577     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a794fccad8bfa46d5f7a41356b3ad0762_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a4174ed01ac557d519a40aa84c7fc5714}\label{historyget_8f90_a4174ed01ac557d519a40aa84c7fc5714}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7pointertimei@{historygetdouble7pointertimei}}
\index{historygetdouble7pointertimei@{historygetdouble7pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7pointertimei()}{historygetdouble7pointertimei()}}
{\footnotesize\ttfamily subroutine historygetdouble7pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15154 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15154   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15155   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15156   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15157   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15158   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15159   \textcolor{keywordtype}{implicit none}
15160   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15161   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15162   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15163   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
15164   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15165   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15166   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15167   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15168   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15169   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15170   \textcolor{keywordtype}{character(STRING)}:: tname
15171   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeI"}
15172   \textcolor{keyword}{interface}
15173 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}(&
15174       & file, varname, array, range, quiet, &
15175       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15176       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
15177       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15178       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15179       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15180       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15181       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15182       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15183       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15184       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15185       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
15186 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}
15187 \textcolor{keyword}{  end interface}
15188   \textcolor{keyword}{interface}
15189 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15190       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15191       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15192       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15193       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15194       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15195       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15196       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15197 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15198 \textcolor{keyword}{  end interface}
15199   \textcolor{keyword}{interface}
15200 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15201       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15202       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15203       \textcolor{keywordtype}{character(STRING)}:: result
15204 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15205 \textcolor{keyword}{  end interface}
15206   \textcolor{keywordflow}{continue}
15207   file\_work = file
15208   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15209     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15210   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15211     & url = url, &
15212     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15213   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15214     & fullname = url, iorange = iorange, remainder = remainder )
15215   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15216   timevar\_name = carray(1)
15217   \textcolor{keyword}{deallocate}( carray )
15218   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15219   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}( file = file, &
15220     & varname = varname, array = array, &
15221     & range = time\_range, quiet = quiet, &
15222     & flag\_mpi\_split = flag\_mpi\_split, &
15223     & returned\_time = returned\_time, &
15224     & flag\_time\_exist = flag\_time\_exist, &
15225     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a4174ed01ac557d519a40aa84c7fc5714_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a13af1e3dc842f270391f151e8e6141f0}\label{historyget_8f90_a13af1e3dc842f270391f151e8e6141f0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7pointertimer@{historygetdouble7pointertimer}}
\index{historygetdouble7pointertimer@{historygetdouble7pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7pointertimer()}{historygetdouble7pointertimer()}}
{\footnotesize\ttfamily subroutine historygetdouble7pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7858 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7858   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7859   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7860   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7861   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7862   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7863   \textcolor{keywordtype}{implicit none}
7864   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7865   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7866   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7867   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
7868   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7869   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7870   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7871   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7872   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7873   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7874   \textcolor{keywordtype}{character(STRING)}:: tname
7875   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeR"}
7876   \textcolor{keyword}{interface}
7877 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}(&
7878       & file, varname, array, range, quiet, &
7879       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7880       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7881       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7882       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7883       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7884       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7885       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7886       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7887       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7888       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7889       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
7890 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}
7891 \textcolor{keyword}{  end interface}
7892   \textcolor{keyword}{interface}
7893 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7894       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7895       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7896       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7897       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7898       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7899       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7900       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7901 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7902 \textcolor{keyword}{  end interface}
7903   \textcolor{keyword}{interface}
7904 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7905       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7906       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7907       \textcolor{keywordtype}{character(STRING)}:: result
7908 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7909 \textcolor{keyword}{  end interface}
7910   \textcolor{keywordflow}{continue}
7911   file\_work = file
7912   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7913     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7914   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7915     & url = url, &
7916     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7917   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7918     & fullname = url, iorange = iorange, remainder = remainder )
7919   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7920   timevar\_name = carray(1)
7921   \textcolor{keyword}{deallocate}( carray )
7922   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7923   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae3637ea7581b5da6796b7f4e27dccde3}{historygetdouble7pointer}( file = file, &
7924     & varname = varname, array = array, &
7925     & range = time\_range, quiet = quiet, &
7926     & flag\_mpi\_split = flag\_mpi\_split, &
7927     & returned\_time = returned\_time, &
7928     & flag\_time\_exist = flag\_time\_exist, &
7929     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a13af1e3dc842f270391f151e8e6141f0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a40fed42d8f909e9e1bde7d551cd8c087}\label{historyget_8f90_a40fed42d8f909e9e1bde7d551cd8c087}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7timed@{historygetdouble7timed}}
\index{historygetdouble7timed@{historygetdouble7timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7timed()}{historygetdouble7timed()}}
{\footnotesize\ttfamily subroutine historygetdouble7timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10898 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10898   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10899   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10900   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10901   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10902   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10903   \textcolor{keywordtype}{implicit none}
10904   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10905   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
10906   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10907   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
10908   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10909   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10910   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10911   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10912   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10913   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10914   \textcolor{keywordtype}{character(STRING)}:: tname
10915   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeD"}
10916   \textcolor{keyword}{interface}
10917 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}(&
10918       & file, varname, array, range, quiet, &
10919       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10920       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10921       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10922       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10923       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10924       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10925       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10926       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10927       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10928       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10929       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
10930 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}
10931 \textcolor{keyword}{  end interface}
10932   \textcolor{keyword}{interface}
10933 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10934       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10935       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10936       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10937       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10938       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10939       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10940       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10941 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10942 \textcolor{keyword}{  end interface}
10943   \textcolor{keyword}{interface}
10944 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10945       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10946       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10947       \textcolor{keywordtype}{character(STRING)}:: result
10948 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10949 \textcolor{keyword}{  end interface}
10950   \textcolor{keywordflow}{continue}
10951   file\_work = file
10952   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10953     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10954   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10955     & url = url, &
10956     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10957   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10958     & fullname = url, iorange = iorange, remainder = remainder )
10959   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10960   timevar\_name = carray(1)
10961   \textcolor{keyword}{deallocate}( carray )
10962   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10963   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}( file = file, &
10964     & varname = varname, array = array, &
10965     & range = time\_range, quiet = quiet, &
10966     & flag\_mpi\_split = flag\_mpi\_split, &
10967     & returned\_time = returned\_time, &
10968     & flag\_time\_exist = flag\_time\_exist, &
10969     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a40fed42d8f909e9e1bde7d551cd8c087_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aefa48bb3567bddb813913a30d2cdb11e}\label{historyget_8f90_aefa48bb3567bddb813913a30d2cdb11e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7timei@{historygetdouble7timei}}
\index{historygetdouble7timei@{historygetdouble7timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7timei()}{historygetdouble7timei()}}
{\footnotesize\ttfamily subroutine historygetdouble7timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14546 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
14546   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
14547   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14548   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
14549   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
14550   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
14551   \textcolor{keywordtype}{implicit none}
14552   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
14553   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
14554   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14555   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
14556   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14557   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14558   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14559   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14560   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
14561   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
14562   \textcolor{keywordtype}{character(STRING)}:: tname
14563   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeI"}
14564   \textcolor{keyword}{interface}
14565 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}(&
14566       & file, varname, array, range, quiet, &
14567       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
14568       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
14569       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14570       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14571       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14572       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
14573       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
14574       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
14575       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14576       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14577       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
14578 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}
14579 \textcolor{keyword}{  end interface}
14580   \textcolor{keyword}{interface}
14581 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
14582       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14583       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
14584       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
14585       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
14586       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
14587       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
14588       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14589 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
14590 \textcolor{keyword}{  end interface}
14591   \textcolor{keyword}{interface}
14592 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
14593       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
14594       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
14595       \textcolor{keywordtype}{character(STRING)}:: result
14596 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
14597 \textcolor{keyword}{  end interface}
14598   \textcolor{keywordflow}{continue}
14599   file\_work = file
14600   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
14601     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
14602   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
14603     & url = url, &
14604     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
14605   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
14606     & fullname = url, iorange = iorange, remainder = remainder )
14607   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14608   timevar\_name = carray(1)
14609   \textcolor{keyword}{deallocate}( carray )
14610   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14611   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}( file = file, &
14612     & varname = varname, array = array, &
14613     & range = time\_range, quiet = quiet, &
14614     & flag\_mpi\_split = flag\_mpi\_split, &
14615     & returned\_time = returned\_time, &
14616     & flag\_time\_exist = flag\_time\_exist, &
14617     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aefa48bb3567bddb813913a30d2cdb11e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae98eb6c200367fc64abd48b15ea6dcce}\label{historyget_8f90_ae98eb6c200367fc64abd48b15ea6dcce}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetdouble7timer@{historygetdouble7timer}}
\index{historygetdouble7timer@{historygetdouble7timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetdouble7timer()}{historygetdouble7timer()}}
{\footnotesize\ttfamily subroutine historygetdouble7timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7250 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetdouble7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7250   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7251   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7252   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7253   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7254   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7255   \textcolor{keywordtype}{implicit none}
7256   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7257   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7258   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7259   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
7260   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7261   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7262   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7263   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7264   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7265   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7266   \textcolor{keywordtype}{character(STRING)}:: tname
7267   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetDouble7TimeR"}
7268   \textcolor{keyword}{interface}
7269 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}(&
7270       & file, varname, array, range, quiet, &
7271       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7272       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
7273       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7274       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7275       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7276       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7277       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7278       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7279       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7280       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7281       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
7282 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}
7283 \textcolor{keyword}{  end interface}
7284   \textcolor{keyword}{interface}
7285 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7286       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7287       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7288       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7289       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7290       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7291       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7292       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7293 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7294 \textcolor{keyword}{  end interface}
7295   \textcolor{keyword}{interface}
7296 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7297       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7298       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7299       \textcolor{keywordtype}{character(STRING)}:: result
7300 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7301 \textcolor{keyword}{  end interface}
7302   \textcolor{keywordflow}{continue}
7303   file\_work = file
7304   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7305     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7306   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7307     & url = url, &
7308     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7309   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7310     & fullname = url, iorange = iorange, remainder = remainder )
7311   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7312   timevar\_name = carray(1)
7313   \textcolor{keyword}{deallocate}( carray )
7314   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7315   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a48709e6014c7f9b5c2c2c136ae13be23}{historygetdouble7}( file = file, &
7316     & varname = varname, array = array, &
7317     & range = time\_range, quiet = quiet, &
7318     & flag\_mpi\_split = flag\_mpi\_split, &
7319     & returned\_time = returned\_time, &
7320     & flag\_time\_exist = flag\_time\_exist, &
7321     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae98eb6c200367fc64abd48b15ea6dcce_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}\label{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0@{historygetint0}}
\index{historygetint0@{historygetint0}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0()}{historygetint0()}}
{\footnotesize\ttfamily subroutine historygetint0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3239 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint0timed(), historygetint0timei(), and historygetint0timer().


\begin{DoxyCode}
3239   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3240   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3241   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3242   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3243   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3244   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3245   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3246   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3247   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3248   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3249     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3250   \textcolor{keywordtype}{implicit none}
3251   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3252   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3253   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3254   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3255   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3256   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3257   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3258   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3259   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array
3260   \textcolor{keywordtype}{integer} :: array\_tmp(1)
3261   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3262   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3263   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3264   \textcolor{keywordtype}{integer}:: domain
3265   \textcolor{keywordtype}{character(STRING)}:: tname
3266   \textcolor{keywordtype}{integer}:: stat
3267   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3268   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0"}
3269   \textcolor{keyword}{interface}
3270 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3271       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3272       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3273       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3274       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3275       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3276       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3277       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3278 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3279 \textcolor{keyword}{  end interface}
3280   \textcolor{keyword}{interface}
3281 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3282       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3283       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3284       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3285       \textcolor{comment}{! 正確な入出力範囲指定}
3286       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3287       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3288       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3289 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
3290 \textcolor{keyword}{  end interface}
3291   \textcolor{keyword}{interface}
3292 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
3293       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3294       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3295       \textcolor{keywordtype}{character(STRING)}:: result
3296 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
3297 \textcolor{keyword}{  end interface}
3298   \textcolor{keywordflow}{continue}
3299   cause\_c = \textcolor{stringliteral}{''}
3300   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3301   file\_work = file
3302   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
3303   \textcolor{comment}{! Change filename (for MPI)}
3304   \textcolor{comment}{!}
3305   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
3306     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
3307   \textcolor{comment}{! 最新時刻の URL 取得}
3308   \textcolor{comment}{! Get URL of latest time}
3309   \textcolor{comment}{!}
3310   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
3311     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
3312   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3313     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3314     cause\_c = url
3315     \textcolor{keywordflow}{goto} 999
3316 \textcolor{keywordflow}{  end if}
3317   \textcolor{comment}{! ファイルオープン}
3318   \textcolor{comment}{! File open}
3319   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
3320   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3321     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3322     cause\_c = url
3323     \textcolor{keywordflow}{goto} 999
3324 \textcolor{keywordflow}{  end if}
3325   \textcolor{comment}{!-------------------------------------------------------------------}
3326   \textcolor{comment}{!  配列形状のチェック}
3327   \textcolor{comment}{!  Check array shape}
3328   \textcolor{comment}{!-------------------------------------------------------------------}
3329   \textcolor{comment}{! 入力ファイル中のデータの次元数}
3330   \textcolor{comment}{! Get size of dimesions in data of an input file}
3331   \textcolor{comment}{!}
3332   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
3333     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
3334   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
3335   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
3336   array\_rank = 0
3337   \textcolor{comment}{! 次元数の比較}
3338   \textcolor{comment}{! Compare sizes of dimensions}
3339   \textcolor{comment}{!}
3340   \textcolor{keywordflow}{if} ( .not. 0 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
3341     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3342       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3343         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
3344         & i = (/rank, 0/), c1 = trim(url) )
3345 \textcolor{keywordflow}{    end if}
3346     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
3347     cause\_c = \textcolor{stringliteral}{'array'}
3348     \textcolor{keywordflow}{goto} 999
3349 \textcolor{keywordflow}{  end if}
3350   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
3351   \textcolor{comment}{! Get shape of data in an input file}
3352   \textcolor{comment}{!-------------------------------------}
3353   \textcolor{comment}{!  データ取得}
3354   \textcolor{comment}{!  Get data}
3355   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
3356     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
3357   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var = var, & \textcolor{comment}{! (inout)}
3358     & nvalue = domain, & \textcolor{comment}{! (in)}
3359     & \textcolor{keywordtype}{value} = array\_tmp) \textcolor{comment}{! (out)}
3360   array = array\_tmp(1)
3361   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
3362   \textcolor{comment}{!-------------------------------------}
3363   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
3364   \textcolor{comment}{!  Print data filename and clipping range}
3365   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
3366     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3367     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3368     & err = err)                   \textcolor{comment}{! (out) optional}
3369   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3370     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3371 \textcolor{keywordflow}{  end if}
3372 999 \textcolor{keywordflow}{continue}
3373   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}\label{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0pointer@{historygetint0pointer}}
\index{historygetint0pointer@{historygetint0pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0pointer()}{historygetint0pointer()}}
{\footnotesize\ttfamily subroutine historygetint0pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6082 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint0pointertimed(), historygetint0pointertimei(), and historygetint0pointertimer().


\begin{DoxyCode}
6082   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6083   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6084   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6085   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6086   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6087   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6088   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6089   \textcolor{keywordtype}{implicit none}
6090   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6091   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6092   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6093   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6094   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6095   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6096   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6097   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6098   \textcolor{keywordtype}{integer}:: domain
6099   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array \textcolor{comment}{! (out)}
6100   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6101   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6102   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6103   \textcolor{keywordtype}{character(STRING)}:: tname
6104   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0Pointer"}
6105   \textcolor{keyword}{interface}
6106 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6107       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6108       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6109       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6110       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6111       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6112       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6113       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6114 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6115 \textcolor{keyword}{  end interface}
6116   \textcolor{keyword}{interface}
6117 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6118       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6119       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6120       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6121       \textcolor{comment}{! 正確な入出力範囲指定}
6122       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6123       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6124       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6125 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6126 \textcolor{keyword}{  end interface}
6127   \textcolor{keyword}{interface}
6128 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6129       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6130       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6131       \textcolor{keywordtype}{character(STRING)}:: result
6132 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6133 \textcolor{keyword}{  end interface}
6134   \textcolor{keywordflow}{continue}
6135   file\_work = file
6136   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6137   \textcolor{comment}{! Change filename (for MPI)}
6138   \textcolor{comment}{!}
6139   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6140     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6141   \textcolor{comment}{! 必要な情報を gtool 変数化}
6142   \textcolor{comment}{!}
6143   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6144     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6145   \textcolor{keyword}{allocate}(array)
6146   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6147   \textcolor{comment}{! いよいよデータ取得}
6148   \textcolor{comment}{!}
6149   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6150   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var=var, size=domain)
6151   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array\_tmp, domain, err)
6152   array = array\_tmp(1)
6153   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6154   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6155     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6156     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6157     & err = err)                   \textcolor{comment}{! (out) optional}
6158   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6159     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6160 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a4345c879ce602952ce26fc64313bcc80_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a4345c879ce602952ce26fc64313bcc80_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0b915a81310a34a3194bba1eef60b507}\label{historyget_8f90_a0b915a81310a34a3194bba1eef60b507}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0pointertimed@{historygetint0pointertimed}}
\index{historygetint0pointertimed@{historygetint0pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0pointertimed()}{historygetint0pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint0pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13406 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13406   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13407   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13408   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13409   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13410   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13411   \textcolor{keywordtype}{implicit none}
13412   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13413   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13414   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13415   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
13416   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13417   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13418   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13419   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13420   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13421   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13422   \textcolor{keywordtype}{character(STRING)}:: tname
13423   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeD"}
13424   \textcolor{keyword}{interface}
13425 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}(&
13426       & file, varname, array, range, quiet, &
13427       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13428       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13429       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13430       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13431       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13432       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13433       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13434       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13435       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13436       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13437       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
13438 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}
13439 \textcolor{keyword}{  end interface}
13440   \textcolor{keyword}{interface}
13441 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13442       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13443       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13444       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13445       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13446       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13447       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13448       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13449 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13450 \textcolor{keyword}{  end interface}
13451   \textcolor{keyword}{interface}
13452 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13453       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13454       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13455       \textcolor{keywordtype}{character(STRING)}:: result
13456 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13457 \textcolor{keyword}{  end interface}
13458   \textcolor{keywordflow}{continue}
13459   file\_work = file
13460   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13461     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13462   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13463     & url = url, &
13464     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13465   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13466     & fullname = url, iorange = iorange, remainder = remainder )
13467   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13468   timevar\_name = carray(1)
13469   \textcolor{keyword}{deallocate}( carray )
13470   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13471   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}( file = file, &
13472     & varname = varname, array = array, &
13473     & range = time\_range, quiet = quiet, &
13474     & flag\_mpi\_split = flag\_mpi\_split, &
13475     & returned\_time = returned\_time, &
13476     & flag\_time\_exist = flag\_time\_exist, &
13477     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0b915a81310a34a3194bba1eef60b507_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a971082086c925d639a64f3eccf775918}\label{historyget_8f90_a971082086c925d639a64f3eccf775918}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0pointertimei@{historygetint0pointertimei}}
\index{historygetint0pointertimei@{historygetint0pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0pointertimei()}{historygetint0pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint0pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17054 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17054   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17055   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17056   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17057   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17058   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17059   \textcolor{keywordtype}{implicit none}
17060   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17061   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17062   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17063   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
17064   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17065   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17066   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17067   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17068   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17069   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17070   \textcolor{keywordtype}{character(STRING)}:: tname
17071   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeI"}
17072   \textcolor{keyword}{interface}
17073 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}(&
17074       & file, varname, array, range, quiet, &
17075       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17076       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17077       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17078       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17079       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17080       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17081       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17082       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17083       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17084       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17085       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
17086 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}
17087 \textcolor{keyword}{  end interface}
17088   \textcolor{keyword}{interface}
17089 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17090       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17091       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17092       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17093       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17094       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17095       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17096       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17097 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17098 \textcolor{keyword}{  end interface}
17099   \textcolor{keyword}{interface}
17100 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17101       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17102       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17103       \textcolor{keywordtype}{character(STRING)}:: result
17104 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17105 \textcolor{keyword}{  end interface}
17106   \textcolor{keywordflow}{continue}
17107   file\_work = file
17108   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17109     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17110   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17111     & url = url, &
17112     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17113   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17114     & fullname = url, iorange = iorange, remainder = remainder )
17115   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17116   timevar\_name = carray(1)
17117   \textcolor{keyword}{deallocate}( carray )
17118   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17119   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}( file = file, &
17120     & varname = varname, array = array, &
17121     & range = time\_range, quiet = quiet, &
17122     & flag\_mpi\_split = flag\_mpi\_split, &
17123     & returned\_time = returned\_time, &
17124     & flag\_time\_exist = flag\_time\_exist, &
17125     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a971082086c925d639a64f3eccf775918_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_adaa66ee4b4a013f6acd29e84c4631f29}\label{historyget_8f90_adaa66ee4b4a013f6acd29e84c4631f29}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0pointertimer@{historygetint0pointertimer}}
\index{historygetint0pointertimer@{historygetint0pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0pointertimer()}{historygetint0pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint0pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9758 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9758   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9759   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9760   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9761   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9762   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9763   \textcolor{keywordtype}{implicit none}
9764   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9765   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9766   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9767   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
9768   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9769   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9770   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9771   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9772   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9773   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9774   \textcolor{keywordtype}{character(STRING)}:: tname
9775   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeR"}
9776   \textcolor{keyword}{interface}
9777 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}(&
9778       & file, varname, array, range, quiet, &
9779       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9780       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9781       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9782       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9783       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9784       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9785       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9786       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9787       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9788       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9789       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array
9790 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}
9791 \textcolor{keyword}{  end interface}
9792   \textcolor{keyword}{interface}
9793 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9794       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9795       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9796       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9797       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9798       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9799       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9800       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9801 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9802 \textcolor{keyword}{  end interface}
9803   \textcolor{keyword}{interface}
9804 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9805       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9806       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9807       \textcolor{keywordtype}{character(STRING)}:: result
9808 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9809 \textcolor{keyword}{  end interface}
9810   \textcolor{keywordflow}{continue}
9811   file\_work = file
9812   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9813     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9814   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9815     & url = url, &
9816     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9817   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9818     & fullname = url, iorange = iorange, remainder = remainder )
9819   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9820   timevar\_name = carray(1)
9821   \textcolor{keyword}{deallocate}( carray )
9822   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9823   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4345c879ce602952ce26fc64313bcc80}{historygetint0pointer}( file = file, &
9824     & varname = varname, array = array, &
9825     & range = time\_range, quiet = quiet, &
9826     & flag\_mpi\_split = flag\_mpi\_split, &
9827     & returned\_time = returned\_time, &
9828     & flag\_time\_exist = flag\_time\_exist, &
9829     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_adaa66ee4b4a013f6acd29e84c4631f29_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad7e7df0a4fb40676d5eee16748016ac0}\label{historyget_8f90_ad7e7df0a4fb40676d5eee16748016ac0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0timed@{historygetint0timed}}
\index{historygetint0timed@{historygetint0timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0timed()}{historygetint0timed()}}
{\footnotesize\ttfamily subroutine historygetint0timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12798 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12798   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12799   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12800   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12801   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12802   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12803   \textcolor{keywordtype}{implicit none}
12804   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12805   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12806   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12807   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
12808   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12809   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12810   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12811   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12812   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12813   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12814   \textcolor{keywordtype}{character(STRING)}:: tname
12815   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeD"}
12816   \textcolor{keyword}{interface}
12817 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}(&
12818       & file, varname, array, range, quiet, &
12819       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12820       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12821       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12822       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12823       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12824       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12825       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12826       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12827       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12828       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12829       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
12830 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}
12831 \textcolor{keyword}{  end interface}
12832   \textcolor{keyword}{interface}
12833 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12834       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12835       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12836       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12837       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12838       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12839       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12840       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12841 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12842 \textcolor{keyword}{  end interface}
12843   \textcolor{keyword}{interface}
12844 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12845       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12846       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12847       \textcolor{keywordtype}{character(STRING)}:: result
12848 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12849 \textcolor{keyword}{  end interface}
12850   \textcolor{keywordflow}{continue}
12851   file\_work = file
12852   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12853     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12854   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12855     & url = url, &
12856     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12857   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12858     & fullname = url, iorange = iorange, remainder = remainder )
12859   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12860   timevar\_name = carray(1)
12861   \textcolor{keyword}{deallocate}( carray )
12862   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12863   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}( file = file, &
12864     & varname = varname, array = array, &
12865     & range = time\_range, quiet = quiet, &
12866     & flag\_mpi\_split = flag\_mpi\_split, &
12867     & returned\_time = returned\_time, &
12868     & flag\_time\_exist = flag\_time\_exist, &
12869     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad7e7df0a4fb40676d5eee16748016ac0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a465327000fdd3deb629ffbbaacff629b}\label{historyget_8f90_a465327000fdd3deb629ffbbaacff629b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0timei@{historygetint0timei}}
\index{historygetint0timei@{historygetint0timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0timei()}{historygetint0timei()}}
{\footnotesize\ttfamily subroutine historygetint0timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16446 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16446   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16447   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16448   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16449   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16450   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16451   \textcolor{keywordtype}{implicit none}
16452   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16453   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16454   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16455   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
16456   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16457   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16458   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16459   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16460   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16461   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16462   \textcolor{keywordtype}{character(STRING)}:: tname
16463   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeI"}
16464   \textcolor{keyword}{interface}
16465 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}(&
16466       & file, varname, array, range, quiet, &
16467       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16468       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16469       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16470       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16471       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16472       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16473       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16474       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16475       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16476       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16477       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
16478 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}
16479 \textcolor{keyword}{  end interface}
16480   \textcolor{keyword}{interface}
16481 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16482       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16483       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16484       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16485       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16486       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16487       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16488       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16489 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16490 \textcolor{keyword}{  end interface}
16491   \textcolor{keyword}{interface}
16492 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16493       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16494       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16495       \textcolor{keywordtype}{character(STRING)}:: result
16496 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16497 \textcolor{keyword}{  end interface}
16498   \textcolor{keywordflow}{continue}
16499   file\_work = file
16500   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16501     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16502   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16503     & url = url, &
16504     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16505   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16506     & fullname = url, iorange = iorange, remainder = remainder )
16507   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16508   timevar\_name = carray(1)
16509   \textcolor{keyword}{deallocate}( carray )
16510   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16511   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}( file = file, &
16512     & varname = varname, array = array, &
16513     & range = time\_range, quiet = quiet, &
16514     & flag\_mpi\_split = flag\_mpi\_split, &
16515     & returned\_time = returned\_time, &
16516     & flag\_time\_exist = flag\_time\_exist, &
16517     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a465327000fdd3deb629ffbbaacff629b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8ed7c96708742d074122eaf37cc60d4b}\label{historyget_8f90_a8ed7c96708742d074122eaf37cc60d4b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint0timer@{historygetint0timer}}
\index{historygetint0timer@{historygetint0timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint0timer()}{historygetint0timer()}}
{\footnotesize\ttfamily subroutine historygetint0timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9150 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9150   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9151   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9152   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9153   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9154   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9155   \textcolor{keywordtype}{implicit none}
9156   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9157   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9158   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9159   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
9160   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9161   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9162   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9163   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9164   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9165   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9166   \textcolor{keywordtype}{character(STRING)}:: tname
9167   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt0TimeR"}
9168   \textcolor{keyword}{interface}
9169 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}(&
9170       & file, varname, array, range, quiet, &
9171       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9172       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9173       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9174       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9175       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9176       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9177       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9178       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9179       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9180       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9181       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array
9182 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}
9183 \textcolor{keyword}{  end interface}
9184   \textcolor{keyword}{interface}
9185 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9186       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9187       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9188       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9189       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9190       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9191       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9192       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9193 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9194 \textcolor{keyword}{  end interface}
9195   \textcolor{keyword}{interface}
9196 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9197       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9198       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9199       \textcolor{keywordtype}{character(STRING)}:: result
9200 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9201 \textcolor{keyword}{  end interface}
9202   \textcolor{keywordflow}{continue}
9203   file\_work = file
9204   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9205     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9206   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9207     & url = url, &
9208     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9209   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9210     & fullname = url, iorange = iorange, remainder = remainder )
9211   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9212   timevar\_name = carray(1)
9213   \textcolor{keyword}{deallocate}( carray )
9214   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9215   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9ec8f6018e62995ba22f5bb5a7dd3845}{historygetint0}( file = file, &
9216     & varname = varname, array = array, &
9217     & range = time\_range, quiet = quiet, &
9218     & flag\_mpi\_split = flag\_mpi\_split, &
9219     & returned\_time = returned\_time, &
9220     & flag\_time\_exist = flag\_time\_exist, &
9221     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8ed7c96708742d074122eaf37cc60d4b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}\label{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1@{historygetint1}}
\index{historygetint1@{historygetint1}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1()}{historygetint1()}}
{\footnotesize\ttfamily subroutine historygetint1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3377 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint1timed(), historygetint1timei(), and historygetint1timer().


\begin{DoxyCode}
3377   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3378   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3379   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3380   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3381   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3382   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3383   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3384   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3385   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3386   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3387     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3388   \textcolor{keywordtype}{implicit none}
3389   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3390   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3391   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3392   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3393   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3394   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3395   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3396   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3397   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:)
3398   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
3399   \textcolor{keywordtype}{integer}:: array\_allsize
3400   \textcolor{keywordtype}{integer}:: array\_shape(1), data\_shape(1), array\_shape\_check(1)
3401   \textcolor{keywordtype}{integer}:: allcount
3402   \textcolor{keywordtype}{integer}:: i, sd
3403   \textcolor{keywordtype}{logical}:: inq\_err
3404   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3405   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3406   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3407   \textcolor{keywordtype}{integer}:: domain
3408   \textcolor{keywordtype}{character(STRING)}:: tname
3409   \textcolor{keywordtype}{integer}:: stat
3410   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3411   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1"}
3412   \textcolor{keyword}{interface}
3413 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3414       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3415       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3416       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3417       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3418       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3419       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3420       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3421 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3422 \textcolor{keyword}{  end interface}
3423   \textcolor{keyword}{interface}
3424 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3425       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3426       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3427       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3428       \textcolor{comment}{! 正確な入出力範囲指定}
3429       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3430       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3431       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3432 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
3433 \textcolor{keyword}{  end interface}
3434   \textcolor{keyword}{interface}
3435 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
3436       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3437       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3438       \textcolor{keywordtype}{character(STRING)}:: result
3439 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
3440 \textcolor{keyword}{  end interface}
3441   \textcolor{keywordflow}{continue}
3442   cause\_c = \textcolor{stringliteral}{''}
3443   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3444   file\_work = file
3445   array\_shape = shape( array )
3446   array\_allsize = \textcolor{keyword}{size}( array )
3447   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
3448   \textcolor{comment}{! Change filename (for MPI)}
3449   \textcolor{comment}{!}
3450   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
3451     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
3452   \textcolor{comment}{! 最新時刻の URL 取得}
3453   \textcolor{comment}{! Get URL of latest time}
3454   \textcolor{comment}{!}
3455   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
3456     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
3457   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3458     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3459     cause\_c = url
3460     \textcolor{keywordflow}{goto} 999
3461 \textcolor{keywordflow}{  end if}
3462   \textcolor{comment}{! ファイルオープン}
3463   \textcolor{comment}{! File open}
3464   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
3465   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3466     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3467     cause\_c = url
3468     \textcolor{keywordflow}{goto} 999
3469 \textcolor{keywordflow}{  end if}
3470   \textcolor{comment}{!-------------------------------------------------------------------}
3471   \textcolor{comment}{!  配列形状のチェック}
3472   \textcolor{comment}{!  Check array shape}
3473   \textcolor{comment}{!-------------------------------------------------------------------}
3474   \textcolor{comment}{! 入力ファイル中のデータの次元数}
3475   \textcolor{comment}{! Get size of dimesions in data of an input file}
3476   \textcolor{comment}{!}
3477   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
3478     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
3479   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
3480   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
3481   array\_rank = 1
3482   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
3483   \textcolor{comment}{! 次元数の比較}
3484   \textcolor{comment}{! Compare sizes of dimensions}
3485   \textcolor{comment}{!}
3486   \textcolor{keywordflow}{if} ( .not. 1 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
3487     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3488       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3489         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
3490         & i = (/rank, 1/), c1 = trim(url) )
3491 \textcolor{keywordflow}{    end if}
3492     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
3493     cause\_c = \textcolor{stringliteral}{'array'}
3494     \textcolor{keywordflow}{goto} 999
3495 \textcolor{keywordflow}{  end if}
3496   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
3497   \textcolor{comment}{! Get shape of data in an input file}
3498   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
3499     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3500   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3501     data\_shape(1) = allcount
3502   \textcolor{keywordflow}{else}
3503     data\_shape(1) = 1
3504 \textcolor{keywordflow}{  end if}
3505   \textcolor{comment}{! 引数の配列形状整形}
3506   \textcolor{comment}{! Arrange shape of an argument}
3507   \textcolor{comment}{!}
3508   array\_shape\_check = array\_shape
3509   sd = 1
3510   \textcolor{keywordflow}{do} i = 1, 1 - 1
3511     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
3512       array\_shape\_check(sd:1) = cshift( array\_shape\_check(sd:1), 1, 1 )
3513     \textcolor{keywordflow}{else}
3514       sd = sd + 1
3515 \textcolor{keywordflow}{    end if}
3516 \textcolor{keywordflow}{  end do}
3517   \textcolor{comment}{! 配列形状の比較}
3518   \textcolor{comment}{! Compare shapes}
3519   \textcolor{comment}{!}
3520   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
3521     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3522       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3523         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
3524         & c1 = trim( url ), &
3525         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
3526         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
3527 \textcolor{keywordflow}{    end if}
3528     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3529     cause\_c = \textcolor{stringliteral}{'array'}
3530     \textcolor{keywordflow}{goto} 999
3531 \textcolor{keywordflow}{  end if}
3532   \textcolor{comment}{!-------------------------------------}
3533   \textcolor{comment}{!  データ取得}
3534   \textcolor{comment}{!  Get data}
3535   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
3536     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
3537   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
3538   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
3539   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
3540   array = reshape( array\_tmp, array\_shape )
3541   \textcolor{keyword}{deallocate}( array\_tmp )
3542   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
3543   \textcolor{comment}{!-------------------------------------}
3544   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
3545   \textcolor{comment}{!  Print data filename and clipping range}
3546   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
3547     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3548     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3549     & err = err)                   \textcolor{comment}{! (out) optional}
3550   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3551     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3552 \textcolor{keywordflow}{  end if}
3553 999 \textcolor{keywordflow}{continue}
3554   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}\label{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1pointer@{historygetint1pointer}}
\index{historygetint1pointer@{historygetint1pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1pointer()}{historygetint1pointer()}}
{\footnotesize\ttfamily subroutine historygetint1pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6164 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint1pointertimed(), historygetint1pointertimei(), and historygetint1pointertimer().


\begin{DoxyCode}
6164   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6165   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6166   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6167   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6168   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6169   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6170   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6171   \textcolor{keywordtype}{implicit none}
6172   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6173   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6174   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6175   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6176   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6177   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6178   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6179   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6180   \textcolor{keywordtype}{integer}:: domain
6181   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:) \textcolor{comment}{! (out)}
6182   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6183   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6184   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6185   \textcolor{keywordtype}{character(STRING)}:: tname
6186   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1Pointer"}
6187   \textcolor{keyword}{interface}
6188 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6189       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6190       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6191       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6192       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6193       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6194       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6195       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6196 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6197 \textcolor{keyword}{  end interface}
6198   \textcolor{keyword}{interface}
6199 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6200       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6201       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6202       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6203       \textcolor{comment}{! 正確な入出力範囲指定}
6204       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6205       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6206       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6207 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6208 \textcolor{keyword}{  end interface}
6209   \textcolor{keyword}{interface}
6210 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6211       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6212       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6213       \textcolor{keywordtype}{character(STRING)}:: result
6214 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6215 \textcolor{keyword}{  end interface}
6216   \textcolor{keywordflow}{continue}
6217   file\_work = file
6218   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6219   \textcolor{comment}{! Change filename (for MPI)}
6220   \textcolor{comment}{!}
6221   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6222     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6223   \textcolor{comment}{! 必要な情報を gtool 変数化}
6224   \textcolor{comment}{!}
6225   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6226     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6227   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6228   \textcolor{comment}{! いよいよデータ取得}
6229   \textcolor{comment}{!}
6230   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6231   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6232   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6233   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6234     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6235     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6236     & err = err)                   \textcolor{comment}{! (out) optional}
6237   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6238     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6239 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_abe4b9e3a4bd8af1109d0ae782872b066}\label{historyget_8f90_abe4b9e3a4bd8af1109d0ae782872b066}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1pointertimed@{historygetint1pointertimed}}
\index{historygetint1pointertimed@{historygetint1pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1pointertimed()}{historygetint1pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint1pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13482 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13482   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13483   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13484   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13485   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13486   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13487   \textcolor{keywordtype}{implicit none}
13488   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13489   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13490   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13491   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
13492   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13493   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13494   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13495   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13496   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13497   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13498   \textcolor{keywordtype}{character(STRING)}:: tname
13499   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeD"}
13500   \textcolor{keyword}{interface}
13501 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}(&
13502       & file, varname, array, range, quiet, &
13503       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13504       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13505       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13506       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13507       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13508       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13509       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13510       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13511       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13512       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13513       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
13514 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}
13515 \textcolor{keyword}{  end interface}
13516   \textcolor{keyword}{interface}
13517 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13518       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13519       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13520       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13521       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13522       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13523       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13524       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13525 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13526 \textcolor{keyword}{  end interface}
13527   \textcolor{keyword}{interface}
13528 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13529       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13530       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13531       \textcolor{keywordtype}{character(STRING)}:: result
13532 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13533 \textcolor{keyword}{  end interface}
13534   \textcolor{keywordflow}{continue}
13535   file\_work = file
13536   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13537     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13538   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13539     & url = url, &
13540     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13541   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13542     & fullname = url, iorange = iorange, remainder = remainder )
13543   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13544   timevar\_name = carray(1)
13545   \textcolor{keyword}{deallocate}( carray )
13546   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13547   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}( file = file, &
13548     & varname = varname, array = array, &
13549     & range = time\_range, quiet = quiet, &
13550     & flag\_mpi\_split = flag\_mpi\_split, &
13551     & returned\_time = returned\_time, &
13552     & flag\_time\_exist = flag\_time\_exist, &
13553     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_abe4b9e3a4bd8af1109d0ae782872b066_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a145bbd714a3310159c504ca5a8f49102}\label{historyget_8f90_a145bbd714a3310159c504ca5a8f49102}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1pointertimei@{historygetint1pointertimei}}
\index{historygetint1pointertimei@{historygetint1pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1pointertimei()}{historygetint1pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint1pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17130 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17130   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17131   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17132   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17133   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17134   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17135   \textcolor{keywordtype}{implicit none}
17136   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17137   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17138   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17139   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
17140   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17141   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17142   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17143   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17144   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17145   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17146   \textcolor{keywordtype}{character(STRING)}:: tname
17147   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeI"}
17148   \textcolor{keyword}{interface}
17149 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}(&
17150       & file, varname, array, range, quiet, &
17151       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17152       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17153       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17154       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17155       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17156       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17157       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17158       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17159       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17160       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17161       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
17162 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}
17163 \textcolor{keyword}{  end interface}
17164   \textcolor{keyword}{interface}
17165 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17166       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17167       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17168       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17169       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17170       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17171       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17172       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17173 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17174 \textcolor{keyword}{  end interface}
17175   \textcolor{keyword}{interface}
17176 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17177       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17178       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17179       \textcolor{keywordtype}{character(STRING)}:: result
17180 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17181 \textcolor{keyword}{  end interface}
17182   \textcolor{keywordflow}{continue}
17183   file\_work = file
17184   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17185     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17186   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17187     & url = url, &
17188     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17189   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17190     & fullname = url, iorange = iorange, remainder = remainder )
17191   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17192   timevar\_name = carray(1)
17193   \textcolor{keyword}{deallocate}( carray )
17194   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17195   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}( file = file, &
17196     & varname = varname, array = array, &
17197     & range = time\_range, quiet = quiet, &
17198     & flag\_mpi\_split = flag\_mpi\_split, &
17199     & returned\_time = returned\_time, &
17200     & flag\_time\_exist = flag\_time\_exist, &
17201     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a145bbd714a3310159c504ca5a8f49102_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac1184420dd9fa01b48e62dc99431df86}\label{historyget_8f90_ac1184420dd9fa01b48e62dc99431df86}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1pointertimer@{historygetint1pointertimer}}
\index{historygetint1pointertimer@{historygetint1pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1pointertimer()}{historygetint1pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint1pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9834 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9834   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9835   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9836   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9837   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9838   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9839   \textcolor{keywordtype}{implicit none}
9840   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9841   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9842   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9843   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
9844   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9845   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9846   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9847   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9848   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9849   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9850   \textcolor{keywordtype}{character(STRING)}:: tname
9851   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeR"}
9852   \textcolor{keyword}{interface}
9853 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}(&
9854       & file, varname, array, range, quiet, &
9855       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9856       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9857       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9858       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9859       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9860       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9861       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9862       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9863       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9864       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9865       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:)
9866 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}
9867 \textcolor{keyword}{  end interface}
9868   \textcolor{keyword}{interface}
9869 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9870       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9871       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9872       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9873       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9874       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9875       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9876       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9877 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9878 \textcolor{keyword}{  end interface}
9879   \textcolor{keyword}{interface}
9880 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9881       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9882       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9883       \textcolor{keywordtype}{character(STRING)}:: result
9884 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9885 \textcolor{keyword}{  end interface}
9886   \textcolor{keywordflow}{continue}
9887   file\_work = file
9888   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9889     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9890   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9891     & url = url, &
9892     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9893   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9894     & fullname = url, iorange = iorange, remainder = remainder )
9895   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9896   timevar\_name = carray(1)
9897   \textcolor{keyword}{deallocate}( carray )
9898   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9899   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a9b8fd4e5205d2e9d601c17c9c9b9c1de}{historygetint1pointer}( file = file, &
9900     & varname = varname, array = array, &
9901     & range = time\_range, quiet = quiet, &
9902     & flag\_mpi\_split = flag\_mpi\_split, &
9903     & returned\_time = returned\_time, &
9904     & flag\_time\_exist = flag\_time\_exist, &
9905     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ac1184420dd9fa01b48e62dc99431df86_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a000bc8f11e62549cd512e48d6adf014b}\label{historyget_8f90_a000bc8f11e62549cd512e48d6adf014b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1timed@{historygetint1timed}}
\index{historygetint1timed@{historygetint1timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1timed()}{historygetint1timed()}}
{\footnotesize\ttfamily subroutine historygetint1timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12874 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12874   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12875   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12876   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12877   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12878   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12879   \textcolor{keywordtype}{implicit none}
12880   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12881   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12882   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12883   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
12884   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12885   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12886   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12887   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12888   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12889   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12890   \textcolor{keywordtype}{character(STRING)}:: tname
12891   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeD"}
12892   \textcolor{keyword}{interface}
12893 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}(&
12894       & file, varname, array, range, quiet, &
12895       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12896       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12897       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12898       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12899       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12900       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12901       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12902       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12903       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12904       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12905       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
12906 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}
12907 \textcolor{keyword}{  end interface}
12908   \textcolor{keyword}{interface}
12909 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12910       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12911       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12912       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12913       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12914       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12915       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12916       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12917 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12918 \textcolor{keyword}{  end interface}
12919   \textcolor{keyword}{interface}
12920 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12921       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12922       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12923       \textcolor{keywordtype}{character(STRING)}:: result
12924 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12925 \textcolor{keyword}{  end interface}
12926   \textcolor{keywordflow}{continue}
12927   file\_work = file
12928   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12929     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12930   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12931     & url = url, &
12932     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12933   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12934     & fullname = url, iorange = iorange, remainder = remainder )
12935   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12936   timevar\_name = carray(1)
12937   \textcolor{keyword}{deallocate}( carray )
12938   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12939   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}( file = file, &
12940     & varname = varname, array = array, &
12941     & range = time\_range, quiet = quiet, &
12942     & flag\_mpi\_split = flag\_mpi\_split, &
12943     & returned\_time = returned\_time, &
12944     & flag\_time\_exist = flag\_time\_exist, &
12945     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a000bc8f11e62549cd512e48d6adf014b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa3cda8d5b2a3901e09baf5cb2ddc0f2d}\label{historyget_8f90_aa3cda8d5b2a3901e09baf5cb2ddc0f2d}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1timei@{historygetint1timei}}
\index{historygetint1timei@{historygetint1timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1timei()}{historygetint1timei()}}
{\footnotesize\ttfamily subroutine historygetint1timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16522 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16522   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16523   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16524   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16525   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16526   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16527   \textcolor{keywordtype}{implicit none}
16528   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16529   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16530   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16531   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
16532   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16533   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16534   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16535   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16536   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16537   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16538   \textcolor{keywordtype}{character(STRING)}:: tname
16539   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeI"}
16540   \textcolor{keyword}{interface}
16541 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}(&
16542       & file, varname, array, range, quiet, &
16543       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16544       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16545       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16546       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16547       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16548       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16549       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16550       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16551       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16552       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16553       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
16554 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}
16555 \textcolor{keyword}{  end interface}
16556   \textcolor{keyword}{interface}
16557 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16558       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16559       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16560       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16561       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16562       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16563       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16564       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16565 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16566 \textcolor{keyword}{  end interface}
16567   \textcolor{keyword}{interface}
16568 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16569       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16570       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16571       \textcolor{keywordtype}{character(STRING)}:: result
16572 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16573 \textcolor{keyword}{  end interface}
16574   \textcolor{keywordflow}{continue}
16575   file\_work = file
16576   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16577     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16578   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16579     & url = url, &
16580     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16581   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16582     & fullname = url, iorange = iorange, remainder = remainder )
16583   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16584   timevar\_name = carray(1)
16585   \textcolor{keyword}{deallocate}( carray )
16586   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16587   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}( file = file, &
16588     & varname = varname, array = array, &
16589     & range = time\_range, quiet = quiet, &
16590     & flag\_mpi\_split = flag\_mpi\_split, &
16591     & returned\_time = returned\_time, &
16592     & flag\_time\_exist = flag\_time\_exist, &
16593     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa3cda8d5b2a3901e09baf5cb2ddc0f2d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7ee3a057774ae23f4ba14be18906e4e9}\label{historyget_8f90_a7ee3a057774ae23f4ba14be18906e4e9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint1timer@{historygetint1timer}}
\index{historygetint1timer@{historygetint1timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint1timer()}{historygetint1timer()}}
{\footnotesize\ttfamily subroutine historygetint1timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9226 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9226   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9227   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9228   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9229   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9230   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9231   \textcolor{keywordtype}{implicit none}
9232   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9233   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9234   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9235   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
9236   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9237   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9238   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9239   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9240   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9241   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9242   \textcolor{keywordtype}{character(STRING)}:: tname
9243   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt1TimeR"}
9244   \textcolor{keyword}{interface}
9245 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}(&
9246       & file, varname, array, range, quiet, &
9247       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9248       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9249       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9250       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9251       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9252       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9253       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9254       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9255       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9256       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9257       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:)
9258 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}
9259 \textcolor{keyword}{  end interface}
9260   \textcolor{keyword}{interface}
9261 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9262       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9263       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9264       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9265       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9266       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9267       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9268       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9269 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9270 \textcolor{keyword}{  end interface}
9271   \textcolor{keyword}{interface}
9272 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9273       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9274       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9275       \textcolor{keywordtype}{character(STRING)}:: result
9276 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9277 \textcolor{keyword}{  end interface}
9278   \textcolor{keywordflow}{continue}
9279   file\_work = file
9280   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9281     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9282   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9283     & url = url, &
9284     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9285   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9286     & fullname = url, iorange = iorange, remainder = remainder )
9287   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9288   timevar\_name = carray(1)
9289   \textcolor{keyword}{deallocate}( carray )
9290   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9291   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae99fa227660cd3aa8193f6ab6cf91297}{historygetint1}( file = file, &
9292     & varname = varname, array = array, &
9293     & range = time\_range, quiet = quiet, &
9294     & flag\_mpi\_split = flag\_mpi\_split, &
9295     & returned\_time = returned\_time, &
9296     & flag\_time\_exist = flag\_time\_exist, &
9297     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7ee3a057774ae23f4ba14be18906e4e9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}\label{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2@{historygetint2}}
\index{historygetint2@{historygetint2}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2()}{historygetint2()}}
{\footnotesize\ttfamily subroutine historygetint2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3558 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint2timed(), historygetint2timei(), and historygetint2timer().


\begin{DoxyCode}
3558   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3559   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3560   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3561   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3562   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3563   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3564   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3565   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3566   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3567   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3568     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3569   \textcolor{keywordtype}{implicit none}
3570   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3571   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3572   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3573   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3574   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3575   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3576   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3577   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3578   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
3579   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
3580   \textcolor{keywordtype}{integer}:: array\_allsize
3581   \textcolor{keywordtype}{integer}:: array\_shape(2), data\_shape(2), array\_shape\_check(2)
3582   \textcolor{keywordtype}{integer}:: allcount
3583   \textcolor{keywordtype}{integer}:: i, sd
3584   \textcolor{keywordtype}{logical}:: inq\_err
3585   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3586   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3587   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3588   \textcolor{keywordtype}{integer}:: domain
3589   \textcolor{keywordtype}{character(STRING)}:: tname
3590   \textcolor{keywordtype}{integer}:: stat
3591   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3592   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2"}
3593   \textcolor{keyword}{interface}
3594 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3595       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3596       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3597       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3598       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3599       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3600       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3601       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3602 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3603 \textcolor{keyword}{  end interface}
3604   \textcolor{keyword}{interface}
3605 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3606       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3607       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3608       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3609       \textcolor{comment}{! 正確な入出力範囲指定}
3610       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3611       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3612       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3613 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
3614 \textcolor{keyword}{  end interface}
3615   \textcolor{keyword}{interface}
3616 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
3617       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3618       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3619       \textcolor{keywordtype}{character(STRING)}:: result
3620 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
3621 \textcolor{keyword}{  end interface}
3622   \textcolor{keywordflow}{continue}
3623   cause\_c = \textcolor{stringliteral}{''}
3624   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3625   file\_work = file
3626   array\_shape = shape( array )
3627   array\_allsize = \textcolor{keyword}{size}( array )
3628   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
3629   \textcolor{comment}{! Change filename (for MPI)}
3630   \textcolor{comment}{!}
3631   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
3632     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
3633   \textcolor{comment}{! 最新時刻の URL 取得}
3634   \textcolor{comment}{! Get URL of latest time}
3635   \textcolor{comment}{!}
3636   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
3637     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
3638   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3639     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3640     cause\_c = url
3641     \textcolor{keywordflow}{goto} 999
3642 \textcolor{keywordflow}{  end if}
3643   \textcolor{comment}{! ファイルオープン}
3644   \textcolor{comment}{! File open}
3645   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
3646   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3647     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3648     cause\_c = url
3649     \textcolor{keywordflow}{goto} 999
3650 \textcolor{keywordflow}{  end if}
3651   \textcolor{comment}{!-------------------------------------------------------------------}
3652   \textcolor{comment}{!  配列形状のチェック}
3653   \textcolor{comment}{!  Check array shape}
3654   \textcolor{comment}{!-------------------------------------------------------------------}
3655   \textcolor{comment}{! 入力ファイル中のデータの次元数}
3656   \textcolor{comment}{! Get size of dimesions in data of an input file}
3657   \textcolor{comment}{!}
3658   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
3659     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
3660   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
3661   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
3662   array\_rank = 2
3663   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
3664   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
3665   \textcolor{comment}{! 次元数の比較}
3666   \textcolor{comment}{! Compare sizes of dimensions}
3667   \textcolor{comment}{!}
3668   \textcolor{keywordflow}{if} ( .not. 2 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
3669     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3670       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3671         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
3672         & i = (/rank, 2/), c1 = trim(url) )
3673 \textcolor{keywordflow}{    end if}
3674     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
3675     cause\_c = \textcolor{stringliteral}{'array'}
3676     \textcolor{keywordflow}{goto} 999
3677 \textcolor{keywordflow}{  end if}
3678   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
3679   \textcolor{comment}{! Get shape of data in an input file}
3680   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
3681     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3682   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3683     data\_shape(1) = allcount
3684   \textcolor{keywordflow}{else}
3685     data\_shape(1) = 1
3686 \textcolor{keywordflow}{  end if}
3687   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
3688     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3689   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3690     data\_shape(2) = allcount
3691   \textcolor{keywordflow}{else}
3692     data\_shape(2) = 1
3693 \textcolor{keywordflow}{  end if}
3694   \textcolor{comment}{! 引数の配列形状整形}
3695   \textcolor{comment}{! Arrange shape of an argument}
3696   \textcolor{comment}{!}
3697   array\_shape\_check = array\_shape
3698   sd = 1
3699   \textcolor{keywordflow}{do} i = 1, 2 - 1
3700     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
3701       array\_shape\_check(sd:2) = cshift( array\_shape\_check(sd:2), 1, 1 )
3702     \textcolor{keywordflow}{else}
3703       sd = sd + 1
3704 \textcolor{keywordflow}{    end if}
3705 \textcolor{keywordflow}{  end do}
3706   \textcolor{comment}{! 配列形状の比較}
3707   \textcolor{comment}{! Compare shapes}
3708   \textcolor{comment}{!}
3709   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
3710     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3711       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3712         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
3713         & c1 = trim( url ), &
3714         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
3715         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
3716 \textcolor{keywordflow}{    end if}
3717     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3718     cause\_c = \textcolor{stringliteral}{'array'}
3719     \textcolor{keywordflow}{goto} 999
3720 \textcolor{keywordflow}{  end if}
3721   \textcolor{comment}{!-------------------------------------}
3722   \textcolor{comment}{!  データ取得}
3723   \textcolor{comment}{!  Get data}
3724   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
3725     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
3726   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
3727   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
3728   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
3729   array = reshape( array\_tmp, array\_shape )
3730   \textcolor{keyword}{deallocate}( array\_tmp )
3731   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
3732   \textcolor{comment}{!-------------------------------------}
3733   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
3734   \textcolor{comment}{!  Print data filename and clipping range}
3735   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
3736     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3737     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3738     & err = err)                   \textcolor{comment}{! (out) optional}
3739   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3740     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3741 \textcolor{keywordflow}{  end if}
3742 999 \textcolor{keywordflow}{continue}
3743   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}\label{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2pointer@{historygetint2pointer}}
\index{historygetint2pointer@{historygetint2pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2pointer()}{historygetint2pointer()}}
{\footnotesize\ttfamily subroutine historygetint2pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6243 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint2pointertimed(), historygetint2pointertimei(), and historygetint2pointertimer().


\begin{DoxyCode}
6243   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6244   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6245   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6246   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6247   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6248   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6249   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6250   \textcolor{keywordtype}{implicit none}
6251   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6252   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6253   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6254   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6255   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6256   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6257   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6258   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6259   \textcolor{keywordtype}{integer}:: domain
6260   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:) \textcolor{comment}{! (out)}
6261   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6262   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6263   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6264   \textcolor{keywordtype}{character(STRING)}:: tname
6265   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2Pointer"}
6266   \textcolor{keyword}{interface}
6267 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6268       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6269       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6270       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6271       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6272       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6273       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6274       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6275 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6276 \textcolor{keyword}{  end interface}
6277   \textcolor{keyword}{interface}
6278 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6279       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6280       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6281       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6282       \textcolor{comment}{! 正確な入出力範囲指定}
6283       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6284       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6285       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6286 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6287 \textcolor{keyword}{  end interface}
6288   \textcolor{keyword}{interface}
6289 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6290       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6291       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6292       \textcolor{keywordtype}{character(STRING)}:: result
6293 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6294 \textcolor{keyword}{  end interface}
6295   \textcolor{keywordflow}{continue}
6296   file\_work = file
6297   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6298   \textcolor{comment}{! Change filename (for MPI)}
6299   \textcolor{comment}{!}
6300   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6301     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6302   \textcolor{comment}{! 必要な情報を gtool 変数化}
6303   \textcolor{comment}{!}
6304   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6305     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6306   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6307   \textcolor{comment}{! いよいよデータ取得}
6308   \textcolor{comment}{!}
6309   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6310   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6311   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6312   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6313     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6314     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6315     & err = err)                   \textcolor{comment}{! (out) optional}
6316   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6317     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6318 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_afd85a886138e8ff50c0ddb03c2977d98}\label{historyget_8f90_afd85a886138e8ff50c0ddb03c2977d98}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2pointertimed@{historygetint2pointertimed}}
\index{historygetint2pointertimed@{historygetint2pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2pointertimed()}{historygetint2pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint2pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13558 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13558   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13559   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13560   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13561   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13562   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13563   \textcolor{keywordtype}{implicit none}
13564   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13565   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13566   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13567   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
13568   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13569   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13570   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13571   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13572   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13573   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13574   \textcolor{keywordtype}{character(STRING)}:: tname
13575   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeD"}
13576   \textcolor{keyword}{interface}
13577 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}(&
13578       & file, varname, array, range, quiet, &
13579       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13580       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13581       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13582       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13583       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13584       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13585       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13586       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13587       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13588       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13589       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
13590 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}
13591 \textcolor{keyword}{  end interface}
13592   \textcolor{keyword}{interface}
13593 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13594       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13595       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13596       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13597       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13598       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13599       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13600       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13601 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13602 \textcolor{keyword}{  end interface}
13603   \textcolor{keyword}{interface}
13604 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13605       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13606       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13607       \textcolor{keywordtype}{character(STRING)}:: result
13608 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13609 \textcolor{keyword}{  end interface}
13610   \textcolor{keywordflow}{continue}
13611   file\_work = file
13612   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13613     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13614   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13615     & url = url, &
13616     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13617   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13618     & fullname = url, iorange = iorange, remainder = remainder )
13619   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13620   timevar\_name = carray(1)
13621   \textcolor{keyword}{deallocate}( carray )
13622   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13623   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}( file = file, &
13624     & varname = varname, array = array, &
13625     & range = time\_range, quiet = quiet, &
13626     & flag\_mpi\_split = flag\_mpi\_split, &
13627     & returned\_time = returned\_time, &
13628     & flag\_time\_exist = flag\_time\_exist, &
13629     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_afd85a886138e8ff50c0ddb03c2977d98_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3f1cc1b0914e47dbb2e29d0fbf0c1690}\label{historyget_8f90_a3f1cc1b0914e47dbb2e29d0fbf0c1690}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2pointertimei@{historygetint2pointertimei}}
\index{historygetint2pointertimei@{historygetint2pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2pointertimei()}{historygetint2pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint2pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17206 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17206   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17207   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17208   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17209   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17210   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17211   \textcolor{keywordtype}{implicit none}
17212   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17213   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17214   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17215   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
17216   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17217   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17218   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17219   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17220   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17221   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17222   \textcolor{keywordtype}{character(STRING)}:: tname
17223   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeI"}
17224   \textcolor{keyword}{interface}
17225 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}(&
17226       & file, varname, array, range, quiet, &
17227       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17228       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17229       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17230       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17231       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17232       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17233       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17234       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17235       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17236       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17237       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
17238 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}
17239 \textcolor{keyword}{  end interface}
17240   \textcolor{keyword}{interface}
17241 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17242       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17243       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17244       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17245       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17246       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17247       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17248       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17249 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17250 \textcolor{keyword}{  end interface}
17251   \textcolor{keyword}{interface}
17252 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17253       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17254       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17255       \textcolor{keywordtype}{character(STRING)}:: result
17256 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17257 \textcolor{keyword}{  end interface}
17258   \textcolor{keywordflow}{continue}
17259   file\_work = file
17260   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17261     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17262   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17263     & url = url, &
17264     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17265   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17266     & fullname = url, iorange = iorange, remainder = remainder )
17267   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17268   timevar\_name = carray(1)
17269   \textcolor{keyword}{deallocate}( carray )
17270   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17271   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}( file = file, &
17272     & varname = varname, array = array, &
17273     & range = time\_range, quiet = quiet, &
17274     & flag\_mpi\_split = flag\_mpi\_split, &
17275     & returned\_time = returned\_time, &
17276     & flag\_time\_exist = flag\_time\_exist, &
17277     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3f1cc1b0914e47dbb2e29d0fbf0c1690_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a932c53e262f91636de06cbf113885650}\label{historyget_8f90_a932c53e262f91636de06cbf113885650}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2pointertimer@{historygetint2pointertimer}}
\index{historygetint2pointertimer@{historygetint2pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2pointertimer()}{historygetint2pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint2pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9910 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9910   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9911   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9912   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9913   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9914   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9915   \textcolor{keywordtype}{implicit none}
9916   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9917   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9918   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9919   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
9920   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9921   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9922   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9923   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9924   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9925   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9926   \textcolor{keywordtype}{character(STRING)}:: tname
9927   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeR"}
9928   \textcolor{keyword}{interface}
9929 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}(&
9930       & file, varname, array, range, quiet, &
9931       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9932       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9933       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9934       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9935       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9936       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9937       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9938       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9939       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9940       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9941       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:)
9942 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}
9943 \textcolor{keyword}{  end interface}
9944   \textcolor{keyword}{interface}
9945 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9946       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9947       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9948       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9949       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9950       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9951       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9952       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9953 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9954 \textcolor{keyword}{  end interface}
9955   \textcolor{keyword}{interface}
9956 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9957       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9958       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9959       \textcolor{keywordtype}{character(STRING)}:: result
9960 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9961 \textcolor{keyword}{  end interface}
9962   \textcolor{keywordflow}{continue}
9963   file\_work = file
9964   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9965     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9966   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9967     & url = url, &
9968     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9969   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9970     & fullname = url, iorange = iorange, remainder = remainder )
9971   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9972   timevar\_name = carray(1)
9973   \textcolor{keyword}{deallocate}( carray )
9974   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9975   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab968787b91f1c4bd7e37bbccc37381c4}{historygetint2pointer}( file = file, &
9976     & varname = varname, array = array, &
9977     & range = time\_range, quiet = quiet, &
9978     & flag\_mpi\_split = flag\_mpi\_split, &
9979     & returned\_time = returned\_time, &
9980     & flag\_time\_exist = flag\_time\_exist, &
9981     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a932c53e262f91636de06cbf113885650_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_afc486850c94d5f3015b8db4155ad66a9}\label{historyget_8f90_afc486850c94d5f3015b8db4155ad66a9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2timed@{historygetint2timed}}
\index{historygetint2timed@{historygetint2timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2timed()}{historygetint2timed()}}
{\footnotesize\ttfamily subroutine historygetint2timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12950 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12950   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12951   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12952   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12953   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12954   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12955   \textcolor{keywordtype}{implicit none}
12956   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12957   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12958   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12959   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
12960   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12961   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12962   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12963   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12964   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12965   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12966   \textcolor{keywordtype}{character(STRING)}:: tname
12967   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeD"}
12968   \textcolor{keyword}{interface}
12969 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}(&
12970       & file, varname, array, range, quiet, &
12971       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12972       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
12973       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12974       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12975       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12976       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12977       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12978       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12979       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12980       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12981       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
12982 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}
12983 \textcolor{keyword}{  end interface}
12984   \textcolor{keyword}{interface}
12985 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12986       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12987       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12988       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12989       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12990       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12991       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12992       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12993 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12994 \textcolor{keyword}{  end interface}
12995   \textcolor{keyword}{interface}
12996 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12997       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12998       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12999       \textcolor{keywordtype}{character(STRING)}:: result
13000 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13001 \textcolor{keyword}{  end interface}
13002   \textcolor{keywordflow}{continue}
13003   file\_work = file
13004   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13005     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13006   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13007     & url = url, &
13008     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13009   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13010     & fullname = url, iorange = iorange, remainder = remainder )
13011   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13012   timevar\_name = carray(1)
13013   \textcolor{keyword}{deallocate}( carray )
13014   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13015   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}( file = file, &
13016     & varname = varname, array = array, &
13017     & range = time\_range, quiet = quiet, &
13018     & flag\_mpi\_split = flag\_mpi\_split, &
13019     & returned\_time = returned\_time, &
13020     & flag\_time\_exist = flag\_time\_exist, &
13021     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_afc486850c94d5f3015b8db4155ad66a9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a663014093fb5e739d5af4f4d2aacd555}\label{historyget_8f90_a663014093fb5e739d5af4f4d2aacd555}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2timei@{historygetint2timei}}
\index{historygetint2timei@{historygetint2timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2timei()}{historygetint2timei()}}
{\footnotesize\ttfamily subroutine historygetint2timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16598 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16598   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16599   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16600   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16601   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16602   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16603   \textcolor{keywordtype}{implicit none}
16604   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16605   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16606   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16607   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
16608   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16609   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16610   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16611   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16612   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16613   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16614   \textcolor{keywordtype}{character(STRING)}:: tname
16615   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeI"}
16616   \textcolor{keyword}{interface}
16617 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}(&
16618       & file, varname, array, range, quiet, &
16619       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16620       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16621       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16622       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16623       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16624       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16625       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16626       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16627       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16628       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16629       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
16630 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}
16631 \textcolor{keyword}{  end interface}
16632   \textcolor{keyword}{interface}
16633 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16634       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16635       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16636       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16637       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16638       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16639       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16640       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16641 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16642 \textcolor{keyword}{  end interface}
16643   \textcolor{keyword}{interface}
16644 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16645       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16646       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16647       \textcolor{keywordtype}{character(STRING)}:: result
16648 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16649 \textcolor{keyword}{  end interface}
16650   \textcolor{keywordflow}{continue}
16651   file\_work = file
16652   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16653     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16654   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16655     & url = url, &
16656     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16657   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16658     & fullname = url, iorange = iorange, remainder = remainder )
16659   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16660   timevar\_name = carray(1)
16661   \textcolor{keyword}{deallocate}( carray )
16662   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16663   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}( file = file, &
16664     & varname = varname, array = array, &
16665     & range = time\_range, quiet = quiet, &
16666     & flag\_mpi\_split = flag\_mpi\_split, &
16667     & returned\_time = returned\_time, &
16668     & flag\_time\_exist = flag\_time\_exist, &
16669     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a663014093fb5e739d5af4f4d2aacd555_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7dfdc12ad4f6bc7a48aa199f340e2d61}\label{historyget_8f90_a7dfdc12ad4f6bc7a48aa199f340e2d61}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint2timer@{historygetint2timer}}
\index{historygetint2timer@{historygetint2timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint2timer()}{historygetint2timer()}}
{\footnotesize\ttfamily subroutine historygetint2timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9302 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9302   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9303   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9304   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9305   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9306   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9307   \textcolor{keywordtype}{implicit none}
9308   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9309   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9310   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9311   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
9312   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9313   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9314   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9315   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9316   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9317   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9318   \textcolor{keywordtype}{character(STRING)}:: tname
9319   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt2TimeR"}
9320   \textcolor{keyword}{interface}
9321 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}(&
9322       & file, varname, array, range, quiet, &
9323       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9324       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9325       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9326       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9327       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9328       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9329       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9330       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9331       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9332       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9333       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:)
9334 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}
9335 \textcolor{keyword}{  end interface}
9336   \textcolor{keyword}{interface}
9337 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9338       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9339       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9340       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9341       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9342       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9343       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9344       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9345 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9346 \textcolor{keyword}{  end interface}
9347   \textcolor{keyword}{interface}
9348 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9349       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9350       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9351       \textcolor{keywordtype}{character(STRING)}:: result
9352 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9353 \textcolor{keyword}{  end interface}
9354   \textcolor{keywordflow}{continue}
9355   file\_work = file
9356   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9357     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9358   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9359     & url = url, &
9360     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9361   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9362     & fullname = url, iorange = iorange, remainder = remainder )
9363   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9364   timevar\_name = carray(1)
9365   \textcolor{keyword}{deallocate}( carray )
9366   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9367   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7ba4334c1a10fa6ba52aefadb312ca15}{historygetint2}( file = file, &
9368     & varname = varname, array = array, &
9369     & range = time\_range, quiet = quiet, &
9370     & flag\_mpi\_split = flag\_mpi\_split, &
9371     & returned\_time = returned\_time, &
9372     & flag\_time\_exist = flag\_time\_exist, &
9373     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7dfdc12ad4f6bc7a48aa199f340e2d61_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}\label{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3@{historygetint3}}
\index{historygetint3@{historygetint3}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3()}{historygetint3()}}
{\footnotesize\ttfamily subroutine historygetint3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3747 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint3timed(), historygetint3timei(), and historygetint3timer().


\begin{DoxyCode}
3747   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3748   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3749   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3750   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3751   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3752   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3753   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3754   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3755   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3756   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3757     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3758   \textcolor{keywordtype}{implicit none}
3759   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3760   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3761   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3762   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3763   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3764   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3765   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3766   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3767   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
3768   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
3769   \textcolor{keywordtype}{integer}:: array\_allsize
3770   \textcolor{keywordtype}{integer}:: array\_shape(3), data\_shape(3), array\_shape\_check(3)
3771   \textcolor{keywordtype}{integer}:: allcount
3772   \textcolor{keywordtype}{integer}:: i, sd
3773   \textcolor{keywordtype}{logical}:: inq\_err
3774   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3775   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3776   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3777   \textcolor{keywordtype}{integer}:: domain
3778   \textcolor{keywordtype}{character(STRING)}:: tname
3779   \textcolor{keywordtype}{integer}:: stat
3780   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3781   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3"}
3782   \textcolor{keyword}{interface}
3783 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3784       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3785       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3786       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3787       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3788       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3789       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3790       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3791 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3792 \textcolor{keyword}{  end interface}
3793   \textcolor{keyword}{interface}
3794 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3795       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3796       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3797       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3798       \textcolor{comment}{! 正確な入出力範囲指定}
3799       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3800       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3801       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3802 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
3803 \textcolor{keyword}{  end interface}
3804   \textcolor{keyword}{interface}
3805 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
3806       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3807       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3808       \textcolor{keywordtype}{character(STRING)}:: result
3809 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
3810 \textcolor{keyword}{  end interface}
3811   \textcolor{keywordflow}{continue}
3812   cause\_c = \textcolor{stringliteral}{''}
3813   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3814   file\_work = file
3815   array\_shape = shape( array )
3816   array\_allsize = \textcolor{keyword}{size}( array )
3817   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
3818   \textcolor{comment}{! Change filename (for MPI)}
3819   \textcolor{comment}{!}
3820   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
3821     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
3822   \textcolor{comment}{! 最新時刻の URL 取得}
3823   \textcolor{comment}{! Get URL of latest time}
3824   \textcolor{comment}{!}
3825   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
3826     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
3827   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3828     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3829     cause\_c = url
3830     \textcolor{keywordflow}{goto} 999
3831 \textcolor{keywordflow}{  end if}
3832   \textcolor{comment}{! ファイルオープン}
3833   \textcolor{comment}{! File open}
3834   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
3835   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3836     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3837     cause\_c = url
3838     \textcolor{keywordflow}{goto} 999
3839 \textcolor{keywordflow}{  end if}
3840   \textcolor{comment}{!-------------------------------------------------------------------}
3841   \textcolor{comment}{!  配列形状のチェック}
3842   \textcolor{comment}{!  Check array shape}
3843   \textcolor{comment}{!-------------------------------------------------------------------}
3844   \textcolor{comment}{! 入力ファイル中のデータの次元数}
3845   \textcolor{comment}{! Get size of dimesions in data of an input file}
3846   \textcolor{comment}{!}
3847   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
3848     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
3849   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
3850   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
3851   array\_rank = 3
3852   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
3853   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
3854   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
3855   \textcolor{comment}{! 次元数の比較}
3856   \textcolor{comment}{! Compare sizes of dimensions}
3857   \textcolor{comment}{!}
3858   \textcolor{keywordflow}{if} ( .not. 3 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
3859     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3860       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3861         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
3862         & i = (/rank, 3/), c1 = trim(url) )
3863 \textcolor{keywordflow}{    end if}
3864     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
3865     cause\_c = \textcolor{stringliteral}{'array'}
3866     \textcolor{keywordflow}{goto} 999
3867 \textcolor{keywordflow}{  end if}
3868   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
3869   \textcolor{comment}{! Get shape of data in an input file}
3870   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
3871     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3872   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3873     data\_shape(1) = allcount
3874   \textcolor{keywordflow}{else}
3875     data\_shape(1) = 1
3876 \textcolor{keywordflow}{  end if}
3877   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
3878     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3879   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3880     data\_shape(2) = allcount
3881   \textcolor{keywordflow}{else}
3882     data\_shape(2) = 1
3883 \textcolor{keywordflow}{  end if}
3884   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
3885     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3886   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3887     data\_shape(3) = allcount
3888   \textcolor{keywordflow}{else}
3889     data\_shape(3) = 1
3890 \textcolor{keywordflow}{  end if}
3891   \textcolor{comment}{! 引数の配列形状整形}
3892   \textcolor{comment}{! Arrange shape of an argument}
3893   \textcolor{comment}{!}
3894   array\_shape\_check = array\_shape
3895   sd = 1
3896   \textcolor{keywordflow}{do} i = 1, 3 - 1
3897     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
3898       array\_shape\_check(sd:3) = cshift( array\_shape\_check(sd:3), 1, 1 )
3899     \textcolor{keywordflow}{else}
3900       sd = sd + 1
3901 \textcolor{keywordflow}{    end if}
3902 \textcolor{keywordflow}{  end do}
3903   \textcolor{comment}{! 配列形状の比較}
3904   \textcolor{comment}{! Compare shapes}
3905   \textcolor{comment}{!}
3906   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
3907     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3908       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3909         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
3910         & c1 = trim( url ), &
3911         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
3912         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
3913 \textcolor{keywordflow}{    end if}
3914     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3915     cause\_c = \textcolor{stringliteral}{'array'}
3916     \textcolor{keywordflow}{goto} 999
3917 \textcolor{keywordflow}{  end if}
3918   \textcolor{comment}{!-------------------------------------}
3919   \textcolor{comment}{!  データ取得}
3920   \textcolor{comment}{!  Get data}
3921   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
3922     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
3923   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
3924   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
3925   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
3926   array = reshape( array\_tmp, array\_shape )
3927   \textcolor{keyword}{deallocate}( array\_tmp )
3928   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
3929   \textcolor{comment}{!-------------------------------------}
3930   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
3931   \textcolor{comment}{!  Print data filename and clipping range}
3932   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
3933     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3934     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3935     & err = err)                   \textcolor{comment}{! (out) optional}
3936   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3937     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3938 \textcolor{keywordflow}{  end if}
3939 999 \textcolor{keywordflow}{continue}
3940   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}\label{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3pointer@{historygetint3pointer}}
\index{historygetint3pointer@{historygetint3pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3pointer()}{historygetint3pointer()}}
{\footnotesize\ttfamily subroutine historygetint3pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6322 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint3pointertimed(), historygetint3pointertimei(), and historygetint3pointertimer().


\begin{DoxyCode}
6322   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6323   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6324   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6325   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6326   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6327   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6328   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6329   \textcolor{keywordtype}{implicit none}
6330   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6331   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6332   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6333   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6334   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6335   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6336   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6337   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6338   \textcolor{keywordtype}{integer}:: domain
6339   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:,:) \textcolor{comment}{! (out)}
6340   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6341   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6342   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6343   \textcolor{keywordtype}{character(STRING)}:: tname
6344   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3Pointer"}
6345   \textcolor{keyword}{interface}
6346 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6347       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6348       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6349       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6350       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6351       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6352       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6353       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6354 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6355 \textcolor{keyword}{  end interface}
6356   \textcolor{keyword}{interface}
6357 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6358       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6359       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6360       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6361       \textcolor{comment}{! 正確な入出力範囲指定}
6362       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6363       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6364       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6365 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6366 \textcolor{keyword}{  end interface}
6367   \textcolor{keyword}{interface}
6368 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6369       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6370       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6371       \textcolor{keywordtype}{character(STRING)}:: result
6372 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6373 \textcolor{keyword}{  end interface}
6374   \textcolor{keywordflow}{continue}
6375   file\_work = file
6376   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6377   \textcolor{comment}{! Change filename (for MPI)}
6378   \textcolor{comment}{!}
6379   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6380     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6381   \textcolor{comment}{! 必要な情報を gtool 変数化}
6382   \textcolor{comment}{!}
6383   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6384     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6385   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6386   \textcolor{comment}{! いよいよデータ取得}
6387   \textcolor{comment}{!}
6388   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6389   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6390   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6391   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6392     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6393     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6394     & err = err)                   \textcolor{comment}{! (out) optional}
6395   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6396     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6397 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac8f327cc2bd81309003c05b7b9cc9736}\label{historyget_8f90_ac8f327cc2bd81309003c05b7b9cc9736}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3pointertimed@{historygetint3pointertimed}}
\index{historygetint3pointertimed@{historygetint3pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3pointertimed()}{historygetint3pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint3pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13634 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13634   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13635   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13636   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13637   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13638   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13639   \textcolor{keywordtype}{implicit none}
13640   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13641   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13642   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13643   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
13644   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13645   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13646   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13647   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13648   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13649   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13650   \textcolor{keywordtype}{character(STRING)}:: tname
13651   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeD"}
13652   \textcolor{keyword}{interface}
13653 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}(&
13654       & file, varname, array, range, quiet, &
13655       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13656       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13657       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13658       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13659       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13660       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13661       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13662       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13663       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13664       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13665       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
13666 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}
13667 \textcolor{keyword}{  end interface}
13668   \textcolor{keyword}{interface}
13669 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13670       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13671       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13672       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13673       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13674       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13675       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13676       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13677 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13678 \textcolor{keyword}{  end interface}
13679   \textcolor{keyword}{interface}
13680 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13681       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13682       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13683       \textcolor{keywordtype}{character(STRING)}:: result
13684 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13685 \textcolor{keyword}{  end interface}
13686   \textcolor{keywordflow}{continue}
13687   file\_work = file
13688   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13689     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13690   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13691     & url = url, &
13692     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13693   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13694     & fullname = url, iorange = iorange, remainder = remainder )
13695   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13696   timevar\_name = carray(1)
13697   \textcolor{keyword}{deallocate}( carray )
13698   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13699   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}( file = file, &
13700     & varname = varname, array = array, &
13701     & range = time\_range, quiet = quiet, &
13702     & flag\_mpi\_split = flag\_mpi\_split, &
13703     & returned\_time = returned\_time, &
13704     & flag\_time\_exist = flag\_time\_exist, &
13705     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ac8f327cc2bd81309003c05b7b9cc9736_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac5126b972df80cb533ede4bda27ca85b}\label{historyget_8f90_ac5126b972df80cb533ede4bda27ca85b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3pointertimei@{historygetint3pointertimei}}
\index{historygetint3pointertimei@{historygetint3pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3pointertimei()}{historygetint3pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint3pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17282 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17282   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17283   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17284   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17285   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17286   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17287   \textcolor{keywordtype}{implicit none}
17288   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17289   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17290   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17291   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
17292   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17293   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17294   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17295   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17296   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17297   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17298   \textcolor{keywordtype}{character(STRING)}:: tname
17299   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeI"}
17300   \textcolor{keyword}{interface}
17301 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}(&
17302       & file, varname, array, range, quiet, &
17303       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17304       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17305       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17306       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17307       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17308       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17309       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17310       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17311       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17312       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17313       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
17314 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}
17315 \textcolor{keyword}{  end interface}
17316   \textcolor{keyword}{interface}
17317 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17318       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17319       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17320       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17321       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17322       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17323       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17324       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17325 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17326 \textcolor{keyword}{  end interface}
17327   \textcolor{keyword}{interface}
17328 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17329       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17330       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17331       \textcolor{keywordtype}{character(STRING)}:: result
17332 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17333 \textcolor{keyword}{  end interface}
17334   \textcolor{keywordflow}{continue}
17335   file\_work = file
17336   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17337     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17338   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17339     & url = url, &
17340     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17341   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17342     & fullname = url, iorange = iorange, remainder = remainder )
17343   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17344   timevar\_name = carray(1)
17345   \textcolor{keyword}{deallocate}( carray )
17346   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17347   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}( file = file, &
17348     & varname = varname, array = array, &
17349     & range = time\_range, quiet = quiet, &
17350     & flag\_mpi\_split = flag\_mpi\_split, &
17351     & returned\_time = returned\_time, &
17352     & flag\_time\_exist = flag\_time\_exist, &
17353     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ac5126b972df80cb533ede4bda27ca85b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8ad9a656c938374636919ccfe1687708}\label{historyget_8f90_a8ad9a656c938374636919ccfe1687708}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3pointertimer@{historygetint3pointertimer}}
\index{historygetint3pointertimer@{historygetint3pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3pointertimer()}{historygetint3pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint3pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9986 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9986   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9987   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9988   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9989   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9990   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9991   \textcolor{keywordtype}{implicit none}
9992   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9993   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9994   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9995   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
9996   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9997   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9998   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9999   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10000   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10001   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10002   \textcolor{keywordtype}{character(STRING)}:: tname
10003   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeR"}
10004   \textcolor{keyword}{interface}
10005 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}(&
10006       & file, varname, array, range, quiet, &
10007       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10008       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10009       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10010       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10011       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10012       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10013       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10014       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10015       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10016       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10017       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:)
10018 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}
10019 \textcolor{keyword}{  end interface}
10020   \textcolor{keyword}{interface}
10021 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10022       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10023       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10024       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10025       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10026       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10027       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10028       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10029 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10030 \textcolor{keyword}{  end interface}
10031   \textcolor{keyword}{interface}
10032 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10033       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10034       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10035       \textcolor{keywordtype}{character(STRING)}:: result
10036 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10037 \textcolor{keyword}{  end interface}
10038   \textcolor{keywordflow}{continue}
10039   file\_work = file
10040   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10041     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10042   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10043     & url = url, &
10044     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10045   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10046     & fullname = url, iorange = iorange, remainder = remainder )
10047   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10048   timevar\_name = carray(1)
10049   \textcolor{keyword}{deallocate}( carray )
10050   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10051   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a64dc6f4372b51dc205db9622b1d72d99}{historygetint3pointer}( file = file, &
10052     & varname = varname, array = array, &
10053     & range = time\_range, quiet = quiet, &
10054     & flag\_mpi\_split = flag\_mpi\_split, &
10055     & returned\_time = returned\_time, &
10056     & flag\_time\_exist = flag\_time\_exist, &
10057     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8ad9a656c938374636919ccfe1687708_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6fdcac832e7d37712f28fbc2e5210958}\label{historyget_8f90_a6fdcac832e7d37712f28fbc2e5210958}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3timed@{historygetint3timed}}
\index{historygetint3timed@{historygetint3timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3timed()}{historygetint3timed()}}
{\footnotesize\ttfamily subroutine historygetint3timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13026 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13026   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13027   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13028   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13029   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13030   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13031   \textcolor{keywordtype}{implicit none}
13032   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13033   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13034   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13035   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
13036   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13037   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13038   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13039   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13040   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13041   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13042   \textcolor{keywordtype}{character(STRING)}:: tname
13043   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeD"}
13044   \textcolor{keyword}{interface}
13045 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}(&
13046       & file, varname, array, range, quiet, &
13047       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13048       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13049       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13050       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13051       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13052       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13053       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13054       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13055       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13056       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13057       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
13058 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}
13059 \textcolor{keyword}{  end interface}
13060   \textcolor{keyword}{interface}
13061 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13062       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13063       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13064       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13065       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13066       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13067       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13068       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13069 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13070 \textcolor{keyword}{  end interface}
13071   \textcolor{keyword}{interface}
13072 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13073       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13074       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13075       \textcolor{keywordtype}{character(STRING)}:: result
13076 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13077 \textcolor{keyword}{  end interface}
13078   \textcolor{keywordflow}{continue}
13079   file\_work = file
13080   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13081     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13082   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13083     & url = url, &
13084     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13085   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13086     & fullname = url, iorange = iorange, remainder = remainder )
13087   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13088   timevar\_name = carray(1)
13089   \textcolor{keyword}{deallocate}( carray )
13090   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13091   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}( file = file, &
13092     & varname = varname, array = array, &
13093     & range = time\_range, quiet = quiet, &
13094     & flag\_mpi\_split = flag\_mpi\_split, &
13095     & returned\_time = returned\_time, &
13096     & flag\_time\_exist = flag\_time\_exist, &
13097     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6fdcac832e7d37712f28fbc2e5210958_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a73bbb52913e6325df98408f13a23c4e7}\label{historyget_8f90_a73bbb52913e6325df98408f13a23c4e7}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3timei@{historygetint3timei}}
\index{historygetint3timei@{historygetint3timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3timei()}{historygetint3timei()}}
{\footnotesize\ttfamily subroutine historygetint3timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16674 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16674   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16675   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16676   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16677   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16678   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16679   \textcolor{keywordtype}{implicit none}
16680   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16681   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16682   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16683   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
16684   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16685   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16686   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16687   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16688   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16689   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16690   \textcolor{keywordtype}{character(STRING)}:: tname
16691   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeI"}
16692   \textcolor{keyword}{interface}
16693 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}(&
16694       & file, varname, array, range, quiet, &
16695       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16696       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16697       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16698       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16699       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16700       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16701       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16702       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16703       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16704       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16705       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
16706 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}
16707 \textcolor{keyword}{  end interface}
16708   \textcolor{keyword}{interface}
16709 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16710       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16711       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16712       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16713       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16714       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16715       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16716       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16717 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16718 \textcolor{keyword}{  end interface}
16719   \textcolor{keyword}{interface}
16720 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16721       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16722       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16723       \textcolor{keywordtype}{character(STRING)}:: result
16724 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16725 \textcolor{keyword}{  end interface}
16726   \textcolor{keywordflow}{continue}
16727   file\_work = file
16728   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16729     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16730   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16731     & url = url, &
16732     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16733   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16734     & fullname = url, iorange = iorange, remainder = remainder )
16735   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16736   timevar\_name = carray(1)
16737   \textcolor{keyword}{deallocate}( carray )
16738   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16739   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}( file = file, &
16740     & varname = varname, array = array, &
16741     & range = time\_range, quiet = quiet, &
16742     & flag\_mpi\_split = flag\_mpi\_split, &
16743     & returned\_time = returned\_time, &
16744     & flag\_time\_exist = flag\_time\_exist, &
16745     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a73bbb52913e6325df98408f13a23c4e7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a34c024c0953901b084997d7542b6c0c1}\label{historyget_8f90_a34c024c0953901b084997d7542b6c0c1}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint3timer@{historygetint3timer}}
\index{historygetint3timer@{historygetint3timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint3timer()}{historygetint3timer()}}
{\footnotesize\ttfamily subroutine historygetint3timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9378 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9378   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9379   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9380   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9381   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9382   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9383   \textcolor{keywordtype}{implicit none}
9384   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9385   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9386   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9387   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
9388   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9389   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9390   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9391   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9392   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9393   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9394   \textcolor{keywordtype}{character(STRING)}:: tname
9395   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt3TimeR"}
9396   \textcolor{keyword}{interface}
9397 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}(&
9398       & file, varname, array, range, quiet, &
9399       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9400       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9401       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9402       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9403       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9404       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9405       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9406       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9407       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9408       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9409       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:)
9410 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}
9411 \textcolor{keyword}{  end interface}
9412   \textcolor{keyword}{interface}
9413 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9414       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9415       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9416       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9417       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9418       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9419       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9420       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9421 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9422 \textcolor{keyword}{  end interface}
9423   \textcolor{keyword}{interface}
9424 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9425       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9426       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9427       \textcolor{keywordtype}{character(STRING)}:: result
9428 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9429 \textcolor{keyword}{  end interface}
9430   \textcolor{keywordflow}{continue}
9431   file\_work = file
9432   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9433     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9434   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9435     & url = url, &
9436     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9437   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9438     & fullname = url, iorange = iorange, remainder = remainder )
9439   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9440   timevar\_name = carray(1)
9441   \textcolor{keyword}{deallocate}( carray )
9442   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9443   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a50275b3dba1ffbdc7f5eae110519e607}{historygetint3}( file = file, &
9444     & varname = varname, array = array, &
9445     & range = time\_range, quiet = quiet, &
9446     & flag\_mpi\_split = flag\_mpi\_split, &
9447     & returned\_time = returned\_time, &
9448     & flag\_time\_exist = flag\_time\_exist, &
9449     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a34c024c0953901b084997d7542b6c0c1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}\label{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4@{historygetint4}}
\index{historygetint4@{historygetint4}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4()}{historygetint4()}}
{\footnotesize\ttfamily subroutine historygetint4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3944 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint4timed(), historygetint4timei(), and historygetint4timer().


\begin{DoxyCode}
3944   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3945   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3946   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3947   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3948   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3949   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3950   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3951   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3952   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3953   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3954     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3955   \textcolor{keywordtype}{implicit none}
3956   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3957   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3958   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3959   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3960   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3961   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3962   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3963   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3964   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
3965   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
3966   \textcolor{keywordtype}{integer}:: array\_allsize
3967   \textcolor{keywordtype}{integer}:: array\_shape(4), data\_shape(4), array\_shape\_check(4)
3968   \textcolor{keywordtype}{integer}:: allcount
3969   \textcolor{keywordtype}{integer}:: i, sd
3970   \textcolor{keywordtype}{logical}:: inq\_err
3971   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3972   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3973   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3974   \textcolor{keywordtype}{integer}:: domain
3975   \textcolor{keywordtype}{character(STRING)}:: tname
3976   \textcolor{keywordtype}{integer}:: stat
3977   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3978   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4"}
3979   \textcolor{keyword}{interface}
3980 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3981       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3982       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3983       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3984       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3985       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3986       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3987       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3988 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3989 \textcolor{keyword}{  end interface}
3990   \textcolor{keyword}{interface}
3991 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3992       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3993       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3994       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3995       \textcolor{comment}{! 正確な入出力範囲指定}
3996       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3997       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3998       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3999 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4000 \textcolor{keyword}{  end interface}
4001   \textcolor{keyword}{interface}
4002 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4003       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4004       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4005       \textcolor{keywordtype}{character(STRING)}:: result
4006 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4007 \textcolor{keyword}{  end interface}
4008   \textcolor{keywordflow}{continue}
4009   cause\_c = \textcolor{stringliteral}{''}
4010   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
4011   file\_work = file
4012   array\_shape = shape( array )
4013   array\_allsize = \textcolor{keyword}{size}( array )
4014   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4015   \textcolor{comment}{! Change filename (for MPI)}
4016   \textcolor{comment}{!}
4017   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4018     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4019   \textcolor{comment}{! 最新時刻の URL 取得}
4020   \textcolor{comment}{! Get URL of latest time}
4021   \textcolor{comment}{!}
4022   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4023     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4024   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4025     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4026     cause\_c = url
4027     \textcolor{keywordflow}{goto} 999
4028 \textcolor{keywordflow}{  end if}
4029   \textcolor{comment}{! ファイルオープン}
4030   \textcolor{comment}{! File open}
4031   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
4032   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4033     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4034     cause\_c = url
4035     \textcolor{keywordflow}{goto} 999
4036 \textcolor{keywordflow}{  end if}
4037   \textcolor{comment}{!-------------------------------------------------------------------}
4038   \textcolor{comment}{!  配列形状のチェック}
4039   \textcolor{comment}{!  Check array shape}
4040   \textcolor{comment}{!-------------------------------------------------------------------}
4041   \textcolor{comment}{! 入力ファイル中のデータの次元数}
4042   \textcolor{comment}{! Get size of dimesions in data of an input file}
4043   \textcolor{comment}{!}
4044   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
4045     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
4046   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
4047   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
4048   array\_rank = 4
4049   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
4050   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
4051   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
4052   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
4053   \textcolor{comment}{! 次元数の比較}
4054   \textcolor{comment}{! Compare sizes of dimensions}
4055   \textcolor{comment}{!}
4056   \textcolor{keywordflow}{if} ( .not. 4 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
4057     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4058       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4059         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
4060         & i = (/rank, 4/), c1 = trim(url) )
4061 \textcolor{keywordflow}{    end if}
4062     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
4063     cause\_c = \textcolor{stringliteral}{'array'}
4064     \textcolor{keywordflow}{goto} 999
4065 \textcolor{keywordflow}{  end if}
4066   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
4067   \textcolor{comment}{! Get shape of data in an input file}
4068   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
4069     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4070   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4071     data\_shape(1) = allcount
4072   \textcolor{keywordflow}{else}
4073     data\_shape(1) = 1
4074 \textcolor{keywordflow}{  end if}
4075   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
4076     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4077   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4078     data\_shape(2) = allcount
4079   \textcolor{keywordflow}{else}
4080     data\_shape(2) = 1
4081 \textcolor{keywordflow}{  end if}
4082   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
4083     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4084   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4085     data\_shape(3) = allcount
4086   \textcolor{keywordflow}{else}
4087     data\_shape(3) = 1
4088 \textcolor{keywordflow}{  end if}
4089   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
4090     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4091   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4092     data\_shape(4) = allcount
4093   \textcolor{keywordflow}{else}
4094     data\_shape(4) = 1
4095 \textcolor{keywordflow}{  end if}
4096   \textcolor{comment}{! 引数の配列形状整形}
4097   \textcolor{comment}{! Arrange shape of an argument}
4098   \textcolor{comment}{!}
4099   array\_shape\_check = array\_shape
4100   sd = 1
4101   \textcolor{keywordflow}{do} i = 1, 4 - 1
4102     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
4103       array\_shape\_check(sd:4) = cshift( array\_shape\_check(sd:4), 1, 1 )
4104     \textcolor{keywordflow}{else}
4105       sd = sd + 1
4106 \textcolor{keywordflow}{    end if}
4107 \textcolor{keywordflow}{  end do}
4108   \textcolor{comment}{! 配列形状の比較}
4109   \textcolor{comment}{! Compare shapes}
4110   \textcolor{comment}{!}
4111   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
4112     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4113       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4114         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
4115         & c1 = trim( url ), &
4116         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
4117         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
4118 \textcolor{keywordflow}{    end if}
4119     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4120     cause\_c = \textcolor{stringliteral}{'array'}
4121     \textcolor{keywordflow}{goto} 999
4122 \textcolor{keywordflow}{  end if}
4123   \textcolor{comment}{!-------------------------------------}
4124   \textcolor{comment}{!  データ取得}
4125   \textcolor{comment}{!  Get data}
4126   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
4127     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
4128   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
4129   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
4130   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
4131   array = reshape( array\_tmp, array\_shape )
4132   \textcolor{keyword}{deallocate}( array\_tmp )
4133   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
4134   \textcolor{comment}{!-------------------------------------}
4135   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
4136   \textcolor{comment}{!  Print data filename and clipping range}
4137   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4138     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4139     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4140     & err = err)                   \textcolor{comment}{! (out) optional}
4141   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4142     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
4143 \textcolor{keywordflow}{  end if}
4144 999 \textcolor{keywordflow}{continue}
4145   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}\label{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4pointer@{historygetint4pointer}}
\index{historygetint4pointer@{historygetint4pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4pointer()}{historygetint4pointer()}}
{\footnotesize\ttfamily subroutine historygetint4pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6401 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint4pointertimed(), historygetint4pointertimei(), and historygetint4pointertimer().


\begin{DoxyCode}
6401   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6402   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6403   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6404   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6405   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6406   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6407   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6408   \textcolor{keywordtype}{implicit none}
6409   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6410   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6411   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6412   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6413   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6414   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6415   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6416   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6417   \textcolor{keywordtype}{integer}:: domain
6418   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:,:,:) \textcolor{comment}{! (out)}
6419   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6420   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6421   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6422   \textcolor{keywordtype}{character(STRING)}:: tname
6423   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4Pointer"}
6424   \textcolor{keyword}{interface}
6425 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6426       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6427       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6428       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6429       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6430       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6431       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6432       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6433 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6434 \textcolor{keyword}{  end interface}
6435   \textcolor{keyword}{interface}
6436 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6437       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6438       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6439       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6440       \textcolor{comment}{! 正確な入出力範囲指定}
6441       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6442       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6443       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6444 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6445 \textcolor{keyword}{  end interface}
6446   \textcolor{keyword}{interface}
6447 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6448       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6449       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6450       \textcolor{keywordtype}{character(STRING)}:: result
6451 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6452 \textcolor{keyword}{  end interface}
6453   \textcolor{keywordflow}{continue}
6454   file\_work = file
6455   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6456   \textcolor{comment}{! Change filename (for MPI)}
6457   \textcolor{comment}{!}
6458   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6459     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6460   \textcolor{comment}{! 必要な情報を gtool 変数化}
6461   \textcolor{comment}{!}
6462   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6463     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6464   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6465   \textcolor{comment}{! いよいよデータ取得}
6466   \textcolor{comment}{!}
6467   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6468   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6469   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6470   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6471     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6472     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6473     & err = err)                   \textcolor{comment}{! (out) optional}
6474   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6475     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6476 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a576cec8e6bcda493ebafea89304ba468_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a576cec8e6bcda493ebafea89304ba468_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acb0573ec5b1dac9ba2272d7b603b084e}\label{historyget_8f90_acb0573ec5b1dac9ba2272d7b603b084e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4pointertimed@{historygetint4pointertimed}}
\index{historygetint4pointertimed@{historygetint4pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4pointertimed()}{historygetint4pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint4pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13710 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13710   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13711   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13712   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13713   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13714   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13715   \textcolor{keywordtype}{implicit none}
13716   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13717   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13718   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13719   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
13720   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13721   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13722   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13723   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13724   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13725   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13726   \textcolor{keywordtype}{character(STRING)}:: tname
13727   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeD"}
13728   \textcolor{keyword}{interface}
13729 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}(&
13730       & file, varname, array, range, quiet, &
13731       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13732       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13733       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13734       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13735       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13736       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13737       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13738       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13739       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13740       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13741       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
13742 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}
13743 \textcolor{keyword}{  end interface}
13744   \textcolor{keyword}{interface}
13745 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13746       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13747       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13748       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13749       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13750       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13751       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13752       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13753 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13754 \textcolor{keyword}{  end interface}
13755   \textcolor{keyword}{interface}
13756 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13757       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13758       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13759       \textcolor{keywordtype}{character(STRING)}:: result
13760 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13761 \textcolor{keyword}{  end interface}
13762   \textcolor{keywordflow}{continue}
13763   file\_work = file
13764   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13765     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13766   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13767     & url = url, &
13768     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13769   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13770     & fullname = url, iorange = iorange, remainder = remainder )
13771   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13772   timevar\_name = carray(1)
13773   \textcolor{keyword}{deallocate}( carray )
13774   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13775   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}( file = file, &
13776     & varname = varname, array = array, &
13777     & range = time\_range, quiet = quiet, &
13778     & flag\_mpi\_split = flag\_mpi\_split, &
13779     & returned\_time = returned\_time, &
13780     & flag\_time\_exist = flag\_time\_exist, &
13781     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acb0573ec5b1dac9ba2272d7b603b084e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab429ed375736c7ecce46a67dbb26f6fe}\label{historyget_8f90_ab429ed375736c7ecce46a67dbb26f6fe}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4pointertimei@{historygetint4pointertimei}}
\index{historygetint4pointertimei@{historygetint4pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4pointertimei()}{historygetint4pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint4pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17358 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17358   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17359   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17360   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17361   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17362   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17363   \textcolor{keywordtype}{implicit none}
17364   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17365   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17366   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17367   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
17368   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17369   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17370   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17371   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17372   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17373   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17374   \textcolor{keywordtype}{character(STRING)}:: tname
17375   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeI"}
17376   \textcolor{keyword}{interface}
17377 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}(&
17378       & file, varname, array, range, quiet, &
17379       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17380       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17381       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17382       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17383       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17384       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17385       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17386       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17387       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17388       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17389       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
17390 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}
17391 \textcolor{keyword}{  end interface}
17392   \textcolor{keyword}{interface}
17393 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17394       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17395       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17396       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17397       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17398       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17399       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17400       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17401 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17402 \textcolor{keyword}{  end interface}
17403   \textcolor{keyword}{interface}
17404 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17405       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17406       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17407       \textcolor{keywordtype}{character(STRING)}:: result
17408 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17409 \textcolor{keyword}{  end interface}
17410   \textcolor{keywordflow}{continue}
17411   file\_work = file
17412   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17413     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17414   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17415     & url = url, &
17416     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17417   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17418     & fullname = url, iorange = iorange, remainder = remainder )
17419   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17420   timevar\_name = carray(1)
17421   \textcolor{keyword}{deallocate}( carray )
17422   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17423   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}( file = file, &
17424     & varname = varname, array = array, &
17425     & range = time\_range, quiet = quiet, &
17426     & flag\_mpi\_split = flag\_mpi\_split, &
17427     & returned\_time = returned\_time, &
17428     & flag\_time\_exist = flag\_time\_exist, &
17429     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab429ed375736c7ecce46a67dbb26f6fe_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab28bcfd5f9ffed04385e801d3d7a40f9}\label{historyget_8f90_ab28bcfd5f9ffed04385e801d3d7a40f9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4pointertimer@{historygetint4pointertimer}}
\index{historygetint4pointertimer@{historygetint4pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4pointertimer()}{historygetint4pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint4pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10062 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10062   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10063   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
10064   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10065   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10066   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10067   \textcolor{keywordtype}{implicit none}
10068   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10069   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
10070   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10071   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
10072   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10073   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10074   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10075   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10076   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10077   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10078   \textcolor{keywordtype}{character(STRING)}:: tname
10079   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeR"}
10080   \textcolor{keyword}{interface}
10081 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}(&
10082       & file, varname, array, range, quiet, &
10083       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10084       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10085       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10086       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10087       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10088       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10089       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10090       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10091       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10092       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10093       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:)
10094 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}
10095 \textcolor{keyword}{  end interface}
10096   \textcolor{keyword}{interface}
10097 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10098       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10099       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10100       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10101       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10102       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10103       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10104       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10105 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10106 \textcolor{keyword}{  end interface}
10107   \textcolor{keyword}{interface}
10108 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10109       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10110       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10111       \textcolor{keywordtype}{character(STRING)}:: result
10112 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10113 \textcolor{keyword}{  end interface}
10114   \textcolor{keywordflow}{continue}
10115   file\_work = file
10116   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10117     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10118   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10119     & url = url, &
10120     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10121   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10122     & fullname = url, iorange = iorange, remainder = remainder )
10123   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10124   timevar\_name = carray(1)
10125   \textcolor{keyword}{deallocate}( carray )
10126   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10127   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a576cec8e6bcda493ebafea89304ba468}{historygetint4pointer}( file = file, &
10128     & varname = varname, array = array, &
10129     & range = time\_range, quiet = quiet, &
10130     & flag\_mpi\_split = flag\_mpi\_split, &
10131     & returned\_time = returned\_time, &
10132     & flag\_time\_exist = flag\_time\_exist, &
10133     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab28bcfd5f9ffed04385e801d3d7a40f9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aaee2065260d1a04d05580ff6c673f1f3}\label{historyget_8f90_aaee2065260d1a04d05580ff6c673f1f3}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4timed@{historygetint4timed}}
\index{historygetint4timed@{historygetint4timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4timed()}{historygetint4timed()}}
{\footnotesize\ttfamily subroutine historygetint4timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13102 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13102   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13103   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13104   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13105   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13106   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13107   \textcolor{keywordtype}{implicit none}
13108   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13109   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13110   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13111   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
13112   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13113   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13114   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13115   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13116   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13117   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13118   \textcolor{keywordtype}{character(STRING)}:: tname
13119   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeD"}
13120   \textcolor{keyword}{interface}
13121 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}(&
13122       & file, varname, array, range, quiet, &
13123       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13124       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13125       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13126       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13127       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13128       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13129       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13130       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13131       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13132       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13133       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
13134 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}
13135 \textcolor{keyword}{  end interface}
13136   \textcolor{keyword}{interface}
13137 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13138       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13139       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13140       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13141       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13142       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13143       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13144       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13145 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13146 \textcolor{keyword}{  end interface}
13147   \textcolor{keyword}{interface}
13148 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13149       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13150       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13151       \textcolor{keywordtype}{character(STRING)}:: result
13152 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13153 \textcolor{keyword}{  end interface}
13154   \textcolor{keywordflow}{continue}
13155   file\_work = file
13156   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13157     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13158   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13159     & url = url, &
13160     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13161   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13162     & fullname = url, iorange = iorange, remainder = remainder )
13163   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13164   timevar\_name = carray(1)
13165   \textcolor{keyword}{deallocate}( carray )
13166   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13167   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}( file = file, &
13168     & varname = varname, array = array, &
13169     & range = time\_range, quiet = quiet, &
13170     & flag\_mpi\_split = flag\_mpi\_split, &
13171     & returned\_time = returned\_time, &
13172     & flag\_time\_exist = flag\_time\_exist, &
13173     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aaee2065260d1a04d05580ff6c673f1f3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a190cc48f7a2d7df8acf18cd2bdbdf0a6}\label{historyget_8f90_a190cc48f7a2d7df8acf18cd2bdbdf0a6}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4timei@{historygetint4timei}}
\index{historygetint4timei@{historygetint4timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4timei()}{historygetint4timei()}}
{\footnotesize\ttfamily subroutine historygetint4timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16750 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16750   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16751   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16752   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16753   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16754   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16755   \textcolor{keywordtype}{implicit none}
16756   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16757   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16758   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16759   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
16760   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16761   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16762   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16763   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16764   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16765   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16766   \textcolor{keywordtype}{character(STRING)}:: tname
16767   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeI"}
16768   \textcolor{keyword}{interface}
16769 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}(&
16770       & file, varname, array, range, quiet, &
16771       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16772       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16773       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16774       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16775       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16776       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16777       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16778       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16779       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16780       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16781       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
16782 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}
16783 \textcolor{keyword}{  end interface}
16784   \textcolor{keyword}{interface}
16785 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16786       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16787       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16788       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16789       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16790       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16791       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16792       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16793 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16794 \textcolor{keyword}{  end interface}
16795   \textcolor{keyword}{interface}
16796 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16797       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16798       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16799       \textcolor{keywordtype}{character(STRING)}:: result
16800 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16801 \textcolor{keyword}{  end interface}
16802   \textcolor{keywordflow}{continue}
16803   file\_work = file
16804   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16805     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16806   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16807     & url = url, &
16808     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16809   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16810     & fullname = url, iorange = iorange, remainder = remainder )
16811   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16812   timevar\_name = carray(1)
16813   \textcolor{keyword}{deallocate}( carray )
16814   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16815   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}( file = file, &
16816     & varname = varname, array = array, &
16817     & range = time\_range, quiet = quiet, &
16818     & flag\_mpi\_split = flag\_mpi\_split, &
16819     & returned\_time = returned\_time, &
16820     & flag\_time\_exist = flag\_time\_exist, &
16821     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a190cc48f7a2d7df8acf18cd2bdbdf0a6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa2d6956e60afe5381265062348d4794f}\label{historyget_8f90_aa2d6956e60afe5381265062348d4794f}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint4timer@{historygetint4timer}}
\index{historygetint4timer@{historygetint4timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint4timer()}{historygetint4timer()}}
{\footnotesize\ttfamily subroutine historygetint4timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9454 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9454   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9455   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9456   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9457   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9458   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9459   \textcolor{keywordtype}{implicit none}
9460   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9461   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9462   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9463   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
9464   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9465   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9466   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9467   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9468   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9469   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9470   \textcolor{keywordtype}{character(STRING)}:: tname
9471   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt4TimeR"}
9472   \textcolor{keyword}{interface}
9473 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}(&
9474       & file, varname, array, range, quiet, &
9475       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9476       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9477       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9478       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9479       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9480       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9481       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9482       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9483       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9484       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9485       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:)
9486 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}
9487 \textcolor{keyword}{  end interface}
9488   \textcolor{keyword}{interface}
9489 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9490       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9491       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9492       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9493       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9494       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9495       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9496       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9497 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9498 \textcolor{keyword}{  end interface}
9499   \textcolor{keyword}{interface}
9500 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9501       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9502       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9503       \textcolor{keywordtype}{character(STRING)}:: result
9504 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9505 \textcolor{keyword}{  end interface}
9506   \textcolor{keywordflow}{continue}
9507   file\_work = file
9508   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9509     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9510   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9511     & url = url, &
9512     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9513   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9514     & fullname = url, iorange = iorange, remainder = remainder )
9515   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9516   timevar\_name = carray(1)
9517   \textcolor{keyword}{deallocate}( carray )
9518   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9519   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab62b2316c5ee26a23d1a16b362285377}{historygetint4}( file = file, &
9520     & varname = varname, array = array, &
9521     & range = time\_range, quiet = quiet, &
9522     & flag\_mpi\_split = flag\_mpi\_split, &
9523     & returned\_time = returned\_time, &
9524     & flag\_time\_exist = flag\_time\_exist, &
9525     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa2d6956e60afe5381265062348d4794f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}\label{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5@{historygetint5}}
\index{historygetint5@{historygetint5}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5()}{historygetint5()}}
{\footnotesize\ttfamily subroutine historygetint5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4149 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint5timed(), historygetint5timei(), and historygetint5timer().


\begin{DoxyCode}
4149   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4150   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4151   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
4152   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
4153   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4154   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
4155   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4156   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4157   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4158   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
4159     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4160   \textcolor{keywordtype}{implicit none}
4161   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4162   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4163   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4164   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
4165   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4166   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4167   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4168   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4169   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
4170   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
4171   \textcolor{keywordtype}{integer}:: array\_allsize
4172   \textcolor{keywordtype}{integer}:: array\_shape(5), data\_shape(5), array\_shape\_check(5)
4173   \textcolor{keywordtype}{integer}:: allcount
4174   \textcolor{keywordtype}{integer}:: i, sd
4175   \textcolor{keywordtype}{logical}:: inq\_err
4176   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4177   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4178   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
4179   \textcolor{keywordtype}{integer}:: domain
4180   \textcolor{keywordtype}{character(STRING)}:: tname
4181   \textcolor{keywordtype}{integer}:: stat
4182   \textcolor{keywordtype}{character(STRING)}:: cause\_c
4183   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5"}
4184   \textcolor{keyword}{interface}
4185 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4186       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4187       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4188       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
4189       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4190       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4191       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
4192       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4193 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
4194 \textcolor{keyword}{  end interface}
4195   \textcolor{keyword}{interface}
4196 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
4197       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4198       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
4199       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
4200       \textcolor{comment}{! 正確な入出力範囲指定}
4201       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
4202       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
4203       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
4204 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4205 \textcolor{keyword}{  end interface}
4206   \textcolor{keyword}{interface}
4207 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4208       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4209       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4210       \textcolor{keywordtype}{character(STRING)}:: result
4211 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4212 \textcolor{keyword}{  end interface}
4213   \textcolor{keywordflow}{continue}
4214   cause\_c = \textcolor{stringliteral}{''}
4215   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
4216   file\_work = file
4217   array\_shape = shape( array )
4218   array\_allsize = \textcolor{keyword}{size}( array )
4219   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4220   \textcolor{comment}{! Change filename (for MPI)}
4221   \textcolor{comment}{!}
4222   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4223     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4224   \textcolor{comment}{! 最新時刻の URL 取得}
4225   \textcolor{comment}{! Get URL of latest time}
4226   \textcolor{comment}{!}
4227   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4228     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4229   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4230     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4231     cause\_c = url
4232     \textcolor{keywordflow}{goto} 999
4233 \textcolor{keywordflow}{  end if}
4234   \textcolor{comment}{! ファイルオープン}
4235   \textcolor{comment}{! File open}
4236   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
4237   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4238     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4239     cause\_c = url
4240     \textcolor{keywordflow}{goto} 999
4241 \textcolor{keywordflow}{  end if}
4242   \textcolor{comment}{!-------------------------------------------------------------------}
4243   \textcolor{comment}{!  配列形状のチェック}
4244   \textcolor{comment}{!  Check array shape}
4245   \textcolor{comment}{!-------------------------------------------------------------------}
4246   \textcolor{comment}{! 入力ファイル中のデータの次元数}
4247   \textcolor{comment}{! Get size of dimesions in data of an input file}
4248   \textcolor{comment}{!}
4249   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
4250     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
4251   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
4252   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
4253   array\_rank = 5
4254   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
4255   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
4256   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
4257   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
4258   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
4259   \textcolor{comment}{! 次元数の比較}
4260   \textcolor{comment}{! Compare sizes of dimensions}
4261   \textcolor{comment}{!}
4262   \textcolor{keywordflow}{if} ( .not. 5 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
4263     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4264       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4265         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
4266         & i = (/rank, 5/), c1 = trim(url) )
4267 \textcolor{keywordflow}{    end if}
4268     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
4269     cause\_c = \textcolor{stringliteral}{'array'}
4270     \textcolor{keywordflow}{goto} 999
4271 \textcolor{keywordflow}{  end if}
4272   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
4273   \textcolor{comment}{! Get shape of data in an input file}
4274   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
4275     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4276   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4277     data\_shape(1) = allcount
4278   \textcolor{keywordflow}{else}
4279     data\_shape(1) = 1
4280 \textcolor{keywordflow}{  end if}
4281   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
4282     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4283   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4284     data\_shape(2) = allcount
4285   \textcolor{keywordflow}{else}
4286     data\_shape(2) = 1
4287 \textcolor{keywordflow}{  end if}
4288   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
4289     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4290   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4291     data\_shape(3) = allcount
4292   \textcolor{keywordflow}{else}
4293     data\_shape(3) = 1
4294 \textcolor{keywordflow}{  end if}
4295   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
4296     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4297   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4298     data\_shape(4) = allcount
4299   \textcolor{keywordflow}{else}
4300     data\_shape(4) = 1
4301 \textcolor{keywordflow}{  end if}
4302   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
4303     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4304   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4305     data\_shape(5) = allcount
4306   \textcolor{keywordflow}{else}
4307     data\_shape(5) = 1
4308 \textcolor{keywordflow}{  end if}
4309   \textcolor{comment}{! 引数の配列形状整形}
4310   \textcolor{comment}{! Arrange shape of an argument}
4311   \textcolor{comment}{!}
4312   array\_shape\_check = array\_shape
4313   sd = 1
4314   \textcolor{keywordflow}{do} i = 1, 5 - 1
4315     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
4316       array\_shape\_check(sd:5) = cshift( array\_shape\_check(sd:5), 1, 1 )
4317     \textcolor{keywordflow}{else}
4318       sd = sd + 1
4319 \textcolor{keywordflow}{    end if}
4320 \textcolor{keywordflow}{  end do}
4321   \textcolor{comment}{! 配列形状の比較}
4322   \textcolor{comment}{! Compare shapes}
4323   \textcolor{comment}{!}
4324   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
4325     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4326       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4327         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
4328         & c1 = trim( url ), &
4329         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
4330         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
4331 \textcolor{keywordflow}{    end if}
4332     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4333     cause\_c = \textcolor{stringliteral}{'array'}
4334     \textcolor{keywordflow}{goto} 999
4335 \textcolor{keywordflow}{  end if}
4336   \textcolor{comment}{!-------------------------------------}
4337   \textcolor{comment}{!  データ取得}
4338   \textcolor{comment}{!  Get data}
4339   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
4340     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
4341   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
4342   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
4343   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
4344   array = reshape( array\_tmp, array\_shape )
4345   \textcolor{keyword}{deallocate}( array\_tmp )
4346   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
4347   \textcolor{comment}{!-------------------------------------}
4348   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
4349   \textcolor{comment}{!  Print data filename and clipping range}
4350   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4351     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4352     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4353     & err = err)                   \textcolor{comment}{! (out) optional}
4354   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4355     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
4356 \textcolor{keywordflow}{  end if}
4357 999 \textcolor{keywordflow}{continue}
4358   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a382d20f275308de744b44c66a32d69e3}\label{historyget_8f90_a382d20f275308de744b44c66a32d69e3}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5pointer@{historygetint5pointer}}
\index{historygetint5pointer@{historygetint5pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5pointer()}{historygetint5pointer()}}
{\footnotesize\ttfamily subroutine historygetint5pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6480 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint5pointertimed(), historygetint5pointertimei(), and historygetint5pointertimer().


\begin{DoxyCode}
6480   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6481   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6482   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6483   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6484   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6485   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6486   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6487   \textcolor{keywordtype}{implicit none}
6488   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6489   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6490   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6491   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6492   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6493   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6494   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6495   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6496   \textcolor{keywordtype}{integer}:: domain
6497   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:) \textcolor{comment}{! (out)}
6498   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6499   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6500   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6501   \textcolor{keywordtype}{character(STRING)}:: tname
6502   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5Pointer"}
6503   \textcolor{keyword}{interface}
6504 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6505       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6506       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6507       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6508       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6509       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6510       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6511       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6512 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6513 \textcolor{keyword}{  end interface}
6514   \textcolor{keyword}{interface}
6515 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6516       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6517       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6518       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6519       \textcolor{comment}{! 正確な入出力範囲指定}
6520       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6521       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6522       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6523 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6524 \textcolor{keyword}{  end interface}
6525   \textcolor{keyword}{interface}
6526 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6527       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6528       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6529       \textcolor{keywordtype}{character(STRING)}:: result
6530 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6531 \textcolor{keyword}{  end interface}
6532   \textcolor{keywordflow}{continue}
6533   file\_work = file
6534   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6535   \textcolor{comment}{! Change filename (for MPI)}
6536   \textcolor{comment}{!}
6537   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6538     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6539   \textcolor{comment}{! 必要な情報を gtool 変数化}
6540   \textcolor{comment}{!}
6541   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6542     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6543   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6544   \textcolor{comment}{! いよいよデータ取得}
6545   \textcolor{comment}{!}
6546   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6547   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6548   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6549   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6550     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6551     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6552     & err = err)                   \textcolor{comment}{! (out) optional}
6553   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6554     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6555 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a382d20f275308de744b44c66a32d69e3_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a382d20f275308de744b44c66a32d69e3_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0f2a4ee8971a9e70d5fbbf744a9a5448}\label{historyget_8f90_a0f2a4ee8971a9e70d5fbbf744a9a5448}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5pointertimed@{historygetint5pointertimed}}
\index{historygetint5pointertimed@{historygetint5pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5pointertimed()}{historygetint5pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint5pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13786 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13786   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13787   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13788   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13789   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13790   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13791   \textcolor{keywordtype}{implicit none}
13792   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13793   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13794   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13795   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
13796   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13797   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13798   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13799   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13800   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13801   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13802   \textcolor{keywordtype}{character(STRING)}:: tname
13803   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeD"}
13804   \textcolor{keyword}{interface}
13805 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}(&
13806       & file, varname, array, range, quiet, &
13807       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13808       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13809       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13810       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13811       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13812       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13813       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13814       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13815       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13816       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13817       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
13818 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}
13819 \textcolor{keyword}{  end interface}
13820   \textcolor{keyword}{interface}
13821 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13822       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13823       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13824       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13825       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13826       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13827       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13828       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13829 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13830 \textcolor{keyword}{  end interface}
13831   \textcolor{keyword}{interface}
13832 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13833       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13834       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13835       \textcolor{keywordtype}{character(STRING)}:: result
13836 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13837 \textcolor{keyword}{  end interface}
13838   \textcolor{keywordflow}{continue}
13839   file\_work = file
13840   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13841     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13842   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13843     & url = url, &
13844     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13845   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13846     & fullname = url, iorange = iorange, remainder = remainder )
13847   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13848   timevar\_name = carray(1)
13849   \textcolor{keyword}{deallocate}( carray )
13850   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13851   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}( file = file, &
13852     & varname = varname, array = array, &
13853     & range = time\_range, quiet = quiet, &
13854     & flag\_mpi\_split = flag\_mpi\_split, &
13855     & returned\_time = returned\_time, &
13856     & flag\_time\_exist = flag\_time\_exist, &
13857     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0f2a4ee8971a9e70d5fbbf744a9a5448_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a58579af607ff2e1f0136f0a3ca849c3b}\label{historyget_8f90_a58579af607ff2e1f0136f0a3ca849c3b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5pointertimei@{historygetint5pointertimei}}
\index{historygetint5pointertimei@{historygetint5pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5pointertimei()}{historygetint5pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint5pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17434 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17434   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17435   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17436   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17437   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17438   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17439   \textcolor{keywordtype}{implicit none}
17440   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17441   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17442   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17443   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
17444   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17445   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17446   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17447   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17448   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17449   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17450   \textcolor{keywordtype}{character(STRING)}:: tname
17451   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeI"}
17452   \textcolor{keyword}{interface}
17453 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}(&
17454       & file, varname, array, range, quiet, &
17455       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17456       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17457       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17458       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17459       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17460       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17461       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17462       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17463       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17464       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17465       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
17466 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}
17467 \textcolor{keyword}{  end interface}
17468   \textcolor{keyword}{interface}
17469 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17470       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17471       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17472       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17473       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17474       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17475       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17476       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17477 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17478 \textcolor{keyword}{  end interface}
17479   \textcolor{keyword}{interface}
17480 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17481       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17482       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17483       \textcolor{keywordtype}{character(STRING)}:: result
17484 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17485 \textcolor{keyword}{  end interface}
17486   \textcolor{keywordflow}{continue}
17487   file\_work = file
17488   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17489     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17490   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17491     & url = url, &
17492     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17493   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17494     & fullname = url, iorange = iorange, remainder = remainder )
17495   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17496   timevar\_name = carray(1)
17497   \textcolor{keyword}{deallocate}( carray )
17498   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17499   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}( file = file, &
17500     & varname = varname, array = array, &
17501     & range = time\_range, quiet = quiet, &
17502     & flag\_mpi\_split = flag\_mpi\_split, &
17503     & returned\_time = returned\_time, &
17504     & flag\_time\_exist = flag\_time\_exist, &
17505     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a58579af607ff2e1f0136f0a3ca849c3b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a57bb3692fcbd70842b0d27c7cfb0888c}\label{historyget_8f90_a57bb3692fcbd70842b0d27c7cfb0888c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5pointertimer@{historygetint5pointertimer}}
\index{historygetint5pointertimer@{historygetint5pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5pointertimer()}{historygetint5pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint5pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10138 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10138   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10139   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
10140   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10141   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10142   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10143   \textcolor{keywordtype}{implicit none}
10144   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10145   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
10146   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10147   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
10148   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10149   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10150   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10151   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10152   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10153   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10154   \textcolor{keywordtype}{character(STRING)}:: tname
10155   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeR"}
10156   \textcolor{keyword}{interface}
10157 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}(&
10158       & file, varname, array, range, quiet, &
10159       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10160       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10161       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10162       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10163       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10164       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10165       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10166       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10167       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10168       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10169       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:)
10170 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}
10171 \textcolor{keyword}{  end interface}
10172   \textcolor{keyword}{interface}
10173 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10174       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10175       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10176       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10177       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10178       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10179       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10180       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10181 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10182 \textcolor{keyword}{  end interface}
10183   \textcolor{keyword}{interface}
10184 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10185       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10186       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10187       \textcolor{keywordtype}{character(STRING)}:: result
10188 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10189 \textcolor{keyword}{  end interface}
10190   \textcolor{keywordflow}{continue}
10191   file\_work = file
10192   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10193     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10194   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10195     & url = url, &
10196     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10197   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10198     & fullname = url, iorange = iorange, remainder = remainder )
10199   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10200   timevar\_name = carray(1)
10201   \textcolor{keyword}{deallocate}( carray )
10202   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10203   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a382d20f275308de744b44c66a32d69e3}{historygetint5pointer}( file = file, &
10204     & varname = varname, array = array, &
10205     & range = time\_range, quiet = quiet, &
10206     & flag\_mpi\_split = flag\_mpi\_split, &
10207     & returned\_time = returned\_time, &
10208     & flag\_time\_exist = flag\_time\_exist, &
10209     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a57bb3692fcbd70842b0d27c7cfb0888c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a04cebb218a46695b093a4b82e21c877f}\label{historyget_8f90_a04cebb218a46695b093a4b82e21c877f}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5timed@{historygetint5timed}}
\index{historygetint5timed@{historygetint5timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5timed()}{historygetint5timed()}}
{\footnotesize\ttfamily subroutine historygetint5timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13178 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13178   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13179   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13180   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13181   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13182   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13183   \textcolor{keywordtype}{implicit none}
13184   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13185   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13186   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13187   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
13188   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13189   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13190   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13191   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13192   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13193   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13194   \textcolor{keywordtype}{character(STRING)}:: tname
13195   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeD"}
13196   \textcolor{keyword}{interface}
13197 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}(&
13198       & file, varname, array, range, quiet, &
13199       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13200       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13201       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13202       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13203       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13204       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13205       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13206       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13207       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13208       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13209       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
13210 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}
13211 \textcolor{keyword}{  end interface}
13212   \textcolor{keyword}{interface}
13213 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13214       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13215       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13216       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13217       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13218       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13219       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13220       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13221 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13222 \textcolor{keyword}{  end interface}
13223   \textcolor{keyword}{interface}
13224 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13225       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13226       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13227       \textcolor{keywordtype}{character(STRING)}:: result
13228 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13229 \textcolor{keyword}{  end interface}
13230   \textcolor{keywordflow}{continue}
13231   file\_work = file
13232   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13233     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13234   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13235     & url = url, &
13236     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13237   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13238     & fullname = url, iorange = iorange, remainder = remainder )
13239   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13240   timevar\_name = carray(1)
13241   \textcolor{keyword}{deallocate}( carray )
13242   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13243   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}( file = file, &
13244     & varname = varname, array = array, &
13245     & range = time\_range, quiet = quiet, &
13246     & flag\_mpi\_split = flag\_mpi\_split, &
13247     & returned\_time = returned\_time, &
13248     & flag\_time\_exist = flag\_time\_exist, &
13249     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a04cebb218a46695b093a4b82e21c877f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5f3125b18c93fec93407ff30a9070f8a}\label{historyget_8f90_a5f3125b18c93fec93407ff30a9070f8a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5timei@{historygetint5timei}}
\index{historygetint5timei@{historygetint5timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5timei()}{historygetint5timei()}}
{\footnotesize\ttfamily subroutine historygetint5timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16826 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16826   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16827   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16828   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16829   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16830   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16831   \textcolor{keywordtype}{implicit none}
16832   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16833   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16834   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16835   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
16836   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16837   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16838   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16839   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16840   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16841   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16842   \textcolor{keywordtype}{character(STRING)}:: tname
16843   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeI"}
16844   \textcolor{keyword}{interface}
16845 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}(&
16846       & file, varname, array, range, quiet, &
16847       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16848       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16849       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16850       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16851       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16852       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16853       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16854       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16855       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16856       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16857       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
16858 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}
16859 \textcolor{keyword}{  end interface}
16860   \textcolor{keyword}{interface}
16861 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16862       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16863       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16864       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16865       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16866       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16867       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16868       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16869 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16870 \textcolor{keyword}{  end interface}
16871   \textcolor{keyword}{interface}
16872 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16873       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16874       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16875       \textcolor{keywordtype}{character(STRING)}:: result
16876 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16877 \textcolor{keyword}{  end interface}
16878   \textcolor{keywordflow}{continue}
16879   file\_work = file
16880   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16881     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16882   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16883     & url = url, &
16884     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16885   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16886     & fullname = url, iorange = iorange, remainder = remainder )
16887   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16888   timevar\_name = carray(1)
16889   \textcolor{keyword}{deallocate}( carray )
16890   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16891   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}( file = file, &
16892     & varname = varname, array = array, &
16893     & range = time\_range, quiet = quiet, &
16894     & flag\_mpi\_split = flag\_mpi\_split, &
16895     & returned\_time = returned\_time, &
16896     & flag\_time\_exist = flag\_time\_exist, &
16897     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5f3125b18c93fec93407ff30a9070f8a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a4138c8b7451da3ea1ffe62da988bd593}\label{historyget_8f90_a4138c8b7451da3ea1ffe62da988bd593}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint5timer@{historygetint5timer}}
\index{historygetint5timer@{historygetint5timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint5timer()}{historygetint5timer()}}
{\footnotesize\ttfamily subroutine historygetint5timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9530 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9530   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9531   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9532   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9533   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9534   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9535   \textcolor{keywordtype}{implicit none}
9536   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9537   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9538   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9539   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
9540   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9541   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9542   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9543   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9544   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9545   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9546   \textcolor{keywordtype}{character(STRING)}:: tname
9547   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt5TimeR"}
9548   \textcolor{keyword}{interface}
9549 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}(&
9550       & file, varname, array, range, quiet, &
9551       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9552       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9553       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9554       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9555       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9556       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9557       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9558       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9559       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9560       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9561       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:)
9562 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}
9563 \textcolor{keyword}{  end interface}
9564   \textcolor{keyword}{interface}
9565 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9566       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9567       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9568       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9569       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9570       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9571       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9572       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9573 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9574 \textcolor{keyword}{  end interface}
9575   \textcolor{keyword}{interface}
9576 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9577       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9578       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9579       \textcolor{keywordtype}{character(STRING)}:: result
9580 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9581 \textcolor{keyword}{  end interface}
9582   \textcolor{keywordflow}{continue}
9583   file\_work = file
9584   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9585     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9586   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9587     & url = url, &
9588     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9589   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9590     & fullname = url, iorange = iorange, remainder = remainder )
9591   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9592   timevar\_name = carray(1)
9593   \textcolor{keyword}{deallocate}( carray )
9594   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9595   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3a84bcca7ecd3f02163718ffe142bbf4}{historygetint5}( file = file, &
9596     & varname = varname, array = array, &
9597     & range = time\_range, quiet = quiet, &
9598     & flag\_mpi\_split = flag\_mpi\_split, &
9599     & returned\_time = returned\_time, &
9600     & flag\_time\_exist = flag\_time\_exist, &
9601     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a4138c8b7451da3ea1ffe62da988bd593_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a59568237930b79ad43a62196eab86161}\label{historyget_8f90_a59568237930b79ad43a62196eab86161}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6@{historygetint6}}
\index{historygetint6@{historygetint6}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6()}{historygetint6()}}
{\footnotesize\ttfamily subroutine historygetint6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4362 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint6timed(), historygetint6timei(), and historygetint6timer().


\begin{DoxyCode}
4362   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4363   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4364   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
4365   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
4366   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4367   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
4368   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4369   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4370   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4371   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
4372     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4373   \textcolor{keywordtype}{implicit none}
4374   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4375   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4376   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4377   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
4378   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4379   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4380   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4381   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4382   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
4383   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
4384   \textcolor{keywordtype}{integer}:: array\_allsize
4385   \textcolor{keywordtype}{integer}:: array\_shape(6), data\_shape(6), array\_shape\_check(6)
4386   \textcolor{keywordtype}{integer}:: allcount
4387   \textcolor{keywordtype}{integer}:: i, sd
4388   \textcolor{keywordtype}{logical}:: inq\_err
4389   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4390   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4391   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
4392   \textcolor{keywordtype}{integer}:: domain
4393   \textcolor{keywordtype}{character(STRING)}:: tname
4394   \textcolor{keywordtype}{integer}:: stat
4395   \textcolor{keywordtype}{character(STRING)}:: cause\_c
4396   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6"}
4397   \textcolor{keyword}{interface}
4398 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4399       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4400       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4401       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
4402       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4403       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4404       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
4405       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4406 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
4407 \textcolor{keyword}{  end interface}
4408   \textcolor{keyword}{interface}
4409 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
4410       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4411       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
4412       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
4413       \textcolor{comment}{! 正確な入出力範囲指定}
4414       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
4415       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
4416       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
4417 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4418 \textcolor{keyword}{  end interface}
4419   \textcolor{keyword}{interface}
4420 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4421       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4422       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4423       \textcolor{keywordtype}{character(STRING)}:: result
4424 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4425 \textcolor{keyword}{  end interface}
4426   \textcolor{keywordflow}{continue}
4427   cause\_c = \textcolor{stringliteral}{''}
4428   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
4429   file\_work = file
4430   array\_shape = shape( array )
4431   array\_allsize = \textcolor{keyword}{size}( array )
4432   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4433   \textcolor{comment}{! Change filename (for MPI)}
4434   \textcolor{comment}{!}
4435   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4436     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4437   \textcolor{comment}{! 最新時刻の URL 取得}
4438   \textcolor{comment}{! Get URL of latest time}
4439   \textcolor{comment}{!}
4440   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4441     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4442   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4443     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4444     cause\_c = url
4445     \textcolor{keywordflow}{goto} 999
4446 \textcolor{keywordflow}{  end if}
4447   \textcolor{comment}{! ファイルオープン}
4448   \textcolor{comment}{! File open}
4449   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
4450   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4451     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4452     cause\_c = url
4453     \textcolor{keywordflow}{goto} 999
4454 \textcolor{keywordflow}{  end if}
4455   \textcolor{comment}{!-------------------------------------------------------------------}
4456   \textcolor{comment}{!  配列形状のチェック}
4457   \textcolor{comment}{!  Check array shape}
4458   \textcolor{comment}{!-------------------------------------------------------------------}
4459   \textcolor{comment}{! 入力ファイル中のデータの次元数}
4460   \textcolor{comment}{! Get size of dimesions in data of an input file}
4461   \textcolor{comment}{!}
4462   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
4463     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
4464   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
4465   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
4466   array\_rank = 6
4467   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
4468   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
4469   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
4470   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
4471   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
4472   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
4473   \textcolor{comment}{! 次元数の比較}
4474   \textcolor{comment}{! Compare sizes of dimensions}
4475   \textcolor{comment}{!}
4476   \textcolor{keywordflow}{if} ( .not. 6 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
4477     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4478       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4479         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
4480         & i = (/rank, 6/), c1 = trim(url) )
4481 \textcolor{keywordflow}{    end if}
4482     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
4483     cause\_c = \textcolor{stringliteral}{'array'}
4484     \textcolor{keywordflow}{goto} 999
4485 \textcolor{keywordflow}{  end if}
4486   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
4487   \textcolor{comment}{! Get shape of data in an input file}
4488   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
4489     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4490   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4491     data\_shape(1) = allcount
4492   \textcolor{keywordflow}{else}
4493     data\_shape(1) = 1
4494 \textcolor{keywordflow}{  end if}
4495   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
4496     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4497   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4498     data\_shape(2) = allcount
4499   \textcolor{keywordflow}{else}
4500     data\_shape(2) = 1
4501 \textcolor{keywordflow}{  end if}
4502   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
4503     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4504   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4505     data\_shape(3) = allcount
4506   \textcolor{keywordflow}{else}
4507     data\_shape(3) = 1
4508 \textcolor{keywordflow}{  end if}
4509   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
4510     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4511   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4512     data\_shape(4) = allcount
4513   \textcolor{keywordflow}{else}
4514     data\_shape(4) = 1
4515 \textcolor{keywordflow}{  end if}
4516   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
4517     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4518   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4519     data\_shape(5) = allcount
4520   \textcolor{keywordflow}{else}
4521     data\_shape(5) = 1
4522 \textcolor{keywordflow}{  end if}
4523   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
4524     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4525   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4526     data\_shape(6) = allcount
4527   \textcolor{keywordflow}{else}
4528     data\_shape(6) = 1
4529 \textcolor{keywordflow}{  end if}
4530   \textcolor{comment}{! 引数の配列形状整形}
4531   \textcolor{comment}{! Arrange shape of an argument}
4532   \textcolor{comment}{!}
4533   array\_shape\_check = array\_shape
4534   sd = 1
4535   \textcolor{keywordflow}{do} i = 1, 6 - 1
4536     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
4537       array\_shape\_check(sd:6) = cshift( array\_shape\_check(sd:6), 1, 1 )
4538     \textcolor{keywordflow}{else}
4539       sd = sd + 1
4540 \textcolor{keywordflow}{    end if}
4541 \textcolor{keywordflow}{  end do}
4542   \textcolor{comment}{! 配列形状の比較}
4543   \textcolor{comment}{! Compare shapes}
4544   \textcolor{comment}{!}
4545   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
4546     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4547       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4548         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
4549         & c1 = trim( url ), &
4550         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
4551         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
4552 \textcolor{keywordflow}{    end if}
4553     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4554     cause\_c = \textcolor{stringliteral}{'array'}
4555     \textcolor{keywordflow}{goto} 999
4556 \textcolor{keywordflow}{  end if}
4557   \textcolor{comment}{!-------------------------------------}
4558   \textcolor{comment}{!  データ取得}
4559   \textcolor{comment}{!  Get data}
4560   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
4561     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
4562   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
4563   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
4564   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
4565   array = reshape( array\_tmp, array\_shape )
4566   \textcolor{keyword}{deallocate}( array\_tmp )
4567   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
4568   \textcolor{comment}{!-------------------------------------}
4569   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
4570   \textcolor{comment}{!  Print data filename and clipping range}
4571   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4572     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4573     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4574     & err = err)                   \textcolor{comment}{! (out) optional}
4575   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4576     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
4577 \textcolor{keywordflow}{  end if}
4578 999 \textcolor{keywordflow}{continue}
4579   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a59568237930b79ad43a62196eab86161_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_a59568237930b79ad43a62196eab86161_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}\label{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6pointer@{historygetint6pointer}}
\index{historygetint6pointer@{historygetint6pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6pointer()}{historygetint6pointer()}}
{\footnotesize\ttfamily subroutine historygetint6pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6559 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint6pointertimed(), historygetint6pointertimei(), and historygetint6pointertimer().


\begin{DoxyCode}
6559   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6560   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6561   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6562   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6563   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6564   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6565   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6566   \textcolor{keywordtype}{implicit none}
6567   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6568   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6569   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6570   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6571   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6572   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6573   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6574   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6575   \textcolor{keywordtype}{integer}:: domain
6576   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:) \textcolor{comment}{! (out)}
6577   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6578   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6579   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6580   \textcolor{keywordtype}{character(STRING)}:: tname
6581   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6Pointer"}
6582   \textcolor{keyword}{interface}
6583 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6584       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6585       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6586       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6587       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6588       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6589       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6590       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6591 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6592 \textcolor{keyword}{  end interface}
6593   \textcolor{keyword}{interface}
6594 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6595       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6596       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6597       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6598       \textcolor{comment}{! 正確な入出力範囲指定}
6599       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6600       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6601       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6602 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6603 \textcolor{keyword}{  end interface}
6604   \textcolor{keyword}{interface}
6605 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6606       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6607       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6608       \textcolor{keywordtype}{character(STRING)}:: result
6609 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6610 \textcolor{keyword}{  end interface}
6611   \textcolor{keywordflow}{continue}
6612   file\_work = file
6613   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6614   \textcolor{comment}{! Change filename (for MPI)}
6615   \textcolor{comment}{!}
6616   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6617     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6618   \textcolor{comment}{! 必要な情報を gtool 変数化}
6619   \textcolor{comment}{!}
6620   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6621     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6622   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6623   \textcolor{comment}{! いよいよデータ取得}
6624   \textcolor{comment}{!}
6625   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6626   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6627   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6628   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6629     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6630     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6631     & err = err)                   \textcolor{comment}{! (out) optional}
6632   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6633     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6634 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac42fc1dbf1fee0c602ea1a3ef7b7dd00}\label{historyget_8f90_ac42fc1dbf1fee0c602ea1a3ef7b7dd00}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6pointertimed@{historygetint6pointertimed}}
\index{historygetint6pointertimed@{historygetint6pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6pointertimed()}{historygetint6pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint6pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13862 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13862   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13863   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13864   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13865   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13866   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13867   \textcolor{keywordtype}{implicit none}
13868   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13869   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13870   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13871   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
13872   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13873   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13874   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13875   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13876   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13877   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13878   \textcolor{keywordtype}{character(STRING)}:: tname
13879   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeD"}
13880   \textcolor{keyword}{interface}
13881 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}(&
13882       & file, varname, array, range, quiet, &
13883       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13884       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13885       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13886       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13887       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13888       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13889       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13890       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13891       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13892       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13893       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
13894 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}
13895 \textcolor{keyword}{  end interface}
13896   \textcolor{keyword}{interface}
13897 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13898       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13899       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13900       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13901       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13902       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13903       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13904       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13905 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13906 \textcolor{keyword}{  end interface}
13907   \textcolor{keyword}{interface}
13908 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13909       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13910       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13911       \textcolor{keywordtype}{character(STRING)}:: result
13912 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13913 \textcolor{keyword}{  end interface}
13914   \textcolor{keywordflow}{continue}
13915   file\_work = file
13916   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13917     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13918   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13919     & url = url, &
13920     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13921   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13922     & fullname = url, iorange = iorange, remainder = remainder )
13923   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13924   timevar\_name = carray(1)
13925   \textcolor{keyword}{deallocate}( carray )
13926   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13927   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}( file = file, &
13928     & varname = varname, array = array, &
13929     & range = time\_range, quiet = quiet, &
13930     & flag\_mpi\_split = flag\_mpi\_split, &
13931     & returned\_time = returned\_time, &
13932     & flag\_time\_exist = flag\_time\_exist, &
13933     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ac42fc1dbf1fee0c602ea1a3ef7b7dd00_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae6ed1d34669af6a9df8d1300be8668de}\label{historyget_8f90_ae6ed1d34669af6a9df8d1300be8668de}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6pointertimei@{historygetint6pointertimei}}
\index{historygetint6pointertimei@{historygetint6pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6pointertimei()}{historygetint6pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint6pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17510 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17510   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17511   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17512   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17513   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17514   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17515   \textcolor{keywordtype}{implicit none}
17516   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17517   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17518   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17519   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
17520   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17521   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17522   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17523   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17524   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17525   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17526   \textcolor{keywordtype}{character(STRING)}:: tname
17527   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeI"}
17528   \textcolor{keyword}{interface}
17529 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}(&
17530       & file, varname, array, range, quiet, &
17531       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17532       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17533       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17534       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17535       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17536       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17537       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17538       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17539       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17540       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17541       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
17542 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}
17543 \textcolor{keyword}{  end interface}
17544   \textcolor{keyword}{interface}
17545 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17546       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17547       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17548       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17549       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17550       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17551       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17552       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17553 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17554 \textcolor{keyword}{  end interface}
17555   \textcolor{keyword}{interface}
17556 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17557       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17558       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17559       \textcolor{keywordtype}{character(STRING)}:: result
17560 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17561 \textcolor{keyword}{  end interface}
17562   \textcolor{keywordflow}{continue}
17563   file\_work = file
17564   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17565     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17566   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17567     & url = url, &
17568     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17569   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17570     & fullname = url, iorange = iorange, remainder = remainder )
17571   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17572   timevar\_name = carray(1)
17573   \textcolor{keyword}{deallocate}( carray )
17574   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17575   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}( file = file, &
17576     & varname = varname, array = array, &
17577     & range = time\_range, quiet = quiet, &
17578     & flag\_mpi\_split = flag\_mpi\_split, &
17579     & returned\_time = returned\_time, &
17580     & flag\_time\_exist = flag\_time\_exist, &
17581     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae6ed1d34669af6a9df8d1300be8668de_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae1c47babdaae300dd8b0991a6ae36193}\label{historyget_8f90_ae1c47babdaae300dd8b0991a6ae36193}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6pointertimer@{historygetint6pointertimer}}
\index{historygetint6pointertimer@{historygetint6pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6pointertimer()}{historygetint6pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint6pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10214 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10214   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10215   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
10216   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10217   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10218   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10219   \textcolor{keywordtype}{implicit none}
10220   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10221   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
10222   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10223   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
10224   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10225   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10226   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10227   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10228   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10229   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10230   \textcolor{keywordtype}{character(STRING)}:: tname
10231   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeR"}
10232   \textcolor{keyword}{interface}
10233 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}(&
10234       & file, varname, array, range, quiet, &
10235       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10236       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10237       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10238       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10239       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10240       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10241       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10242       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10243       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10244       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10245       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:)
10246 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}
10247 \textcolor{keyword}{  end interface}
10248   \textcolor{keyword}{interface}
10249 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10250       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10251       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10252       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10253       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10254       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10255       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10256       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10257 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10258 \textcolor{keyword}{  end interface}
10259   \textcolor{keyword}{interface}
10260 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10261       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10262       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10263       \textcolor{keywordtype}{character(STRING)}:: result
10264 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10265 \textcolor{keyword}{  end interface}
10266   \textcolor{keywordflow}{continue}
10267   file\_work = file
10268   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10269     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10270   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10271     & url = url, &
10272     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10273   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10274     & fullname = url, iorange = iorange, remainder = remainder )
10275   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10276   timevar\_name = carray(1)
10277   \textcolor{keyword}{deallocate}( carray )
10278   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10279   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a26b2abbf6ac6db964dc4ac931bf00e58}{historygetint6pointer}( file = file, &
10280     & varname = varname, array = array, &
10281     & range = time\_range, quiet = quiet, &
10282     & flag\_mpi\_split = flag\_mpi\_split, &
10283     & returned\_time = returned\_time, &
10284     & flag\_time\_exist = flag\_time\_exist, &
10285     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae1c47babdaae300dd8b0991a6ae36193_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a9ed95523d8d1dc3afcac19674eb1fbe0}\label{historyget_8f90_a9ed95523d8d1dc3afcac19674eb1fbe0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6timed@{historygetint6timed}}
\index{historygetint6timed@{historygetint6timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6timed()}{historygetint6timed()}}
{\footnotesize\ttfamily subroutine historygetint6timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13254 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13254   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13255   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13256   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13257   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13258   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13259   \textcolor{keywordtype}{implicit none}
13260   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13261   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13262   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13263   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
13264   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13265   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13266   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13267   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13268   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13269   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13270   \textcolor{keywordtype}{character(STRING)}:: tname
13271   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeD"}
13272   \textcolor{keyword}{interface}
13273 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}(&
13274       & file, varname, array, range, quiet, &
13275       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13276       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13277       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13278       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13279       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13280       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13281       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13282       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13283       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13284       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13285       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
13286 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}
13287 \textcolor{keyword}{  end interface}
13288   \textcolor{keyword}{interface}
13289 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13290       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13291       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13292       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13293       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13294       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13295       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13296       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13297 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13298 \textcolor{keyword}{  end interface}
13299   \textcolor{keyword}{interface}
13300 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13301       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13302       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13303       \textcolor{keywordtype}{character(STRING)}:: result
13304 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13305 \textcolor{keyword}{  end interface}
13306   \textcolor{keywordflow}{continue}
13307   file\_work = file
13308   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13309     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13310   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13311     & url = url, &
13312     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13313   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13314     & fullname = url, iorange = iorange, remainder = remainder )
13315   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13316   timevar\_name = carray(1)
13317   \textcolor{keyword}{deallocate}( carray )
13318   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13319   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}( file = file, &
13320     & varname = varname, array = array, &
13321     & range = time\_range, quiet = quiet, &
13322     & flag\_mpi\_split = flag\_mpi\_split, &
13323     & returned\_time = returned\_time, &
13324     & flag\_time\_exist = flag\_time\_exist, &
13325     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a9ed95523d8d1dc3afcac19674eb1fbe0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a5d324c54a371617e29b9323e7244b5cd}\label{historyget_8f90_a5d324c54a371617e29b9323e7244b5cd}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6timei@{historygetint6timei}}
\index{historygetint6timei@{historygetint6timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6timei()}{historygetint6timei()}}
{\footnotesize\ttfamily subroutine historygetint6timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16902 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16902   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16903   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16904   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16905   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16906   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16907   \textcolor{keywordtype}{implicit none}
16908   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16909   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16910   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16911   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
16912   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16913   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16914   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16915   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16916   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16917   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16918   \textcolor{keywordtype}{character(STRING)}:: tname
16919   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeI"}
16920   \textcolor{keyword}{interface}
16921 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}(&
16922       & file, varname, array, range, quiet, &
16923       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16924       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16925       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16926       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16927       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16928       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16929       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16930       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16931       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16932       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16933       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
16934 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}
16935 \textcolor{keyword}{  end interface}
16936   \textcolor{keyword}{interface}
16937 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16938       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16939       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16940       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16941       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16942       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16943       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16944       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16945 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16946 \textcolor{keyword}{  end interface}
16947   \textcolor{keyword}{interface}
16948 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16949       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16950       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16951       \textcolor{keywordtype}{character(STRING)}:: result
16952 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16953 \textcolor{keyword}{  end interface}
16954   \textcolor{keywordflow}{continue}
16955   file\_work = file
16956   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16957     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16958   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16959     & url = url, &
16960     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16961   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16962     & fullname = url, iorange = iorange, remainder = remainder )
16963   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16964   timevar\_name = carray(1)
16965   \textcolor{keyword}{deallocate}( carray )
16966   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16967   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}( file = file, &
16968     & varname = varname, array = array, &
16969     & range = time\_range, quiet = quiet, &
16970     & flag\_mpi\_split = flag\_mpi\_split, &
16971     & returned\_time = returned\_time, &
16972     & flag\_time\_exist = flag\_time\_exist, &
16973     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a5d324c54a371617e29b9323e7244b5cd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_abd10bd8c7176b487bca62a5af1289774}\label{historyget_8f90_abd10bd8c7176b487bca62a5af1289774}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint6timer@{historygetint6timer}}
\index{historygetint6timer@{historygetint6timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint6timer()}{historygetint6timer()}}
{\footnotesize\ttfamily subroutine historygetint6timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9606 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9606   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9607   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9608   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9609   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9610   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9611   \textcolor{keywordtype}{implicit none}
9612   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9613   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9614   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9615   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
9616   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9617   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9618   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9619   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9620   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9621   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9622   \textcolor{keywordtype}{character(STRING)}:: tname
9623   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt6TimeR"}
9624   \textcolor{keyword}{interface}
9625 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}(&
9626       & file, varname, array, range, quiet, &
9627       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9628       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9629       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9630       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9631       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9632       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9633       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9634       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9635       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9636       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9637       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:)
9638 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}
9639 \textcolor{keyword}{  end interface}
9640   \textcolor{keyword}{interface}
9641 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9642       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9643       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9644       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9645       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9646       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9647       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9648       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9649 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9650 \textcolor{keyword}{  end interface}
9651   \textcolor{keyword}{interface}
9652 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9653       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9654       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9655       \textcolor{keywordtype}{character(STRING)}:: result
9656 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9657 \textcolor{keyword}{  end interface}
9658   \textcolor{keywordflow}{continue}
9659   file\_work = file
9660   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9661     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9662   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9663     & url = url, &
9664     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9665   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9666     & fullname = url, iorange = iorange, remainder = remainder )
9667   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9668   timevar\_name = carray(1)
9669   \textcolor{keyword}{deallocate}( carray )
9670   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9671   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a59568237930b79ad43a62196eab86161}{historygetint6}( file = file, &
9672     & varname = varname, array = array, &
9673     & range = time\_range, quiet = quiet, &
9674     & flag\_mpi\_split = flag\_mpi\_split, &
9675     & returned\_time = returned\_time, &
9676     & flag\_time\_exist = flag\_time\_exist, &
9677     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_abd10bd8c7176b487bca62a5af1289774_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acc905dbaa87134a7901488a394032619}\label{historyget_8f90_acc905dbaa87134a7901488a394032619}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7@{historygetint7}}
\index{historygetint7@{historygetint7}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7()}{historygetint7()}}
{\footnotesize\ttfamily subroutine historygetint7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4583 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetint7timed(), historygetint7timei(), and historygetint7timer().


\begin{DoxyCode}
4583   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
4584   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
4585   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
4586   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
4587   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
4588   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
4589   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4590   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
4591   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
4592   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
4593     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4594   \textcolor{keywordtype}{implicit none}
4595   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4596   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4597   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4598   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
4599   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
4600   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
4601   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4602   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4603   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
4604   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
4605   \textcolor{keywordtype}{integer}:: array\_allsize
4606   \textcolor{keywordtype}{integer}:: array\_shape(7), data\_shape(7), array\_shape\_check(7)
4607   \textcolor{keywordtype}{integer}:: allcount
4608   \textcolor{keywordtype}{integer}:: i, sd
4609   \textcolor{keywordtype}{logical}:: inq\_err
4610   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
4611   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
4612   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
4613   \textcolor{keywordtype}{integer}:: domain
4614   \textcolor{keywordtype}{character(STRING)}:: tname
4615   \textcolor{keywordtype}{integer}:: stat
4616   \textcolor{keywordtype}{character(STRING)}:: cause\_c
4617   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7"}
4618   \textcolor{keyword}{interface}
4619 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
4620       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4621       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
4622       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
4623       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
4624       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
4625       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
4626       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
4627 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
4628 \textcolor{keyword}{  end interface}
4629   \textcolor{keyword}{interface}
4630 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
4631       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
4632       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
4633       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
4634       \textcolor{comment}{! 正確な入出力範囲指定}
4635       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
4636       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
4637       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
4638 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
4639 \textcolor{keyword}{  end interface}
4640   \textcolor{keyword}{interface}
4641 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
4642       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
4643       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
4644       \textcolor{keywordtype}{character(STRING)}:: result
4645 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
4646 \textcolor{keyword}{  end interface}
4647   \textcolor{keywordflow}{continue}
4648   cause\_c = \textcolor{stringliteral}{''}
4649   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
4650   file\_work = file
4651   array\_shape = shape( array )
4652   array\_allsize = \textcolor{keyword}{size}( array )
4653   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
4654   \textcolor{comment}{! Change filename (for MPI)}
4655   \textcolor{comment}{!}
4656   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
4657     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
4658   \textcolor{comment}{! 最新時刻の URL 取得}
4659   \textcolor{comment}{! Get URL of latest time}
4660   \textcolor{comment}{!}
4661   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
4662     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
4663   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4664     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4665     cause\_c = url
4666     \textcolor{keywordflow}{goto} 999
4667 \textcolor{keywordflow}{  end if}
4668   \textcolor{comment}{! ファイルオープン}
4669   \textcolor{comment}{! File open}
4670   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
4671   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
4672     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
4673     cause\_c = url
4674     \textcolor{keywordflow}{goto} 999
4675 \textcolor{keywordflow}{  end if}
4676   \textcolor{comment}{!-------------------------------------------------------------------}
4677   \textcolor{comment}{!  配列形状のチェック}
4678   \textcolor{comment}{!  Check array shape}
4679   \textcolor{comment}{!-------------------------------------------------------------------}
4680   \textcolor{comment}{! 入力ファイル中のデータの次元数}
4681   \textcolor{comment}{! Get size of dimesions in data of an input file}
4682   \textcolor{comment}{!}
4683   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
4684     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
4685   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
4686   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
4687   array\_rank = 7
4688   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
4689   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
4690   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
4691   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
4692   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
4693   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
4694   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 7 ) == 1 ) array\_rank = array\_rank - 1
4695   \textcolor{comment}{! 次元数の比較}
4696   \textcolor{comment}{! Compare sizes of dimensions}
4697   \textcolor{comment}{!}
4698   \textcolor{keywordflow}{if} ( .not. 7 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
4699     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4700       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4701         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
4702         & i = (/rank, 7/), c1 = trim(url) )
4703 \textcolor{keywordflow}{    end if}
4704     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
4705     cause\_c = \textcolor{stringliteral}{'array'}
4706     \textcolor{keywordflow}{goto} 999
4707 \textcolor{keywordflow}{  end if}
4708   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
4709   \textcolor{comment}{! Get shape of data in an input file}
4710   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
4711     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4712   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4713     data\_shape(1) = allcount
4714   \textcolor{keywordflow}{else}
4715     data\_shape(1) = 1
4716 \textcolor{keywordflow}{  end if}
4717   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
4718     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4719   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4720     data\_shape(2) = allcount
4721   \textcolor{keywordflow}{else}
4722     data\_shape(2) = 1
4723 \textcolor{keywordflow}{  end if}
4724   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
4725     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4726   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4727     data\_shape(3) = allcount
4728   \textcolor{keywordflow}{else}
4729     data\_shape(3) = 1
4730 \textcolor{keywordflow}{  end if}
4731   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
4732     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4733   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4734     data\_shape(4) = allcount
4735   \textcolor{keywordflow}{else}
4736     data\_shape(4) = 1
4737 \textcolor{keywordflow}{  end if}
4738   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
4739     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4740   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4741     data\_shape(5) = allcount
4742   \textcolor{keywordflow}{else}
4743     data\_shape(5) = 1
4744 \textcolor{keywordflow}{  end if}
4745   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
4746     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4747   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4748     data\_shape(6) = allcount
4749   \textcolor{keywordflow}{else}
4750     data\_shape(6) = 1
4751 \textcolor{keywordflow}{  end if}
4752   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 7, &   \textcolor{comment}{! (in)}
4753     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
4754   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
4755     data\_shape(7) = allcount
4756   \textcolor{keywordflow}{else}
4757     data\_shape(7) = 1
4758 \textcolor{keywordflow}{  end if}
4759   \textcolor{comment}{! 引数の配列形状整形}
4760   \textcolor{comment}{! Arrange shape of an argument}
4761   \textcolor{comment}{!}
4762   array\_shape\_check = array\_shape
4763   sd = 1
4764   \textcolor{keywordflow}{do} i = 1, 7 - 1
4765     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
4766       array\_shape\_check(sd:7) = cshift( array\_shape\_check(sd:7), 1, 1 )
4767     \textcolor{keywordflow}{else}
4768       sd = sd + 1
4769 \textcolor{keywordflow}{    end if}
4770 \textcolor{keywordflow}{  end do}
4771   \textcolor{comment}{! 配列形状の比較}
4772   \textcolor{comment}{! Compare shapes}
4773   \textcolor{comment}{!}
4774   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
4775     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4776       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
4777         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
4778         & c1 = trim( url ), &
4779         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
4780         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
4781 \textcolor{keywordflow}{    end if}
4782     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
4783     cause\_c = \textcolor{stringliteral}{'array'}
4784     \textcolor{keywordflow}{goto} 999
4785 \textcolor{keywordflow}{  end if}
4786   \textcolor{comment}{!-------------------------------------}
4787   \textcolor{comment}{!  データ取得}
4788   \textcolor{comment}{!  Get data}
4789   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
4790     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
4791   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
4792   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
4793   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
4794   array = reshape( array\_tmp, array\_shape )
4795   \textcolor{keyword}{deallocate}( array\_tmp )
4796   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
4797   \textcolor{comment}{!-------------------------------------}
4798   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
4799   \textcolor{comment}{!  Print data filename and clipping range}
4800   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
4801     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
4802     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
4803     & err = err)                   \textcolor{comment}{! (out) optional}
4804   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
4805     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
4806 \textcolor{keywordflow}{  end if}
4807 999 \textcolor{keywordflow}{continue}
4808   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acc905dbaa87134a7901488a394032619_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=290pt]{historyget_8f90_acc905dbaa87134a7901488a394032619_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}\label{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7pointer@{historygetint7pointer}}
\index{historygetint7pointer@{historygetint7pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7pointer()}{historygetint7pointer()}}
{\footnotesize\ttfamily subroutine historygetint7pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6638 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.



Referenced by historygetint7pointertimed(), historygetint7pointertimei(), and historygetint7pointertimer().


\begin{DoxyCode}
6638   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6639   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6640   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6641   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6642   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6643   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6644   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6645   \textcolor{keywordtype}{implicit none}
6646   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6647   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6648   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6649   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6650   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6651   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6652   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6653   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6654   \textcolor{keywordtype}{integer}:: domain
6655   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:) \textcolor{comment}{! (out)}
6656   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{target} :: array\_tmp(1)
6657   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6658   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6659   \textcolor{keywordtype}{character(STRING)}:: tname
6660   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7Pointer"}
6661   \textcolor{keyword}{interface}
6662 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6663       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6664       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6665       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6666       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6667       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6668       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6669       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6670 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6671 \textcolor{keyword}{  end interface}
6672   \textcolor{keyword}{interface}
6673 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6674       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6675       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6676       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6677       \textcolor{comment}{! 正確な入出力範囲指定}
6678       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6679       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6680       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6681 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6682 \textcolor{keyword}{  end interface}
6683   \textcolor{keyword}{interface}
6684 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6685       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6686       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6687       \textcolor{keywordtype}{character(STRING)}:: result
6688 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6689 \textcolor{keyword}{  end interface}
6690   \textcolor{keywordflow}{continue}
6691   file\_work = file
6692   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6693   \textcolor{comment}{! Change filename (for MPI)}
6694   \textcolor{comment}{!}
6695   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6696     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6697   \textcolor{comment}{! 必要な情報を gtool 変数化}
6698   \textcolor{comment}{!}
6699   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6700     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6701   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6702   \textcolor{comment}{! いよいよデータ取得}
6703   \textcolor{comment}{!}
6704   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6705   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6706   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6707   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6708     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6709     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6710     & err = err)                   \textcolor{comment}{! (out) optional}
6711   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6712     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6713 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a45ec85c8a67443e9551a013d9f909a87}\label{historyget_8f90_a45ec85c8a67443e9551a013d9f909a87}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7pointertimed@{historygetint7pointertimed}}
\index{historygetint7pointertimed@{historygetint7pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7pointertimed()}{historygetint7pointertimed()}}
{\footnotesize\ttfamily subroutine historygetint7pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13938 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13938   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13939   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13940   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13941   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13942   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13943   \textcolor{keywordtype}{implicit none}
13944   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13945   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13946   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13947   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
13948   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13949   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13950   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13951   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13952   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13953   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13954   \textcolor{keywordtype}{character(STRING)}:: tname
13955   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeD"}
13956   \textcolor{keyword}{interface}
13957 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}(&
13958       & file, varname, array, range, quiet, &
13959       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13960       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13961       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13962       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13963       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13964       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13965       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13966       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13967       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13968       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13969       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
13970 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}
13971 \textcolor{keyword}{  end interface}
13972   \textcolor{keyword}{interface}
13973 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13974       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13975       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13976       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13977       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13978       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13979       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13980       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13981 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13982 \textcolor{keyword}{  end interface}
13983   \textcolor{keyword}{interface}
13984 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13985       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13986       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13987       \textcolor{keywordtype}{character(STRING)}:: result
13988 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13989 \textcolor{keyword}{  end interface}
13990   \textcolor{keywordflow}{continue}
13991   file\_work = file
13992   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13993     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13994   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13995     & url = url, &
13996     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13997   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13998     & fullname = url, iorange = iorange, remainder = remainder )
13999   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
14000   timevar\_name = carray(1)
14001   \textcolor{keyword}{deallocate}( carray )
14002   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
14003   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}( file = file, &
14004     & varname = varname, array = array, &
14005     & range = time\_range, quiet = quiet, &
14006     & flag\_mpi\_split = flag\_mpi\_split, &
14007     & returned\_time = returned\_time, &
14008     & flag\_time\_exist = flag\_time\_exist, &
14009     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a45ec85c8a67443e9551a013d9f909a87_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad7f536689ba03d4bb646bf573ca4ec1e}\label{historyget_8f90_ad7f536689ba03d4bb646bf573ca4ec1e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7pointertimei@{historygetint7pointertimei}}
\index{historygetint7pointertimei@{historygetint7pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7pointertimei()}{historygetint7pointertimei()}}
{\footnotesize\ttfamily subroutine historygetint7pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17586 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
17586   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
17587   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17588   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17589   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17590   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17591   \textcolor{keywordtype}{implicit none}
17592   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
17593   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
17594   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17595   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
17596   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17597   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17598   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17599   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17600   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
17601   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
17602   \textcolor{keywordtype}{character(STRING)}:: tname
17603   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeI"}
17604   \textcolor{keyword}{interface}
17605 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}(&
17606       & file, varname, array, range, quiet, &
17607       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17608       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17609       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17610       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17611       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17612       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17613       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17614       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17615       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17616       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17617       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
17618 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}
17619 \textcolor{keyword}{  end interface}
17620   \textcolor{keyword}{interface}
17621 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17622       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17623       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17624       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17625       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17626       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17627       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17628       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17629 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17630 \textcolor{keyword}{  end interface}
17631   \textcolor{keyword}{interface}
17632 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17633       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17634       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17635       \textcolor{keywordtype}{character(STRING)}:: result
17636 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17637 \textcolor{keyword}{  end interface}
17638   \textcolor{keywordflow}{continue}
17639   file\_work = file
17640   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17641     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17642   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17643     & url = url, &
17644     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17645   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17646     & fullname = url, iorange = iorange, remainder = remainder )
17647   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17648   timevar\_name = carray(1)
17649   \textcolor{keyword}{deallocate}( carray )
17650   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17651   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}( file = file, &
17652     & varname = varname, array = array, &
17653     & range = time\_range, quiet = quiet, &
17654     & flag\_mpi\_split = flag\_mpi\_split, &
17655     & returned\_time = returned\_time, &
17656     & flag\_time\_exist = flag\_time\_exist, &
17657     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad7f536689ba03d4bb646bf573ca4ec1e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ac2a45310fa54733338aba63ebd0794ec}\label{historyget_8f90_ac2a45310fa54733338aba63ebd0794ec}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7pointertimer@{historygetint7pointertimer}}
\index{historygetint7pointertimer@{historygetint7pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7pointertimer()}{historygetint7pointertimer()}}
{\footnotesize\ttfamily subroutine historygetint7pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 10290 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
10290   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
10291   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
10292   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
10293   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
10294   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
10295   \textcolor{keywordtype}{implicit none}
10296   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
10297   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
10298   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10299   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
10300   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10301   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10302   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10303   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10304   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
10305   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
10306   \textcolor{keywordtype}{character(STRING)}:: tname
10307   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeR"}
10308   \textcolor{keyword}{interface}
10309 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}(&
10310       & file, varname, array, range, quiet, &
10311       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
10312       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
10313       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10314       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10315       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10316       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
10317       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
10318       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
10319       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10320       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10321       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}  :: array(:,:,:,:,:,:,:)
10322 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}
10323 \textcolor{keyword}{  end interface}
10324   \textcolor{keyword}{interface}
10325 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
10326       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10327       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
10328       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
10329       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
10330       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
10331       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
10332       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
10333 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
10334 \textcolor{keyword}{  end interface}
10335   \textcolor{keyword}{interface}
10336 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
10337       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
10338       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
10339       \textcolor{keywordtype}{character(STRING)}:: result
10340 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
10341 \textcolor{keyword}{  end interface}
10342   \textcolor{keywordflow}{continue}
10343   file\_work = file
10344   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
10345     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
10346   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
10347     & url = url, &
10348     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
10349   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
10350     & fullname = url, iorange = iorange, remainder = remainder )
10351   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
10352   timevar\_name = carray(1)
10353   \textcolor{keyword}{deallocate}( carray )
10354   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
10355   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a715ba27b3f51f2a21ce7303663e50396}{historygetint7pointer}( file = file, &
10356     & varname = varname, array = array, &
10357     & range = time\_range, quiet = quiet, &
10358     & flag\_mpi\_split = flag\_mpi\_split, &
10359     & returned\_time = returned\_time, &
10360     & flag\_time\_exist = flag\_time\_exist, &
10361     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ac2a45310fa54733338aba63ebd0794ec_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0e37bbee54e961435a64412fa7b2b16c}\label{historyget_8f90_a0e37bbee54e961435a64412fa7b2b16c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7timed@{historygetint7timed}}
\index{historygetint7timed@{historygetint7timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7timed()}{historygetint7timed()}}
{\footnotesize\ttfamily subroutine historygetint7timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 13330 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
13330   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
13331   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13332   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
13333   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
13334   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
13335   \textcolor{keywordtype}{implicit none}
13336   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
13337   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
13338   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13339   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
13340   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13341   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13342   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13343   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13344   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
13345   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
13346   \textcolor{keywordtype}{character(STRING)}:: tname
13347   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeD"}
13348   \textcolor{keyword}{interface}
13349 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}(&
13350       & file, varname, array, range, quiet, &
13351       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
13352       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
13353       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13354       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13355       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13356       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
13357       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
13358       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
13359       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13360       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13361       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
13362 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}
13363 \textcolor{keyword}{  end interface}
13364   \textcolor{keyword}{interface}
13365 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
13366       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13367       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
13368       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
13369       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
13370       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
13371       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
13372       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
13373 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
13374 \textcolor{keyword}{  end interface}
13375   \textcolor{keyword}{interface}
13376 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
13377       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
13378       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
13379       \textcolor{keywordtype}{character(STRING)}:: result
13380 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
13381 \textcolor{keyword}{  end interface}
13382   \textcolor{keywordflow}{continue}
13383   file\_work = file
13384   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
13385     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
13386   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
13387     & url = url, &
13388     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
13389   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
13390     & fullname = url, iorange = iorange, remainder = remainder )
13391   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
13392   timevar\_name = carray(1)
13393   \textcolor{keyword}{deallocate}( carray )
13394   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
13395   \textcolor{keyword}{call }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}( file = file, &
13396     & varname = varname, array = array, &
13397     & range = time\_range, quiet = quiet, &
13398     & flag\_mpi\_split = flag\_mpi\_split, &
13399     & returned\_time = returned\_time, &
13400     & flag\_time\_exist = flag\_time\_exist, &
13401     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0e37bbee54e961435a64412fa7b2b16c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a16fb4330d003738629d0b6d6bf577c11}\label{historyget_8f90_a16fb4330d003738629d0b6d6bf577c11}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7timei@{historygetint7timei}}
\index{historygetint7timei@{historygetint7timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7timei()}{historygetint7timei()}}
{\footnotesize\ttfamily subroutine historygetint7timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16978 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16978   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16979   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
16980   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16981   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16982   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16983   \textcolor{keywordtype}{implicit none}
16984   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16985   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16986   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16987   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
16988   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16989   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16990   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16991   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16992   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16993   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16994   \textcolor{keywordtype}{character(STRING)}:: tname
16995   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeI"}
16996   \textcolor{keyword}{interface}
16997 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}(&
16998       & file, varname, array, range, quiet, &
16999       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
17000       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
17001       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17002       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17003       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17004       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
17005       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
17006       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
17007       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17008       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17009       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
17010 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}
17011 \textcolor{keyword}{  end interface}
17012   \textcolor{keyword}{interface}
17013 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
17014       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17015       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
17016       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
17017       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
17018       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
17019       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
17020       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
17021 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
17022 \textcolor{keyword}{  end interface}
17023   \textcolor{keyword}{interface}
17024 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
17025       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17026       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
17027       \textcolor{keywordtype}{character(STRING)}:: result
17028 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
17029 \textcolor{keyword}{  end interface}
17030   \textcolor{keywordflow}{continue}
17031   file\_work = file
17032   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
17033     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
17034   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
17035     & url = url, &
17036     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
17037   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
17038     & fullname = url, iorange = iorange, remainder = remainder )
17039   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
17040   timevar\_name = carray(1)
17041   \textcolor{keyword}{deallocate}( carray )
17042   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
17043   \textcolor{keyword}{call }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}( file = file, &
17044     & varname = varname, array = array, &
17045     & range = time\_range, quiet = quiet, &
17046     & flag\_mpi\_split = flag\_mpi\_split, &
17047     & returned\_time = returned\_time, &
17048     & flag\_time\_exist = flag\_time\_exist, &
17049     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a16fb4330d003738629d0b6d6bf577c11_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_acc40fb31a5854ab455e677319b64cff0}\label{historyget_8f90_acc40fb31a5854ab455e677319b64cff0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetint7timer@{historygetint7timer}}
\index{historygetint7timer@{historygetint7timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetint7timer()}{historygetint7timer()}}
{\footnotesize\ttfamily subroutine historygetint7timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9682 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetint7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9682   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9683   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9684   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9685   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9686   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9687   \textcolor{keywordtype}{implicit none}
9688   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9689   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9690   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9691   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
9692   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9693   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9694   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9695   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9696   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9697   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9698   \textcolor{keywordtype}{character(STRING)}:: tname
9699   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetInt7TimeR"}
9700   \textcolor{keyword}{interface}
9701 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}(&
9702       & file, varname, array, range, quiet, &
9703       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9704       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
9705       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9706       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9707       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9708       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9709       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9710       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9711       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9712       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9713       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}  :: array(:,:,:,:,:,:,:)
9714 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}
9715 \textcolor{keyword}{  end interface}
9716   \textcolor{keyword}{interface}
9717 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9718       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9719       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9720       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9721       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9722       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9723       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9724       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9725 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9726 \textcolor{keyword}{  end interface}
9727   \textcolor{keyword}{interface}
9728 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9729       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9730       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9731       \textcolor{keywordtype}{character(STRING)}:: result
9732 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9733 \textcolor{keyword}{  end interface}
9734   \textcolor{keywordflow}{continue}
9735   file\_work = file
9736   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9737     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9738   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9739     & url = url, &
9740     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9741   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9742     & fullname = url, iorange = iorange, remainder = remainder )
9743   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9744   timevar\_name = carray(1)
9745   \textcolor{keyword}{deallocate}( carray )
9746   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9747   \textcolor{keyword}{call }\hyperlink{historyget_8f90_acc905dbaa87134a7901488a394032619}{historygetint7}( file = file, &
9748     & varname = varname, array = array, &
9749     & range = time\_range, quiet = quiet, &
9750     & flag\_mpi\_split = flag\_mpi\_split, &
9751     & returned\_time = returned\_time, &
9752     & flag\_time\_exist = flag\_time\_exist, &
9753     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_acc40fb31a5854ab455e677319b64cff0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}\label{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0@{historygetreal0}}
\index{historygetreal0@{historygetreal0}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0()}{historygetreal0()}}
{\footnotesize\ttfamily subroutine historygetreal0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1666 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal0timed(), historygetreal0timei(), and historygetreal0timer().


\begin{DoxyCode}
1666   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1667   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1668   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1669   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1670   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1671   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1672   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
1673   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1674   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1675   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1676     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1677   \textcolor{keywordtype}{implicit none}
1678   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1679   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1680   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1681   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
1682   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1683   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
1684   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1685   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1686   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
1687   \textcolor{keywordtype}{real(SP)} :: array\_tmp(1)
1688   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
1689   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
1690   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
1691   \textcolor{keywordtype}{integer}:: domain
1692   \textcolor{keywordtype}{character(STRING)}:: tname
1693   \textcolor{keywordtype}{integer}:: stat
1694   \textcolor{keywordtype}{character(STRING)}:: cause\_c
1695   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0"}
1696   \textcolor{keyword}{interface}
1697 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
1698       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1699       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1700       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
1701       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1702       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1703       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
1704       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1705 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
1706 \textcolor{keyword}{  end interface}
1707   \textcolor{keyword}{interface}
1708 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
1709       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1710       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
1711       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
1712       \textcolor{comment}{! 正確な入出力範囲指定}
1713       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
1714       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
1715       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
1716 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
1717 \textcolor{keyword}{  end interface}
1718   \textcolor{keyword}{interface}
1719 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
1720       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1721       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1722       \textcolor{keywordtype}{character(STRING)}:: result
1723 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
1724 \textcolor{keyword}{  end interface}
1725   \textcolor{keywordflow}{continue}
1726   cause\_c = \textcolor{stringliteral}{''}
1727   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1728   file\_work = file
1729   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
1730   \textcolor{comment}{! Change filename (for MPI)}
1731   \textcolor{comment}{!}
1732   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
1733     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
1734   \textcolor{comment}{! 最新時刻の URL 取得}
1735   \textcolor{comment}{! Get URL of latest time}
1736   \textcolor{comment}{!}
1737   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
1738     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
1739   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1740     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1741     cause\_c = url
1742     \textcolor{keywordflow}{goto} 999
1743 \textcolor{keywordflow}{  end if}
1744   \textcolor{comment}{! ファイルオープン}
1745   \textcolor{comment}{! File open}
1746   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
1747   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1748     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1749     cause\_c = url
1750     \textcolor{keywordflow}{goto} 999
1751 \textcolor{keywordflow}{  end if}
1752   \textcolor{comment}{!-------------------------------------------------------------------}
1753   \textcolor{comment}{!  配列形状のチェック}
1754   \textcolor{comment}{!  Check array shape}
1755   \textcolor{comment}{!-------------------------------------------------------------------}
1756   \textcolor{comment}{! 入力ファイル中のデータの次元数}
1757   \textcolor{comment}{! Get size of dimesions in data of an input file}
1758   \textcolor{comment}{!}
1759   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
1760     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
1761   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
1762   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
1763   array\_rank = 0
1764   \textcolor{comment}{! 次元数の比較}
1765   \textcolor{comment}{! Compare sizes of dimensions}
1766   \textcolor{comment}{!}
1767   \textcolor{keywordflow}{if} ( .not. 0 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
1768     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1769       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1770         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
1771         & i = (/rank, 0/), c1 = trim(url) )
1772 \textcolor{keywordflow}{    end if}
1773     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1774     cause\_c = \textcolor{stringliteral}{'array'}
1775     \textcolor{keywordflow}{goto} 999
1776 \textcolor{keywordflow}{  end if}
1777   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
1778   \textcolor{comment}{! Get shape of data in an input file}
1779   \textcolor{comment}{!-------------------------------------}
1780   \textcolor{comment}{!  データ取得}
1781   \textcolor{comment}{!  Get data}
1782   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
1783     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
1784   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var = var, & \textcolor{comment}{! (inout)}
1785     & nvalue = domain, & \textcolor{comment}{! (in)}
1786     & \textcolor{keywordtype}{value} = array\_tmp) \textcolor{comment}{! (out)}
1787   array = array\_tmp(1)
1788   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
1789   \textcolor{comment}{!-------------------------------------}
1790   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
1791   \textcolor{comment}{!  Print data filename and clipping range}
1792   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
1793     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
1794     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
1795     & err = err)                   \textcolor{comment}{! (out) optional}
1796   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1797     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
1798 \textcolor{keywordflow}{  end if}
1799 999 \textcolor{keywordflow}{continue}
1800   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}\label{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0pointer@{historygetreal0pointer}}
\index{historygetreal0pointer@{historygetreal0pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0pointer()}{historygetreal0pointer()}}
{\footnotesize\ttfamily subroutine historygetreal0pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5447 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal0pointertimed(), historygetreal0pointertimei(), and historygetreal0pointertimer().


\begin{DoxyCode}
5447   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5448   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5449   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5450   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5451   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5452   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5453   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5454   \textcolor{keywordtype}{implicit none}
5455   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5456   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5457   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5458   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5459   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5460   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5461   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5462   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5463   \textcolor{keywordtype}{integer}:: domain
5464   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array \textcolor{comment}{! (out)}
5465   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5466   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5467   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5468   \textcolor{keywordtype}{character(STRING)}:: tname
5469   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0Pointer"}
5470   \textcolor{keyword}{interface}
5471 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5472       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5473       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5474       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5475       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5476       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5477       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5478       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5479 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5480 \textcolor{keyword}{  end interface}
5481   \textcolor{keyword}{interface}
5482 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5483       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5484       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5485       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5486       \textcolor{comment}{! 正確な入出力範囲指定}
5487       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5488       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5489       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5490 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5491 \textcolor{keyword}{  end interface}
5492   \textcolor{keyword}{interface}
5493 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5494       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5495       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5496       \textcolor{keywordtype}{character(STRING)}:: result
5497 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5498 \textcolor{keyword}{  end interface}
5499   \textcolor{keywordflow}{continue}
5500   file\_work = file
5501   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5502   \textcolor{comment}{! Change filename (for MPI)}
5503   \textcolor{comment}{!}
5504   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5505     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5506   \textcolor{comment}{! 必要な情報を gtool 変数化}
5507   \textcolor{comment}{!}
5508   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5509     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5510   \textcolor{keyword}{allocate}(array)
5511   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5512   \textcolor{comment}{! いよいよデータ取得}
5513   \textcolor{comment}{!}
5514   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5515   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var=var, size=domain)
5516   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array\_tmp, domain, err)
5517   array = array\_tmp(1)
5518   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5519   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5520     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5521     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5522     & err = err)                   \textcolor{comment}{! (out) optional}
5523   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5524     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5525 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a733c6d9ec39d90a1e9f8b1e2030095e8}\label{historyget_8f90_a733c6d9ec39d90a1e9f8b1e2030095e8}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0pointertimed@{historygetreal0pointertimed}}
\index{historygetreal0pointertimed@{historygetreal0pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0pointertimed()}{historygetreal0pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal0pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12190 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12190   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12191   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12192   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12193   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12194   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12195   \textcolor{keywordtype}{implicit none}
12196   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12197   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12198   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12199   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
12200   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12201   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12202   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12203   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12204   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12205   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12206   \textcolor{keywordtype}{character(STRING)}:: tname
12207   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeD"}
12208   \textcolor{keyword}{interface}
12209 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}(&
12210       & file, varname, array, range, quiet, &
12211       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12212       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12213       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12214       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12215       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12216       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12217       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12218       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12219       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12220       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12221       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
12222 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}
12223 \textcolor{keyword}{  end interface}
12224   \textcolor{keyword}{interface}
12225 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12226       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12227       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12228       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12229       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12230       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12231       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12232       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12233 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12234 \textcolor{keyword}{  end interface}
12235   \textcolor{keyword}{interface}
12236 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12237       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12238       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12239       \textcolor{keywordtype}{character(STRING)}:: result
12240 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12241 \textcolor{keyword}{  end interface}
12242   \textcolor{keywordflow}{continue}
12243   file\_work = file
12244   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12245     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12246   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12247     & url = url, &
12248     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12249   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12250     & fullname = url, iorange = iorange, remainder = remainder )
12251   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12252   timevar\_name = carray(1)
12253   \textcolor{keyword}{deallocate}( carray )
12254   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12255   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}( file = file, &
12256     & varname = varname, array = array, &
12257     & range = time\_range, quiet = quiet, &
12258     & flag\_mpi\_split = flag\_mpi\_split, &
12259     & returned\_time = returned\_time, &
12260     & flag\_time\_exist = flag\_time\_exist, &
12261     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a733c6d9ec39d90a1e9f8b1e2030095e8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a40e531554afb3268a5f8ff94098f46c6}\label{historyget_8f90_a40e531554afb3268a5f8ff94098f46c6}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0pointertimei@{historygetreal0pointertimei}}
\index{historygetreal0pointertimei@{historygetreal0pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0pointertimei()}{historygetreal0pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal0pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15838 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15838   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15839   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15840   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15841   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15842   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15843   \textcolor{keywordtype}{implicit none}
15844   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15845   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15846   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15847   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
15848   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15849   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15850   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15851   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15852   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15853   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15854   \textcolor{keywordtype}{character(STRING)}:: tname
15855   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeI"}
15856   \textcolor{keyword}{interface}
15857 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}(&
15858       & file, varname, array, range, quiet, &
15859       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15860       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15861       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15862       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15863       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15864       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15865       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15866       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15867       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15868       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15869       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
15870 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}
15871 \textcolor{keyword}{  end interface}
15872   \textcolor{keyword}{interface}
15873 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15874       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15875       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15876       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15877       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15878       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15879       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15880       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15881 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15882 \textcolor{keyword}{  end interface}
15883   \textcolor{keyword}{interface}
15884 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15885       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15886       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15887       \textcolor{keywordtype}{character(STRING)}:: result
15888 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15889 \textcolor{keyword}{  end interface}
15890   \textcolor{keywordflow}{continue}
15891   file\_work = file
15892   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15893     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15894   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15895     & url = url, &
15896     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15897   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15898     & fullname = url, iorange = iorange, remainder = remainder )
15899   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15900   timevar\_name = carray(1)
15901   \textcolor{keyword}{deallocate}( carray )
15902   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15903   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}( file = file, &
15904     & varname = varname, array = array, &
15905     & range = time\_range, quiet = quiet, &
15906     & flag\_mpi\_split = flag\_mpi\_split, &
15907     & returned\_time = returned\_time, &
15908     & flag\_time\_exist = flag\_time\_exist, &
15909     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a40e531554afb3268a5f8ff94098f46c6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae02aa382b803dda87d1bde46526e3752}\label{historyget_8f90_ae02aa382b803dda87d1bde46526e3752}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0pointertimer@{historygetreal0pointertimer}}
\index{historygetreal0pointertimer@{historygetreal0pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0pointertimer()}{historygetreal0pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal0pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8542 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8542   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8543   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8544   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8545   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8546   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8547   \textcolor{keywordtype}{implicit none}
8548   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8549   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8550   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8551   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
8552   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8553   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8554   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8555   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8556   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8557   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8558   \textcolor{keywordtype}{character(STRING)}:: tname
8559   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeR"}
8560   \textcolor{keyword}{interface}
8561 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}(&
8562       & file, varname, array, range, quiet, &
8563       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8564       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8565       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8566       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8567       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8568       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8569       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8570       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8571       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8572       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8573       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array
8574 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}
8575 \textcolor{keyword}{  end interface}
8576   \textcolor{keyword}{interface}
8577 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8578       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8579       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8580       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8581       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8582       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8583       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8584       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8585 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8586 \textcolor{keyword}{  end interface}
8587   \textcolor{keyword}{interface}
8588 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8589       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8590       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8591       \textcolor{keywordtype}{character(STRING)}:: result
8592 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8593 \textcolor{keyword}{  end interface}
8594   \textcolor{keywordflow}{continue}
8595   file\_work = file
8596   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8597     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8598   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8599     & url = url, &
8600     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8601   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8602     & fullname = url, iorange = iorange, remainder = remainder )
8603   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8604   timevar\_name = carray(1)
8605   \textcolor{keyword}{deallocate}( carray )
8606   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8607   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a526fbfd6d128201385cd2be6b30ea59c}{historygetreal0pointer}( file = file, &
8608     & varname = varname, array = array, &
8609     & range = time\_range, quiet = quiet, &
8610     & flag\_mpi\_split = flag\_mpi\_split, &
8611     & returned\_time = returned\_time, &
8612     & flag\_time\_exist = flag\_time\_exist, &
8613     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae02aa382b803dda87d1bde46526e3752_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a90929db2f3af0a230e7af4278555df0e}\label{historyget_8f90_a90929db2f3af0a230e7af4278555df0e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0timed@{historygetreal0timed}}
\index{historygetreal0timed@{historygetreal0timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0timed()}{historygetreal0timed()}}
{\footnotesize\ttfamily subroutine historygetreal0timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11582 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11582   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11583   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11584   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11585   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11586   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11587   \textcolor{keywordtype}{implicit none}
11588   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11589   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11590   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11591   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
11592   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11593   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11594   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11595   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11596   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11597   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11598   \textcolor{keywordtype}{character(STRING)}:: tname
11599   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeD"}
11600   \textcolor{keyword}{interface}
11601 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}(&
11602       & file, varname, array, range, quiet, &
11603       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11604       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11605       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11606       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11607       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11608       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11609       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11610       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11611       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11612       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11613       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
11614 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}
11615 \textcolor{keyword}{  end interface}
11616   \textcolor{keyword}{interface}
11617 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11618       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11619       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11620       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11621       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11622       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11623       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11624       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11625 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11626 \textcolor{keyword}{  end interface}
11627   \textcolor{keyword}{interface}
11628 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11629       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11630       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11631       \textcolor{keywordtype}{character(STRING)}:: result
11632 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11633 \textcolor{keyword}{  end interface}
11634   \textcolor{keywordflow}{continue}
11635   file\_work = file
11636   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11637     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11638   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11639     & url = url, &
11640     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11641   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11642     & fullname = url, iorange = iorange, remainder = remainder )
11643   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11644   timevar\_name = carray(1)
11645   \textcolor{keyword}{deallocate}( carray )
11646   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11647   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}( file = file, &
11648     & varname = varname, array = array, &
11649     & range = time\_range, quiet = quiet, &
11650     & flag\_mpi\_split = flag\_mpi\_split, &
11651     & returned\_time = returned\_time, &
11652     & flag\_time\_exist = flag\_time\_exist, &
11653     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a90929db2f3af0a230e7af4278555df0e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_abdd7631888bf270034413e10bed6887b}\label{historyget_8f90_abdd7631888bf270034413e10bed6887b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0timei@{historygetreal0timei}}
\index{historygetreal0timei@{historygetreal0timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0timei()}{historygetreal0timei()}}
{\footnotesize\ttfamily subroutine historygetreal0timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15230 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15230   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15231   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15232   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15233   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15234   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15235   \textcolor{keywordtype}{implicit none}
15236   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15237   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15238   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15239   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
15240   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15241   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15242   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15243   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15244   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15245   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15246   \textcolor{keywordtype}{character(STRING)}:: tname
15247   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeI"}
15248   \textcolor{keyword}{interface}
15249 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}(&
15250       & file, varname, array, range, quiet, &
15251       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15252       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15253       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15254       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15255       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15256       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15257       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15258       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15259       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15260       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15261       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
15262 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}
15263 \textcolor{keyword}{  end interface}
15264   \textcolor{keyword}{interface}
15265 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15266       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15267       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15268       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15269       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15270       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15271       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15272       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15273 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15274 \textcolor{keyword}{  end interface}
15275   \textcolor{keyword}{interface}
15276 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15277       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15278       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15279       \textcolor{keywordtype}{character(STRING)}:: result
15280 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15281 \textcolor{keyword}{  end interface}
15282   \textcolor{keywordflow}{continue}
15283   file\_work = file
15284   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15285     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15286   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15287     & url = url, &
15288     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15289   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15290     & fullname = url, iorange = iorange, remainder = remainder )
15291   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15292   timevar\_name = carray(1)
15293   \textcolor{keyword}{deallocate}( carray )
15294   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15295   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}( file = file, &
15296     & varname = varname, array = array, &
15297     & range = time\_range, quiet = quiet, &
15298     & flag\_mpi\_split = flag\_mpi\_split, &
15299     & returned\_time = returned\_time, &
15300     & flag\_time\_exist = flag\_time\_exist, &
15301     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_abdd7631888bf270034413e10bed6887b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a2e0a4598f6199d26bff46482831767d4}\label{historyget_8f90_a2e0a4598f6199d26bff46482831767d4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal0timer@{historygetreal0timer}}
\index{historygetreal0timer@{historygetreal0timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal0timer()}{historygetreal0timer()}}
{\footnotesize\ttfamily subroutine historygetreal0timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 7934 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal0(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
7934   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
7935   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7936   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
7937   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
7938   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
7939   \textcolor{keywordtype}{implicit none}
7940   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
7941   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
7942   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7943   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
7944   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7945   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7946   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7947   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7948   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
7949   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
7950   \textcolor{keywordtype}{character(STRING)}:: tname
7951   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal0TimeR"}
7952   \textcolor{keyword}{interface}
7953 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}(&
7954       & file, varname, array, range, quiet, &
7955       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
7956       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
7957       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7958       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7959       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7960       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
7961       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
7962       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
7963       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7964       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7965       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array
7966 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}
7967 \textcolor{keyword}{  end interface}
7968   \textcolor{keyword}{interface}
7969 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
7970       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7971       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
7972       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
7973       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
7974       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
7975       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
7976       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
7977 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
7978 \textcolor{keyword}{  end interface}
7979   \textcolor{keyword}{interface}
7980 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
7981       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
7982       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
7983       \textcolor{keywordtype}{character(STRING)}:: result
7984 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
7985 \textcolor{keyword}{  end interface}
7986   \textcolor{keywordflow}{continue}
7987   file\_work = file
7988   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
7989     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
7990   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
7991     & url = url, &
7992     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
7993   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
7994     & fullname = url, iorange = iorange, remainder = remainder )
7995   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
7996   timevar\_name = carray(1)
7997   \textcolor{keyword}{deallocate}( carray )
7998   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
7999   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa4d25c5f87cfb2d4532019dc135e8a9b}{historygetreal0}( file = file, &
8000     & varname = varname, array = array, &
8001     & range = time\_range, quiet = quiet, &
8002     & flag\_mpi\_split = flag\_mpi\_split, &
8003     & returned\_time = returned\_time, &
8004     & flag\_time\_exist = flag\_time\_exist, &
8005     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a2e0a4598f6199d26bff46482831767d4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}\label{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1@{historygetreal1}}
\index{historygetreal1@{historygetreal1}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1()}{historygetreal1()}}
{\footnotesize\ttfamily subroutine historygetreal1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1804 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal1timed(), historygetreal1timei(), and historygetreal1timer().


\begin{DoxyCode}
1804   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1805   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1806   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1807   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1808   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1809   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1810   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
1811   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1812   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1813   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1814     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1815   \textcolor{keywordtype}{implicit none}
1816   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1817   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1818   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1819   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
1820   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1821   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
1822   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1823   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1824   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
1825   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
1826   \textcolor{keywordtype}{integer}:: array\_allsize
1827   \textcolor{keywordtype}{integer}:: array\_shape(1), data\_shape(1), array\_shape\_check(1)
1828   \textcolor{keywordtype}{integer}:: allcount
1829   \textcolor{keywordtype}{integer}:: i, sd
1830   \textcolor{keywordtype}{logical}:: inq\_err
1831   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
1832   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
1833   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
1834   \textcolor{keywordtype}{integer}:: domain
1835   \textcolor{keywordtype}{character(STRING)}:: tname
1836   \textcolor{keywordtype}{integer}:: stat
1837   \textcolor{keywordtype}{character(STRING)}:: cause\_c
1838   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1"}
1839   \textcolor{keyword}{interface}
1840 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
1841       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1842       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1843       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
1844       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1845       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
1846       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
1847       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1848 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
1849 \textcolor{keyword}{  end interface}
1850   \textcolor{keyword}{interface}
1851 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
1852       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1853       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
1854       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
1855       \textcolor{comment}{! 正確な入出力範囲指定}
1856       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
1857       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
1858       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
1859 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
1860 \textcolor{keyword}{  end interface}
1861   \textcolor{keyword}{interface}
1862 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
1863       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1864       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1865       \textcolor{keywordtype}{character(STRING)}:: result
1866 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
1867 \textcolor{keyword}{  end interface}
1868   \textcolor{keywordflow}{continue}
1869   cause\_c = \textcolor{stringliteral}{''}
1870   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1871   file\_work = file
1872   array\_shape = shape( array )
1873   array\_allsize = \textcolor{keyword}{size}( array )
1874   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
1875   \textcolor{comment}{! Change filename (for MPI)}
1876   \textcolor{comment}{!}
1877   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
1878     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
1879   \textcolor{comment}{! 最新時刻の URL 取得}
1880   \textcolor{comment}{! Get URL of latest time}
1881   \textcolor{comment}{!}
1882   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
1883     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
1884   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1885     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1886     cause\_c = url
1887     \textcolor{keywordflow}{goto} 999
1888 \textcolor{keywordflow}{  end if}
1889   \textcolor{comment}{! ファイルオープン}
1890   \textcolor{comment}{! File open}
1891   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
1892   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
1893     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
1894     cause\_c = url
1895     \textcolor{keywordflow}{goto} 999
1896 \textcolor{keywordflow}{  end if}
1897   \textcolor{comment}{!-------------------------------------------------------------------}
1898   \textcolor{comment}{!  配列形状のチェック}
1899   \textcolor{comment}{!  Check array shape}
1900   \textcolor{comment}{!-------------------------------------------------------------------}
1901   \textcolor{comment}{! 入力ファイル中のデータの次元数}
1902   \textcolor{comment}{! Get size of dimesions in data of an input file}
1903   \textcolor{comment}{!}
1904   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
1905     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
1906   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
1907   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
1908   array\_rank = 1
1909   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
1910   \textcolor{comment}{! 次元数の比較}
1911   \textcolor{comment}{! Compare sizes of dimensions}
1912   \textcolor{comment}{!}
1913   \textcolor{keywordflow}{if} ( .not. 1 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
1914     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1915       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1916         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
1917         & i = (/rank, 1/), c1 = trim(url) )
1918 \textcolor{keywordflow}{    end if}
1919     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1920     cause\_c = \textcolor{stringliteral}{'array'}
1921     \textcolor{keywordflow}{goto} 999
1922 \textcolor{keywordflow}{  end if}
1923   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
1924   \textcolor{comment}{! Get shape of data in an input file}
1925   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
1926     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
1927   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
1928     data\_shape(1) = allcount
1929   \textcolor{keywordflow}{else}
1930     data\_shape(1) = 1
1931 \textcolor{keywordflow}{  end if}
1932   \textcolor{comment}{! 引数の配列形状整形}
1933   \textcolor{comment}{! Arrange shape of an argument}
1934   \textcolor{comment}{!}
1935   array\_shape\_check = array\_shape
1936   sd = 1
1937   \textcolor{keywordflow}{do} i = 1, 1 - 1
1938     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
1939       array\_shape\_check(sd:1) = cshift( array\_shape\_check(sd:1), 1, 1 )
1940     \textcolor{keywordflow}{else}
1941       sd = sd + 1
1942 \textcolor{keywordflow}{    end if}
1943 \textcolor{keywordflow}{  end do}
1944   \textcolor{comment}{! 配列形状の比較}
1945   \textcolor{comment}{! Compare shapes}
1946   \textcolor{comment}{!}
1947   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
1948     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1949       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1950         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
1951         & c1 = trim( url ), &
1952         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
1953         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
1954 \textcolor{keywordflow}{    end if}
1955     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1956     cause\_c = \textcolor{stringliteral}{'array'}
1957     \textcolor{keywordflow}{goto} 999
1958 \textcolor{keywordflow}{  end if}
1959   \textcolor{comment}{!-------------------------------------}
1960   \textcolor{comment}{!  データ取得}
1961   \textcolor{comment}{!  Get data}
1962   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
1963     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
1964   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
1965   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
1966   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
1967   array = reshape( array\_tmp, array\_shape )
1968   \textcolor{keyword}{deallocate}( array\_tmp )
1969   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
1970   \textcolor{comment}{!-------------------------------------}
1971   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
1972   \textcolor{comment}{!  Print data filename and clipping range}
1973   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
1974     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
1975     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
1976     & err = err)                   \textcolor{comment}{! (out) optional}
1977   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
1978     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
1979 \textcolor{keywordflow}{  end if}
1980 999 \textcolor{keywordflow}{continue}
1981   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}\label{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1pointer@{historygetreal1pointer}}
\index{historygetreal1pointer@{historygetreal1pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1pointer()}{historygetreal1pointer()}}
{\footnotesize\ttfamily subroutine historygetreal1pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5529 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal1pointertimed(), historygetreal1pointertimei(), and historygetreal1pointertimer().


\begin{DoxyCode}
5529   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5530   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5531   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5532   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5533   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5534   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5535   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5536   \textcolor{keywordtype}{implicit none}
5537   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5538   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5539   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5540   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5541   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5542   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5543   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5544   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5545   \textcolor{keywordtype}{integer}:: domain
5546   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:) \textcolor{comment}{! (out)}
5547   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5548   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5549   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5550   \textcolor{keywordtype}{character(STRING)}:: tname
5551   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1Pointer"}
5552   \textcolor{keyword}{interface}
5553 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5554       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5555       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5556       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5557       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5558       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5559       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5560       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5561 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5562 \textcolor{keyword}{  end interface}
5563   \textcolor{keyword}{interface}
5564 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5565       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5566       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5567       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5568       \textcolor{comment}{! 正確な入出力範囲指定}
5569       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5570       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5571       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5572 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5573 \textcolor{keyword}{  end interface}
5574   \textcolor{keyword}{interface}
5575 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5576       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5577       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5578       \textcolor{keywordtype}{character(STRING)}:: result
5579 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5580 \textcolor{keyword}{  end interface}
5581   \textcolor{keywordflow}{continue}
5582   file\_work = file
5583   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5584   \textcolor{comment}{! Change filename (for MPI)}
5585   \textcolor{comment}{!}
5586   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5587     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5588   \textcolor{comment}{! 必要な情報を gtool 変数化}
5589   \textcolor{comment}{!}
5590   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5591     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5592   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5593   \textcolor{comment}{! いよいよデータ取得}
5594   \textcolor{comment}{!}
5595   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5596   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5597   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5598   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5599     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5600     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5601     & err = err)                   \textcolor{comment}{! (out) optional}
5602   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5603     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5604 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae16c5dff6c11cf799edb779932c60454_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ae16c5dff6c11cf799edb779932c60454_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7114b3be5e846e8d629687bac82d1220}\label{historyget_8f90_a7114b3be5e846e8d629687bac82d1220}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1pointertimed@{historygetreal1pointertimed}}
\index{historygetreal1pointertimed@{historygetreal1pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1pointertimed()}{historygetreal1pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal1pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12266 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12266   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12267   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12268   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12269   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12270   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12271   \textcolor{keywordtype}{implicit none}
12272   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12273   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12274   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12275   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
12276   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12277   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12278   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12279   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12280   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12281   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12282   \textcolor{keywordtype}{character(STRING)}:: tname
12283   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeD"}
12284   \textcolor{keyword}{interface}
12285 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}(&
12286       & file, varname, array, range, quiet, &
12287       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12288       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12289       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12290       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12291       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12292       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12293       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12294       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12295       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12296       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12297       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
12298 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}
12299 \textcolor{keyword}{  end interface}
12300   \textcolor{keyword}{interface}
12301 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12302       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12303       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12304       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12305       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12306       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12307       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12308       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12309 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12310 \textcolor{keyword}{  end interface}
12311   \textcolor{keyword}{interface}
12312 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12313       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12314       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12315       \textcolor{keywordtype}{character(STRING)}:: result
12316 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12317 \textcolor{keyword}{  end interface}
12318   \textcolor{keywordflow}{continue}
12319   file\_work = file
12320   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12321     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12322   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12323     & url = url, &
12324     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12325   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12326     & fullname = url, iorange = iorange, remainder = remainder )
12327   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12328   timevar\_name = carray(1)
12329   \textcolor{keyword}{deallocate}( carray )
12330   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12331   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}( file = file, &
12332     & varname = varname, array = array, &
12333     & range = time\_range, quiet = quiet, &
12334     & flag\_mpi\_split = flag\_mpi\_split, &
12335     & returned\_time = returned\_time, &
12336     & flag\_time\_exist = flag\_time\_exist, &
12337     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7114b3be5e846e8d629687bac82d1220_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7a6831872da5500cb2e17c7e60b18964}\label{historyget_8f90_a7a6831872da5500cb2e17c7e60b18964}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1pointertimei@{historygetreal1pointertimei}}
\index{historygetreal1pointertimei@{historygetreal1pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1pointertimei()}{historygetreal1pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal1pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15914 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15914   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15915   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15916   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15917   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15918   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15919   \textcolor{keywordtype}{implicit none}
15920   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15921   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15922   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15923   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
15924   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15925   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15926   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15927   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15928   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15929   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15930   \textcolor{keywordtype}{character(STRING)}:: tname
15931   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeI"}
15932   \textcolor{keyword}{interface}
15933 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}(&
15934       & file, varname, array, range, quiet, &
15935       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15936       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15937       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15938       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15939       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15940       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15941       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15942       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15943       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15944       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15945       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
15946 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}
15947 \textcolor{keyword}{  end interface}
15948   \textcolor{keyword}{interface}
15949 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15950       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15951       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15952       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15953       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15954       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15955       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15956       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15957 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15958 \textcolor{keyword}{  end interface}
15959   \textcolor{keyword}{interface}
15960 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15961       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15962       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15963       \textcolor{keywordtype}{character(STRING)}:: result
15964 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15965 \textcolor{keyword}{  end interface}
15966   \textcolor{keywordflow}{continue}
15967   file\_work = file
15968   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15969     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15970   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15971     & url = url, &
15972     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15973   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15974     & fullname = url, iorange = iorange, remainder = remainder )
15975   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15976   timevar\_name = carray(1)
15977   \textcolor{keyword}{deallocate}( carray )
15978   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15979   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}( file = file, &
15980     & varname = varname, array = array, &
15981     & range = time\_range, quiet = quiet, &
15982     & flag\_mpi\_split = flag\_mpi\_split, &
15983     & returned\_time = returned\_time, &
15984     & flag\_time\_exist = flag\_time\_exist, &
15985     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7a6831872da5500cb2e17c7e60b18964_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a43d46b739e1941588d4fa282af961809}\label{historyget_8f90_a43d46b739e1941588d4fa282af961809}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1pointertimer@{historygetreal1pointertimer}}
\index{historygetreal1pointertimer@{historygetreal1pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1pointertimer()}{historygetreal1pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal1pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8618 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8618   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8619   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8620   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8621   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8622   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8623   \textcolor{keywordtype}{implicit none}
8624   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8625   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8626   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8627   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
8628   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8629   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8630   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8631   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8632   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8633   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8634   \textcolor{keywordtype}{character(STRING)}:: tname
8635   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeR"}
8636   \textcolor{keyword}{interface}
8637 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}(&
8638       & file, varname, array, range, quiet, &
8639       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8640       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8641       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8642       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8643       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8644       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8645       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8646       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8647       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8648       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8649       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:)
8650 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}
8651 \textcolor{keyword}{  end interface}
8652   \textcolor{keyword}{interface}
8653 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8654       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8655       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8656       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8657       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8658       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8659       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8660       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8661 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8662 \textcolor{keyword}{  end interface}
8663   \textcolor{keyword}{interface}
8664 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8665       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8666       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8667       \textcolor{keywordtype}{character(STRING)}:: result
8668 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8669 \textcolor{keyword}{  end interface}
8670   \textcolor{keywordflow}{continue}
8671   file\_work = file
8672   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8673     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8674   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8675     & url = url, &
8676     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8677   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8678     & fullname = url, iorange = iorange, remainder = remainder )
8679   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8680   timevar\_name = carray(1)
8681   \textcolor{keyword}{deallocate}( carray )
8682   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8683   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ae16c5dff6c11cf799edb779932c60454}{historygetreal1pointer}( file = file, &
8684     & varname = varname, array = array, &
8685     & range = time\_range, quiet = quiet, &
8686     & flag\_mpi\_split = flag\_mpi\_split, &
8687     & returned\_time = returned\_time, &
8688     & flag\_time\_exist = flag\_time\_exist, &
8689     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a43d46b739e1941588d4fa282af961809_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ade7b83ab0fa157de60796c9d36c83457}\label{historyget_8f90_ade7b83ab0fa157de60796c9d36c83457}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1timed@{historygetreal1timed}}
\index{historygetreal1timed@{historygetreal1timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1timed()}{historygetreal1timed()}}
{\footnotesize\ttfamily subroutine historygetreal1timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11658 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11658   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11659   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11660   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11661   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11662   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11663   \textcolor{keywordtype}{implicit none}
11664   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11665   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11666   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11667   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
11668   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11669   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11670   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11671   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11672   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11673   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11674   \textcolor{keywordtype}{character(STRING)}:: tname
11675   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeD"}
11676   \textcolor{keyword}{interface}
11677 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}(&
11678       & file, varname, array, range, quiet, &
11679       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11680       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11681       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11682       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11683       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11684       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11685       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11686       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11687       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11688       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11689       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
11690 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}
11691 \textcolor{keyword}{  end interface}
11692   \textcolor{keyword}{interface}
11693 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11694       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11695       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11696       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11697       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11698       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11699       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11700       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11701 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11702 \textcolor{keyword}{  end interface}
11703   \textcolor{keyword}{interface}
11704 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11705       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11706       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11707       \textcolor{keywordtype}{character(STRING)}:: result
11708 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11709 \textcolor{keyword}{  end interface}
11710   \textcolor{keywordflow}{continue}
11711   file\_work = file
11712   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11713     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11714   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11715     & url = url, &
11716     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11717   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11718     & fullname = url, iorange = iorange, remainder = remainder )
11719   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11720   timevar\_name = carray(1)
11721   \textcolor{keyword}{deallocate}( carray )
11722   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11723   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}( file = file, &
11724     & varname = varname, array = array, &
11725     & range = time\_range, quiet = quiet, &
11726     & flag\_mpi\_split = flag\_mpi\_split, &
11727     & returned\_time = returned\_time, &
11728     & flag\_time\_exist = flag\_time\_exist, &
11729     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ade7b83ab0fa157de60796c9d36c83457_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a09491449cedf1f8f0b94933ab220fa81}\label{historyget_8f90_a09491449cedf1f8f0b94933ab220fa81}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1timei@{historygetreal1timei}}
\index{historygetreal1timei@{historygetreal1timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1timei()}{historygetreal1timei()}}
{\footnotesize\ttfamily subroutine historygetreal1timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15306 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15306   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15307   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15308   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15309   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15310   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15311   \textcolor{keywordtype}{implicit none}
15312   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15313   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15314   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15315   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
15316   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15317   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15318   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15319   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15320   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15321   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15322   \textcolor{keywordtype}{character(STRING)}:: tname
15323   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeI"}
15324   \textcolor{keyword}{interface}
15325 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}(&
15326       & file, varname, array, range, quiet, &
15327       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15328       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15329       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15330       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15331       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15332       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15333       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15334       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15335       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15336       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15337       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
15338 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}
15339 \textcolor{keyword}{  end interface}
15340   \textcolor{keyword}{interface}
15341 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15342       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15343       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15344       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15345       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15346       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15347       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15348       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15349 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15350 \textcolor{keyword}{  end interface}
15351   \textcolor{keyword}{interface}
15352 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15353       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15354       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15355       \textcolor{keywordtype}{character(STRING)}:: result
15356 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15357 \textcolor{keyword}{  end interface}
15358   \textcolor{keywordflow}{continue}
15359   file\_work = file
15360   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15361     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15362   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15363     & url = url, &
15364     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15365   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15366     & fullname = url, iorange = iorange, remainder = remainder )
15367   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15368   timevar\_name = carray(1)
15369   \textcolor{keyword}{deallocate}( carray )
15370   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15371   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}( file = file, &
15372     & varname = varname, array = array, &
15373     & range = time\_range, quiet = quiet, &
15374     & flag\_mpi\_split = flag\_mpi\_split, &
15375     & returned\_time = returned\_time, &
15376     & flag\_time\_exist = flag\_time\_exist, &
15377     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a09491449cedf1f8f0b94933ab220fa81_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8550581ce0b1ea312e1570cf83e094d1}\label{historyget_8f90_a8550581ce0b1ea312e1570cf83e094d1}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal1timer@{historygetreal1timer}}
\index{historygetreal1timer@{historygetreal1timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal1timer()}{historygetreal1timer()}}
{\footnotesize\ttfamily subroutine historygetreal1timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8010 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal1(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8010   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8011   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8012   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8013   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8014   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8015   \textcolor{keywordtype}{implicit none}
8016   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8017   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8018   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8019   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
8020   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8021   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8022   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8023   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8024   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8025   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8026   \textcolor{keywordtype}{character(STRING)}:: tname
8027   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal1TimeR"}
8028   \textcolor{keyword}{interface}
8029 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}(&
8030       & file, varname, array, range, quiet, &
8031       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8032       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8033       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8034       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8035       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8036       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8037       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8038       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8039       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8040       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8041       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:)
8042 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}
8043 \textcolor{keyword}{  end interface}
8044   \textcolor{keyword}{interface}
8045 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8046       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8047       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8048       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8049       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8050       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8051       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8052       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8053 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8054 \textcolor{keyword}{  end interface}
8055   \textcolor{keyword}{interface}
8056 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8057       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8058       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8059       \textcolor{keywordtype}{character(STRING)}:: result
8060 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8061 \textcolor{keyword}{  end interface}
8062   \textcolor{keywordflow}{continue}
8063   file\_work = file
8064   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8065     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8066   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8067     & url = url, &
8068     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8069   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8070     & fullname = url, iorange = iorange, remainder = remainder )
8071   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8072   timevar\_name = carray(1)
8073   \textcolor{keyword}{deallocate}( carray )
8074   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8075   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a4369e876f6f791ad6591829ce31c4d32}{historygetreal1}( file = file, &
8076     & varname = varname, array = array, &
8077     & range = time\_range, quiet = quiet, &
8078     & flag\_mpi\_split = flag\_mpi\_split, &
8079     & returned\_time = returned\_time, &
8080     & flag\_time\_exist = flag\_time\_exist, &
8081     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8550581ce0b1ea312e1570cf83e094d1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}\label{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2@{historygetreal2}}
\index{historygetreal2@{historygetreal2}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2()}{historygetreal2()}}
{\footnotesize\ttfamily subroutine historygetreal2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1985 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal2timed(), historygetreal2timei(), and historygetreal2timer().


\begin{DoxyCode}
1985   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1986   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
1987   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
1988   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1989   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1990   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
1991   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
1992   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1993   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1994   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
1995     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1996   \textcolor{keywordtype}{implicit none}
1997   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
1998   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1999   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2000   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
2001   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2002   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
2003   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2004   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2005   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
2006   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
2007   \textcolor{keywordtype}{integer}:: array\_allsize
2008   \textcolor{keywordtype}{integer}:: array\_shape(2), data\_shape(2), array\_shape\_check(2)
2009   \textcolor{keywordtype}{integer}:: allcount
2010   \textcolor{keywordtype}{integer}:: i, sd
2011   \textcolor{keywordtype}{logical}:: inq\_err
2012   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
2013   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
2014   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
2015   \textcolor{keywordtype}{integer}:: domain
2016   \textcolor{keywordtype}{character(STRING)}:: tname
2017   \textcolor{keywordtype}{integer}:: stat
2018   \textcolor{keywordtype}{character(STRING)}:: cause\_c
2019   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2"}
2020   \textcolor{keyword}{interface}
2021 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
2022       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2023       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2024       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
2025       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2026       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2027       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
2028       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2029 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
2030 \textcolor{keyword}{  end interface}
2031   \textcolor{keyword}{interface}
2032 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
2033       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2034       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
2035       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
2036       \textcolor{comment}{! 正確な入出力範囲指定}
2037       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
2038       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
2039       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
2040 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
2041 \textcolor{keyword}{  end interface}
2042   \textcolor{keyword}{interface}
2043 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
2044       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
2045       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2046       \textcolor{keywordtype}{character(STRING)}:: result
2047 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
2048 \textcolor{keyword}{  end interface}
2049   \textcolor{keywordflow}{continue}
2050   cause\_c = \textcolor{stringliteral}{''}
2051   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2052   file\_work = file
2053   array\_shape = shape( array )
2054   array\_allsize = \textcolor{keyword}{size}( array )
2055   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
2056   \textcolor{comment}{! Change filename (for MPI)}
2057   \textcolor{comment}{!}
2058   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
2059     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
2060   \textcolor{comment}{! 最新時刻の URL 取得}
2061   \textcolor{comment}{! Get URL of latest time}
2062   \textcolor{comment}{!}
2063   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
2064     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
2065   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2066     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2067     cause\_c = url
2068     \textcolor{keywordflow}{goto} 999
2069 \textcolor{keywordflow}{  end if}
2070   \textcolor{comment}{! ファイルオープン}
2071   \textcolor{comment}{! File open}
2072   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
2073   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2074     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2075     cause\_c = url
2076     \textcolor{keywordflow}{goto} 999
2077 \textcolor{keywordflow}{  end if}
2078   \textcolor{comment}{!-------------------------------------------------------------------}
2079   \textcolor{comment}{!  配列形状のチェック}
2080   \textcolor{comment}{!  Check array shape}
2081   \textcolor{comment}{!-------------------------------------------------------------------}
2082   \textcolor{comment}{! 入力ファイル中のデータの次元数}
2083   \textcolor{comment}{! Get size of dimesions in data of an input file}
2084   \textcolor{comment}{!}
2085   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
2086     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
2087   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
2088   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
2089   array\_rank = 2
2090   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
2091   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
2092   \textcolor{comment}{! 次元数の比較}
2093   \textcolor{comment}{! Compare sizes of dimensions}
2094   \textcolor{comment}{!}
2095   \textcolor{keywordflow}{if} ( .not. 2 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
2096     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2097       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2098         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
2099         & i = (/rank, 2/), c1 = trim(url) )
2100 \textcolor{keywordflow}{    end if}
2101     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
2102     cause\_c = \textcolor{stringliteral}{'array'}
2103     \textcolor{keywordflow}{goto} 999
2104 \textcolor{keywordflow}{  end if}
2105   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
2106   \textcolor{comment}{! Get shape of data in an input file}
2107   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
2108     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2109   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2110     data\_shape(1) = allcount
2111   \textcolor{keywordflow}{else}
2112     data\_shape(1) = 1
2113 \textcolor{keywordflow}{  end if}
2114   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
2115     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2116   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2117     data\_shape(2) = allcount
2118   \textcolor{keywordflow}{else}
2119     data\_shape(2) = 1
2120 \textcolor{keywordflow}{  end if}
2121   \textcolor{comment}{! 引数の配列形状整形}
2122   \textcolor{comment}{! Arrange shape of an argument}
2123   \textcolor{comment}{!}
2124   array\_shape\_check = array\_shape
2125   sd = 1
2126   \textcolor{keywordflow}{do} i = 1, 2 - 1
2127     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
2128       array\_shape\_check(sd:2) = cshift( array\_shape\_check(sd:2), 1, 1 )
2129     \textcolor{keywordflow}{else}
2130       sd = sd + 1
2131 \textcolor{keywordflow}{    end if}
2132 \textcolor{keywordflow}{  end do}
2133   \textcolor{comment}{! 配列形状の比較}
2134   \textcolor{comment}{! Compare shapes}
2135   \textcolor{comment}{!}
2136   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
2137     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2138       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2139         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
2140         & c1 = trim( url ), &
2141         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
2142         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
2143 \textcolor{keywordflow}{    end if}
2144     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2145     cause\_c = \textcolor{stringliteral}{'array'}
2146     \textcolor{keywordflow}{goto} 999
2147 \textcolor{keywordflow}{  end if}
2148   \textcolor{comment}{!-------------------------------------}
2149   \textcolor{comment}{!  データ取得}
2150   \textcolor{comment}{!  Get data}
2151   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
2152     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
2153   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
2154   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
2155   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
2156   array = reshape( array\_tmp, array\_shape )
2157   \textcolor{keyword}{deallocate}( array\_tmp )
2158   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
2159   \textcolor{comment}{!-------------------------------------}
2160   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
2161   \textcolor{comment}{!  Print data filename and clipping range}
2162   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
2163     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
2164     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
2165     & err = err)                   \textcolor{comment}{! (out) optional}
2166   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2167     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
2168 \textcolor{keywordflow}{  end if}
2169 999 \textcolor{keywordflow}{continue}
2170   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}\label{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2pointer@{historygetreal2pointer}}
\index{historygetreal2pointer@{historygetreal2pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2pointer()}{historygetreal2pointer()}}
{\footnotesize\ttfamily subroutine historygetreal2pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5608 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal2pointertimed(), historygetreal2pointertimei(), and historygetreal2pointertimer().


\begin{DoxyCode}
5608   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5609   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5610   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5611   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5612   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5613   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5614   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5615   \textcolor{keywordtype}{implicit none}
5616   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5617   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5618   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5619   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5620   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5621   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5622   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5623   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5624   \textcolor{keywordtype}{integer}:: domain
5625   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:) \textcolor{comment}{! (out)}
5626   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5627   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5628   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5629   \textcolor{keywordtype}{character(STRING)}:: tname
5630   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2Pointer"}
5631   \textcolor{keyword}{interface}
5632 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5633       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5634       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5635       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5636       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5637       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5638       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5639       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5640 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5641 \textcolor{keyword}{  end interface}
5642   \textcolor{keyword}{interface}
5643 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5644       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5645       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5646       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5647       \textcolor{comment}{! 正確な入出力範囲指定}
5648       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5649       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5650       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5651 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5652 \textcolor{keyword}{  end interface}
5653   \textcolor{keyword}{interface}
5654 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5655       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5656       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5657       \textcolor{keywordtype}{character(STRING)}:: result
5658 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5659 \textcolor{keyword}{  end interface}
5660   \textcolor{keywordflow}{continue}
5661   file\_work = file
5662   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5663   \textcolor{comment}{! Change filename (for MPI)}
5664   \textcolor{comment}{!}
5665   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5666     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5667   \textcolor{comment}{! 必要な情報を gtool 変数化}
5668   \textcolor{comment}{!}
5669   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5670     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5671   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5672   \textcolor{comment}{! いよいよデータ取得}
5673   \textcolor{comment}{!}
5674   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5675   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5676   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5677   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5678     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5679     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5680     & err = err)                   \textcolor{comment}{! (out) optional}
5681   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5682     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5683 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa58ca7dd13d4e29fdf2e579599523800}\label{historyget_8f90_aa58ca7dd13d4e29fdf2e579599523800}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2pointertimed@{historygetreal2pointertimed}}
\index{historygetreal2pointertimed@{historygetreal2pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2pointertimed()}{historygetreal2pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal2pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12342 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12342   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12343   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12344   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12345   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12346   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12347   \textcolor{keywordtype}{implicit none}
12348   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12349   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12350   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12351   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
12352   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12353   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12354   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12355   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12356   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12357   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12358   \textcolor{keywordtype}{character(STRING)}:: tname
12359   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeD"}
12360   \textcolor{keyword}{interface}
12361 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}(&
12362       & file, varname, array, range, quiet, &
12363       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12364       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12365       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12366       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12367       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12368       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12369       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12370       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12371       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12372       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12373       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
12374 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}
12375 \textcolor{keyword}{  end interface}
12376   \textcolor{keyword}{interface}
12377 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12378       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12379       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12380       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12381       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12382       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12383       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12384       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12385 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12386 \textcolor{keyword}{  end interface}
12387   \textcolor{keyword}{interface}
12388 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12389       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12390       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12391       \textcolor{keywordtype}{character(STRING)}:: result
12392 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12393 \textcolor{keyword}{  end interface}
12394   \textcolor{keywordflow}{continue}
12395   file\_work = file
12396   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12397     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12398   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12399     & url = url, &
12400     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12401   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12402     & fullname = url, iorange = iorange, remainder = remainder )
12403   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12404   timevar\_name = carray(1)
12405   \textcolor{keyword}{deallocate}( carray )
12406   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12407   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}( file = file, &
12408     & varname = varname, array = array, &
12409     & range = time\_range, quiet = quiet, &
12410     & flag\_mpi\_split = flag\_mpi\_split, &
12411     & returned\_time = returned\_time, &
12412     & flag\_time\_exist = flag\_time\_exist, &
12413     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa58ca7dd13d4e29fdf2e579599523800_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a64551b0c2b2b58bc6cdadede229a929b}\label{historyget_8f90_a64551b0c2b2b58bc6cdadede229a929b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2pointertimei@{historygetreal2pointertimei}}
\index{historygetreal2pointertimei@{historygetreal2pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2pointertimei()}{historygetreal2pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal2pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15990 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15990   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15991   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15992   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15993   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15994   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15995   \textcolor{keywordtype}{implicit none}
15996   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15997   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15998   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15999   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
16000   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16001   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16002   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16003   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16004   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16005   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16006   \textcolor{keywordtype}{character(STRING)}:: tname
16007   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeI"}
16008   \textcolor{keyword}{interface}
16009 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}(&
16010       & file, varname, array, range, quiet, &
16011       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16012       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16013       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16014       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16015       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16016       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16017       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16018       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16019       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16020       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16021       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
16022 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}
16023 \textcolor{keyword}{  end interface}
16024   \textcolor{keyword}{interface}
16025 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16026       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16027       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16028       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16029       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16030       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16031       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16032       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16033 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16034 \textcolor{keyword}{  end interface}
16035   \textcolor{keyword}{interface}
16036 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16037       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16038       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16039       \textcolor{keywordtype}{character(STRING)}:: result
16040 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16041 \textcolor{keyword}{  end interface}
16042   \textcolor{keywordflow}{continue}
16043   file\_work = file
16044   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16045     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16046   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16047     & url = url, &
16048     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16049   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16050     & fullname = url, iorange = iorange, remainder = remainder )
16051   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16052   timevar\_name = carray(1)
16053   \textcolor{keyword}{deallocate}( carray )
16054   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16055   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}( file = file, &
16056     & varname = varname, array = array, &
16057     & range = time\_range, quiet = quiet, &
16058     & flag\_mpi\_split = flag\_mpi\_split, &
16059     & returned\_time = returned\_time, &
16060     & flag\_time\_exist = flag\_time\_exist, &
16061     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a64551b0c2b2b58bc6cdadede229a929b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a05157a22b124ae83522f694ac4706345}\label{historyget_8f90_a05157a22b124ae83522f694ac4706345}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2pointertimer@{historygetreal2pointertimer}}
\index{historygetreal2pointertimer@{historygetreal2pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2pointertimer()}{historygetreal2pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal2pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8694 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8694   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8695   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8696   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8697   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8698   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8699   \textcolor{keywordtype}{implicit none}
8700   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8701   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8702   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8703   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
8704   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8705   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8706   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8707   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8708   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8709   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8710   \textcolor{keywordtype}{character(STRING)}:: tname
8711   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeR"}
8712   \textcolor{keyword}{interface}
8713 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}(&
8714       & file, varname, array, range, quiet, &
8715       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8716       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8717       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8718       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8719       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8720       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8721       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8722       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8723       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8724       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8725       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:)
8726 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}
8727 \textcolor{keyword}{  end interface}
8728   \textcolor{keyword}{interface}
8729 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8730       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8731       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8732       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8733       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8734       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8735       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8736       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8737 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8738 \textcolor{keyword}{  end interface}
8739   \textcolor{keyword}{interface}
8740 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8741       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8742       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8743       \textcolor{keywordtype}{character(STRING)}:: result
8744 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8745 \textcolor{keyword}{  end interface}
8746   \textcolor{keywordflow}{continue}
8747   file\_work = file
8748   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8749     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8750   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8751     & url = url, &
8752     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8753   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8754     & fullname = url, iorange = iorange, remainder = remainder )
8755   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8756   timevar\_name = carray(1)
8757   \textcolor{keyword}{deallocate}( carray )
8758   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8759   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a7efb3caa5c4f56534ca002de37436f5d}{historygetreal2pointer}( file = file, &
8760     & varname = varname, array = array, &
8761     & range = time\_range, quiet = quiet, &
8762     & flag\_mpi\_split = flag\_mpi\_split, &
8763     & returned\_time = returned\_time, &
8764     & flag\_time\_exist = flag\_time\_exist, &
8765     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a05157a22b124ae83522f694ac4706345_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3685451163216c44c899d31c5fa49419}\label{historyget_8f90_a3685451163216c44c899d31c5fa49419}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2timed@{historygetreal2timed}}
\index{historygetreal2timed@{historygetreal2timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2timed()}{historygetreal2timed()}}
{\footnotesize\ttfamily subroutine historygetreal2timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11734 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11734   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11735   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11736   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11737   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11738   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11739   \textcolor{keywordtype}{implicit none}
11740   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11741   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11742   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11743   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
11744   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11745   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11746   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11747   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11748   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11749   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11750   \textcolor{keywordtype}{character(STRING)}:: tname
11751   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeD"}
11752   \textcolor{keyword}{interface}
11753 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}(&
11754       & file, varname, array, range, quiet, &
11755       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11756       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11757       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11758       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11759       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11760       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11761       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11762       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11763       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11764       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11765       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
11766 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}
11767 \textcolor{keyword}{  end interface}
11768   \textcolor{keyword}{interface}
11769 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11770       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11771       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11772       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11773       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11774       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11775       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11776       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11777 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11778 \textcolor{keyword}{  end interface}
11779   \textcolor{keyword}{interface}
11780 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11781       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11782       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11783       \textcolor{keywordtype}{character(STRING)}:: result
11784 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11785 \textcolor{keyword}{  end interface}
11786   \textcolor{keywordflow}{continue}
11787   file\_work = file
11788   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11789     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11790   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11791     & url = url, &
11792     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11793   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11794     & fullname = url, iorange = iorange, remainder = remainder )
11795   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11796   timevar\_name = carray(1)
11797   \textcolor{keyword}{deallocate}( carray )
11798   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11799   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}( file = file, &
11800     & varname = varname, array = array, &
11801     & range = time\_range, quiet = quiet, &
11802     & flag\_mpi\_split = flag\_mpi\_split, &
11803     & returned\_time = returned\_time, &
11804     & flag\_time\_exist = flag\_time\_exist, &
11805     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3685451163216c44c899d31c5fa49419_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a31c64af9b90bfb6475a6f2c7cb95cb06}\label{historyget_8f90_a31c64af9b90bfb6475a6f2c7cb95cb06}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2timei@{historygetreal2timei}}
\index{historygetreal2timei@{historygetreal2timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2timei()}{historygetreal2timei()}}
{\footnotesize\ttfamily subroutine historygetreal2timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15382 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15382   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15383   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15384   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15385   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15386   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15387   \textcolor{keywordtype}{implicit none}
15388   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15389   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15390   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15391   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
15392   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15393   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15394   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15395   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15396   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15397   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15398   \textcolor{keywordtype}{character(STRING)}:: tname
15399   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeI"}
15400   \textcolor{keyword}{interface}
15401 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}(&
15402       & file, varname, array, range, quiet, &
15403       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15404       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15405       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15406       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15407       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15408       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15409       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15410       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15411       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15412       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15413       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
15414 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}
15415 \textcolor{keyword}{  end interface}
15416   \textcolor{keyword}{interface}
15417 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15418       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15419       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15420       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15421       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15422       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15423       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15424       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15425 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15426 \textcolor{keyword}{  end interface}
15427   \textcolor{keyword}{interface}
15428 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15429       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15430       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15431       \textcolor{keywordtype}{character(STRING)}:: result
15432 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15433 \textcolor{keyword}{  end interface}
15434   \textcolor{keywordflow}{continue}
15435   file\_work = file
15436   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15437     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15438   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15439     & url = url, &
15440     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15441   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15442     & fullname = url, iorange = iorange, remainder = remainder )
15443   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15444   timevar\_name = carray(1)
15445   \textcolor{keyword}{deallocate}( carray )
15446   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15447   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}( file = file, &
15448     & varname = varname, array = array, &
15449     & range = time\_range, quiet = quiet, &
15450     & flag\_mpi\_split = flag\_mpi\_split, &
15451     & returned\_time = returned\_time, &
15452     & flag\_time\_exist = flag\_time\_exist, &
15453     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a31c64af9b90bfb6475a6f2c7cb95cb06_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_af3b0df6d2471b9ea6e9133e0aaec0e25}\label{historyget_8f90_af3b0df6d2471b9ea6e9133e0aaec0e25}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal2timer@{historygetreal2timer}}
\index{historygetreal2timer@{historygetreal2timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal2timer()}{historygetreal2timer()}}
{\footnotesize\ttfamily subroutine historygetreal2timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8086 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal2(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8086   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8087   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8088   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8089   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8090   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8091   \textcolor{keywordtype}{implicit none}
8092   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8093   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8094   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8095   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
8096   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8097   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8098   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8099   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8100   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8101   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8102   \textcolor{keywordtype}{character(STRING)}:: tname
8103   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal2TimeR"}
8104   \textcolor{keyword}{interface}
8105 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}(&
8106       & file, varname, array, range, quiet, &
8107       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8108       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8109       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8110       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8111       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8112       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8113       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8114       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8115       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8116       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8117       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:)
8118 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}
8119 \textcolor{keyword}{  end interface}
8120   \textcolor{keyword}{interface}
8121 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8122       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8123       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8124       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8125       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8126       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8127       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8128       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8129 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8130 \textcolor{keyword}{  end interface}
8131   \textcolor{keyword}{interface}
8132 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8133       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8134       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8135       \textcolor{keywordtype}{character(STRING)}:: result
8136 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8137 \textcolor{keyword}{  end interface}
8138   \textcolor{keywordflow}{continue}
8139   file\_work = file
8140   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8141     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8142   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8143     & url = url, &
8144     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8145   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8146     & fullname = url, iorange = iorange, remainder = remainder )
8147   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8148   timevar\_name = carray(1)
8149   \textcolor{keyword}{deallocate}( carray )
8150   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8151   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a3ffc428e34e19a06729937ab41339aa5}{historygetreal2}( file = file, &
8152     & varname = varname, array = array, &
8153     & range = time\_range, quiet = quiet, &
8154     & flag\_mpi\_split = flag\_mpi\_split, &
8155     & returned\_time = returned\_time, &
8156     & flag\_time\_exist = flag\_time\_exist, &
8157     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_af3b0df6d2471b9ea6e9133e0aaec0e25_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aaaea820016f35618737df6a36964765e}\label{historyget_8f90_aaaea820016f35618737df6a36964765e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3@{historygetreal3}}
\index{historygetreal3@{historygetreal3}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3()}{historygetreal3()}}
{\footnotesize\ttfamily subroutine historygetreal3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2174 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal3timed(), historygetreal3timei(), and historygetreal3timer().


\begin{DoxyCode}
2174   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
2175   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
2176   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
2177   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
2178   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2179   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
2180   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
2181   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
2182   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2183   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
2184     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2185   \textcolor{keywordtype}{implicit none}
2186   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2187   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2188   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2189   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
2190   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2191   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
2192   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2193   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2194   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
2195   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
2196   \textcolor{keywordtype}{integer}:: array\_allsize
2197   \textcolor{keywordtype}{integer}:: array\_shape(3), data\_shape(3), array\_shape\_check(3)
2198   \textcolor{keywordtype}{integer}:: allcount
2199   \textcolor{keywordtype}{integer}:: i, sd
2200   \textcolor{keywordtype}{logical}:: inq\_err
2201   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
2202   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
2203   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
2204   \textcolor{keywordtype}{integer}:: domain
2205   \textcolor{keywordtype}{character(STRING)}:: tname
2206   \textcolor{keywordtype}{integer}:: stat
2207   \textcolor{keywordtype}{character(STRING)}:: cause\_c
2208   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3"}
2209   \textcolor{keyword}{interface}
2210 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
2211       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2212       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2213       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
2214       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2215       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2216       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
2217       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2218 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
2219 \textcolor{keyword}{  end interface}
2220   \textcolor{keyword}{interface}
2221 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
2222       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2223       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
2224       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
2225       \textcolor{comment}{! 正確な入出力範囲指定}
2226       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
2227       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
2228       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
2229 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
2230 \textcolor{keyword}{  end interface}
2231   \textcolor{keyword}{interface}
2232 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
2233       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
2234       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2235       \textcolor{keywordtype}{character(STRING)}:: result
2236 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
2237 \textcolor{keyword}{  end interface}
2238   \textcolor{keywordflow}{continue}
2239   cause\_c = \textcolor{stringliteral}{''}
2240   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2241   file\_work = file
2242   array\_shape = shape( array )
2243   array\_allsize = \textcolor{keyword}{size}( array )
2244   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
2245   \textcolor{comment}{! Change filename (for MPI)}
2246   \textcolor{comment}{!}
2247   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
2248     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
2249   \textcolor{comment}{! 最新時刻の URL 取得}
2250   \textcolor{comment}{! Get URL of latest time}
2251   \textcolor{comment}{!}
2252   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
2253     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
2254   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2255     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2256     cause\_c = url
2257     \textcolor{keywordflow}{goto} 999
2258 \textcolor{keywordflow}{  end if}
2259   \textcolor{comment}{! ファイルオープン}
2260   \textcolor{comment}{! File open}
2261   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
2262   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2263     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2264     cause\_c = url
2265     \textcolor{keywordflow}{goto} 999
2266 \textcolor{keywordflow}{  end if}
2267   \textcolor{comment}{!-------------------------------------------------------------------}
2268   \textcolor{comment}{!  配列形状のチェック}
2269   \textcolor{comment}{!  Check array shape}
2270   \textcolor{comment}{!-------------------------------------------------------------------}
2271   \textcolor{comment}{! 入力ファイル中のデータの次元数}
2272   \textcolor{comment}{! Get size of dimesions in data of an input file}
2273   \textcolor{comment}{!}
2274   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
2275     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
2276   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
2277   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
2278   array\_rank = 3
2279   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
2280   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
2281   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
2282   \textcolor{comment}{! 次元数の比較}
2283   \textcolor{comment}{! Compare sizes of dimensions}
2284   \textcolor{comment}{!}
2285   \textcolor{keywordflow}{if} ( .not. 3 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
2286     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2287       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2288         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
2289         & i = (/rank, 3/), c1 = trim(url) )
2290 \textcolor{keywordflow}{    end if}
2291     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
2292     cause\_c = \textcolor{stringliteral}{'array'}
2293     \textcolor{keywordflow}{goto} 999
2294 \textcolor{keywordflow}{  end if}
2295   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
2296   \textcolor{comment}{! Get shape of data in an input file}
2297   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
2298     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2299   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2300     data\_shape(1) = allcount
2301   \textcolor{keywordflow}{else}
2302     data\_shape(1) = 1
2303 \textcolor{keywordflow}{  end if}
2304   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
2305     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2306   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2307     data\_shape(2) = allcount
2308   \textcolor{keywordflow}{else}
2309     data\_shape(2) = 1
2310 \textcolor{keywordflow}{  end if}
2311   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
2312     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2313   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2314     data\_shape(3) = allcount
2315   \textcolor{keywordflow}{else}
2316     data\_shape(3) = 1
2317 \textcolor{keywordflow}{  end if}
2318   \textcolor{comment}{! 引数の配列形状整形}
2319   \textcolor{comment}{! Arrange shape of an argument}
2320   \textcolor{comment}{!}
2321   array\_shape\_check = array\_shape
2322   sd = 1
2323   \textcolor{keywordflow}{do} i = 1, 3 - 1
2324     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
2325       array\_shape\_check(sd:3) = cshift( array\_shape\_check(sd:3), 1, 1 )
2326     \textcolor{keywordflow}{else}
2327       sd = sd + 1
2328 \textcolor{keywordflow}{    end if}
2329 \textcolor{keywordflow}{  end do}
2330   \textcolor{comment}{! 配列形状の比較}
2331   \textcolor{comment}{! Compare shapes}
2332   \textcolor{comment}{!}
2333   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
2334     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2335       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2336         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
2337         & c1 = trim( url ), &
2338         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
2339         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
2340 \textcolor{keywordflow}{    end if}
2341     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2342     cause\_c = \textcolor{stringliteral}{'array'}
2343     \textcolor{keywordflow}{goto} 999
2344 \textcolor{keywordflow}{  end if}
2345   \textcolor{comment}{!-------------------------------------}
2346   \textcolor{comment}{!  データ取得}
2347   \textcolor{comment}{!  Get data}
2348   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
2349     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
2350   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
2351   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
2352   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
2353   array = reshape( array\_tmp, array\_shape )
2354   \textcolor{keyword}{deallocate}( array\_tmp )
2355   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
2356   \textcolor{comment}{!-------------------------------------}
2357   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
2358   \textcolor{comment}{!  Print data filename and clipping range}
2359   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
2360     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
2361     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
2362     & err = err)                   \textcolor{comment}{! (out) optional}
2363   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2364     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
2365 \textcolor{keywordflow}{  end if}
2366 999 \textcolor{keywordflow}{continue}
2367   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aaaea820016f35618737df6a36964765e_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_aaaea820016f35618737df6a36964765e_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}\label{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3pointer@{historygetreal3pointer}}
\index{historygetreal3pointer@{historygetreal3pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3pointer()}{historygetreal3pointer()}}
{\footnotesize\ttfamily subroutine historygetreal3pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5687 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal3pointertimed(), historygetreal3pointertimei(), and historygetreal3pointertimer().


\begin{DoxyCode}
5687   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5688   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5689   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5690   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5691   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5692   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5693   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5694   \textcolor{keywordtype}{implicit none}
5695   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5696   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5697   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5698   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5699   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5700   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5701   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5702   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5703   \textcolor{keywordtype}{integer}:: domain
5704   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:) \textcolor{comment}{! (out)}
5705   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5706   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5707   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5708   \textcolor{keywordtype}{character(STRING)}:: tname
5709   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3Pointer"}
5710   \textcolor{keyword}{interface}
5711 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5712       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5713       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5714       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5715       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5716       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5717       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5718       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5719 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5720 \textcolor{keyword}{  end interface}
5721   \textcolor{keyword}{interface}
5722 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5723       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5724       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5725       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5726       \textcolor{comment}{! 正確な入出力範囲指定}
5727       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5728       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5729       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5730 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5731 \textcolor{keyword}{  end interface}
5732   \textcolor{keyword}{interface}
5733 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5734       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5735       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5736       \textcolor{keywordtype}{character(STRING)}:: result
5737 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5738 \textcolor{keyword}{  end interface}
5739   \textcolor{keywordflow}{continue}
5740   file\_work = file
5741   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5742   \textcolor{comment}{! Change filename (for MPI)}
5743   \textcolor{comment}{!}
5744   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5745     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5746   \textcolor{comment}{! 必要な情報を gtool 変数化}
5747   \textcolor{comment}{!}
5748   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5749     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5750   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5751   \textcolor{comment}{! いよいよデータ取得}
5752   \textcolor{comment}{!}
5753   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5754   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5755   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5756   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5757     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5758     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5759     & err = err)                   \textcolor{comment}{! (out) optional}
5760   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5761     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5762 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa0f641b339459a56d44b9378749f09ec_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aa0f641b339459a56d44b9378749f09ec_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6af89f3b5effda321545c1f66ad610b9}\label{historyget_8f90_a6af89f3b5effda321545c1f66ad610b9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3pointertimed@{historygetreal3pointertimed}}
\index{historygetreal3pointertimed@{historygetreal3pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3pointertimed()}{historygetreal3pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal3pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12418 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12418   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12419   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12420   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12421   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12422   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12423   \textcolor{keywordtype}{implicit none}
12424   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12425   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12426   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12427   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
12428   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12429   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12430   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12431   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12432   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12433   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12434   \textcolor{keywordtype}{character(STRING)}:: tname
12435   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeD"}
12436   \textcolor{keyword}{interface}
12437 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}(&
12438       & file, varname, array, range, quiet, &
12439       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12440       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12441       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12442       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12443       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12444       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12445       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12446       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12447       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12448       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12449       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
12450 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}
12451 \textcolor{keyword}{  end interface}
12452   \textcolor{keyword}{interface}
12453 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12454       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12455       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12456       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12457       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12458       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12459       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12460       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12461 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12462 \textcolor{keyword}{  end interface}
12463   \textcolor{keyword}{interface}
12464 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12465       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12466       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12467       \textcolor{keywordtype}{character(STRING)}:: result
12468 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12469 \textcolor{keyword}{  end interface}
12470   \textcolor{keywordflow}{continue}
12471   file\_work = file
12472   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12473     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12474   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12475     & url = url, &
12476     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12477   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12478     & fullname = url, iorange = iorange, remainder = remainder )
12479   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12480   timevar\_name = carray(1)
12481   \textcolor{keyword}{deallocate}( carray )
12482   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12483   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}( file = file, &
12484     & varname = varname, array = array, &
12485     & range = time\_range, quiet = quiet, &
12486     & flag\_mpi\_split = flag\_mpi\_split, &
12487     & returned\_time = returned\_time, &
12488     & flag\_time\_exist = flag\_time\_exist, &
12489     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6af89f3b5effda321545c1f66ad610b9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a43c04d45a6966f135db5633ef2d5baca}\label{historyget_8f90_a43c04d45a6966f135db5633ef2d5baca}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3pointertimei@{historygetreal3pointertimei}}
\index{historygetreal3pointertimei@{historygetreal3pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3pointertimei()}{historygetreal3pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal3pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16066 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16066   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16067   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16068   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16069   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16070   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16071   \textcolor{keywordtype}{implicit none}
16072   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16073   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16074   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16075   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
16076   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16077   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16078   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16079   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16080   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16081   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16082   \textcolor{keywordtype}{character(STRING)}:: tname
16083   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeI"}
16084   \textcolor{keyword}{interface}
16085 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}(&
16086       & file, varname, array, range, quiet, &
16087       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16088       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16089       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16090       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16091       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16092       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16093       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16094       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16095       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16096       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16097       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
16098 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}
16099 \textcolor{keyword}{  end interface}
16100   \textcolor{keyword}{interface}
16101 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16102       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16103       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16104       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16105       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16106       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16107       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16108       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16109 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16110 \textcolor{keyword}{  end interface}
16111   \textcolor{keyword}{interface}
16112 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16113       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16114       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16115       \textcolor{keywordtype}{character(STRING)}:: result
16116 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16117 \textcolor{keyword}{  end interface}
16118   \textcolor{keywordflow}{continue}
16119   file\_work = file
16120   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16121     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16122   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16123     & url = url, &
16124     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16125   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16126     & fullname = url, iorange = iorange, remainder = remainder )
16127   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16128   timevar\_name = carray(1)
16129   \textcolor{keyword}{deallocate}( carray )
16130   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16131   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}( file = file, &
16132     & varname = varname, array = array, &
16133     & range = time\_range, quiet = quiet, &
16134     & flag\_mpi\_split = flag\_mpi\_split, &
16135     & returned\_time = returned\_time, &
16136     & flag\_time\_exist = flag\_time\_exist, &
16137     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a43c04d45a6966f135db5633ef2d5baca_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3120e09802837deadf51fbfadf85a29d}\label{historyget_8f90_a3120e09802837deadf51fbfadf85a29d}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3pointertimer@{historygetreal3pointertimer}}
\index{historygetreal3pointertimer@{historygetreal3pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3pointertimer()}{historygetreal3pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal3pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8770 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8770   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8771   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8772   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8773   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8774   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8775   \textcolor{keywordtype}{implicit none}
8776   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8777   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8778   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8779   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
8780   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8781   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8782   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8783   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8784   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8785   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8786   \textcolor{keywordtype}{character(STRING)}:: tname
8787   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeR"}
8788   \textcolor{keyword}{interface}
8789 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}(&
8790       & file, varname, array, range, quiet, &
8791       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8792       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8793       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8794       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8795       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8796       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8797       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8798       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8799       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8800       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8801       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:)
8802 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}
8803 \textcolor{keyword}{  end interface}
8804   \textcolor{keyword}{interface}
8805 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8806       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8807       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8808       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8809       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8810       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8811       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8812       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8813 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8814 \textcolor{keyword}{  end interface}
8815   \textcolor{keyword}{interface}
8816 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8817       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8818       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8819       \textcolor{keywordtype}{character(STRING)}:: result
8820 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8821 \textcolor{keyword}{  end interface}
8822   \textcolor{keywordflow}{continue}
8823   file\_work = file
8824   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8825     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8826   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8827     & url = url, &
8828     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8829   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8830     & fullname = url, iorange = iorange, remainder = remainder )
8831   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8832   timevar\_name = carray(1)
8833   \textcolor{keyword}{deallocate}( carray )
8834   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8835   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aa0f641b339459a56d44b9378749f09ec}{historygetreal3pointer}( file = file, &
8836     & varname = varname, array = array, &
8837     & range = time\_range, quiet = quiet, &
8838     & flag\_mpi\_split = flag\_mpi\_split, &
8839     & returned\_time = returned\_time, &
8840     & flag\_time\_exist = flag\_time\_exist, &
8841     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3120e09802837deadf51fbfadf85a29d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a0928cef9ccbb7200e5dd5dad2a590052}\label{historyget_8f90_a0928cef9ccbb7200e5dd5dad2a590052}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3timed@{historygetreal3timed}}
\index{historygetreal3timed@{historygetreal3timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3timed()}{historygetreal3timed()}}
{\footnotesize\ttfamily subroutine historygetreal3timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11810 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11810   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11811   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11812   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11813   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11814   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11815   \textcolor{keywordtype}{implicit none}
11816   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11817   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11818   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11819   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
11820   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11821   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11822   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11823   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11824   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11825   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11826   \textcolor{keywordtype}{character(STRING)}:: tname
11827   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeD"}
11828   \textcolor{keyword}{interface}
11829 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}(&
11830       & file, varname, array, range, quiet, &
11831       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11832       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11833       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11834       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11835       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11836       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11837       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11838       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11839       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11840       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11841       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
11842 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}
11843 \textcolor{keyword}{  end interface}
11844   \textcolor{keyword}{interface}
11845 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11846       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11847       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11848       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11849       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11850       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11851       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11852       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11853 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11854 \textcolor{keyword}{  end interface}
11855   \textcolor{keyword}{interface}
11856 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11857       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11858       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11859       \textcolor{keywordtype}{character(STRING)}:: result
11860 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11861 \textcolor{keyword}{  end interface}
11862   \textcolor{keywordflow}{continue}
11863   file\_work = file
11864   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11865     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11866   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11867     & url = url, &
11868     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11869   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11870     & fullname = url, iorange = iorange, remainder = remainder )
11871   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11872   timevar\_name = carray(1)
11873   \textcolor{keyword}{deallocate}( carray )
11874   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11875   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}( file = file, &
11876     & varname = varname, array = array, &
11877     & range = time\_range, quiet = quiet, &
11878     & flag\_mpi\_split = flag\_mpi\_split, &
11879     & returned\_time = returned\_time, &
11880     & flag\_time\_exist = flag\_time\_exist, &
11881     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a0928cef9ccbb7200e5dd5dad2a590052_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a68bdd25df4f4866fabdfb621196a9e74}\label{historyget_8f90_a68bdd25df4f4866fabdfb621196a9e74}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3timei@{historygetreal3timei}}
\index{historygetreal3timei@{historygetreal3timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3timei()}{historygetreal3timei()}}
{\footnotesize\ttfamily subroutine historygetreal3timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15458 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15458   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15459   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15460   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15461   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15462   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15463   \textcolor{keywordtype}{implicit none}
15464   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15465   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15466   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15467   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
15468   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15469   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15470   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15471   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15472   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15473   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15474   \textcolor{keywordtype}{character(STRING)}:: tname
15475   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeI"}
15476   \textcolor{keyword}{interface}
15477 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}(&
15478       & file, varname, array, range, quiet, &
15479       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15480       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15481       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15482       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15483       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15484       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15485       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15486       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15487       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15488       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15489       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
15490 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}
15491 \textcolor{keyword}{  end interface}
15492   \textcolor{keyword}{interface}
15493 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15494       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15495       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15496       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15497       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15498       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15499       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15500       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15501 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15502 \textcolor{keyword}{  end interface}
15503   \textcolor{keyword}{interface}
15504 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15505       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15506       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15507       \textcolor{keywordtype}{character(STRING)}:: result
15508 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15509 \textcolor{keyword}{  end interface}
15510   \textcolor{keywordflow}{continue}
15511   file\_work = file
15512   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15513     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15514   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15515     & url = url, &
15516     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15517   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15518     & fullname = url, iorange = iorange, remainder = remainder )
15519   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15520   timevar\_name = carray(1)
15521   \textcolor{keyword}{deallocate}( carray )
15522   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15523   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}( file = file, &
15524     & varname = varname, array = array, &
15525     & range = time\_range, quiet = quiet, &
15526     & flag\_mpi\_split = flag\_mpi\_split, &
15527     & returned\_time = returned\_time, &
15528     & flag\_time\_exist = flag\_time\_exist, &
15529     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a68bdd25df4f4866fabdfb621196a9e74_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a13401bf9eb6abbf6efe238fba74d3b3d}\label{historyget_8f90_a13401bf9eb6abbf6efe238fba74d3b3d}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal3timer@{historygetreal3timer}}
\index{historygetreal3timer@{historygetreal3timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal3timer()}{historygetreal3timer()}}
{\footnotesize\ttfamily subroutine historygetreal3timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8162 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal3(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8162   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8163   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8164   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8165   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8166   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8167   \textcolor{keywordtype}{implicit none}
8168   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8169   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8170   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8171   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
8172   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8173   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8174   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8175   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8176   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8177   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8178   \textcolor{keywordtype}{character(STRING)}:: tname
8179   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal3TimeR"}
8180   \textcolor{keyword}{interface}
8181 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}(&
8182       & file, varname, array, range, quiet, &
8183       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8184       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8185       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8186       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8187       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8188       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8189       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8190       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8191       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8192       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8193       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:)
8194 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}
8195 \textcolor{keyword}{  end interface}
8196   \textcolor{keyword}{interface}
8197 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8198       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8199       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8200       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8201       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8202       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8203       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8204       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8205 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8206 \textcolor{keyword}{  end interface}
8207   \textcolor{keyword}{interface}
8208 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8209       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8210       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8211       \textcolor{keywordtype}{character(STRING)}:: result
8212 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8213 \textcolor{keyword}{  end interface}
8214   \textcolor{keywordflow}{continue}
8215   file\_work = file
8216   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8217     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8218   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8219     & url = url, &
8220     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8221   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8222     & fullname = url, iorange = iorange, remainder = remainder )
8223   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8224   timevar\_name = carray(1)
8225   \textcolor{keyword}{deallocate}( carray )
8226   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8227   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aaaea820016f35618737df6a36964765e}{historygetreal3}( file = file, &
8228     & varname = varname, array = array, &
8229     & range = time\_range, quiet = quiet, &
8230     & flag\_mpi\_split = flag\_mpi\_split, &
8231     & returned\_time = returned\_time, &
8232     & flag\_time\_exist = flag\_time\_exist, &
8233     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a13401bf9eb6abbf6efe238fba74d3b3d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}\label{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4@{historygetreal4}}
\index{historygetreal4@{historygetreal4}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4()}{historygetreal4()}}
{\footnotesize\ttfamily subroutine historygetreal4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2371 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal4timed(), historygetreal4timei(), and historygetreal4timer().


\begin{DoxyCode}
2371   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
2372   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
2373   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
2374   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
2375   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2376   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
2377   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
2378   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
2379   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2380   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
2381     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2382   \textcolor{keywordtype}{implicit none}
2383   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2384   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2385   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2386   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
2387   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2388   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
2389   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2390   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2391   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
2392   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
2393   \textcolor{keywordtype}{integer}:: array\_allsize
2394   \textcolor{keywordtype}{integer}:: array\_shape(4), data\_shape(4), array\_shape\_check(4)
2395   \textcolor{keywordtype}{integer}:: allcount
2396   \textcolor{keywordtype}{integer}:: i, sd
2397   \textcolor{keywordtype}{logical}:: inq\_err
2398   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
2399   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
2400   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
2401   \textcolor{keywordtype}{integer}:: domain
2402   \textcolor{keywordtype}{character(STRING)}:: tname
2403   \textcolor{keywordtype}{integer}:: stat
2404   \textcolor{keywordtype}{character(STRING)}:: cause\_c
2405   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4"}
2406   \textcolor{keyword}{interface}
2407 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
2408       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2409       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2410       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
2411       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2412       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2413       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
2414       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2415 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
2416 \textcolor{keyword}{  end interface}
2417   \textcolor{keyword}{interface}
2418 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
2419       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2420       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
2421       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
2422       \textcolor{comment}{! 正確な入出力範囲指定}
2423       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
2424       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
2425       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
2426 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
2427 \textcolor{keyword}{  end interface}
2428   \textcolor{keyword}{interface}
2429 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
2430       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
2431       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2432       \textcolor{keywordtype}{character(STRING)}:: result
2433 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
2434 \textcolor{keyword}{  end interface}
2435   \textcolor{keywordflow}{continue}
2436   cause\_c = \textcolor{stringliteral}{''}
2437   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2438   file\_work = file
2439   array\_shape = shape( array )
2440   array\_allsize = \textcolor{keyword}{size}( array )
2441   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
2442   \textcolor{comment}{! Change filename (for MPI)}
2443   \textcolor{comment}{!}
2444   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
2445     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
2446   \textcolor{comment}{! 最新時刻の URL 取得}
2447   \textcolor{comment}{! Get URL of latest time}
2448   \textcolor{comment}{!}
2449   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
2450     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
2451   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2452     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2453     cause\_c = url
2454     \textcolor{keywordflow}{goto} 999
2455 \textcolor{keywordflow}{  end if}
2456   \textcolor{comment}{! ファイルオープン}
2457   \textcolor{comment}{! File open}
2458   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
2459   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2460     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2461     cause\_c = url
2462     \textcolor{keywordflow}{goto} 999
2463 \textcolor{keywordflow}{  end if}
2464   \textcolor{comment}{!-------------------------------------------------------------------}
2465   \textcolor{comment}{!  配列形状のチェック}
2466   \textcolor{comment}{!  Check array shape}
2467   \textcolor{comment}{!-------------------------------------------------------------------}
2468   \textcolor{comment}{! 入力ファイル中のデータの次元数}
2469   \textcolor{comment}{! Get size of dimesions in data of an input file}
2470   \textcolor{comment}{!}
2471   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
2472     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
2473   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
2474   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
2475   array\_rank = 4
2476   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
2477   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
2478   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
2479   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
2480   \textcolor{comment}{! 次元数の比較}
2481   \textcolor{comment}{! Compare sizes of dimensions}
2482   \textcolor{comment}{!}
2483   \textcolor{keywordflow}{if} ( .not. 4 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
2484     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2485       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2486         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
2487         & i = (/rank, 4/), c1 = trim(url) )
2488 \textcolor{keywordflow}{    end if}
2489     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
2490     cause\_c = \textcolor{stringliteral}{'array'}
2491     \textcolor{keywordflow}{goto} 999
2492 \textcolor{keywordflow}{  end if}
2493   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
2494   \textcolor{comment}{! Get shape of data in an input file}
2495   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
2496     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2497   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2498     data\_shape(1) = allcount
2499   \textcolor{keywordflow}{else}
2500     data\_shape(1) = 1
2501 \textcolor{keywordflow}{  end if}
2502   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
2503     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2504   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2505     data\_shape(2) = allcount
2506   \textcolor{keywordflow}{else}
2507     data\_shape(2) = 1
2508 \textcolor{keywordflow}{  end if}
2509   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
2510     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2511   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2512     data\_shape(3) = allcount
2513   \textcolor{keywordflow}{else}
2514     data\_shape(3) = 1
2515 \textcolor{keywordflow}{  end if}
2516   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
2517     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2518   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2519     data\_shape(4) = allcount
2520   \textcolor{keywordflow}{else}
2521     data\_shape(4) = 1
2522 \textcolor{keywordflow}{  end if}
2523   \textcolor{comment}{! 引数の配列形状整形}
2524   \textcolor{comment}{! Arrange shape of an argument}
2525   \textcolor{comment}{!}
2526   array\_shape\_check = array\_shape
2527   sd = 1
2528   \textcolor{keywordflow}{do} i = 1, 4 - 1
2529     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
2530       array\_shape\_check(sd:4) = cshift( array\_shape\_check(sd:4), 1, 1 )
2531     \textcolor{keywordflow}{else}
2532       sd = sd + 1
2533 \textcolor{keywordflow}{    end if}
2534 \textcolor{keywordflow}{  end do}
2535   \textcolor{comment}{! 配列形状の比較}
2536   \textcolor{comment}{! Compare shapes}
2537   \textcolor{comment}{!}
2538   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
2539     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2540       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2541         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
2542         & c1 = trim( url ), &
2543         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
2544         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
2545 \textcolor{keywordflow}{    end if}
2546     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2547     cause\_c = \textcolor{stringliteral}{'array'}
2548     \textcolor{keywordflow}{goto} 999
2549 \textcolor{keywordflow}{  end if}
2550   \textcolor{comment}{!-------------------------------------}
2551   \textcolor{comment}{!  データ取得}
2552   \textcolor{comment}{!  Get data}
2553   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
2554     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
2555   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
2556   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
2557   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
2558   array = reshape( array\_tmp, array\_shape )
2559   \textcolor{keyword}{deallocate}( array\_tmp )
2560   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
2561   \textcolor{comment}{!-------------------------------------}
2562   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
2563   \textcolor{comment}{!  Print data filename and clipping range}
2564   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
2565     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
2566     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
2567     & err = err)                   \textcolor{comment}{! (out) optional}
2568   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2569     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
2570 \textcolor{keywordflow}{  end if}
2571 999 \textcolor{keywordflow}{continue}
2572   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}\label{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4pointer@{historygetreal4pointer}}
\index{historygetreal4pointer@{historygetreal4pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4pointer()}{historygetreal4pointer()}}
{\footnotesize\ttfamily subroutine historygetreal4pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5766 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal4pointertimed(), historygetreal4pointertimei(), and historygetreal4pointertimer().


\begin{DoxyCode}
5766   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5767   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5768   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5769   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5770   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5771   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5772   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5773   \textcolor{keywordtype}{implicit none}
5774   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5775   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5776   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5777   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5778   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5779   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5780   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5781   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5782   \textcolor{keywordtype}{integer}:: domain
5783   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:) \textcolor{comment}{! (out)}
5784   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5785   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5786   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5787   \textcolor{keywordtype}{character(STRING)}:: tname
5788   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4Pointer"}
5789   \textcolor{keyword}{interface}
5790 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5791       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5792       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5793       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5794       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5795       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5796       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5797       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5798 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5799 \textcolor{keyword}{  end interface}
5800   \textcolor{keyword}{interface}
5801 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5802       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5803       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5804       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5805       \textcolor{comment}{! 正確な入出力範囲指定}
5806       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5807       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5808       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5809 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5810 \textcolor{keyword}{  end interface}
5811   \textcolor{keyword}{interface}
5812 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5813       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5814       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5815       \textcolor{keywordtype}{character(STRING)}:: result
5816 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5817 \textcolor{keyword}{  end interface}
5818   \textcolor{keywordflow}{continue}
5819   file\_work = file
5820   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5821   \textcolor{comment}{! Change filename (for MPI)}
5822   \textcolor{comment}{!}
5823   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5824     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5825   \textcolor{comment}{! 必要な情報を gtool 変数化}
5826   \textcolor{comment}{!}
5827   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5828     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5829   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5830   \textcolor{comment}{! いよいよデータ取得}
5831   \textcolor{comment}{!}
5832   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5833   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5834   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5835   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5836     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5837     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5838     & err = err)                   \textcolor{comment}{! (out) optional}
5839   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5840     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5841 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a437ddf0704b678ad2823b71fab30faed}\label{historyget_8f90_a437ddf0704b678ad2823b71fab30faed}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4pointertimed@{historygetreal4pointertimed}}
\index{historygetreal4pointertimed@{historygetreal4pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4pointertimed()}{historygetreal4pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal4pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12494 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12494   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12495   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12496   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12497   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12498   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12499   \textcolor{keywordtype}{implicit none}
12500   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12501   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12502   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12503   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
12504   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12505   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12506   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12507   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12508   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12509   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12510   \textcolor{keywordtype}{character(STRING)}:: tname
12511   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeD"}
12512   \textcolor{keyword}{interface}
12513 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}(&
12514       & file, varname, array, range, quiet, &
12515       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12516       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12517       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12518       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12519       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12520       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12521       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12522       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12523       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12524       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12525       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
12526 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}
12527 \textcolor{keyword}{  end interface}
12528   \textcolor{keyword}{interface}
12529 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12530       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12531       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12532       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12533       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12534       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12535       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12536       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12537 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12538 \textcolor{keyword}{  end interface}
12539   \textcolor{keyword}{interface}
12540 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12541       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12542       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12543       \textcolor{keywordtype}{character(STRING)}:: result
12544 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12545 \textcolor{keyword}{  end interface}
12546   \textcolor{keywordflow}{continue}
12547   file\_work = file
12548   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12549     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12550   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12551     & url = url, &
12552     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12553   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12554     & fullname = url, iorange = iorange, remainder = remainder )
12555   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12556   timevar\_name = carray(1)
12557   \textcolor{keyword}{deallocate}( carray )
12558   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12559   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}( file = file, &
12560     & varname = varname, array = array, &
12561     & range = time\_range, quiet = quiet, &
12562     & flag\_mpi\_split = flag\_mpi\_split, &
12563     & returned\_time = returned\_time, &
12564     & flag\_time\_exist = flag\_time\_exist, &
12565     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a437ddf0704b678ad2823b71fab30faed_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_afdbaa03cce62d79a3ceb2325d8b68307}\label{historyget_8f90_afdbaa03cce62d79a3ceb2325d8b68307}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4pointertimei@{historygetreal4pointertimei}}
\index{historygetreal4pointertimei@{historygetreal4pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4pointertimei()}{historygetreal4pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal4pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16142 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16142   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16143   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16144   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16145   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16146   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16147   \textcolor{keywordtype}{implicit none}
16148   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16149   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16150   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16151   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
16152   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16153   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16154   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16155   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16156   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16157   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16158   \textcolor{keywordtype}{character(STRING)}:: tname
16159   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeI"}
16160   \textcolor{keyword}{interface}
16161 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}(&
16162       & file, varname, array, range, quiet, &
16163       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16164       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16165       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16166       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16167       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16168       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16169       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16170       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16171       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16172       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16173       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
16174 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}
16175 \textcolor{keyword}{  end interface}
16176   \textcolor{keyword}{interface}
16177 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16178       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16179       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16180       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16181       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16182       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16183       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16184       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16185 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16186 \textcolor{keyword}{  end interface}
16187   \textcolor{keyword}{interface}
16188 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16189       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16190       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16191       \textcolor{keywordtype}{character(STRING)}:: result
16192 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16193 \textcolor{keyword}{  end interface}
16194   \textcolor{keywordflow}{continue}
16195   file\_work = file
16196   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16197     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16198   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16199     & url = url, &
16200     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16201   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16202     & fullname = url, iorange = iorange, remainder = remainder )
16203   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16204   timevar\_name = carray(1)
16205   \textcolor{keyword}{deallocate}( carray )
16206   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16207   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}( file = file, &
16208     & varname = varname, array = array, &
16209     & range = time\_range, quiet = quiet, &
16210     & flag\_mpi\_split = flag\_mpi\_split, &
16211     & returned\_time = returned\_time, &
16212     & flag\_time\_exist = flag\_time\_exist, &
16213     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_afdbaa03cce62d79a3ceb2325d8b68307_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a207a75b151fc3a9d7807ba34d1c7789a}\label{historyget_8f90_a207a75b151fc3a9d7807ba34d1c7789a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4pointertimer@{historygetreal4pointertimer}}
\index{historygetreal4pointertimer@{historygetreal4pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4pointertimer()}{historygetreal4pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal4pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8846 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8846   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8847   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8848   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8849   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8850   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8851   \textcolor{keywordtype}{implicit none}
8852   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8853   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8854   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8855   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
8856   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8857   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8858   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8859   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8860   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8861   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8862   \textcolor{keywordtype}{character(STRING)}:: tname
8863   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeR"}
8864   \textcolor{keyword}{interface}
8865 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}(&
8866       & file, varname, array, range, quiet, &
8867       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8868       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8869       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8870       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8871       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8872       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8873       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8874       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8875       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8876       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8877       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:)
8878 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}
8879 \textcolor{keyword}{  end interface}
8880   \textcolor{keyword}{interface}
8881 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8882       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8883       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8884       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8885       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8886       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8887       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8888       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8889 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8890 \textcolor{keyword}{  end interface}
8891   \textcolor{keyword}{interface}
8892 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8893       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8894       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8895       \textcolor{keywordtype}{character(STRING)}:: result
8896 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8897 \textcolor{keyword}{  end interface}
8898   \textcolor{keywordflow}{continue}
8899   file\_work = file
8900   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8901     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8902   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8903     & url = url, &
8904     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8905   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8906     & fullname = url, iorange = iorange, remainder = remainder )
8907   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8908   timevar\_name = carray(1)
8909   \textcolor{keyword}{deallocate}( carray )
8910   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8911   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ad5448017ec07959842d26ba9b0fa2e27}{historygetreal4pointer}( file = file, &
8912     & varname = varname, array = array, &
8913     & range = time\_range, quiet = quiet, &
8914     & flag\_mpi\_split = flag\_mpi\_split, &
8915     & returned\_time = returned\_time, &
8916     & flag\_time\_exist = flag\_time\_exist, &
8917     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a207a75b151fc3a9d7807ba34d1c7789a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_adbf99fd03a75b31830c4b4dd68a51e3e}\label{historyget_8f90_adbf99fd03a75b31830c4b4dd68a51e3e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4timed@{historygetreal4timed}}
\index{historygetreal4timed@{historygetreal4timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4timed()}{historygetreal4timed()}}
{\footnotesize\ttfamily subroutine historygetreal4timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11886 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11886   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11887   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11888   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11889   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11890   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11891   \textcolor{keywordtype}{implicit none}
11892   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11893   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11894   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11895   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
11896   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11897   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11898   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11899   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11900   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11901   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11902   \textcolor{keywordtype}{character(STRING)}:: tname
11903   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeD"}
11904   \textcolor{keyword}{interface}
11905 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}(&
11906       & file, varname, array, range, quiet, &
11907       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11908       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11909       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11910       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11911       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11912       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11913       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11914       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11915       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11916       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11917       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
11918 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}
11919 \textcolor{keyword}{  end interface}
11920   \textcolor{keyword}{interface}
11921 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11922       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11923       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11924       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
11925       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11926       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11927       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
11928       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11929 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
11930 \textcolor{keyword}{  end interface}
11931   \textcolor{keyword}{interface}
11932 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
11933       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
11934       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11935       \textcolor{keywordtype}{character(STRING)}:: result
11936 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
11937 \textcolor{keyword}{  end interface}
11938   \textcolor{keywordflow}{continue}
11939   file\_work = file
11940   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
11941     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
11942   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
11943     & url = url, &
11944     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
11945   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
11946     & fullname = url, iorange = iorange, remainder = remainder )
11947   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
11948   timevar\_name = carray(1)
11949   \textcolor{keyword}{deallocate}( carray )
11950   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
11951   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}( file = file, &
11952     & varname = varname, array = array, &
11953     & range = time\_range, quiet = quiet, &
11954     & flag\_mpi\_split = flag\_mpi\_split, &
11955     & returned\_time = returned\_time, &
11956     & flag\_time\_exist = flag\_time\_exist, &
11957     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_adbf99fd03a75b31830c4b4dd68a51e3e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8f32db436f162fadbc0c18ffd7ceded2}\label{historyget_8f90_a8f32db436f162fadbc0c18ffd7ceded2}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4timei@{historygetreal4timei}}
\index{historygetreal4timei@{historygetreal4timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4timei()}{historygetreal4timei()}}
{\footnotesize\ttfamily subroutine historygetreal4timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15534 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15534   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15535   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15536   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15537   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15538   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15539   \textcolor{keywordtype}{implicit none}
15540   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15541   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15542   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15543   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
15544   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15545   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15546   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15547   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15548   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15549   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15550   \textcolor{keywordtype}{character(STRING)}:: tname
15551   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeI"}
15552   \textcolor{keyword}{interface}
15553 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}(&
15554       & file, varname, array, range, quiet, &
15555       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15556       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15557       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15558       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15559       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15560       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15561       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15562       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15563       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15564       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15565       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
15566 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}
15567 \textcolor{keyword}{  end interface}
15568   \textcolor{keyword}{interface}
15569 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15570       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15571       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15572       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15573       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15574       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15575       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15576       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15577 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15578 \textcolor{keyword}{  end interface}
15579   \textcolor{keyword}{interface}
15580 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15581       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15582       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15583       \textcolor{keywordtype}{character(STRING)}:: result
15584 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15585 \textcolor{keyword}{  end interface}
15586   \textcolor{keywordflow}{continue}
15587   file\_work = file
15588   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15589     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15590   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15591     & url = url, &
15592     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15593   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15594     & fullname = url, iorange = iorange, remainder = remainder )
15595   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15596   timevar\_name = carray(1)
15597   \textcolor{keyword}{deallocate}( carray )
15598   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15599   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}( file = file, &
15600     & varname = varname, array = array, &
15601     & range = time\_range, quiet = quiet, &
15602     & flag\_mpi\_split = flag\_mpi\_split, &
15603     & returned\_time = returned\_time, &
15604     & flag\_time\_exist = flag\_time\_exist, &
15605     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8f32db436f162fadbc0c18ffd7ceded2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a3986c83701f371af96fe6a4d487f1ece}\label{historyget_8f90_a3986c83701f371af96fe6a4d487f1ece}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal4timer@{historygetreal4timer}}
\index{historygetreal4timer@{historygetreal4timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal4timer()}{historygetreal4timer()}}
{\footnotesize\ttfamily subroutine historygetreal4timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8238 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal4(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8238   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8239   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8240   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8241   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8242   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8243   \textcolor{keywordtype}{implicit none}
8244   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8245   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8246   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8247   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
8248   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8249   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8250   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8251   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8252   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8253   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8254   \textcolor{keywordtype}{character(STRING)}:: tname
8255   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal4TimeR"}
8256   \textcolor{keyword}{interface}
8257 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}(&
8258       & file, varname, array, range, quiet, &
8259       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8260       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8261       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8262       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8263       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8264       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8265       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8266       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8267       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8268       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8269       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:)
8270 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}
8271 \textcolor{keyword}{  end interface}
8272   \textcolor{keyword}{interface}
8273 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8274       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8275       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8276       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8277       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8278       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8279       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8280       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8281 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8282 \textcolor{keyword}{  end interface}
8283   \textcolor{keyword}{interface}
8284 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8285       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8286       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8287       \textcolor{keywordtype}{character(STRING)}:: result
8288 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8289 \textcolor{keyword}{  end interface}
8290   \textcolor{keywordflow}{continue}
8291   file\_work = file
8292   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8293     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8294   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8295     & url = url, &
8296     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8297   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8298     & fullname = url, iorange = iorange, remainder = remainder )
8299   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8300   timevar\_name = carray(1)
8301   \textcolor{keyword}{deallocate}( carray )
8302   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8303   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aecbd9674007ce5b3b0543ae5433a43d9}{historygetreal4}( file = file, &
8304     & varname = varname, array = array, &
8305     & range = time\_range, quiet = quiet, &
8306     & flag\_mpi\_split = flag\_mpi\_split, &
8307     & returned\_time = returned\_time, &
8308     & flag\_time\_exist = flag\_time\_exist, &
8309     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a3986c83701f371af96fe6a4d487f1ece_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}\label{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5@{historygetreal5}}
\index{historygetreal5@{historygetreal5}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5()}{historygetreal5()}}
{\footnotesize\ttfamily subroutine historygetreal5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2576 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal5timed(), historygetreal5timei(), and historygetreal5timer().


\begin{DoxyCode}
2576   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
2577   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
2578   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
2579   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
2580   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2581   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
2582   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
2583   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
2584   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2585   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
2586     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2587   \textcolor{keywordtype}{implicit none}
2588   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2589   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2590   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2591   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
2592   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2593   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
2594   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2595   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2596   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
2597   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
2598   \textcolor{keywordtype}{integer}:: array\_allsize
2599   \textcolor{keywordtype}{integer}:: array\_shape(5), data\_shape(5), array\_shape\_check(5)
2600   \textcolor{keywordtype}{integer}:: allcount
2601   \textcolor{keywordtype}{integer}:: i, sd
2602   \textcolor{keywordtype}{logical}:: inq\_err
2603   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
2604   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
2605   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
2606   \textcolor{keywordtype}{integer}:: domain
2607   \textcolor{keywordtype}{character(STRING)}:: tname
2608   \textcolor{keywordtype}{integer}:: stat
2609   \textcolor{keywordtype}{character(STRING)}:: cause\_c
2610   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5"}
2611   \textcolor{keyword}{interface}
2612 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
2613       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2614       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2615       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
2616       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2617       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2618       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
2619       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2620 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
2621 \textcolor{keyword}{  end interface}
2622   \textcolor{keyword}{interface}
2623 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
2624       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2625       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
2626       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
2627       \textcolor{comment}{! 正確な入出力範囲指定}
2628       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
2629       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
2630       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
2631 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
2632 \textcolor{keyword}{  end interface}
2633   \textcolor{keyword}{interface}
2634 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
2635       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
2636       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2637       \textcolor{keywordtype}{character(STRING)}:: result
2638 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
2639 \textcolor{keyword}{  end interface}
2640   \textcolor{keywordflow}{continue}
2641   cause\_c = \textcolor{stringliteral}{''}
2642   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2643   file\_work = file
2644   array\_shape = shape( array )
2645   array\_allsize = \textcolor{keyword}{size}( array )
2646   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
2647   \textcolor{comment}{! Change filename (for MPI)}
2648   \textcolor{comment}{!}
2649   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
2650     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
2651   \textcolor{comment}{! 最新時刻の URL 取得}
2652   \textcolor{comment}{! Get URL of latest time}
2653   \textcolor{comment}{!}
2654   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
2655     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
2656   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2657     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2658     cause\_c = url
2659     \textcolor{keywordflow}{goto} 999
2660 \textcolor{keywordflow}{  end if}
2661   \textcolor{comment}{! ファイルオープン}
2662   \textcolor{comment}{! File open}
2663   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
2664   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2665     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2666     cause\_c = url
2667     \textcolor{keywordflow}{goto} 999
2668 \textcolor{keywordflow}{  end if}
2669   \textcolor{comment}{!-------------------------------------------------------------------}
2670   \textcolor{comment}{!  配列形状のチェック}
2671   \textcolor{comment}{!  Check array shape}
2672   \textcolor{comment}{!-------------------------------------------------------------------}
2673   \textcolor{comment}{! 入力ファイル中のデータの次元数}
2674   \textcolor{comment}{! Get size of dimesions in data of an input file}
2675   \textcolor{comment}{!}
2676   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
2677     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
2678   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
2679   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
2680   array\_rank = 5
2681   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
2682   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
2683   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
2684   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
2685   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
2686   \textcolor{comment}{! 次元数の比較}
2687   \textcolor{comment}{! Compare sizes of dimensions}
2688   \textcolor{comment}{!}
2689   \textcolor{keywordflow}{if} ( .not. 5 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
2690     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2691       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2692         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
2693         & i = (/rank, 5/), c1 = trim(url) )
2694 \textcolor{keywordflow}{    end if}
2695     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
2696     cause\_c = \textcolor{stringliteral}{'array'}
2697     \textcolor{keywordflow}{goto} 999
2698 \textcolor{keywordflow}{  end if}
2699   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
2700   \textcolor{comment}{! Get shape of data in an input file}
2701   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
2702     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2703   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2704     data\_shape(1) = allcount
2705   \textcolor{keywordflow}{else}
2706     data\_shape(1) = 1
2707 \textcolor{keywordflow}{  end if}
2708   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
2709     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2710   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2711     data\_shape(2) = allcount
2712   \textcolor{keywordflow}{else}
2713     data\_shape(2) = 1
2714 \textcolor{keywordflow}{  end if}
2715   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
2716     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2717   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2718     data\_shape(3) = allcount
2719   \textcolor{keywordflow}{else}
2720     data\_shape(3) = 1
2721 \textcolor{keywordflow}{  end if}
2722   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
2723     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2724   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2725     data\_shape(4) = allcount
2726   \textcolor{keywordflow}{else}
2727     data\_shape(4) = 1
2728 \textcolor{keywordflow}{  end if}
2729   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
2730     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2731   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2732     data\_shape(5) = allcount
2733   \textcolor{keywordflow}{else}
2734     data\_shape(5) = 1
2735 \textcolor{keywordflow}{  end if}
2736   \textcolor{comment}{! 引数の配列形状整形}
2737   \textcolor{comment}{! Arrange shape of an argument}
2738   \textcolor{comment}{!}
2739   array\_shape\_check = array\_shape
2740   sd = 1
2741   \textcolor{keywordflow}{do} i = 1, 5 - 1
2742     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
2743       array\_shape\_check(sd:5) = cshift( array\_shape\_check(sd:5), 1, 1 )
2744     \textcolor{keywordflow}{else}
2745       sd = sd + 1
2746 \textcolor{keywordflow}{    end if}
2747 \textcolor{keywordflow}{  end do}
2748   \textcolor{comment}{! 配列形状の比較}
2749   \textcolor{comment}{! Compare shapes}
2750   \textcolor{comment}{!}
2751   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
2752     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2753       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2754         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
2755         & c1 = trim( url ), &
2756         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
2757         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
2758 \textcolor{keywordflow}{    end if}
2759     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2760     cause\_c = \textcolor{stringliteral}{'array'}
2761     \textcolor{keywordflow}{goto} 999
2762 \textcolor{keywordflow}{  end if}
2763   \textcolor{comment}{!-------------------------------------}
2764   \textcolor{comment}{!  データ取得}
2765   \textcolor{comment}{!  Get data}
2766   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
2767     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
2768   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
2769   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
2770   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
2771   array = reshape( array\_tmp, array\_shape )
2772   \textcolor{keyword}{deallocate}( array\_tmp )
2773   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
2774   \textcolor{comment}{!-------------------------------------}
2775   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
2776   \textcolor{comment}{!  Print data filename and clipping range}
2777   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
2778     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
2779     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
2780     & err = err)                   \textcolor{comment}{! (out) optional}
2781   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2782     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
2783 \textcolor{keywordflow}{  end if}
2784 999 \textcolor{keywordflow}{continue}
2785   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}\label{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5pointer@{historygetreal5pointer}}
\index{historygetreal5pointer@{historygetreal5pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5pointer()}{historygetreal5pointer()}}
{\footnotesize\ttfamily subroutine historygetreal5pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5845 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal5pointertimed(), historygetreal5pointertimei(), and historygetreal5pointertimer().


\begin{DoxyCode}
5845   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5846   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5847   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5848   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5849   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5850   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5851   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5852   \textcolor{keywordtype}{implicit none}
5853   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5854   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5855   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5856   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5857   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5858   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5859   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5860   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5861   \textcolor{keywordtype}{integer}:: domain
5862   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:) \textcolor{comment}{! (out)}
5863   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5864   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5865   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5866   \textcolor{keywordtype}{character(STRING)}:: tname
5867   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5Pointer"}
5868   \textcolor{keyword}{interface}
5869 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5870       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5871       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5872       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5873       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5874       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5875       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5876       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5877 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5878 \textcolor{keyword}{  end interface}
5879   \textcolor{keyword}{interface}
5880 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5881       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5882       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5883       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5884       \textcolor{comment}{! 正確な入出力範囲指定}
5885       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5886       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5887       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5888 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5889 \textcolor{keyword}{  end interface}
5890   \textcolor{keyword}{interface}
5891 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5892       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5893       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5894       \textcolor{keywordtype}{character(STRING)}:: result
5895 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5896 \textcolor{keyword}{  end interface}
5897   \textcolor{keywordflow}{continue}
5898   file\_work = file
5899   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5900   \textcolor{comment}{! Change filename (for MPI)}
5901   \textcolor{comment}{!}
5902   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5903     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5904   \textcolor{comment}{! 必要な情報を gtool 変数化}
5905   \textcolor{comment}{!}
5906   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5907     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5908   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5909   \textcolor{comment}{! いよいよデータ取得}
5910   \textcolor{comment}{!}
5911   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5912   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5913   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5914   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5915     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5916     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5917     & err = err)                   \textcolor{comment}{! (out) optional}
5918   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5919     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5920 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a67f099581f4dd100c2dd5ebbc76e72e4}\label{historyget_8f90_a67f099581f4dd100c2dd5ebbc76e72e4}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5pointertimed@{historygetreal5pointertimed}}
\index{historygetreal5pointertimed@{historygetreal5pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5pointertimed()}{historygetreal5pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal5pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12570 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12570   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12571   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12572   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12573   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12574   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12575   \textcolor{keywordtype}{implicit none}
12576   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12577   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12578   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12579   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
12580   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12581   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12582   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12583   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12584   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12585   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12586   \textcolor{keywordtype}{character(STRING)}:: tname
12587   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeD"}
12588   \textcolor{keyword}{interface}
12589 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}(&
12590       & file, varname, array, range, quiet, &
12591       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12592       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12593       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12594       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12595       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12596       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12597       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12598       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12599       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12600       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12601       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
12602 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}
12603 \textcolor{keyword}{  end interface}
12604   \textcolor{keyword}{interface}
12605 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12606       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12607       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12608       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12609       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12610       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12611       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12612       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12613 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12614 \textcolor{keyword}{  end interface}
12615   \textcolor{keyword}{interface}
12616 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12617       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12618       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12619       \textcolor{keywordtype}{character(STRING)}:: result
12620 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12621 \textcolor{keyword}{  end interface}
12622   \textcolor{keywordflow}{continue}
12623   file\_work = file
12624   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12625     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12626   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12627     & url = url, &
12628     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12629   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12630     & fullname = url, iorange = iorange, remainder = remainder )
12631   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12632   timevar\_name = carray(1)
12633   \textcolor{keyword}{deallocate}( carray )
12634   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12635   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}( file = file, &
12636     & varname = varname, array = array, &
12637     & range = time\_range, quiet = quiet, &
12638     & flag\_mpi\_split = flag\_mpi\_split, &
12639     & returned\_time = returned\_time, &
12640     & flag\_time\_exist = flag\_time\_exist, &
12641     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a67f099581f4dd100c2dd5ebbc76e72e4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a131357166ca3dbe1956b01b0cf817a51}\label{historyget_8f90_a131357166ca3dbe1956b01b0cf817a51}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5pointertimei@{historygetreal5pointertimei}}
\index{historygetreal5pointertimei@{historygetreal5pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5pointertimei()}{historygetreal5pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal5pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16218 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16218   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16219   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16220   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16221   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16222   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16223   \textcolor{keywordtype}{implicit none}
16224   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16225   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16226   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16227   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
16228   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16229   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16230   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16231   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16232   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16233   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16234   \textcolor{keywordtype}{character(STRING)}:: tname
16235   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeI"}
16236   \textcolor{keyword}{interface}
16237 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}(&
16238       & file, varname, array, range, quiet, &
16239       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16240       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16241       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16242       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16243       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16244       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16245       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16246       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16247       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16248       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16249       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
16250 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}
16251 \textcolor{keyword}{  end interface}
16252   \textcolor{keyword}{interface}
16253 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16254       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16255       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16256       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16257       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16258       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16259       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16260       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16261 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16262 \textcolor{keyword}{  end interface}
16263   \textcolor{keyword}{interface}
16264 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16265       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16266       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16267       \textcolor{keywordtype}{character(STRING)}:: result
16268 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16269 \textcolor{keyword}{  end interface}
16270   \textcolor{keywordflow}{continue}
16271   file\_work = file
16272   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16273     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16274   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16275     & url = url, &
16276     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16277   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16278     & fullname = url, iorange = iorange, remainder = remainder )
16279   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16280   timevar\_name = carray(1)
16281   \textcolor{keyword}{deallocate}( carray )
16282   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16283   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}( file = file, &
16284     & varname = varname, array = array, &
16285     & range = time\_range, quiet = quiet, &
16286     & flag\_mpi\_split = flag\_mpi\_split, &
16287     & returned\_time = returned\_time, &
16288     & flag\_time\_exist = flag\_time\_exist, &
16289     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a131357166ca3dbe1956b01b0cf817a51_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_af45ec7544db9e1d4265dd4de0a98fbea}\label{historyget_8f90_af45ec7544db9e1d4265dd4de0a98fbea}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5pointertimer@{historygetreal5pointertimer}}
\index{historygetreal5pointertimer@{historygetreal5pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5pointertimer()}{historygetreal5pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal5pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8922 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8922   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8923   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8924   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8925   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8926   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8927   \textcolor{keywordtype}{implicit none}
8928   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8929   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8930   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8931   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
8932   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8933   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8934   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8935   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8936   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8937   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8938   \textcolor{keywordtype}{character(STRING)}:: tname
8939   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeR"}
8940   \textcolor{keyword}{interface}
8941 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}(&
8942       & file, varname, array, range, quiet, &
8943       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8944       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8945       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8946       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8947       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8948       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8949       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8950       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8951       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8952       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8953       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:)
8954 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}
8955 \textcolor{keyword}{  end interface}
8956   \textcolor{keyword}{interface}
8957 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8958       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8959       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8960       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8961       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8962       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8963       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8964       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8965 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8966 \textcolor{keyword}{  end interface}
8967   \textcolor{keyword}{interface}
8968 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8969       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8970       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8971       \textcolor{keywordtype}{character(STRING)}:: result
8972 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8973 \textcolor{keyword}{  end interface}
8974   \textcolor{keywordflow}{continue}
8975   file\_work = file
8976   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8977     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8978   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8979     & url = url, &
8980     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8981   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8982     & fullname = url, iorange = iorange, remainder = remainder )
8983   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8984   timevar\_name = carray(1)
8985   \textcolor{keyword}{deallocate}( carray )
8986   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8987   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a323108a29f6d170d605d32d4aa8c548f}{historygetreal5pointer}( file = file, &
8988     & varname = varname, array = array, &
8989     & range = time\_range, quiet = quiet, &
8990     & flag\_mpi\_split = flag\_mpi\_split, &
8991     & returned\_time = returned\_time, &
8992     & flag\_time\_exist = flag\_time\_exist, &
8993     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_af45ec7544db9e1d4265dd4de0a98fbea_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a8fc6eca3d23c9eb721dda053f3f8fdc0}\label{historyget_8f90_a8fc6eca3d23c9eb721dda053f3f8fdc0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5timed@{historygetreal5timed}}
\index{historygetreal5timed@{historygetreal5timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5timed()}{historygetreal5timed()}}
{\footnotesize\ttfamily subroutine historygetreal5timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11962 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
11962   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
11963   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11964   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
11965   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
11966   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
11967   \textcolor{keywordtype}{implicit none}
11968   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
11969   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
11970   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11971   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
11972   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11973   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11974   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11975   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11976   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
11977   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
11978   \textcolor{keywordtype}{character(STRING)}:: tname
11979   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeD"}
11980   \textcolor{keyword}{interface}
11981 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}(&
11982       & file, varname, array, range, quiet, &
11983       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
11984       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
11985       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11986       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
11987       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
11988       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
11989       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
11990       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
11991       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
11992       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11993       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
11994 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}
11995 \textcolor{keyword}{  end interface}
11996   \textcolor{keyword}{interface}
11997 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
11998       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
11999       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12000       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12001       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12002       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12003       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12004       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12005 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12006 \textcolor{keyword}{  end interface}
12007   \textcolor{keyword}{interface}
12008 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12009       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12010       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12011       \textcolor{keywordtype}{character(STRING)}:: result
12012 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12013 \textcolor{keyword}{  end interface}
12014   \textcolor{keywordflow}{continue}
12015   file\_work = file
12016   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12017     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12018   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12019     & url = url, &
12020     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12021   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12022     & fullname = url, iorange = iorange, remainder = remainder )
12023   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12024   timevar\_name = carray(1)
12025   \textcolor{keyword}{deallocate}( carray )
12026   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12027   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}( file = file, &
12028     & varname = varname, array = array, &
12029     & range = time\_range, quiet = quiet, &
12030     & flag\_mpi\_split = flag\_mpi\_split, &
12031     & returned\_time = returned\_time, &
12032     & flag\_time\_exist = flag\_time\_exist, &
12033     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a8fc6eca3d23c9eb721dda053f3f8fdc0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_af68068882295d17e7cd9a798386f6975}\label{historyget_8f90_af68068882295d17e7cd9a798386f6975}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5timei@{historygetreal5timei}}
\index{historygetreal5timei@{historygetreal5timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5timei()}{historygetreal5timei()}}
{\footnotesize\ttfamily subroutine historygetreal5timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15610 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15610   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15611   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15612   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15613   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15614   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15615   \textcolor{keywordtype}{implicit none}
15616   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15617   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15618   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15619   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
15620   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15621   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15622   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15623   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15624   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15625   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15626   \textcolor{keywordtype}{character(STRING)}:: tname
15627   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeI"}
15628   \textcolor{keyword}{interface}
15629 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}(&
15630       & file, varname, array, range, quiet, &
15631       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15632       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15633       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15634       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15635       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15636       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15637       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15638       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15639       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15640       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15641       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
15642 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}
15643 \textcolor{keyword}{  end interface}
15644   \textcolor{keyword}{interface}
15645 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15646       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15647       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15648       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15649       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15650       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15651       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15652       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15653 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15654 \textcolor{keyword}{  end interface}
15655   \textcolor{keyword}{interface}
15656 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15657       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15658       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15659       \textcolor{keywordtype}{character(STRING)}:: result
15660 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15661 \textcolor{keyword}{  end interface}
15662   \textcolor{keywordflow}{continue}
15663   file\_work = file
15664   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15665     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15666   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15667     & url = url, &
15668     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15669   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15670     & fullname = url, iorange = iorange, remainder = remainder )
15671   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15672   timevar\_name = carray(1)
15673   \textcolor{keyword}{deallocate}( carray )
15674   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15675   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}( file = file, &
15676     & varname = varname, array = array, &
15677     & range = time\_range, quiet = quiet, &
15678     & flag\_mpi\_split = flag\_mpi\_split, &
15679     & returned\_time = returned\_time, &
15680     & flag\_time\_exist = flag\_time\_exist, &
15681     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_af68068882295d17e7cd9a798386f6975_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aab05368cbf5c38c92d24f8dd56056a69}\label{historyget_8f90_aab05368cbf5c38c92d24f8dd56056a69}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal5timer@{historygetreal5timer}}
\index{historygetreal5timer@{historygetreal5timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal5timer()}{historygetreal5timer()}}
{\footnotesize\ttfamily subroutine historygetreal5timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8314 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal5(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8314   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8315   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8316   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8317   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8318   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8319   \textcolor{keywordtype}{implicit none}
8320   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8321   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8322   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8323   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
8324   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8325   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8326   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8327   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8328   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8329   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8330   \textcolor{keywordtype}{character(STRING)}:: tname
8331   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal5TimeR"}
8332   \textcolor{keyword}{interface}
8333 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}(&
8334       & file, varname, array, range, quiet, &
8335       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8336       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8337       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8338       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8339       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8340       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8341       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8342       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8343       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8344       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8345       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:)
8346 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}
8347 \textcolor{keyword}{  end interface}
8348   \textcolor{keyword}{interface}
8349 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8350       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8351       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8352       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8353       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8354       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8355       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8356       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8357 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8358 \textcolor{keyword}{  end interface}
8359   \textcolor{keyword}{interface}
8360 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8361       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8362       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8363       \textcolor{keywordtype}{character(STRING)}:: result
8364 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8365 \textcolor{keyword}{  end interface}
8366   \textcolor{keywordflow}{continue}
8367   file\_work = file
8368   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8369     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8370   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8371     & url = url, &
8372     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8373   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8374     & fullname = url, iorange = iorange, remainder = remainder )
8375   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8376   timevar\_name = carray(1)
8377   \textcolor{keyword}{deallocate}( carray )
8378   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8379   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aabac0a51e7f7277c1d03317ba855648a}{historygetreal5}( file = file, &
8380     & varname = varname, array = array, &
8381     & range = time\_range, quiet = quiet, &
8382     & flag\_mpi\_split = flag\_mpi\_split, &
8383     & returned\_time = returned\_time, &
8384     & flag\_time\_exist = flag\_time\_exist, &
8385     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aab05368cbf5c38c92d24f8dd56056a69_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab055c5d433f885ed192e193f73699ace}\label{historyget_8f90_ab055c5d433f885ed192e193f73699ace}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6@{historygetreal6}}
\index{historygetreal6@{historygetreal6}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6()}{historygetreal6()}}
{\footnotesize\ttfamily subroutine historygetreal6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2789 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal6timed(), historygetreal6timei(), and historygetreal6timer().


\begin{DoxyCode}
2789   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
2790   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
2791   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
2792   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
2793   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
2794   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
2795   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
2796   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
2797   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2798   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
2799     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2800   \textcolor{keywordtype}{implicit none}
2801   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2802   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2803   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2804   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
2805   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2806   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
2807   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2808   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2809   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
2810   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
2811   \textcolor{keywordtype}{integer}:: array\_allsize
2812   \textcolor{keywordtype}{integer}:: array\_shape(6), data\_shape(6), array\_shape\_check(6)
2813   \textcolor{keywordtype}{integer}:: allcount
2814   \textcolor{keywordtype}{integer}:: i, sd
2815   \textcolor{keywordtype}{logical}:: inq\_err
2816   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
2817   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
2818   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
2819   \textcolor{keywordtype}{integer}:: domain
2820   \textcolor{keywordtype}{character(STRING)}:: tname
2821   \textcolor{keywordtype}{integer}:: stat
2822   \textcolor{keywordtype}{character(STRING)}:: cause\_c
2823   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6"}
2824   \textcolor{keyword}{interface}
2825 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
2826       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2827       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2828       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
2829       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2830       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
2831       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
2832       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2833 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
2834 \textcolor{keyword}{  end interface}
2835   \textcolor{keyword}{interface}
2836 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
2837       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2838       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
2839       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
2840       \textcolor{comment}{! 正確な入出力範囲指定}
2841       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
2842       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
2843       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
2844 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
2845 \textcolor{keyword}{  end interface}
2846   \textcolor{keyword}{interface}
2847 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
2848       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
2849       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
2850       \textcolor{keywordtype}{character(STRING)}:: result
2851 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
2852 \textcolor{keyword}{  end interface}
2853   \textcolor{keywordflow}{continue}
2854   cause\_c = \textcolor{stringliteral}{''}
2855   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2856   file\_work = file
2857   array\_shape = shape( array )
2858   array\_allsize = \textcolor{keyword}{size}( array )
2859   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
2860   \textcolor{comment}{! Change filename (for MPI)}
2861   \textcolor{comment}{!}
2862   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
2863     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
2864   \textcolor{comment}{! 最新時刻の URL 取得}
2865   \textcolor{comment}{! Get URL of latest time}
2866   \textcolor{comment}{!}
2867   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
2868     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
2869   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2870     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2871     cause\_c = url
2872     \textcolor{keywordflow}{goto} 999
2873 \textcolor{keywordflow}{  end if}
2874   \textcolor{comment}{! ファイルオープン}
2875   \textcolor{comment}{! File open}
2876   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
2877   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
2878     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
2879     cause\_c = url
2880     \textcolor{keywordflow}{goto} 999
2881 \textcolor{keywordflow}{  end if}
2882   \textcolor{comment}{!-------------------------------------------------------------------}
2883   \textcolor{comment}{!  配列形状のチェック}
2884   \textcolor{comment}{!  Check array shape}
2885   \textcolor{comment}{!-------------------------------------------------------------------}
2886   \textcolor{comment}{! 入力ファイル中のデータの次元数}
2887   \textcolor{comment}{! Get size of dimesions in data of an input file}
2888   \textcolor{comment}{!}
2889   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
2890     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
2891   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
2892   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
2893   array\_rank = 6
2894   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
2895   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
2896   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
2897   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
2898   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
2899   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
2900   \textcolor{comment}{! 次元数の比較}
2901   \textcolor{comment}{! Compare sizes of dimensions}
2902   \textcolor{comment}{!}
2903   \textcolor{keywordflow}{if} ( .not. 6 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
2904     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2905       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2906         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
2907         & i = (/rank, 6/), c1 = trim(url) )
2908 \textcolor{keywordflow}{    end if}
2909     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
2910     cause\_c = \textcolor{stringliteral}{'array'}
2911     \textcolor{keywordflow}{goto} 999
2912 \textcolor{keywordflow}{  end if}
2913   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
2914   \textcolor{comment}{! Get shape of data in an input file}
2915   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
2916     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2917   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2918     data\_shape(1) = allcount
2919   \textcolor{keywordflow}{else}
2920     data\_shape(1) = 1
2921 \textcolor{keywordflow}{  end if}
2922   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
2923     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2924   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2925     data\_shape(2) = allcount
2926   \textcolor{keywordflow}{else}
2927     data\_shape(2) = 1
2928 \textcolor{keywordflow}{  end if}
2929   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
2930     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2931   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2932     data\_shape(3) = allcount
2933   \textcolor{keywordflow}{else}
2934     data\_shape(3) = 1
2935 \textcolor{keywordflow}{  end if}
2936   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
2937     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2938   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2939     data\_shape(4) = allcount
2940   \textcolor{keywordflow}{else}
2941     data\_shape(4) = 1
2942 \textcolor{keywordflow}{  end if}
2943   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
2944     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2945   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2946     data\_shape(5) = allcount
2947   \textcolor{keywordflow}{else}
2948     data\_shape(5) = 1
2949 \textcolor{keywordflow}{  end if}
2950   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
2951     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
2952   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
2953     data\_shape(6) = allcount
2954   \textcolor{keywordflow}{else}
2955     data\_shape(6) = 1
2956 \textcolor{keywordflow}{  end if}
2957   \textcolor{comment}{! 引数の配列形状整形}
2958   \textcolor{comment}{! Arrange shape of an argument}
2959   \textcolor{comment}{!}
2960   array\_shape\_check = array\_shape
2961   sd = 1
2962   \textcolor{keywordflow}{do} i = 1, 6 - 1
2963     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
2964       array\_shape\_check(sd:6) = cshift( array\_shape\_check(sd:6), 1, 1 )
2965     \textcolor{keywordflow}{else}
2966       sd = sd + 1
2967 \textcolor{keywordflow}{    end if}
2968 \textcolor{keywordflow}{  end do}
2969   \textcolor{comment}{! 配列形状の比較}
2970   \textcolor{comment}{! Compare shapes}
2971   \textcolor{comment}{!}
2972   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
2973     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
2974       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
2975         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
2976         & c1 = trim( url ), &
2977         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
2978         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
2979 \textcolor{keywordflow}{    end if}
2980     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2981     cause\_c = \textcolor{stringliteral}{'array'}
2982     \textcolor{keywordflow}{goto} 999
2983 \textcolor{keywordflow}{  end if}
2984   \textcolor{comment}{!-------------------------------------}
2985   \textcolor{comment}{!  データ取得}
2986   \textcolor{comment}{!  Get data}
2987   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
2988     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
2989   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
2990   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
2991   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
2992   array = reshape( array\_tmp, array\_shape )
2993   \textcolor{keyword}{deallocate}( array\_tmp )
2994   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
2995   \textcolor{comment}{!-------------------------------------}
2996   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
2997   \textcolor{comment}{!  Print data filename and clipping range}
2998   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
2999     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3000     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3001     & err = err)                   \textcolor{comment}{! (out) optional}
3002   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3003     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3004 \textcolor{keywordflow}{  end if}
3005 999 \textcolor{keywordflow}{continue}
3006   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab055c5d433f885ed192e193f73699ace_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_ab055c5d433f885ed192e193f73699ace_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}\label{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6pointer@{historygetreal6pointer}}
\index{historygetreal6pointer@{historygetreal6pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6pointer()}{historygetreal6pointer()}}
{\footnotesize\ttfamily subroutine historygetreal6pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 5924 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal6pointertimed(), historygetreal6pointertimei(), and historygetreal6pointertimer().


\begin{DoxyCode}
5924   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
5925   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
5926   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
5927   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
5928   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
5929   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
5930   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
5931   \textcolor{keywordtype}{implicit none}
5932   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5933   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5934   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5935   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
5936   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
5937   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
5938   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5939   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5940   \textcolor{keywordtype}{integer}:: domain
5941   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:) \textcolor{comment}{! (out)}
5942   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
5943   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
5944   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
5945   \textcolor{keywordtype}{character(STRING)}:: tname
5946   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6Pointer"}
5947   \textcolor{keyword}{interface}
5948 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
5949       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5950       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
5951       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
5952       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
5953       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
5954       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
5955       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
5956 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
5957 \textcolor{keyword}{  end interface}
5958   \textcolor{keyword}{interface}
5959 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
5960       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
5961       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
5962       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
5963       \textcolor{comment}{! 正確な入出力範囲指定}
5964       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
5965       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
5966       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
5967 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
5968 \textcolor{keyword}{  end interface}
5969   \textcolor{keyword}{interface}
5970 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
5971       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
5972       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
5973       \textcolor{keywordtype}{character(STRING)}:: result
5974 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
5975 \textcolor{keyword}{  end interface}
5976   \textcolor{keywordflow}{continue}
5977   file\_work = file
5978   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
5979   \textcolor{comment}{! Change filename (for MPI)}
5980   \textcolor{comment}{!}
5981   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
5982     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
5983   \textcolor{comment}{! 必要な情報を gtool 変数化}
5984   \textcolor{comment}{!}
5985   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
5986     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
5987   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
5988   \textcolor{comment}{! いよいよデータ取得}
5989   \textcolor{comment}{!}
5990   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
5991   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
5992   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
5993   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
5994     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
5995     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
5996     & err = err)                   \textcolor{comment}{! (out) optional}
5997   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
5998     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
5999 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a825bf71414a01a4437bb57ac565774a2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a825bf71414a01a4437bb57ac565774a2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_af8d7cb8e4b660a4aefcc964a24562e30}\label{historyget_8f90_af8d7cb8e4b660a4aefcc964a24562e30}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6pointertimed@{historygetreal6pointertimed}}
\index{historygetreal6pointertimed@{historygetreal6pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6pointertimed()}{historygetreal6pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal6pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12646 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12646   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12647   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12648   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12649   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12650   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12651   \textcolor{keywordtype}{implicit none}
12652   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12653   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12654   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12655   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
12656   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12657   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12658   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12659   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12660   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12661   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12662   \textcolor{keywordtype}{character(STRING)}:: tname
12663   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeD"}
12664   \textcolor{keyword}{interface}
12665 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}(&
12666       & file, varname, array, range, quiet, &
12667       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12668       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12669       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12670       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12671       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12672       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12673       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12674       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12675       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12676       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12677       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
12678 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}
12679 \textcolor{keyword}{  end interface}
12680   \textcolor{keyword}{interface}
12681 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12682       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12683       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12684       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12685       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12686       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12687       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12688       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12689 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12690 \textcolor{keyword}{  end interface}
12691   \textcolor{keyword}{interface}
12692 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12693       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12694       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12695       \textcolor{keywordtype}{character(STRING)}:: result
12696 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12697 \textcolor{keyword}{  end interface}
12698   \textcolor{keywordflow}{continue}
12699   file\_work = file
12700   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12701     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12702   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12703     & url = url, &
12704     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12705   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12706     & fullname = url, iorange = iorange, remainder = remainder )
12707   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12708   timevar\_name = carray(1)
12709   \textcolor{keyword}{deallocate}( carray )
12710   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12711   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}( file = file, &
12712     & varname = varname, array = array, &
12713     & range = time\_range, quiet = quiet, &
12714     & flag\_mpi\_split = flag\_mpi\_split, &
12715     & returned\_time = returned\_time, &
12716     & flag\_time\_exist = flag\_time\_exist, &
12717     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_af8d7cb8e4b660a4aefcc964a24562e30_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ad9d418fd198ea20d08941e87f2f8dddf}\label{historyget_8f90_ad9d418fd198ea20d08941e87f2f8dddf}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6pointertimei@{historygetreal6pointertimei}}
\index{historygetreal6pointertimei@{historygetreal6pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6pointertimei()}{historygetreal6pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal6pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16294 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16294   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16295   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16296   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16297   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16298   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16299   \textcolor{keywordtype}{implicit none}
16300   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16301   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16302   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16303   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
16304   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16305   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16306   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16307   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16308   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16309   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16310   \textcolor{keywordtype}{character(STRING)}:: tname
16311   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeI"}
16312   \textcolor{keyword}{interface}
16313 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}(&
16314       & file, varname, array, range, quiet, &
16315       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16316       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16317       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16318       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16319       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16320       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16321       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16322       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16323       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16324       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16325       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
16326 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}
16327 \textcolor{keyword}{  end interface}
16328   \textcolor{keyword}{interface}
16329 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16330       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16331       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16332       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16333       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16334       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16335       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16336       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16337 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16338 \textcolor{keyword}{  end interface}
16339   \textcolor{keyword}{interface}
16340 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16341       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16342       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16343       \textcolor{keywordtype}{character(STRING)}:: result
16344 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16345 \textcolor{keyword}{  end interface}
16346   \textcolor{keywordflow}{continue}
16347   file\_work = file
16348   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16349     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16350   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16351     & url = url, &
16352     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16353   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16354     & fullname = url, iorange = iorange, remainder = remainder )
16355   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16356   timevar\_name = carray(1)
16357   \textcolor{keyword}{deallocate}( carray )
16358   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16359   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}( file = file, &
16360     & varname = varname, array = array, &
16361     & range = time\_range, quiet = quiet, &
16362     & flag\_mpi\_split = flag\_mpi\_split, &
16363     & returned\_time = returned\_time, &
16364     & flag\_time\_exist = flag\_time\_exist, &
16365     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ad9d418fd198ea20d08941e87f2f8dddf_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6488c48d24c041dbd507ca8c294a197f}\label{historyget_8f90_a6488c48d24c041dbd507ca8c294a197f}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6pointertimer@{historygetreal6pointertimer}}
\index{historygetreal6pointertimer@{historygetreal6pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6pointertimer()}{historygetreal6pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal6pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8998 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8998   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8999   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9000   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9001   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9002   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9003   \textcolor{keywordtype}{implicit none}
9004   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9005   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9006   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9007   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
9008   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9009   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9010   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9011   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9012   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9013   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9014   \textcolor{keywordtype}{character(STRING)}:: tname
9015   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeR"}
9016   \textcolor{keyword}{interface}
9017 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}(&
9018       & file, varname, array, range, quiet, &
9019       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9020       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9021       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9022       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9023       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9024       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9025       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9026       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9027       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9028       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9029       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:)
9030 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}
9031 \textcolor{keyword}{  end interface}
9032   \textcolor{keyword}{interface}
9033 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9034       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9035       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9036       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9037       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9038       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9039       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9040       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9041 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9042 \textcolor{keyword}{  end interface}
9043   \textcolor{keyword}{interface}
9044 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9045       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9046       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9047       \textcolor{keywordtype}{character(STRING)}:: result
9048 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9049 \textcolor{keyword}{  end interface}
9050   \textcolor{keywordflow}{continue}
9051   file\_work = file
9052   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9053     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9054   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9055     & url = url, &
9056     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9057   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9058     & fullname = url, iorange = iorange, remainder = remainder )
9059   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9060   timevar\_name = carray(1)
9061   \textcolor{keyword}{deallocate}( carray )
9062   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9063   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a825bf71414a01a4437bb57ac565774a2}{historygetreal6pointer}( file = file, &
9064     & varname = varname, array = array, &
9065     & range = time\_range, quiet = quiet, &
9066     & flag\_mpi\_split = flag\_mpi\_split, &
9067     & returned\_time = returned\_time, &
9068     & flag\_time\_exist = flag\_time\_exist, &
9069     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6488c48d24c041dbd507ca8c294a197f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6a2bded1d05403808b3050d25423b50a}\label{historyget_8f90_a6a2bded1d05403808b3050d25423b50a}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6timed@{historygetreal6timed}}
\index{historygetreal6timed@{historygetreal6timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6timed()}{historygetreal6timed()}}
{\footnotesize\ttfamily subroutine historygetreal6timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12038 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12038   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12039   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12040   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12041   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12042   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12043   \textcolor{keywordtype}{implicit none}
12044   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12045   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12046   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12047   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
12048   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12049   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12050   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12051   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12052   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12053   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12054   \textcolor{keywordtype}{character(STRING)}:: tname
12055   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeD"}
12056   \textcolor{keyword}{interface}
12057 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}(&
12058       & file, varname, array, range, quiet, &
12059       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12060       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12061       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12062       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12063       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12064       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12065       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12066       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12067       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12068       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12069       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
12070 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}
12071 \textcolor{keyword}{  end interface}
12072   \textcolor{keyword}{interface}
12073 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12074       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12075       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12076       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12077       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12078       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12079       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12080       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12081 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12082 \textcolor{keyword}{  end interface}
12083   \textcolor{keyword}{interface}
12084 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12085       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12086       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12087       \textcolor{keywordtype}{character(STRING)}:: result
12088 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12089 \textcolor{keyword}{  end interface}
12090   \textcolor{keywordflow}{continue}
12091   file\_work = file
12092   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12093     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12094   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12095     & url = url, &
12096     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12097   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12098     & fullname = url, iorange = iorange, remainder = remainder )
12099   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12100   timevar\_name = carray(1)
12101   \textcolor{keyword}{deallocate}( carray )
12102   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12103   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}( file = file, &
12104     & varname = varname, array = array, &
12105     & range = time\_range, quiet = quiet, &
12106     & flag\_mpi\_split = flag\_mpi\_split, &
12107     & returned\_time = returned\_time, &
12108     & flag\_time\_exist = flag\_time\_exist, &
12109     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6a2bded1d05403808b3050d25423b50a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a83acc1dd09adb894c385f87431c061a0}\label{historyget_8f90_a83acc1dd09adb894c385f87431c061a0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6timei@{historygetreal6timei}}
\index{historygetreal6timei@{historygetreal6timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6timei()}{historygetreal6timei()}}
{\footnotesize\ttfamily subroutine historygetreal6timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15686 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15686   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15687   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15688   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15689   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15690   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15691   \textcolor{keywordtype}{implicit none}
15692   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15693   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15694   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15695   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
15696   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15697   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15698   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15699   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15700   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15701   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15702   \textcolor{keywordtype}{character(STRING)}:: tname
15703   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeI"}
15704   \textcolor{keyword}{interface}
15705 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}(&
15706       & file, varname, array, range, quiet, &
15707       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15708       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15709       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15710       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15711       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15712       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15713       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15714       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15715       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15716       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15717       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
15718 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}
15719 \textcolor{keyword}{  end interface}
15720   \textcolor{keyword}{interface}
15721 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15722       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15723       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15724       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15725       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15726       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15727       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15728       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15729 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15730 \textcolor{keyword}{  end interface}
15731   \textcolor{keyword}{interface}
15732 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15733       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15734       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15735       \textcolor{keywordtype}{character(STRING)}:: result
15736 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15737 \textcolor{keyword}{  end interface}
15738   \textcolor{keywordflow}{continue}
15739   file\_work = file
15740   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15741     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15742   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15743     & url = url, &
15744     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15745   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15746     & fullname = url, iorange = iorange, remainder = remainder )
15747   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15748   timevar\_name = carray(1)
15749   \textcolor{keyword}{deallocate}( carray )
15750   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15751   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}( file = file, &
15752     & varname = varname, array = array, &
15753     & range = time\_range, quiet = quiet, &
15754     & flag\_mpi\_split = flag\_mpi\_split, &
15755     & returned\_time = returned\_time, &
15756     & flag\_time\_exist = flag\_time\_exist, &
15757     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a83acc1dd09adb894c385f87431c061a0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a4783f9426af428e555b8d792f7e67cb7}\label{historyget_8f90_a4783f9426af428e555b8d792f7e67cb7}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal6timer@{historygetreal6timer}}
\index{historygetreal6timer@{historygetreal6timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal6timer()}{historygetreal6timer()}}
{\footnotesize\ttfamily subroutine historygetreal6timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8390 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal6(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8390   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8391   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8392   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8393   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8394   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8395   \textcolor{keywordtype}{implicit none}
8396   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8397   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8398   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8399   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
8400   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8401   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8402   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8403   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8404   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8405   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8406   \textcolor{keywordtype}{character(STRING)}:: tname
8407   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal6TimeR"}
8408   \textcolor{keyword}{interface}
8409 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}(&
8410       & file, varname, array, range, quiet, &
8411       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8412       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8413       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8414       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8415       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8416       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8417       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8418       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8419       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8420       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8421       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:)
8422 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}
8423 \textcolor{keyword}{  end interface}
8424   \textcolor{keyword}{interface}
8425 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8426       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8427       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8428       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8429       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8430       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8431       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8432       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8433 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8434 \textcolor{keyword}{  end interface}
8435   \textcolor{keyword}{interface}
8436 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8437       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8438       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8439       \textcolor{keywordtype}{character(STRING)}:: result
8440 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8441 \textcolor{keyword}{  end interface}
8442   \textcolor{keywordflow}{continue}
8443   file\_work = file
8444   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8445     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8446   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8447     & url = url, &
8448     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8449   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8450     & fullname = url, iorange = iorange, remainder = remainder )
8451   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8452   timevar\_name = carray(1)
8453   \textcolor{keyword}{deallocate}( carray )
8454   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8455   \textcolor{keyword}{call }\hyperlink{historyget_8f90_ab055c5d433f885ed192e193f73699ace}{historygetreal6}( file = file, &
8456     & varname = varname, array = array, &
8457     & range = time\_range, quiet = quiet, &
8458     & flag\_mpi\_split = flag\_mpi\_split, &
8459     & returned\_time = returned\_time, &
8460     & flag\_time\_exist = flag\_time\_exist, &
8461     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a4783f9426af428e555b8d792f7e67cb7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}\label{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7@{historygetreal7}}
\index{historygetreal7@{historygetreal7}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7()}{historygetreal7()}}
{\footnotesize\ttfamily subroutine historygetreal7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3010 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+error\+::gt\+\_\+erankmismatch, dc\+\_\+string\+::joinchar(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetreal7timed(), historygetreal7timei(), and historygetreal7timer().


\begin{DoxyCode}
3010   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3011   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
3012   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}, \hyperlink{interfacedc__string_1_1stoa}{stoa}
3013   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
3014   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
3015   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
3016   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
3017   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
3018   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3019   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}, &
3020     & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3021   \textcolor{keywordtype}{implicit none}
3022   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3023   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3024   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3025   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: quiet
3026   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: flag\_mpi\_split
3027   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
3028   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3029   \textcolor{keywordtype}{logical},  \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3030   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
3031   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable}  :: array\_tmp(:)
3032   \textcolor{keywordtype}{integer}:: array\_allsize
3033   \textcolor{keywordtype}{integer}:: array\_shape(7), data\_shape(7), array\_shape\_check(7)
3034   \textcolor{keywordtype}{integer}:: allcount
3035   \textcolor{keywordtype}{integer}:: i, sd
3036   \textcolor{keywordtype}{logical}:: inq\_err
3037   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
3038   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
3039   \textcolor{keywordtype}{integer}:: rank, alldims, array\_rank
3040   \textcolor{keywordtype}{integer}:: domain
3041   \textcolor{keywordtype}{character(STRING)}:: tname
3042   \textcolor{keywordtype}{integer}:: stat
3043   \textcolor{keywordtype}{character(STRING)}:: cause\_c
3044   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7"}
3045   \textcolor{keyword}{interface}
3046 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
3047       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3048       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3049       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
3050       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3051       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
3052       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
3053       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3054 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
3055 \textcolor{keyword}{  end interface}
3056   \textcolor{keyword}{interface}
3057 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
3058       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3059       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
3060       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
3061       \textcolor{comment}{! 正確な入出力範囲指定}
3062       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
3063       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
3064       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
3065 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
3066 \textcolor{keyword}{  end interface}
3067   \textcolor{keyword}{interface}
3068 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
3069       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3070       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
3071       \textcolor{keywordtype}{character(STRING)}:: result
3072 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
3073 \textcolor{keyword}{  end interface}
3074   \textcolor{keywordflow}{continue}
3075   cause\_c = \textcolor{stringliteral}{''}
3076   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3077   file\_work = file
3078   array\_shape = shape( array )
3079   array\_allsize = \textcolor{keyword}{size}( array )
3080   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
3081   \textcolor{comment}{! Change filename (for MPI)}
3082   \textcolor{comment}{!}
3083   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
3084     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
3085   \textcolor{comment}{! 最新時刻の URL 取得}
3086   \textcolor{comment}{! Get URL of latest time}
3087   \textcolor{comment}{!}
3088   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
3089     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
3090   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3091     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3092     cause\_c = url
3093     \textcolor{keywordflow}{goto} 999
3094 \textcolor{keywordflow}{  end if}
3095   \textcolor{comment}{! ファイルオープン}
3096   \textcolor{comment}{! File open}
3097   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
3098   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
3099     stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
3100     cause\_c = url
3101     \textcolor{keywordflow}{goto} 999
3102 \textcolor{keywordflow}{  end if}
3103   \textcolor{comment}{!-------------------------------------------------------------------}
3104   \textcolor{comment}{!  配列形状のチェック}
3105   \textcolor{comment}{!  Check array shape}
3106   \textcolor{comment}{!-------------------------------------------------------------------}
3107   \textcolor{comment}{! 入力ファイル中のデータの次元数}
3108   \textcolor{comment}{! Get size of dimesions in data of an input file}
3109   \textcolor{comment}{!}
3110   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, &           \textcolor{comment}{! (in)}
3111     & rank = rank, alldims = alldims ) \textcolor{comment}{! (out)}
3112   \textcolor{comment}{! 引数の次元数のチェック (縮退されている場合には減らす)}
3113   \textcolor{comment}{! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)}
3114   array\_rank = 7
3115   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 1 ) == 1 ) array\_rank = array\_rank - 1
3116   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 2 ) == 1 ) array\_rank = array\_rank - 1
3117   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 3 ) == 1 ) array\_rank = array\_rank - 1
3118   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 4 ) == 1 ) array\_rank = array\_rank - 1
3119   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 5 ) == 1 ) array\_rank = array\_rank - 1
3120   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 6 ) == 1 ) array\_rank = array\_rank - 1
3121   \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}( array, 7 ) == 1 ) array\_rank = array\_rank - 1
3122   \textcolor{comment}{! 次元数の比較}
3123   \textcolor{comment}{! Compare sizes of dimensions}
3124   \textcolor{comment}{!}
3125   \textcolor{keywordflow}{if} ( .not. 7 == rank .and. .not. array\_rank == rank ) \textcolor{keywordflow}{then}
3126     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3127       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3128         & \textcolor{stringliteral}{'Rank of data (%c) is "%d", rank of argument is "%d"'}, &
3129         & i = (/rank, 7/), c1 = trim(url) )
3130 \textcolor{keywordflow}{    end if}
3131     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
3132     cause\_c = \textcolor{stringliteral}{'array'}
3133     \textcolor{keywordflow}{goto} 999
3134 \textcolor{keywordflow}{  end if}
3135   \textcolor{comment}{! 入力ファイル中のデータの配列形状取得}
3136   \textcolor{comment}{! Get shape of data in an input file}
3137   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 1, &   \textcolor{comment}{! (in)}
3138     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3139   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3140     data\_shape(1) = allcount
3141   \textcolor{keywordflow}{else}
3142     data\_shape(1) = 1
3143 \textcolor{keywordflow}{  end if}
3144   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 2, &   \textcolor{comment}{! (in)}
3145     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3146   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3147     data\_shape(2) = allcount
3148   \textcolor{keywordflow}{else}
3149     data\_shape(2) = 1
3150 \textcolor{keywordflow}{  end if}
3151   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 3, &   \textcolor{comment}{! (in)}
3152     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3153   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3154     data\_shape(3) = allcount
3155   \textcolor{keywordflow}{else}
3156     data\_shape(3) = 1
3157 \textcolor{keywordflow}{  end if}
3158   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 4, &   \textcolor{comment}{! (in)}
3159     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3160   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3161     data\_shape(4) = allcount
3162   \textcolor{keywordflow}{else}
3163     data\_shape(4) = 1
3164 \textcolor{keywordflow}{  end if}
3165   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 5, &   \textcolor{comment}{! (in)}
3166     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3167   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3168     data\_shape(5) = allcount
3169   \textcolor{keywordflow}{else}
3170     data\_shape(5) = 1
3171 \textcolor{keywordflow}{  end if}
3172   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 6, &   \textcolor{comment}{! (in)}
3173     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3174   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3175     data\_shape(6) = allcount
3176   \textcolor{keywordflow}{else}
3177     data\_shape(6) = 1
3178 \textcolor{keywordflow}{  end if}
3179   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var , dimord = 7, &   \textcolor{comment}{! (in)}
3180     & allcount = allcount, err = inq\_err )       \textcolor{comment}{! (out)}
3181   \textcolor{keywordflow}{if} ( .not. inq\_err ) \textcolor{keywordflow}{then}
3182     data\_shape(7) = allcount
3183   \textcolor{keywordflow}{else}
3184     data\_shape(7) = 1
3185 \textcolor{keywordflow}{  end if}
3186   \textcolor{comment}{! 引数の配列形状整形}
3187   \textcolor{comment}{! Arrange shape of an argument}
3188   \textcolor{comment}{!}
3189   array\_shape\_check = array\_shape
3190   sd = 1
3191   \textcolor{keywordflow}{do} i = 1, 7 - 1
3192     \textcolor{keywordflow}{if} ( array\_shape\_check(sd) == 1 ) \textcolor{keywordflow}{then}
3193       array\_shape\_check(sd:7) = cshift( array\_shape\_check(sd:7), 1, 1 )
3194     \textcolor{keywordflow}{else}
3195       sd = sd + 1
3196 \textcolor{keywordflow}{    end if}
3197 \textcolor{keywordflow}{  end do}
3198   \textcolor{comment}{! 配列形状の比較}
3199   \textcolor{comment}{! Compare shapes}
3200   \textcolor{comment}{!}
3201   \textcolor{keywordflow}{if} ( .not. all( array\_shape\_check == data\_shape ) ) \textcolor{keywordflow}{then}
3202     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3203       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
3204         & \textcolor{stringliteral}{'Shape of data (%c) is (%c), shape of argument is (%c)'}, &
3205         & c1 = trim( url ), &
3206         & c2 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( data\_shape(1:rank) ) ), &
3207         & c3 = trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( array\_shape\_check(1:rank) ) ) )
3208 \textcolor{keywordflow}{    end if}
3209     stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
3210     cause\_c = \textcolor{stringliteral}{'array'}
3211     \textcolor{keywordflow}{goto} 999
3212 \textcolor{keywordflow}{  end if}
3213   \textcolor{comment}{!-------------------------------------}
3214   \textcolor{comment}{!  データ取得}
3215   \textcolor{comment}{!  Get data}
3216   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var = var, & \textcolor{comment}{! (in)}
3217     & \textcolor{keyword}{size} = domain )        \textcolor{comment}{! (out)}
3218   \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}( array\_tmp ) ) \textcolor{keyword}{deallocate}( array\_tmp )
3219   \textcolor{keyword}{allocate}( array\_tmp(array\_allsize) )
3220   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( var, array\_tmp, domain )
3221   array = reshape( array\_tmp, array\_shape )
3222   \textcolor{keyword}{deallocate}( array\_tmp )
3223   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
3224   \textcolor{comment}{!-------------------------------------}
3225   \textcolor{comment}{!  データファイル名と切り出し範囲の印字}
3226   \textcolor{comment}{!  Print data filename and clipping range}
3227   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
3228     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
3229     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
3230     & err = err)                   \textcolor{comment}{! (out) optional}
3231   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
3232     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url), rank\_mpi = -1)
3233 \textcolor{keywordflow}{  end if}
3234 999 \textcolor{keywordflow}{continue}
3235   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_afb61d83265b6c49982c52db9048bbec1_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=300pt]{historyget_8f90_afb61d83265b6c49982c52db9048bbec1_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}\label{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7pointer@{historygetreal7pointer}}
\index{historygetreal7pointer@{historygetreal7pointer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7pointer()}{historygetreal7pointer()}}
{\footnotesize\ttfamily subroutine historygetreal7pointer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 6003 of file historyget.\+f90.



References actual\+\_\+iorange\+\_\+dump(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, and dc\+\_\+types\+::string.



Referenced by historygetreal7pointertimed(), historygetreal7pointertimei(), and historygetreal7pointertimer().


\begin{DoxyCode}
6003   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
6004   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1close}{close}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}
6005   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
6006   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
6007   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
6008   \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
6009   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
6010   \textcolor{keywordtype}{implicit none}
6011   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6012   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6013   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6014   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
6015   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
6016   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time \textcolor{comment}{! データの時刻}
6017   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6018   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6019   \textcolor{keywordtype}{integer}:: domain
6020   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:) \textcolor{comment}{! (out)}
6021   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{target} :: array\_tmp(1)
6022   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
6023   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, actual\_url
6024   \textcolor{keywordtype}{character(STRING)}:: tname
6025   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7Pointer"}
6026   \textcolor{keyword}{interface}
6027 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
6028       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6029       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
6030       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
6031       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
6032       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
6033       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
6034       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
6035 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
6036 \textcolor{keyword}{  end interface}
6037   \textcolor{keyword}{interface}
6038 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, actual\_url, returned\_time, time\_name, err)
6039       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
6040       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: url                \textcolor{comment}{! 変数 URL}
6041       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: actual\_url
6042       \textcolor{comment}{! 正確な入出力範囲指定}
6043       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time    \textcolor{comment}{! データの時刻}
6044       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_name \textcolor{comment}{! 時刻次元の名称}
6045       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err          \textcolor{comment}{! エラーのフラグ}
6046 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}
6047 \textcolor{keyword}{  end interface}
6048   \textcolor{keyword}{interface}
6049 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
6050       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
6051       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
6052       \textcolor{keywordtype}{character(STRING)}:: result
6053 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
6054 \textcolor{keyword}{  end interface}
6055   \textcolor{keywordflow}{continue}
6056   file\_work = file
6057   \textcolor{comment}{! ファイル名の変更 (MPI 用)}
6058   \textcolor{comment}{! Change filename (for MPI)}
6059   \textcolor{comment}{!}
6060   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
6061     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
6062   \textcolor{comment}{! 必要な情報を gtool 変数化}
6063   \textcolor{comment}{!}
6064   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file\_work, varname, url, range, &
6065     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
6066   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ url =%c'}, c1=trim(url))
6067   \textcolor{comment}{! いよいよデータ取得}
6068   \textcolor{comment}{!}
6069   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, url, err)
6070   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(var, array, err)
6071   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var, err)
6072   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a5ccde12d68929610d2ddd3d13b82afc7}{actual\_iorange\_dump}(url, &  \textcolor{comment}{! (in)}
6073     & actual\_url, returned\_time, & \textcolor{comment}{! (out) optional}
6074     & time\_name = tname, &         \textcolor{comment}{! (in)  optional}
6075     & err = err)                   \textcolor{comment}{! (out) optional}
6076   \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(quiet) ) \textcolor{keywordflow}{then}
6077     \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, subname, \textcolor{stringliteral}{'Input %c'}, c1=trim(actual\_url))
6078 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aced50d9b718f70a1dea263072a8966fc_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_aced50d9b718f70a1dea263072a8966fc_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_ab0fbd0e1954d2e6cd31bcf015838dc9e}\label{historyget_8f90_ab0fbd0e1954d2e6cd31bcf015838dc9e}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7pointertimed@{historygetreal7pointertimed}}
\index{historygetreal7pointertimed@{historygetreal7pointertimed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7pointertimed()}{historygetreal7pointertimed()}}
{\footnotesize\ttfamily subroutine historygetreal7pointertimed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12722 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12722   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12723   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12724   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12725   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12726   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12727   \textcolor{keywordtype}{implicit none}
12728   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12729   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12730   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12731   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
12732   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12733   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12734   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12735   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12736   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12737   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12738   \textcolor{keywordtype}{character(STRING)}:: tname
12739   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeD"}
12740   \textcolor{keyword}{interface}
12741 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}(&
12742       & file, varname, array, range, quiet, &
12743       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12744       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12745       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12746       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12747       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12748       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12749       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12750       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12751       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12752       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12753       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
12754 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}
12755 \textcolor{keyword}{  end interface}
12756   \textcolor{keyword}{interface}
12757 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12758       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12759       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12760       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12761       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12762       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12763       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12764       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12765 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12766 \textcolor{keyword}{  end interface}
12767   \textcolor{keyword}{interface}
12768 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12769       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12770       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12771       \textcolor{keywordtype}{character(STRING)}:: result
12772 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12773 \textcolor{keyword}{  end interface}
12774   \textcolor{keywordflow}{continue}
12775   file\_work = file
12776   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12777     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12778   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12779     & url = url, &
12780     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12781   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12782     & fullname = url, iorange = iorange, remainder = remainder )
12783   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12784   timevar\_name = carray(1)
12785   \textcolor{keyword}{deallocate}( carray )
12786   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12787   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}( file = file, &
12788     & varname = varname, array = array, &
12789     & range = time\_range, quiet = quiet, &
12790     & flag\_mpi\_split = flag\_mpi\_split, &
12791     & returned\_time = returned\_time, &
12792     & flag\_time\_exist = flag\_time\_exist, &
12793     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_ab0fbd0e1954d2e6cd31bcf015838dc9e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a72f7b56a12deaf108b33d71a6648c802}\label{historyget_8f90_a72f7b56a12deaf108b33d71a6648c802}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7pointertimei@{historygetreal7pointertimei}}
\index{historygetreal7pointertimei@{historygetreal7pointertimei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7pointertimei()}{historygetreal7pointertimei()}}
{\footnotesize\ttfamily subroutine historygetreal7pointertimei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 16370 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
16370   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
16371   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16372   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
16373   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
16374   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
16375   \textcolor{keywordtype}{implicit none}
16376   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
16377   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
16378   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16379   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
16380   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16381   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16382   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16383   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16384   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
16385   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
16386   \textcolor{keywordtype}{character(STRING)}:: tname
16387   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeI"}
16388   \textcolor{keyword}{interface}
16389 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}(&
16390       & file, varname, array, range, quiet, &
16391       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
16392       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
16393       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16394       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16395       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16396       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
16397       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
16398       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
16399       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16400       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16401       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
16402 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}
16403 \textcolor{keyword}{  end interface}
16404   \textcolor{keyword}{interface}
16405 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
16406       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16407       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
16408       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
16409       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
16410       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
16411       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
16412       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
16413 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
16414 \textcolor{keyword}{  end interface}
16415   \textcolor{keyword}{interface}
16416 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
16417       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
16418       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
16419       \textcolor{keywordtype}{character(STRING)}:: result
16420 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
16421 \textcolor{keyword}{  end interface}
16422   \textcolor{keywordflow}{continue}
16423   file\_work = file
16424   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
16425     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
16426   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
16427     & url = url, &
16428     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
16429   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
16430     & fullname = url, iorange = iorange, remainder = remainder )
16431   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
16432   timevar\_name = carray(1)
16433   \textcolor{keyword}{deallocate}( carray )
16434   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
16435   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}( file = file, &
16436     & varname = varname, array = array, &
16437     & range = time\_range, quiet = quiet, &
16438     & flag\_mpi\_split = flag\_mpi\_split, &
16439     & returned\_time = returned\_time, &
16440     & flag\_time\_exist = flag\_time\_exist, &
16441     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a72f7b56a12deaf108b33d71a6648c802_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a2f550f1e34875ce073aeb2a41e955025}\label{historyget_8f90_a2f550f1e34875ce073aeb2a41e955025}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7pointertimer@{historygetreal7pointertimer}}
\index{historygetreal7pointertimer@{historygetreal7pointertimer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7pointertimer()}{historygetreal7pointertimer()}}
{\footnotesize\ttfamily subroutine historygetreal7pointertimer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 9074 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7pointer(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
9074   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
9075   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9076   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
9077   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
9078   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
9079   \textcolor{keywordtype}{implicit none}
9080   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
9081   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
9082   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9083   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
9084   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9085   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9086   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9087   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9088   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
9089   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
9090   \textcolor{keywordtype}{character(STRING)}:: tname
9091   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeR"}
9092   \textcolor{keyword}{interface}
9093 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}(&
9094       & file, varname, array, range, quiet, &
9095       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
9096       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
9097       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9098       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9099       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9100       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
9101       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
9102       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
9103       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9104       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9105       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: array(:,:,:,:,:,:,:)
9106 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}
9107 \textcolor{keyword}{  end interface}
9108   \textcolor{keyword}{interface}
9109 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
9110       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9111       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
9112       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
9113       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
9114       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
9115       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
9116       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9117 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
9118 \textcolor{keyword}{  end interface}
9119   \textcolor{keyword}{interface}
9120 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
9121       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
9122       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
9123       \textcolor{keywordtype}{character(STRING)}:: result
9124 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
9125 \textcolor{keyword}{  end interface}
9126   \textcolor{keywordflow}{continue}
9127   file\_work = file
9128   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
9129     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
9130   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
9131     & url = url, &
9132     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
9133   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
9134     & fullname = url, iorange = iorange, remainder = remainder )
9135   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
9136   timevar\_name = carray(1)
9137   \textcolor{keyword}{deallocate}( carray )
9138   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
9139   \textcolor{keyword}{call }\hyperlink{historyget_8f90_aced50d9b718f70a1dea263072a8966fc}{historygetreal7pointer}( file = file, &
9140     & varname = varname, array = array, &
9141     & range = time\_range, quiet = quiet, &
9142     & flag\_mpi\_split = flag\_mpi\_split, &
9143     & returned\_time = returned\_time, &
9144     & flag\_time\_exist = flag\_time\_exist, &
9145     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a2f550f1e34875ce073aeb2a41e955025_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a6168514b787b5e79784ab22977e1ac3b}\label{historyget_8f90_a6168514b787b5e79784ab22977e1ac3b}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7timed@{historygetreal7timed}}
\index{historygetreal7timed@{historygetreal7timed}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7timed()}{historygetreal7timed()}}
{\footnotesize\ttfamily subroutine historygetreal7timed (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(dp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 12114 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
12114   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
12115   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12116   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
12117   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
12118   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
12119   \textcolor{keywordtype}{implicit none}
12120   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
12121   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
12122   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12123   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
12124   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12125   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12126   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12127   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12128   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
12129   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
12130   \textcolor{keywordtype}{character(STRING)}:: tname
12131   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeD"}
12132   \textcolor{keyword}{interface}
12133 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}(&
12134       & file, varname, array, range, quiet, &
12135       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
12136       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
12137       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12138       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12139       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12140       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
12141       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
12142       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
12143       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12144       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12145       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
12146 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}
12147 \textcolor{keyword}{  end interface}
12148   \textcolor{keyword}{interface}
12149 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
12150       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12151       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
12152       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
12153       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
12154       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
12155       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
12156       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12157 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
12158 \textcolor{keyword}{  end interface}
12159   \textcolor{keyword}{interface}
12160 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
12161       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
12162       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
12163       \textcolor{keywordtype}{character(STRING)}:: result
12164 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
12165 \textcolor{keyword}{  end interface}
12166   \textcolor{keywordflow}{continue}
12167   file\_work = file
12168   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
12169     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
12170   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
12171     & url = url, &
12172     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
12173   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
12174     & fullname = url, iorange = iorange, remainder = remainder )
12175   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
12176   timevar\_name = carray(1)
12177   \textcolor{keyword}{deallocate}( carray )
12178   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
12179   \textcolor{keyword}{call }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}( file = file, &
12180     & varname = varname, array = array, &
12181     & range = time\_range, quiet = quiet, &
12182     & flag\_mpi\_split = flag\_mpi\_split, &
12183     & returned\_time = returned\_time, &
12184     & flag\_time\_exist = flag\_time\_exist, &
12185     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a6168514b787b5e79784ab22977e1ac3b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a7ccb971b6ca191d22ff979725aaa19a0}\label{historyget_8f90_a7ccb971b6ca191d22ff979725aaa19a0}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7timei@{historygetreal7timei}}
\index{historygetreal7timei@{historygetreal7timei}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7timei()}{historygetreal7timei()}}
{\footnotesize\ttfamily subroutine historygetreal7timei (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{integer, intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 15762 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
15762   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
15763   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15764   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
15765   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
15766   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
15767   \textcolor{keywordtype}{implicit none}
15768   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
15769   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: time
15770   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15771   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
15772   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15773   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15774   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15775   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15776   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
15777   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
15778   \textcolor{keywordtype}{character(STRING)}:: tname
15779   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeI"}
15780   \textcolor{keyword}{interface}
15781 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}(&
15782       & file, varname, array, range, quiet, &
15783       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
15784       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
15785       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15786       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15787       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15788       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
15789       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
15790       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
15791       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15792       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15793       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
15794 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}
15795 \textcolor{keyword}{  end interface}
15796   \textcolor{keyword}{interface}
15797 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
15798       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15799       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
15800       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
15801       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
15802       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
15803       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
15804       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
15805 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
15806 \textcolor{keyword}{  end interface}
15807   \textcolor{keyword}{interface}
15808 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
15809       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
15810       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
15811       \textcolor{keywordtype}{character(STRING)}:: result
15812 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
15813 \textcolor{keyword}{  end interface}
15814   \textcolor{keywordflow}{continue}
15815   file\_work = file
15816   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
15817     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
15818   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
15819     & url = url, &
15820     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
15821   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
15822     & fullname = url, iorange = iorange, remainder = remainder )
15823   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
15824   timevar\_name = carray(1)
15825   \textcolor{keyword}{deallocate}( carray )
15826   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
15827   \textcolor{keyword}{call }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}( file = file, &
15828     & varname = varname, array = array, &
15829     & range = time\_range, quiet = quiet, &
15830     & flag\_mpi\_split = flag\_mpi\_split, &
15831     & returned\_time = returned\_time, &
15832     & flag\_time\_exist = flag\_time\_exist, &
15833     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a7ccb971b6ca191d22ff979725aaa19a0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a848afb4289567c64ab53cc348eea7bfe}\label{historyget_8f90_a848afb4289567c64ab53cc348eea7bfe}} 
\index{historyget.\+f90@{historyget.\+f90}!historygetreal7timer@{historygetreal7timer}}
\index{historygetreal7timer@{historygetreal7timer}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{historygetreal7timer()}{historygetreal7timer()}}
{\footnotesize\ttfamily subroutine historygetreal7timer (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(out)}]{array,  }\item[{real(sp), intent(in)}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{real(dp), intent(out), optional}]{returned\+\_\+time,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 8466 of file historyget.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+equal, historygetreal7(), lookup\+\_\+growable\+\_\+url(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::sp, dc\+\_\+types\+::string, and dc\+\_\+url\+::url\+\_\+chop\+\_\+iorange().


\begin{DoxyCode}
8466   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1split}{split}
8467   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8468   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
8469   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
8470   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
8471   \textcolor{keywordtype}{implicit none}
8472   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file, varname
8473   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: time
8474   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8475   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
8476   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8477   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8478   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8479   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8480   \textcolor{keywordtype}{character(STRING)}:: file\_work, url, iorange, remainder, timevar\_name, time\_range
8481   \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: carray (:)
8482   \textcolor{keywordtype}{character(STRING)}:: tname
8483   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"HistoryGetReal7TimeR"}
8484   \textcolor{keyword}{interface}
8485 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}(&
8486       & file, varname, array, range, quiet, &
8487       & flag\_mpi\_split, returned\_time, flag\_time\_exist, err)
8488       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
8489       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8490       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8491       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8492       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
8493       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
8494       \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: returned\_time
8495       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8496       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8497       \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(out)} :: array(:,:,:,:,:,:,:)
8498 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}
8499 \textcolor{keyword}{  end interface}
8500   \textcolor{keyword}{interface}
8501 \textcolor{keyword}{    subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file, varname, url, range, flag\_time\_exist,
       time\_name, err)
8502       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8503       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
8504       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: url
8505       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
8506       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist
8507       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name
8508       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8509 \textcolor{keyword}{    end subroutine }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}
8510 \textcolor{keyword}{  end interface}
8511   \textcolor{keyword}{interface}
8512 \textcolor{keyword}{    function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
8513       \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
8514       \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
8515       \textcolor{keywordtype}{character(STRING)}:: result
8516 \textcolor{keyword}{    end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
8517 \textcolor{keyword}{  end interface}
8518   \textcolor{keywordflow}{continue}
8519   file\_work = file
8520   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
8521     & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
8522   \textcolor{keyword}{call }\hyperlink{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}{lookup\_growable\_url}(file = file\_work, varname = varname, &
8523     & url = url, &
8524     & flag\_time\_exist = flag\_time\_exist, time\_name = tname, err = err)
8525   \textcolor{keyword}{call }\hyperlink{namespacedc__url_a6e8628cb51802dea9310a52cb051f63f}{url\_chop\_iorange}( &
8526     & fullname = url, iorange = iorange, remainder = remainder )
8527   \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1split}{split}( str = iorange, carray = carray, sep = \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} )
8528   timevar\_name = carray(1)
8529   \textcolor{keyword}{deallocate}( carray )
8530   time\_range = trim(timevar\_name) // \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal} // trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(time))
8531   \textcolor{keyword}{call }\hyperlink{historyget_8f90_afb61d83265b6c49982c52db9048bbec1}{historygetreal7}( file = file, &
8532     & varname = varname, array = array, &
8533     & range = time\_range, quiet = quiet, &
8534     & flag\_mpi\_split = flag\_mpi\_split, &
8535     & returned\_time = returned\_time, &
8536     & flag\_time\_exist = flag\_time\_exist, &
8537     & err = err )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a848afb4289567c64ab53cc348eea7bfe_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}\label{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24}} 
\index{historyget.\+f90@{historyget.\+f90}!lookup\+\_\+growable\+\_\+url@{lookup\+\_\+growable\+\_\+url}}
\index{lookup\+\_\+growable\+\_\+url@{lookup\+\_\+growable\+\_\+url}!historyget.\+f90@{historyget.\+f90}}
\subsubsection{\texorpdfstring{lookup\+\_\+growable\+\_\+url()}{lookup\_growable\_url()}}
{\footnotesize\ttfamily subroutine lookup\+\_\+growable\+\_\+url (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(out)}]{url,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{logical, intent(out), optional}]{flag\+\_\+time\+\_\+exist,  }\item[{character($\ast$), intent(out), optional}]{time\+\_\+name,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 17664 of file historyget.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+circumflex, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+ebadgt4commagraphy, dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::gt\+\_\+enounlimitdim, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+regex\+::match(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historygetdouble0(), historygetdouble0pointer(), historygetdouble0pointertimed(), historygetdouble0pointertimei(), historygetdouble0pointertimer(), historygetdouble0timed(), historygetdouble0timei(), historygetdouble0timer(), historygetdouble1(), historygetdouble1pointer(), historygetdouble1pointertimed(), historygetdouble1pointertimei(), historygetdouble1pointertimer(), historygetdouble1timed(), historygetdouble1timei(), historygetdouble1timer(), historygetdouble2(), historygetdouble2pointer(), historygetdouble2pointertimed(), historygetdouble2pointertimei(), historygetdouble2pointertimer(), historygetdouble2timed(), historygetdouble2timei(), historygetdouble2timer(), historygetdouble3(), historygetdouble3pointer(), historygetdouble3pointertimed(), historygetdouble3pointertimei(), historygetdouble3pointertimer(), historygetdouble3timed(), historygetdouble3timei(), historygetdouble3timer(), historygetdouble4(), historygetdouble4pointer(), historygetdouble4pointertimed(), historygetdouble4pointertimei(), historygetdouble4pointertimer(), historygetdouble4timed(), historygetdouble4timei(), historygetdouble4timer(), historygetdouble5(), historygetdouble5pointer(), historygetdouble5pointertimed(), historygetdouble5pointertimei(), historygetdouble5pointertimer(), historygetdouble5timed(), historygetdouble5timei(), historygetdouble5timer(), historygetdouble6(), historygetdouble6pointer(), historygetdouble6pointertimed(), historygetdouble6pointertimei(), historygetdouble6pointertimer(), historygetdouble6timed(), historygetdouble6timei(), historygetdouble6timer(), historygetdouble7(), historygetdouble7pointer(), historygetdouble7pointertimed(), historygetdouble7pointertimei(), historygetdouble7pointertimer(), historygetdouble7timed(), historygetdouble7timei(), historygetdouble7timer(), historygetint0(), historygetint0pointer(), historygetint0pointertimed(), historygetint0pointertimei(), historygetint0pointertimer(), historygetint0timed(), historygetint0timei(), historygetint0timer(), historygetint1(), historygetint1pointer(), historygetint1pointertimed(), historygetint1pointertimei(), historygetint1pointertimer(), historygetint1timed(), historygetint1timei(), historygetint1timer(), historygetint2(), historygetint2pointer(), historygetint2pointertimed(), historygetint2pointertimei(), historygetint2pointertimer(), historygetint2timed(), historygetint2timei(), historygetint2timer(), historygetint3(), historygetint3pointer(), historygetint3pointertimed(), historygetint3pointertimei(), historygetint3pointertimer(), historygetint3timed(), historygetint3timei(), historygetint3timer(), historygetint4(), historygetint4pointer(), historygetint4pointertimed(), historygetint4pointertimei(), historygetint4pointertimer(), historygetint4timed(), historygetint4timei(), historygetint4timer(), historygetint5(), historygetint5pointer(), historygetint5pointertimed(), historygetint5pointertimei(), historygetint5pointertimer(), historygetint5timed(), historygetint5timei(), historygetint5timer(), historygetint6(), historygetint6pointer(), historygetint6pointertimed(), historygetint6pointertimei(), historygetint6pointertimer(), historygetint6timed(), historygetint6timei(), historygetint6timer(), historygetint7(), historygetint7pointer(), historygetint7pointertimed(), historygetint7pointertimei(), historygetint7pointertimer(), historygetint7timed(), historygetint7timei(), historygetint7timer(), historygetreal0(), historygetreal0pointer(), historygetreal0pointertimed(), historygetreal0pointertimei(), historygetreal0pointertimer(), historygetreal0timed(), historygetreal0timei(), historygetreal0timer(), historygetreal1(), historygetreal1pointer(), historygetreal1pointertimed(), historygetreal1pointertimei(), historygetreal1pointertimer(), historygetreal1timed(), historygetreal1timei(), historygetreal1timer(), historygetreal2(), historygetreal2pointer(), historygetreal2pointertimed(), historygetreal2pointertimei(), historygetreal2pointertimer(), historygetreal2timed(), historygetreal2timei(), historygetreal2timer(), historygetreal3(), historygetreal3pointer(), historygetreal3pointertimed(), historygetreal3pointertimei(), historygetreal3pointertimer(), historygetreal3timed(), historygetreal3timei(), historygetreal3timer(), historygetreal4(), historygetreal4pointer(), historygetreal4pointertimed(), historygetreal4pointertimei(), historygetreal4pointertimer(), historygetreal4timed(), historygetreal4timei(), historygetreal4timer(), historygetreal5(), historygetreal5pointer(), historygetreal5pointertimed(), historygetreal5pointertimei(), historygetreal5pointertimer(), historygetreal5timed(), historygetreal5timei(), historygetreal5timer(), historygetreal6(), historygetreal6pointer(), historygetreal6pointertimed(), historygetreal6pointertimei(), historygetreal6pointertimer(), historygetreal6timed(), historygetreal6timei(), historygetreal6timer(), historygetreal7(), historygetreal7pointer(), historygetreal7pointertimed(), historygetreal7pointertimei(), historygetreal7pointertimer(), historygetreal7timed(), historygetreal7timei(), and historygetreal7timer().


\begin{DoxyCode}
17664   \textcolor{comment}{!}
17665   \textcolor{comment}{! file の変数 varname が依存する次元の内, 時間の次元}
17666   \textcolor{comment}{! (growable == .TRUE. のもの, つまり無制限次元) の変数名,}
17667   \textcolor{comment}{! およびその最後の値を取得し, gtool 変数化}
17668   \textcolor{comment}{! ("file@varname,time=10.5" みたいな) して返す.}
17669   \textcolor{comment}{!}
17670   \textcolor{comment}{! * もしも varname が次元変数である場合は「time=」を付けずに返す.}
17671   \textcolor{comment}{! * range を与えた場合, 以下のチェックを行った後, それを gtool4}
17672   \textcolor{comment}{!   変数の iorange 部分に付加する.}
17673   \textcolor{comment}{!   * range に空文字が与えられた場合, range が与えられない場合と}
17674   \textcolor{comment}{!     同じ動作をする.}
17675   \textcolor{comment}{!   * range 内に時間次元が設定されていない場合は, 自動的に}
17676   \textcolor{comment}{!     時間次元に関する iorange ("time=0.5") が指定される.}
17677   \textcolor{comment}{! * 数値のみの文字列 (例: "20", "10.354") が与えられる場合,}
17678   \textcolor{comment}{!   エラーを生じる.}
17679   \textcolor{comment}{!}
17680   \textcolor{comment}{! *flag\_time\_exist* が与えられる場合には, 得られるデータに}
17681   \textcolor{comment}{! 時刻次元が含まれる場合には .true. を, 含まれない場合は}
17682   \textcolor{comment}{! .false. を返す.}
17683   \textcolor{comment}{! *time\_name* が与えられる場合には, 得られるデータに}
17684   \textcolor{comment}{! 時刻次元が含まれる場合にはその時刻次元変数名を,}
17685   \textcolor{comment}{! 含まれない場合には空文字を返す.}
17686   \textcolor{comment}{!}
17687   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
17688   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}, \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}
17689   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}, 
      \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
17690   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
17691   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,  only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a3a136965e6eb8f15555ac1a6cf0c4c5d}{gt\_enounlimitdim}, &
17692     & nf90\_einval, \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a91bea9a5a37c80117406873ef7408d45}{gt\_ebadgt4commagraphy}
17693   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_adf1b8d55d944dc6510d8ba57d54bc168}{gt\_circumflex}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}
17694   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{interfacedc__url_1_1urlsearchiorange}{urlsearchiorange}
17695   \textcolor{keywordtype}{use }\hyperlink{namespacedc__regex}{dc\_regex}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}
17696   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
17697   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
17698   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: file           \textcolor{comment}{! ファイル名}
17699   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)} :: varname        \textcolor{comment}{! 変数名}
17700   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)} :: url           \textcolor{comment}{! gtool変数化した文字列}
17701   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range \textcolor{comment}{! 範囲限定や一点切り出し指定}
17702   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: flag\_time\_exist \textcolor{comment}{! 時刻次元の存在の有無}
17703   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_name  \textcolor{comment}{! 時刻次元の名称}
17704   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err      \textcolor{comment}{! エラーのフラグ}
17705   \textcolor{comment}{!}
17706   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable})                       :: var
17707   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{allocatable}          :: dimvar(:)
17708   \textcolor{keywordtype}{character(STRING)} :: time\_url, tname, time\_iorange
17709   \textcolor{keywordtype}{character(STRING)} :: iorange, cause\_c
17710   \textcolor{keywordtype}{logical}:: growable, nounlimited
17711   \textcolor{keywordtype}{integer}:: allcount, timecount, nd, i, stat
17712   \textcolor{keywordtype}{integer}:: regex\_stat, regex\_len
17713   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{"lookup\_growable\_url"}
17714 \textcolor{keywordflow}{continue}
17715   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'<file=%c varname=%c range=%c>'}, &
17716     & c1=trim(file), c2=trim(varname), &
17717     & c3=trim(\hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, \textcolor{stringliteral}{'no-range'}, range)))
17718   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
17719   cause\_c = \textcolor{stringliteral}{""}
17720   url = \textcolor{stringliteral}{""}
17721   \textcolor{comment}{! 引数の正当性をチェック}
17722   \textcolor{keywordflow}{if} (.not. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(file)) \textcolor{keywordflow}{then}
17723     stat = nf90\_einval
17724     cause\_c = \textcolor{stringliteral}{'"file" is not specified'}
17725     \textcolor{keywordflow}{goto} 999
17726   \textcolor{keywordflow}{elseif} (.not. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(varname)) \textcolor{keywordflow}{then}
17727     stat = nf90\_einval
17728     cause\_c = \textcolor{stringliteral}{'"varname" is not specified'}
17729     \textcolor{keywordflow}{goto} 999
17730 \textcolor{keywordflow}{  end if}
17731   \textcolor{comment}{! 時刻次元の変数名, およびその最終時刻の}
17732   \textcolor{comment}{! 探査のために file@varname を open (まだデータを取得しない)}
17733   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file, varname), err = err)
17734   \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
17735     stat = \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}
17736     \textcolor{keywordflow}{goto} 999
17737 \textcolor{keywordflow}{  end if}
17738   \textcolor{comment}{! 次元の数を取得}
17739   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var=var, alldims=nd)
17740   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ alldims = %d'}, i=(/nd/))
17741   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(dimvar)) \textcolor{keywordflow}{then}
17742     \textcolor{keyword}{deallocate}(dimvar)
17743 \textcolor{keywordflow}{  end if}
17744   \textcolor{keyword}{allocate}(dimvar(nd))
17745   \textcolor{comment}{!}
17746   \textcolor{comment}{! 変数が無制限変数を持たない場合, もしくは変数自体が}
17747   \textcolor{comment}{! 無制限次元変数である場合には, それに関する iorange を}
17748   \textcolor{comment}{! 付けないで返すよう, フラグを立てる.}
17749   \textcolor{comment}{! それ以外は .false. にする.}
17750   nounlimited = .true.
17751   \textcolor{comment}{!}
17752   \textcolor{comment}{! 各次元毎に情報を取得し, growable == .TRUE. のもの (つまりは時間)}
17753   \textcolor{comment}{! の変数名 (tname) を取得する.}
17754   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'[%c: growable-dim-search]'}, c1=trim(subname))
17755   tname = \textcolor{stringliteral}{''}
17756   \textcolor{keywordflow}{do}, i = 1, nd
17757     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}(var = dimvar(i), &        \textcolor{comment}{! (out)}
17758       & source\_var = var, dimord = i, & \textcolor{comment}{! (in)}
17759       & count\_compact = .true., &       \textcolor{comment}{! (in)}
17760       & err = err)                      \textcolor{comment}{! (out) optional}
17761     \textcolor{comment}{! まずは変数入り gtool4 変数を time\_url に取得}
17762     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var = dimvar(i), &           \textcolor{comment}{! (in)}
17763       & growable = growable, &                \textcolor{comment}{! (out)}
17764       & allcount = allcount, url = time\_url)  \textcolor{comment}{! (out)}
17765     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'  [dim=d>: growable=<%y>: url=<%c>]'}, &
17766       &  i = (/i/), l = (/growable/), c1 = trim(time\_url))
17767     \textcolor{comment}{! 変数部分だけ分離}
17768     \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = time\_url, & \textcolor{comment}{! (in)}
17769       &            var = tname)           \textcolor{comment}{! (out)}
17770     \textcolor{comment}{! 無制限次元で, かつ開こうとする変数自体が無制限次元でない場合}
17771     \textcolor{comment}{!}
17772     \textcolor{keywordflow}{if} ( growable .and. trim(tname) /= trim(varname) ) \textcolor{keywordflow}{then}
17773       \textcolor{comment}{! 総数 = 最後の数を timecount に}
17774       \textcolor{comment}{!}
17775       timecount = allcount
17776       nounlimited = .false.
17777 \textcolor{keywordflow}{    endif}
17778     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(dimvar(i))
17779     \textcolor{comment}{! 時刻次元が見つかった場合にはループを抜ける}
17780     \textcolor{comment}{!}
17781     \textcolor{keywordflow}{if} ( .not. nounlimited ) \textcolor{keywordflow}{then}
17782       \textcolor{keywordflow}{exit}
17783     \textcolor{comment}{! 時刻次元ではない場合, tname を空に}
17784     \textcolor{comment}{!}
17785     \textcolor{keywordflow}{else}
17786       tname = \textcolor{stringliteral}{''}
17787 \textcolor{keywordflow}{    end if}
17788 \textcolor{keywordflow}{  end do}
17789   \textcolor{comment}{! 探査を終了したので閉じる}
17790   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}(var)
17791   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{then}
17792     \textcolor{keywordflow}{goto} 999
17793 \textcolor{keywordflow}{  end if}
17794   \textcolor{comment}{! 時刻次元名を返す}
17795   \textcolor{comment}{!}
17796   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(time\_name) ) time\_name = tname
17797   \textcolor{comment}{! 時刻部分の iorange を作成しておく.}
17798   \textcolor{comment}{! 格子点情報で取得されているので, 頭に "^" を付加する.}
17799   \textcolor{keywordflow}{if} (nounlimited) \textcolor{keywordflow}{then}
17800     time\_iorange = \textcolor{stringliteral}{''}
17801     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(flag\_time\_exist) ) flag\_time\_exist = .false.
17802 \textcolor{comment}{!!$    if ( present(returned\_time) ) returned\_time = 0.}
17803   \textcolor{keywordflow}{else}
17804     time\_iorange = trim(tname) // gt\_equal // &
17805       & gt\_circumflex // adjustl(\hyperlink{interfacedc__string_1_1tochar}{tochar}(timecount))
17806     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(flag\_time\_exist) ) flag\_time\_exist = .true.
17807 \textcolor{comment}{!!$    if ( present(returned\_time) ) then}
17808 \textcolor{comment}{!!$      returned\_time =}
17809 \textcolor{comment}{!!$    end if}
17810 \textcolor{keywordflow}{  end if}
17811   \textcolor{comment}{! iorange を指定する.}
17812   \textcolor{comment}{! 時刻に関しては, range が存在しない場合には}
17813   \textcolor{comment}{! 自動取得した最後の時刻を付加する.}
17814   \textcolor{comment}{! range が存在する場合, "=" が含まれなければ, gtool4 のコンマ記法}
17815   \textcolor{comment}{! として不適切としてエラーを生じる.}
17816   \textcolor{comment}{! "=" が含まれる場合, iorange としてそのまま iorange になる.}
17817   \textcolor{comment}{! ただし, その iorange に時刻次元が含まれない場合,}
17818   \textcolor{comment}{! やはり先ほど自動取得した値が付加される.}
17819   \textcolor{comment}{! 当然, 時刻次元が存在しない場合には付加しない.}
17820   \textcolor{keywordflow}{if} (.not. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range)) \textcolor{keywordflow}{then}
17821     iorange = time\_iorange
17822   \textcolor{keywordflow}{else}
17823     \textcolor{comment}{! range がコンマ記法になっているか, "=" があるかどうかで調べる}
17824     \textcolor{keyword}{call }\hyperlink{namespacedc__regex_abc5c6d1c941d8689bdf6e32a6b919b25}{match}(gt\_equal, range, regex\_len, regex\_stat)
17825     \textcolor{comment}{! コンマ記法になってない場合は無制限次元の値と判定}
17826     \textcolor{keywordflow}{if} (regex\_stat < 0) \textcolor{keywordflow}{then}
17827       cause\_c = range
17828       stat = \hyperlink{namespacedc__error_a91bea9a5a37c80117406873ef7408d45}{gt\_ebadgt4commagraphy}
17829       \textcolor{keywordflow}{goto} 999
17830 \textcolor{comment}{!!$      iorange = trim(tname) // GT\_EQUAL // adjustl(range)}
17831     \textcolor{keywordflow}{else}
17832       \textcolor{comment}{! コンマ記法になっている場合, まずその中に無制限次元が}
17833       \textcolor{comment}{! 存在しているか調べ, 存在してない場合のみ time\_iorange を}
17834       \textcolor{comment}{! 付加する.}
17835       \textcolor{keywordflow}{if} (trim(\hyperlink{interfacedc__url_1_1urlsearchiorange}{urlsearchiorange}(range, tname)) /= \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
17836         iorange = range
17837       \textcolor{keywordflow}{else}
17838         \textcolor{keywordflow}{if} (trim(time\_iorange) /= \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
17839           iorange = range // gt\_comma // time\_iorange
17840         \textcolor{keywordflow}{else}
17841           iorange = range
17842 \textcolor{keywordflow}{        end if}
17843 \textcolor{keywordflow}{      end if}
17844 \textcolor{keywordflow}{    end if}
17845 \textcolor{keywordflow}{  endif}
17846   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'@ iorange=%c'}, c1=trim(iorange))
17847   \textcolor{comment}{! file, varname, iorange を gtool変数化}
17848   \textcolor{comment}{! (「file@varname,time=10.5」のように)}
17849   url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file, varname, \textcolor{stringliteral}{''}, iorange)
17850 999 \textcolor{keywordflow}{continue}
17851   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
17852   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname, \textcolor{stringliteral}{'<url=%c>'}, c1=trim(url))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyget_8f90_a1d1e9f8e274ab0b7722249300b321c24_cgraph}
\end{center}
\end{figure}
