\hypertarget{interfacegtool__historyauto__internal_1_1hstfilecreate}{}\section{gtool\+\_\+historyauto\+\_\+internal\+:\+:hstfilecreate Interface Reference}
\label{interfacegtool__historyauto__internal_1_1hstfilecreate}\index{gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate@{gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacegtool__historyauto__internal_1_1hstfilecreate_adcefb38e85f298f23f51861ebf466cb8}{hstfilecreate} (gthist, varname, time)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


Definition at line 345 of file gtool\+\_\+historyauto\+\_\+internal.\+f90.



\subsection{Constructor \& Destructor Documentation}
\mbox{\Hypertarget{interfacegtool__historyauto__internal_1_1hstfilecreate_adcefb38e85f298f23f51861ebf466cb8}\label{interfacegtool__historyauto__internal_1_1hstfilecreate_adcefb38e85f298f23f51861ebf466cb8}} 
\index{gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate@{gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate}!hstfilecreate@{hstfilecreate}}
\index{hstfilecreate@{hstfilecreate}!gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate@{gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate}}
\subsubsection{\texorpdfstring{hstfilecreate()}{hstfilecreate()}}
{\footnotesize\ttfamily subroutine gtool\+\_\+historyauto\+\_\+internal\+::hstfilecreate\+::hstfilecreate (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history), intent(inout)}]{gthist,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(in)}]{time }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 625 of file gtool\+\_\+historyauto\+\_\+internal.\+f90.


\begin{DoxyCode}
625     \textcolor{comment}{!}
626     \textcolor{comment}{! ファイル作成用内部サブルーチン}
627     \textcolor{comment}{!}
628     \textcolor{comment}{! Internal subroutine for creation of files}
629     \textcolor{comment}{!}
630     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
631     \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_a30736dc67a0d547ad912a1373fcedcbb}{hst\_ebadvarname}, &
632       & \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}, \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
633     \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar}{dc\_calendar}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}
634     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
635     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
636     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}, \hyperlink{interfacedc__string_1_1strinclude}{strinclude}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, 
      \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
637     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
638     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__generic}{gtool\_history\_nmlinfo\_generic}\textcolor{keywordtype}{, only}: &
639       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfooutputvalid}{hstnmlinfooutputvalid}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}, 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoputline}{hstnmlinfoputline}
640     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, &
641       & \hyperlink{interfacegtool__history__generic_1_1historycreate}{historycreate}, \hyperlink{interfacegtool__history__generic_1_1historyaddvariable}{historyaddvariable}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaddattr}{historyaddattr}, &
642       & \hyperlink{interfacegtool__history__generic_1_1historyinitialized}{historyinitialized}, \hyperlink{interfacegtool__history__generic_1_1historyput}{historyput}, 
      \hyperlink{interfacegtool__history__generic_1_1historyputaxismpi}{historyputaxismpi}, &
643       & \hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}, \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxiscopy}{historyaxiscopy}, &
644       & \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}, \hyperlink{interfacegtool__history__generic_1_1historyvarinfocreate}{historyvarinfocreate}, &
645       & \hyperlink{interfacegtool__history__generic_1_1historyvarinfocopy}{historyvarinfocopy}, \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinitialized}{historyvarinfoinitialized}, &
646       & \hyperlink{interfacegtool__history__generic_1_1historyvarinfoclear}{historyvarinfoclear}
647 
648     \textcolor{keywordtype}{implicit none}
649     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}:: gthist
650                               \textcolor{comment}{! gtool\_history モジュール用構造体.}
651                               \textcolor{comment}{! Derived type for "gtool\_history" module}
652     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
653                               \textcolor{comment}{! 変数の名前.}
654                               \textcolor{comment}{! Variable name}
655     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: time
656                               \textcolor{comment}{! 現在時刻. Current time}
657 
658     \textcolor{keywordtype}{character(TOKEN)}:: interval\_unit
659                               \textcolor{comment}{! データの出力間隔の単位.}
660                               \textcolor{comment}{! Unit for interval of history data output}
661     \textcolor{keywordtype}{real(DP)}:: origin\_value
662                               \textcolor{comment}{! データの出力開始時刻の数値.}
663                               \textcolor{comment}{! Numerical value for start time of history data output}
664     \textcolor{keywordtype}{character(TOKEN)}:: origin\_unit
665                               \textcolor{comment}{! データの出力開始時刻の単位.}
666                               \textcolor{comment}{! Unit for start time of history data output}
667 
668     \textcolor{keywordtype}{real(DP)}:: origin\_sec
669     \textcolor{keywordtype}{integer}:: newfile\_intvalue
670     \textcolor{keywordtype}{real(DP)}:: newfile\_intvalued
671                               \textcolor{comment}{! ファイル分割時間間隔.}
672                               \textcolor{comment}{! Interval of time of separation of a file.}
673     \textcolor{keywordtype}{character(TOKEN)}:: newfile\_intunit
674                               \textcolor{comment}{! ファイル分割時間間隔の単位.}
675                               \textcolor{comment}{! Unit of interval of time of separation of a file.}
676 
677     \textcolor{keywordtype}{character(STRING)}:: file, file\_base, file\_suffix, file\_newfile\_time, file\_rank
678                               \textcolor{comment}{! 出力ファイル名.}
679                               \textcolor{comment}{! Output file name.}
680     \textcolor{keywordtype}{integer}:: stat, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}, j, k, vnum, numdims\_slice, dim\_size, cnt
681     \textcolor{keywordtype}{character(STRING)}:: name, \hyperlink{structdc__units_1_1units}{units}, longname, cause\_c, wgt\_name
682     \textcolor{keywordtype}{character(TOKEN)}:: xtype
683     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}):: gthst\_axes\_time
684     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}), \textcolor{keywordtype}{pointer}:: gthst\_axes\_slices(:) =>null()
685     \textcolor{keywordtype}{type}(\hyperlink{structgtool__historyauto__internal_1_1gt__history__axis__data}{gt\_history\_axis\_data}), \textcolor{keywordtype}{pointer}:: data\_axes\_slices(:) =>null()
686     \textcolor{keywordtype}{type}(\hyperlink{structgtool__historyauto__internal_1_1gt__history__axis__data}{gt\_history\_axis\_data}), \textcolor{keywordtype}{pointer}:: data\_weights\_slices(:) =>null()
687     \textcolor{keywordtype}{real(DP)}:: wgt\_sum, wgt\_sum\_s
688     \textcolor{keywordtype}{logical}:: slice\_valid
689     \textcolor{keywordtype}{integer}:: slice\_start(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1)
690                               \textcolor{comment}{! 空間方向の開始点.}
691                               \textcolor{comment}{! Start points of spaces.}
692     \textcolor{keywordtype}{integer}:: slice\_end(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1)
693                               \textcolor{comment}{! 空間方向の終了点.}
694                               \textcolor{comment}{! End points of spaces.}
695     \textcolor{keywordtype}{integer}:: slice\_stride(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1)
696                               \textcolor{comment}{! 空間方向の刻み幅.}
697                               \textcolor{comment}{! Strides of spaces}
698 
699     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HstFileCreate"}
700   \textcolor{keywordflow}{continue}
701     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%c'}, c1 = trim(varname) )
702     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
703     cause\_c = \textcolor{stringliteral}{""}
704 
705     \textcolor{comment}{! varname から変数情報の探査}
706     \textcolor{comment}{! Search information of a variable from "varname"}
707     \textcolor{comment}{!}
708     vnum = 0
709     \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, numvars
710       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
711         & varinfo = gthst\_vars(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (in)}
712         & name = name )               \textcolor{comment}{! (out)}
713       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) vnum = \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}
714 \textcolor{keywordflow}{    end do}
715 
716     \textcolor{keywordflow}{if} ( vnum == 0 ) \textcolor{keywordflow}{then}
717       stat = \hyperlink{namespacedc__error_a30736dc67a0d547ad912a1373fcedcbb}{hst\_ebadvarname}
718       cause\_c = varname
719       \textcolor{keywordflow}{goto} 999
720 \textcolor{keywordflow}{    end if}
721 
722     \textcolor{comment}{! 出力が有効かどうかを確認する}
723     \textcolor{comment}{! Confirm whether the output is effective}
724     \textcolor{comment}{!}
725     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfooutputvalid}{hstnmlinfooutputvalid}( gthstnml, varname ) ) \textcolor{keywordflow}{then}
726       \textcolor{keywordflow}{goto} 999
727 \textcolor{keywordflow}{    end if}
728 
729     \textcolor{comment}{! 出力間隔の単位に応じて時間座標情報の作り直し}
730     \textcolor{comment}{! Remake time axis information correspond to units of output interval}
731     \textcolor{comment}{!}
732     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
733       & gthstnml = gthstnml, &                 \textcolor{comment}{! (in)}
734       & name = varname, &                      \textcolor{comment}{! (in)}
735       & file = file, &                         \textcolor{comment}{! (out)}
736       & interval\_unit  = interval\_unit )       \textcolor{comment}{! (out)}
737 
738     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscopy}{historyaxiscopy}( &
739       & gthst\_axes\_time, &     \textcolor{comment}{! (out)}
740       & \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), & \textcolor{comment}{! (in)}
741       & \hyperlink{structdc__units_1_1units}{units} = trim(interval\_unit) // \textcolor{stringliteral}{' '} // &
742       &         trim(time\_unit\_suffix) ) \textcolor{comment}{! (in)}
743 
744     \textcolor{comment}{! 空間方向のスライスに対応して, 座標および座標重み情報の作り直し}
745     \textcolor{comment}{! Remake axes and weights information correspond to spatial slices}
746     \textcolor{comment}{!}
747     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
748       & gthstnml = gthstnml, &         \textcolor{comment}{! (in)}
749       & name = varname, &              \textcolor{comment}{! (in)}
750       & slice\_start = slice\_start, &   \textcolor{comment}{! (out)}
751       & slice\_end = slice\_end, &       \textcolor{comment}{! (out)}
752       & slice\_stride = slice\_stride )  \textcolor{comment}{! (out)}
753 
754     \textcolor{comment}{! ファイルが未作成の場合は, まずファイル作成}
755     \textcolor{comment}{! At first, the file is created if the file is not created yet}
756     \textcolor{comment}{!}
757     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1historyinitialized}{historyinitialized}( gthist ) ) \textcolor{keywordflow}{then}
758 
759       \textcolor{keywordflow}{if} (       all( slice\_start  == (/ ( 1, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} -1 ) /) ) &
760         &  .and. all( slice\_end    <  (/ ( 1, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} -1 ) /) ) &
761         &  .and. all( slice\_stride == (/ ( 1, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} -1 ) /) )  ) \textcolor{keywordflow}{then}
762 
763         \textcolor{keyword}{allocate}( gthst\_axes\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) )
764         gthst\_axes\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1)     = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(1:
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1)
765         gthst\_axes\_slices(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) = gthst\_axes\_time
766 
767         data\_axes\_slices               => data\_axes
768         data\_weights\_slices            => data\_weights
769         slice\_valid = .false.
770 
771       \textcolor{keywordflow}{else}
772         \textcolor{keyword}{allocate}( gthst\_axes\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) )
773         \textcolor{keyword}{allocate}( data\_axes\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) )
774         \textcolor{keyword}{allocate}( data\_weights\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) )
775 
776         \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1
777 
778           \textcolor{comment}{! スライス値の有効性をチェック}
779           \textcolor{comment}{! Check validity of slices}
780           \textcolor{comment}{!}
781           \textcolor{keywordflow}{if} ( slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) < 1 ) \textcolor{keywordflow}{then}
782             stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
783             cause\_c = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{'slice\_start=%d'}, &
784               &         \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) /) )
785             \textcolor{keywordflow}{goto} 999
786 \textcolor{keywordflow}{          end if}
787 
788           \textcolor{keywordflow}{if} ( slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) < 1 ) \textcolor{keywordflow}{then}
789             stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
790             cause\_c = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{'slice\_stride=%d'}, &
791               &         \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) /) )
792             \textcolor{keywordflow}{goto} 999
793 \textcolor{keywordflow}{          end if}
794 
795           \textcolor{comment}{! 再生成の必要性をチェック}
796           \textcolor{comment}{! Check necessity of remaking}
797           \textcolor{comment}{!}
798           \textcolor{keywordflow}{if} (       ( slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})  == 1 ) &
799             &  .and. ( slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})    <  1 ) &
800             &  .and. ( slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) == 1 )  ) \textcolor{keywordflow}{then}
801 
802             \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscopy}{historyaxiscopy}( &
803               & axis\_dest = gthst\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) , &  \textcolor{comment}{! (out)}
804               & axis\_src  = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) )           \textcolor{comment}{! (in)}
805 
806             data\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) = data\_axes(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
807 
808             cycle
809 \textcolor{keywordflow}{          end if}
810 
811           \textcolor{comment}{! 座標情報の再生成}
812           \textcolor{comment}{! Remake information of axis}
813           \textcolor{comment}{!}
814           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
815             & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (in)}
816             & name = name, &           \textcolor{comment}{! (out)}
817             & \textcolor{keyword}{size} = dim\_size, &       \textcolor{comment}{! (out)}
818             & longname = longname, &   \textcolor{comment}{! (out)}
819             & \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}, &         \textcolor{comment}{! (out)}
820             & xtype = xtype )          \textcolor{comment}{! (out)}
821 
822           \textcolor{comment}{! 終点のスライス値の補正 ; Correct end points of slices}
823           \textcolor{keywordflow}{if} ( slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) < 1 ) slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) = dim\_size
824           \textcolor{keywordflow}{if} ( slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) > dim\_size ) \textcolor{keywordflow}{then}
825             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
826               & \textcolor{stringliteral}{'slice options to (%c) are undesirable '} // &
827               & \textcolor{stringliteral}{'(@slice\_end=%d). @slice\_end is corrected forcibly to (%d) '}, &
828               & c1 = trim(name), &
829               & \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), dim\_size /) )
830 
831             slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) = dim\_size
832 \textcolor{keywordflow}{          end if}
833 
834           \textcolor{comment}{! スライス値の有効性をチェック ; Check validity of slices}
835           \textcolor{keywordflow}{if} ( slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) > slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) ) \textcolor{keywordflow}{then}
836             stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
837             cause\_c = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{'slice\_start=%d, slice\_end=%d'}, &
838               &         \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) /) )
839             \textcolor{keywordflow}{goto} 999
840 \textcolor{keywordflow}{          end if}
841 
842           numdims\_slice = \hyperlink{interfacedc__scaledsec_1_1int}{int}( ( slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) - slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) + 1 ) / slice\_stride(
      \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) )
843 
844           \textcolor{comment}{! スライス値の有効性をチェック ; Check validity of slices}
845           \textcolor{keywordflow}{if} ( numdims\_slice < 1 ) \textcolor{keywordflow}{then}
846             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
847               & \textcolor{stringliteral}{'slice options to (%c) are invalid. '} // &
848               & \textcolor{stringliteral}{'(@slice\_start=%d @slice\_end=%d @slice\_stride=%d)'}, &
849               & c1 = trim(name), &
850               & \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) /) )
851             stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
852             cause\_c = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{'slice\_start=%d, slice\_end=%d, slice\_stride=%d'}, &
853               &         \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) /) )
854             \textcolor{keywordflow}{goto} 999
855 \textcolor{keywordflow}{          end if}
856 
857           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}( &
858             & axis = gthst\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (out)}
859             & name = name, &                  \textcolor{comment}{! (in)}
860             & \textcolor{keyword}{size} = numdims\_slice, &         \textcolor{comment}{! (in)}
861             & longname = longname, &          \textcolor{comment}{! (in)}
862             & \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}, &                \textcolor{comment}{! (in)}
863             & xtype = xtype )                 \textcolor{comment}{! (in)}
864 
865 
866           \textcolor{comment}{! 座標データの再生成}
867           \textcolor{comment}{! Regenerate data of axis}
868           \textcolor{comment}{!}
869           \textcolor{keyword}{allocate}( data\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis( numdims\_slice ) )
870           cnt = 1
871           \textcolor{keywordflow}{do} j = slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
872             data\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis( cnt ) = data\_axes(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis( j )
873             cnt = cnt + 1
874 \textcolor{keywordflow}{          end do}
875 
876           \textcolor{comment}{! 座標重みデータの再生成}
877           \textcolor{comment}{! Remake information of axis data}
878           \textcolor{comment}{!}
879           \textcolor{keywordflow}{do} j = 1, numwgts
880             \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
881               & varinfo = gthst\_weights(j), & \textcolor{comment}{! (in)}
882               & name = wgt\_name )             \textcolor{comment}{! (out) optional}
883 
884             \textcolor{keywordflow}{if} ( trim(name) // wgtsuf == trim(wgt\_name) ) \textcolor{keywordflow}{then}
885 
886               \textcolor{comment}{! 座標重みの計算は結構いい加減...}
887               \textcolor{comment}{! Calculation about axis weight is irresponsible...}
888               \textcolor{comment}{!}
889               wgt\_sum = sum( data\_weights(j) % a\_axis )
890 
891               \textcolor{keyword}{allocate}( data\_weights\_slices(j) % a\_axis( numdims\_slice ) )
892               cnt = 1
893               \textcolor{keywordflow}{do} k = slice\_start(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_end(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), slice\_stride(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i})
894                 data\_weights\_slices(j) % a\_axis( cnt ) = data\_weights(j) % a\_axis( k )
895                 cnt = cnt + 1
896 \textcolor{keywordflow}{              end do}
897 
898               wgt\_sum\_s = sum( data\_weights\_slices(j) % a\_axis )
899               data\_weights\_slices(j) % a\_axis = data\_weights\_slices(j) % a\_axis * ( wgt\_sum / wgt\_sum\_s )
900 
901 \textcolor{keywordflow}{            end if}
902 
903 \textcolor{keywordflow}{          end do}
904 
905 \textcolor{keywordflow}{        end do}
906 
907         \textcolor{comment}{! 空間切り出しされていない座標に関する座標重みデータを作成}
908         \textcolor{comment}{! Make data of axis weight not sliced}
909         \textcolor{comment}{!}
910         \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, numwgts
911           \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( data\_weights\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) ) \textcolor{keywordflow}{then}
912             \textcolor{keyword}{allocate}( data\_weights\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis( \textcolor{keyword}{size}(data\_weights(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) ) )
913             data\_weights\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis = data\_weights(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis
914 \textcolor{keywordflow}{          end if}
915 \textcolor{keywordflow}{        end do}
916 
917         \textcolor{comment}{! 時刻次元のコピー}
918         \textcolor{comment}{! Copy time dimension}
919         \textcolor{comment}{!}
920         gthst\_axes\_slices(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) = gthst\_axes\_time
921 
922         slice\_valid = .true.
923 \textcolor{keywordflow}{      end if}
924 
925       \textcolor{comment}{! HistoryCreate のための設定値の取得}
926       \textcolor{comment}{! Get the settings for "HistoryCreate"}
927       \textcolor{comment}{!}
928       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
929         & gthstnml = gthstnml, &                 \textcolor{comment}{! (in)}
930         & name = varname, &                      \textcolor{comment}{! (in)}
931         & file = file, &                         \textcolor{comment}{! (out)}
932         & origin\_value   = origin\_value, &       \textcolor{comment}{! (out)}
933         & origin\_unit    = origin\_unit, &        \textcolor{comment}{! (out)}
934         & interval\_unit  = interval\_unit, &      \textcolor{comment}{! (out)}
935         & newfile\_intvalue = newfile\_intvalue, & \textcolor{comment}{! (out)}
936         & newfile\_intunit = newfile\_intunit )    \textcolor{comment}{! (out)}
937 
938       \textcolor{comment}{! データ出力時刻の設定}
939       \textcolor{comment}{! Configure data output time}
940       \textcolor{comment}{!}
941       origin\_sec = &
942         & \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}( &
943         &   \textcolor{keywordtype}{real( origin\_value, DP )}, origin\_unit, \textcolor{stringliteral}{'sec'}, cal\_save )
944 
945 \textcolor{comment}{!!$      ! dc\_date モジュール使用時}
946 \textcolor{comment}{!!$      !}
947 \textcolor{comment}{!!$      call DCDiffTimeCreate( &}
948 \textcolor{comment}{!!$        & origin\_sec, &           ! (out)}
949 \textcolor{comment}{!!$        & origin\_value, origin\_unit )  ! (in)}
950 
951       \textcolor{keywordflow}{if} ( newfile\_intvalue < 1 ) \textcolor{keywordflow}{then}
952 
953         origin\_value = \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}( &
954           & origin\_sec, \textcolor{stringliteral}{'sec'}, interval\_unit, cal\_save )
955 
956 \textcolor{comment}{!        origin\_value = EvalbyUnit( origin\_sec, interval\_unit )}
957       \textcolor{keywordflow}{else}
958 
959         origin\_value = &
960           & \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}( time, \textcolor{stringliteral}{'sec'}, interval\_unit, cal\_save )
961 
962 \textcolor{comment}{!        origin\_value = EvalbyUnit( time, interval\_unit )}
963 \textcolor{keywordflow}{      end if}
964 
965       \textcolor{comment}{! ファイル名の設定}
966       \textcolor{comment}{! Configure file name}
967       \textcolor{comment}{!}
968       \textcolor{keywordflow}{if} ( len\_trim( file ) - index(file, \textcolor{stringliteral}{'.nc'}, .true.) == 2 ) \textcolor{keywordflow}{then}
969         file\_base = file(1:len\_trim( file ) - 3)
970         file\_suffix = \textcolor{stringliteral}{'.nc'}
971       \textcolor{keywordflow}{else}
972         file\_base = file
973         file\_suffix = \textcolor{stringliteral}{''}
974 \textcolor{keywordflow}{      end if}
975       \textcolor{keywordflow}{if} ( trim(rank\_save) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
976         file\_rank = \textcolor{stringliteral}{''}
977       \textcolor{keywordflow}{else}
978         file\_rank = \textcolor{stringliteral}{'\_rank'} // trim( adjustl(rank\_save) )
979 \textcolor{keywordflow}{      end if}
980       \textcolor{keywordflow}{if} ( newfile\_intvalue > 0 ) \textcolor{keywordflow}{then}
981         newfile\_intvalued = &
982           & \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}( time, \textcolor{stringliteral}{'sec'}, newfile\_intunit, cal\_save )
983 
984         file\_newfile\_time = &
985           & \hyperlink{interfacedc__string_1_1cprintf}{cprintf}( \textcolor{stringliteral}{'\_time%08d'}, \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = (/ \hyperlink{interfacedc__scaledsec_1_1int}{int}( newfile\_intvalued ) /) )
986 \textcolor{comment}{!          &   i = (/ int( EvalbyUnit( time, newfile\_intunit ) ) /) )}
987       \textcolor{keywordflow}{else}
988         file\_newfile\_time = \textcolor{stringliteral}{''}
989 \textcolor{keywordflow}{      end if}
990 
991       file = trim(file\_base) // trim(file\_rank) // trim(file\_newfile\_time) // trim(file\_suffix)
992 
993       \textcolor{comment}{! HistoryCreate によるファイル作成}
994       \textcolor{comment}{! Files are created by "HistoryCreate"}
995       \textcolor{comment}{!}
996       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historycreate}{historycreate}( &
997         & history = gthist, &                                     \textcolor{comment}{! (inout)}
998         & file = file, title = title\_save, &                      \textcolor{comment}{! (in)}
999         & source = source\_save, institution = institution\_save, & \textcolor{comment}{! (in)}
1000         & axes = gthst\_axes\_slices(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &                  \textcolor{comment}{! (in)}
1001         & origind = origin\_value, &                               \textcolor{comment}{! (in)}
1002         & conventions = conventions\_save, &                       \textcolor{comment}{! (in)}
1003         & gt\_version = gt\_version\_save, &                         \textcolor{comment}{! (in)}
1004         & flag\_mpi\_split = save\_mpi\_split, &                      \textcolor{comment}{! (in)}
1005         & flag\_mpi\_gather = save\_mpi\_gather )                     \textcolor{comment}{! (in)}
1006 
1007       \textcolor{comment}{! 座標データを出力}
1008       \textcolor{comment}{! Output axes data}
1009       \textcolor{comment}{!}
1010       \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} - 1
1011         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
1012           & axis = gthst\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (in)}
1013           & name = name )                   \textcolor{comment}{! (out)}
1014         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyput}{historyput}( &
1015           & history = gthist, &                    \textcolor{comment}{! (inout) optional}
1016           & varname = name, &                      \textcolor{comment}{! (in)}
1017           & array = data\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) \textcolor{comment}{! (in)}
1018 \textcolor{keywordflow}{      end do}
1019 
1020       \textcolor{comment}{! MPI 用に領域全体の座標データを出力}
1021       \textcolor{comment}{! Output axes data in whole area for MPI}
1022       \textcolor{comment}{!}
1023       \textcolor{keywordflow}{if} ( save\_mpi\_gather ) \textcolor{keywordflow}{then}
1024         \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} - 1
1025           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
1026             & axis = gthst\_axes\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (in)}
1027             & name = name )                   \textcolor{comment}{! (out)}
1028 
1029           \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) ) \textcolor{keywordflow}{then}
1030             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1031               & \textcolor{stringliteral}{'data of axis (%c) in whole area is lack. '} // &
1032               & \textcolor{stringliteral}{'Specify the data by "HistoryAutoPutAxisMPI" explicitly.'}, &
1033               & c1 = trim(name) )
1034             stat = \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
1035             cause\_c = name
1036 \textcolor{keywordflow}{          end if}
1037 
1038           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyputaxismpi}{historyputaxismpi}( &
1039             & history = gthist, &                   \textcolor{comment}{! (inout) optional}
1040             & varname = name, &                     \textcolor{comment}{! (in)}
1041             & array = \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) \textcolor{comment}{! (in)}
1042 \textcolor{keywordflow}{        end do}
1043 \textcolor{keywordflow}{      end if}
1044 
1045       \textcolor{comment}{! 割付解除}
1046       \textcolor{comment}{! Deallocation}
1047       \textcolor{comment}{!}
1048       \textcolor{keywordflow}{if} ( slice\_valid ) \textcolor{keywordflow}{then}
1049         \textcolor{keyword}{deallocate}( gthst\_axes\_slices )
1050         \textcolor{keyword}{deallocate}( data\_axes\_slices )
1051       \textcolor{keywordflow}{else}
1052         \textcolor{keyword}{deallocate}( gthst\_axes\_slices )
1053         \textcolor{keyword}{nullify}( data\_axes\_slices )
1054 \textcolor{keywordflow}{      end if}
1055 
1056       \textcolor{comment}{! 座標重みデータを追加}
1057       \textcolor{comment}{! Add axes weights data}
1058       \textcolor{comment}{!}
1059       \textcolor{keywordflow}{do} \hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i} = 1, numwgts
1060         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaddvariable}{historyaddvariable}( &
1061           & history = gthist, &           \textcolor{comment}{! (inout)}
1062           & varinfo = gthst\_weights(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) )  \textcolor{comment}{! (in)}
1063         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
1064           & varinfo = gthst\_weights(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}), &  \textcolor{comment}{! (in)}
1065           & name = name )                  \textcolor{comment}{! (out)}
1066         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyput}{historyput}( &
1067           & history = gthist, &                       \textcolor{comment}{! (inout) optional}
1068           & varname = name, &                         \textcolor{comment}{! (in)}
1069           & array = data\_weights\_slices(\hyperlink{namespacedcunits__com_a5742752149f55f07bd09fc85d59f7319}{i}) % a\_axis ) \textcolor{comment}{! (in)}
1070 \textcolor{keywordflow}{      end do}
1071 
1072       \textcolor{keywordflow}{if} ( slice\_valid ) \textcolor{keywordflow}{then}
1073         \textcolor{keyword}{deallocate}( data\_weights\_slices )
1074       \textcolor{keywordflow}{else}
1075         \textcolor{keyword}{nullify}( data\_weights\_slices )
1076 \textcolor{keywordflow}{      end if}
1077 
1078     \textcolor{comment}{! ファイル作成おしまい; Creation of file is finished}
1079 \textcolor{keywordflow}{    end if}
1080 
1081 
1082     \textcolor{comment}{! 変数情報を追加}
1083     \textcolor{comment}{! Add information of variables}
1084     \textcolor{comment}{!}
1085     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaddvariable}{historyaddvariable}( &
1086       & varinfo = gthst\_vars(vnum), &  \textcolor{comment}{! (in)}
1087       & history = gthist )             \textcolor{comment}{! (inout) optional}
1088 
1089 999 \textcolor{keywordflow}{continue}
1090     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
1091     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
gtool/gtool\+\_\+historyauto/\hyperlink{gtool__historyauto__internal_8f90}{gtool\+\_\+historyauto\+\_\+internal.\+f90}\end{DoxyCompactItemize}
