Hk820309T49 netcdf_attribute.f90NETCDF_ATTRIBUTE  @ @  @   @ u NETCDFGLOBALATTRIBUTENETCDFVARIABLEATTRIBUTEo NETCDFATTRIBUTEEXISTSo NETCDFATTRIBUTEERRORu NETCDFATTRIBUTEDISPOSEu NETCDFATTRIBUTERENAMEu NETCDFATTRIBUTEDELETE u NETCDFATTRIBUTELENGTH u NETCDFATTRIBUTETYPE|NETCDFATTRIBUTEPUTCHARNETCDFATTRIBUTEPUTSTRINGNETCDFATTRIBUTEPUTINTNETCDFATTRIBUTEPUTREALNETCDFATTRIBUTECOPYVANETCDFATTRIBUTEGETSTRINGNETCDFATTRIBUTEGETINTNETCDFATTRIBUTEGETREAL @'VARNAMENC_VARIABLEVARYING_STRING&@ X FILENAMENC_ATTRIBUTE  NC_FILE 1&@ X VARNAMENC_ATTRIBUTE NC_VARIABLE 1%@ X ATTR @ANC_ATTRIBUTE%@ X ATTR @ANC_ATTRIBUTE#@ XATTR DANC_ATTRIBUTE#@ XNETCDFATTRIBUTERENAME%PRESENTATTRNEWNAMEFAILPRESENT DANC_ATTRIBUTE A1FA#@ XNETCDFATTRIBUTEDELETE%PRESENTATTRFAILPRESENT DANC_ATTRIBUTEFA%@ X ATTR @ANC_ATTRIBUTE%@ X ATTR @ANC_ATTRIBUTE#@ XATTRVALUE DANC_ATTRIBUTE A1#@ XATTRVALUE DANC_ATTRIBUTE VARYING_STRING#@ XNETCDFATTRIBUTEPUTINT%SIZEATTRVALUESIZE DANC_ATTRIBUTE$ @&#@ XNETCDFATTRIBUTEPUTREAL%SIZEATTRVALUESIZE DANC_ATTRIBUTE$ @ &#@ XLHSRHS DANC_VARIABLE @ANC_ATTRIBUTE#@ XVALUEATTR DAVARYING_STRING @ANC_ATTRIBUTE#@ XNETCDFATTRIBUTEGETINT%SIZEVALUEATTRSIZE$Da& @ANC_ATTRIBUTE#@ XNETCDFATTRIBUTEGETREAL%SIZEVALUEATTRSIZE$Da & @ANC_ATTRIBUTE.fn#fn#4JISO_VARYING_STRING4JNETCDF_ERROR B4JNETCDF_FILENAMEv4JNETCDF_FILE4JNETCDF_V3 4JNETCDF_VARIABLEbgen@ATTRIBUTEtJu@EXISTSIu@ERRORKgen@DISPOSERJgen@RENAMEJgen@DELETEJgen@LEN0Hgen@TYPExi@|eENC_ATTRIBUTE!DaNC_ATTRIBUTE%VAR"GaNC_ATTRIBUTE%NAME&5WNETCDFGLOBALATTRIBUTE+<aNETCDFGLOBALATTRIBUTE%FILE+8aNETCDFGLOBALATTRIBUTE%NAME(VNETCDFVARIABLEATTRIBUTE,V@aNETCDFVARIABLEATTRIBUTE%VAR-8aNETCDFVARIABLEATTRIBUTE%NAME&ENETCDFATTRIBUTEEXISTS+AaNETCDFATTRIBUTEEXISTS%ATTR%TENETCDFATTRIBUTEERROR*AaNETCDFATTRIBUTEERROR%ATTR'ANETCDFATTRIBUTEDISPOSE, AaNETCDFATTRIBUTEDISPOSE%ATTR&\ lNETCDFATTRIBUTERENAME. 4NETCDFATTRIBUTERENAME%PRESENT+ AaNETCDFATTRIBUTERENAME%ATTR.= 8aNETCDFATTRIBUTERENAME%NEWNAME+u 0aNETCDFATTRIBUTERENAME%FAIL& dNETCDFATTRIBUTEDELETE. 4NETCDFATTRIBUTEDELETE%PRESENT+= AaNETCDFATTRIBUTEDELETE%ATTR+~ 0aNETCDFATTRIBUTEDELETE%FAIL& ENETCDFATTRIBUTELENGTH+ AaNETCDFATTRIBUTELENGTH%ATTR$4 ENETCDFATTRIBUTETYPE)y AaNETCDFATTRIBUTETYPE%ATTR' GNETCDFATTRIBUTEPUTCHAR, AaNETCDFATTRIBUTEPUTCHAR%ATTR-B 8aNETCDFATTRIBUTEPUTCHAR%VALUE)z GNETCDFATTRIBUTEPUTSTRING. AaNETCDFATTRIBUTEPUTSTRING%ATTR/CaNETCDFATTRIBUTEPUTSTRING%VALUE&EbNETCDFATTRIBUTEPUTINT+1NETCDFATTRIBUTEPUTINT%SIZE+AaNETCDFATTRIBUTEPUTINT%ATTR,`aNETCDFATTRIBUTEPUTINT%VALUE'ycNETCDFATTRIBUTEPUTREAL,1NETCDFATTRIBUTEPUTREAL%SIZE, AaNETCDFATTRIBUTEPUTREAL%ATTR-N`aNETCDFATTRIBUTEPUTREAL%VALUE&DNETCDFATTRIBUTECOPYVA*@aNETCDFATTRIBUTECOPYVA%LHS*2AaNETCDFATTRIBUTECOPYVA%RHS)sGNETCDFATTRIBUTEGETSTRING/CaNETCDFATTRIBUTEGETSTRING%VALUE.AaNETCDFATTRIBUTEGETSTRING%ATTR&>bNETCDFATTRIBUTEGETINT+1NETCDFATTRIBUTEGETINT%SIZE,`aNETCDFATTRIBUTEGETINT%VALUE+1AaNETCDFATTRIBUTEGETINT%ATTR'rcNETCDFATTRIBUTEGETREAL,1NETCDFATTRIBUTEGETREAL%SIZE-`aNETCDFATTRIBUTEGETREAL%VALUE,fAaNETCDFATTRIBUTEGETREAL%ATTR