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


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncfileinquirename_8f90_abfd982ec7f7507d4bcbb5352dea1fe09}\label{gdncfileinquirename_8f90_abfd982ec7f7507d4bcbb5352dea1fe09}} 
\index{gdncfileinquirename.\+f90@{gdncfileinquirename.\+f90}!gdncfileinquirename@{gdncfileinquirename}}
\index{gdncfileinquirename@{gdncfileinquirename}!gdncfileinquirename.\+f90@{gdncfileinquirename.\+f90}}
\subsubsection{\texorpdfstring{gdncfileinquirename()}{gdncfileinquirename()}}
{\footnotesize\ttfamily subroutine gdncfileinquirename (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{fileid,  }\item[{character(len = $\ast$), intent(out)}]{name }\end{DoxyParamCaption})}



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



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


\begin{DoxyCode}
2   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__types}{gtdata\_netcdf\_file\_types}\textcolor{keywordtype}{, only}: gd\_nc\_file\_id\_entry
3   \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}
4   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_enotnc
5   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
6   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub, dbgmessage
7   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: fileid
8   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: name
9   \textcolor{keywordtype}{type}(gd\_nc\_file\_id\_entry), \textcolor{keywordtype}{pointer}:: identptr
10   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcFileName"}
11   \textcolor{keywordflow}{continue}
12   \textcolor{keyword}{call }beginsub(subname, \textcolor{stringliteral}{'fileid=%d'}, i=(/fileid/))
13   \textcolor{keywordflow}{if} (.not. \hyperlink{namespacegtdata__netcdf__file__internal_ad13ad75c1b2a9be6fd6f67d457dd710f}{id\_used}) \textcolor{keywordflow}{goto} 999
14   identptr => \hyperlink{namespacegtdata__netcdf__file__internal_adc425214d1fe0c8803e7b91f0d2074f8}{id\_head}
15   \textcolor{keywordflow}{do}
16     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(identptr)) \textcolor{keywordflow}{exit}
17     \textcolor{keywordflow}{if} (identptr % id == fileid) \textcolor{keywordflow}{then}
18       name = identptr % filename
19       \textcolor{keyword}{call }endsub(subname, \textcolor{stringliteral}{'name=<%c>'}, c1=trim(name))
20       \textcolor{keywordflow}{return}
21 \textcolor{keywordflow}{    endif}
22     identptr => identptr % next
23 \textcolor{keywordflow}{  enddo}
24 999 \textcolor{keywordflow}{continue}
25   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(nf90\_enotnc, subname)
26   \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]{gdncfileinquirename_8f90_abfd982ec7f7507d4bcbb5352dea1fe09_cgraph}
\end{center}
\end{figure}
