\hypertarget{gdncfilereopen_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfilereopen.f90 File Reference}
\label{gdncfilereopen_8f90}\index{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfilereopen.\+f90@{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfilereopen.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncfilereopen_8f90_a642e55a67940177cbb599123e98ec6f1}{gdncfilereopen} (fileid, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncfilereopen_8f90_a642e55a67940177cbb599123e98ec6f1}\label{gdncfilereopen_8f90_a642e55a67940177cbb599123e98ec6f1}} 
\index{gdncfilereopen.\+f90@{gdncfilereopen.\+f90}!gdncfilereopen@{gdncfilereopen}}
\index{gdncfilereopen@{gdncfilereopen}!gdncfilereopen.\+f90@{gdncfilereopen.\+f90}}
\subsubsection{\texorpdfstring{gdncfilereopen()}{gdncfilereopen()}}
{\footnotesize\ttfamily subroutine gdncfilereopen (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{fileid,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2 of file gdncfilereopen.\+f90.



References gtdata\+\_\+netcdf\+\_\+file\+\_\+internal\+::id\+\_\+head, gtdata\+\_\+netcdf\+\_\+file\+\_\+internal\+::id\+\_\+used, and dc\+\_\+error\+::storeerror().


\begin{DoxyCode}
2   \textcolor{comment}{! 同じファイル番号の参照カウントを増加する。}
3   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__types}{gtdata\_netcdf\_file\_types}\textcolor{keywordtype}{, only}: gd\_nc\_file\_id\_entry
4   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__internal}{gtdata\_netcdf\_file\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__netcdf__file__internal_adc425214d1fe0c8803e7b91f0d2074f8}{id\_head}, 
      \hyperlink{namespacegtdata__netcdf__file__internal_ad13ad75c1b2a9be6fd6f67d457dd710f}{id\_used}
5   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_enotnc
6   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
7   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub, dbgmessage
8   \textcolor{keywordtype}{implicit none}
9   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: fileid
10   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11   \textcolor{keywordtype}{type}(gd\_nc\_file\_id\_entry), \textcolor{keywordtype}{pointer}:: identptr
12   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcFileReopen"}
13 \textcolor{keywordflow}{continue}
14   \textcolor{keyword}{call }beginsub(subname, \textcolor{stringliteral}{'file=%d'}, i=(/fileid/))
15   \textcolor{keywordflow}{if} (\hyperlink{namespacegtdata__netcdf__file__internal_ad13ad75c1b2a9be6fd6f67d457dd710f}{id\_used}) \textcolor{keywordflow}{then}
16     identptr => \hyperlink{namespacegtdata__netcdf__file__internal_adc425214d1fe0c8803e7b91f0d2074f8}{id\_head}
17     \textcolor{keywordflow}{do}
18       \textcolor{keywordflow}{if} (identptr % id == fileid) \textcolor{keywordflow}{then}
19         identptr % count = identptr % count + 1
20         \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .false.
21         \textcolor{keyword}{call }endsub(subname, \textcolor{stringliteral}{'count=%d'}, i=(/identptr % count/))
22         \textcolor{keywordflow}{return}
23 \textcolor{keywordflow}{      endif}
24       identptr => identptr % next
25       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(identptr)) \textcolor{keywordflow}{exit}
26 \textcolor{keywordflow}{    enddo}
27 \textcolor{keywordflow}{  endif}
28   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(nf90\_enotnc, \textcolor{stringliteral}{'GDNcFileReopen'}, err, cause\_i=fileid)
29   \textcolor{keyword}{call }endsub(subname, \textcolor{stringliteral}{'err'})
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncfilereopen_8f90_a642e55a67940177cbb599123e98ec6f1_cgraph}
\end{center}
\end{figure}
