&k820309s69 netcdf_slice.f90NETCDF_SLICENC_LIMITNC_SLICENC_SLICE_BODYNC_SLICE_DIMSWHOLEVARIABLESIZECOUNTENDSTRIDEi@|u@ERRORgen@SLICEgen@WHOLEVARIABLEu@CONTIGUOUSgen@DIMENSIONSNUMBERgen@DISPOSEgen@SIZEgen@STRINGgen@COUNTgen@NEXTgen@ENDgen@STARTgen@STRIDE   @  @  @ |NETCDFLIMITSETWHOLEVARIABLENETCDFSLICESETINDEXNETCDFSLICESETLIST#@ XLIMITVAR D$NC_LIMIT @@NC_VARIABLE#@ XNETCDFSLICESETINDEX%ASSOCIATEDSLICEIDXASSOCIATED DNC_SLICE #@ XNETCDFSLICESETLIST%ASSOCIATEDSLICEIDXASSOCIATED NC_SLICE A&o NETCDFLIMITERRORNETCDFSLICEERROR%@ X NETCDFLIMITERROR%ANYNETCDFLIMITERROR%ASSOCIATEDLIMITANYASSOCIATED $NC_LIMIT%@ X NETCDFSLICEERROR%ASSOCIATEDSLICEASSOCIATED NC_SLICE u NETCDFSLICEDIMENSIONNETCDFSLICEDIMENSIONORDNETCDFSLICEDIMENSIONBYNAMENETCDFSLICEDIMENSIONSETINDEXNETCDFSLICEDIMENSIONORDSETINDEX&@ X NETCDFSLICEDIMENSION%ASSOCIATEDLIMITDIMNC_SLICEASSOCIATED $NC_LIMIT NC_DIMENSION&@ X NETCDFSLICEDIMENSIONORD%ASSOCIATEDLIMITDIMORDNC_SLICEASSOCIATED $NC_LIMIT &@ X NETCDFSLICEDIMENSIONBYNAME%ASSOCIATEDLIMITDIMNAMENC_SLICEASSOCIATED @A$NC_LIMIT @@1%@ X NETCDFSLICEDIMENSIONSETINDEX%PRESENTNETCDFSLICEDIMENSIONSETINDEX%ASSOCIATEDLIMITDIMNAMESTARTSTRIDECOUNTPRESENTASSOCIATED @@$NC_LIMIT @@1  A A%@ X NETCDFSLICEDIMENSIONORDSETINDEX%PRESENTNETCDFSLICEDIMENSIONORDSETINDEX%ASSOCIATEDLIMITDIMORDSTARTSTRIDECOUNTPRESENTASSOCIATED @@$NC_LIMIT @@  A A u NETCDFLIMITGETWHOLEVARIABLE&@ X $NETCDFLIMITGETWHOLEVARIABLE%MAXVARNC_LIMITMAX @@NC_VARIABLEo NETCDFLIMITCONTIGUOUS%@ X NETCDFLIMITCONTIGUOUS%ALLLIMITALL $NC_LIMIT u LIMIT_N_DIMS%@ X LIMIT $NC_LIMIT u NETCDFLIMITDISPOSE#@ XNETCDFLIMITDISPOSE%ASSOCIATEDLIMITASSOCIATED D$NC_LIMIT u NETCDFLIMITSIZENETCDFSLICESIZE%@ X LIMIT $NC_LIMIT%@ X NETCDFSLICESIZE%ASSOCIATEDSLICEASSOCIATED NC_SLICE u NETCDFLIMITSTRING&@ X NETCDFLIMITSTRING%TRIMLIMITVARYING_STRINGTRIM $NC_LIMIT u COUNT_ANYCOUNT_7NETCDFSLICESIZECOUNT_LIMIT_OR_VAR(` X COUNT_ANY%PRODUCTCOUNT_ANY%MINCOUNT_ANY%ASSOCIATEDLIMITNDIMSp5Op5OpPRODUCTMINASSOCIATED $NC_LIMIT A(` X LIMITppp $NC_LIMIT(` X COUNT_LIMIT_OR_VAR%PRESENTLIMITIF_ABSENTpppPRESENT A$NC_LIMIT @@NC_VARIABLE u NETCDFLIMITNEXT#@ XNETCDFLIMITNEXT%ASSOCIATEDLIMITASSOCIATED DA$NC_LIMIT u NETCDFSLICEEND%@ X NETCDFSLICEEND%ASSOCIATEDSLICEASSOCIATED NC_SLICE u NETCDFLIMITSTARTNETCDFSLICESTART(` X NETCDFLIMITSTART%MINNETCDFLIMITSTART%ASSOCIATEDLIMITpppMINASSOCIATED $NC_LIMIT%@ X NETCDFSLICESTART%ASSOCIATEDSLICEASSOCIATED NC_SLICE u NETCDFLIMITSTRIDENETCDFSLICESTRIDE(` X  NETCDFLIMITSTRIDE%MINNETCDFLIMITSTRIDE%ASSOCIATEDLIMITpppMINASSOCIATED $NC_LIMIT%@ X NETCDFSLICESTRIDE%ASSOCIATEDSLICEASSOCIATED NC_SLICE @'$SLICESNDIMS NC_SLICE_BODY&  @'BODY NC_SLICE_BODY @' DIMSTARTSTRIDECOUNTSIZENC_DIMENSION  7&fn#fn"buapp(NETCDF_SLICE#4JISO_VARYING_STRING4JNETCDF_V324JNETCDF_FILE!f4JNETCDF_DIMENSION 4JNETCDF_VARIABLEwi@|,EFNETCDFLIMITSETWHOLEVARIABLE2=aNETCDFLIMITSETWHOLEVARIABLE%LIMIT0@aNETCDFLIMITSETWHOLEVARIABLE%VAR$eNETCDFSLICESETINDEX/m7NETCDFSLICESETINDEX%ASSOCIATED*=aNETCDFSLICESETINDEX%SLICE(0aNETCDFSLICESETINDEX%IDX#dNETCDFSLICESETLIST.u7NETCDFSLICESETLIST%ASSOCIATED)=aNETCDFSLICESETLIST%SLICE'`aNETCDFSLICESETLIST%IDXIVu@ERROR!wNETCDFLIMITERROR%0NETCDFLIMITERROR%ANY,F7NETCDFLIMITERROR%ASSOCIATED'}=aNETCDFLIMITERROR%LIMIT!bNETCDFSLICEERROR,7NETCDFSLICEERROR%ASSOCIATED'S=aNETCDFSLICEERROR%SLICEgen@SLICE%I sNETCDFSLICEDIMENSION0 7NETCDFSLICEDIMENSION%ASSOCIATED+ =aNETCDFSLICEDIMENSION%LIMIT)0 AaNETCDFSLICEDIMENSION%DIM(q yNETCDFSLICEDIMENSIONORD3 7NETCDFSLICEDIMENSIONORD%ASSOCIATED.! =aNETCDFSLICEDIMENSIONORD%LIMIT/^ 0aNETCDFSLICEDIMENSIONORD%DIMORD+ }NETCDFSLICEDIMENSIONBYNAME6 7NETCDFSLICEDIMENSIONBYNAME%ASSOCIATED1B =aNETCDFSLICEDIMENSIONBYNAME%LIMIT3 8aNETCDFSLICEDIMENSIONBYNAME%DIMNAME- NETCDFSLICEDIMENSIONSETINDEX5e 4NETCDFSLICEDIMENSIONSETINDEX%PRESENT8 7NETCDFSLICEDIMENSIONSETINDEX%ASSOCIATED3 =aNETCDFSLICEDIMENSIONSETINDEX%LIMIT5 8aNETCDFSLICEDIMENSIONSETINDEX%DIMNAME3E0aNETCDFSLICEDIMENSIONSETINDEX%START4u0aNETCDFSLICEDIMENSIONSETINDEX%STRIDE30aNETCDFSLICEDIMENSIONSETINDEX%COUNT0NETCDFSLICEDIMENSIONORDSETINDEX84NETCDFSLICEDIMENSIONORDSETINDEX%PRESENT;7NETCDFSLICEDIMENSIONORDSETINDEX%ASSOCIATED6=aNETCDFSLICEDIMENSIONORDSETINDEX%LIMIT700aNETCDFSLICEDIMENSIONORDSETINDEX%DIMORD6`0aNETCDFSLICEDIMENSIONORDSETINDEX%START70aNETCDFSLICEDIMENSIONORDSETINDEX%STRIDE60aNETCDFSLICEDIMENSIONORDSETINDEX%COUNT"Pgen@WHOLEVARIABLE,@mNETCDFLIMITGETWHOLEVARIABLE00NETCDFLIMITGETWHOLEVARIABLE%MAX0@aNETCDFLIMITGETWHOLEVARIABLE%VARJu@CONTIGUOUS&g`NETCDFLIMITCONTIGUOUS*0NETCDFLIMITCONTIGUOUS%ALL,=aNETCDFLIMITCONTIGUOUS%LIMIT%4Agen@DIMENSIONSNUMBERuFLIMIT_N_DIMS#=aLIMIT_N_DIMS%LIMITGgen@DISPOSE#?`NETCDFLIMITDISPOSE.7NETCDFLIMITDISPOSE%ASSOCIATED)=aNETCDFLIMITDISPOSE%LIMITTgen@SIZE gFNETCDFLIMITSIZE&=aNETCDFLIMITSIZE%LIMIT aNETCDFSLICESIZE+K7NETCDFSLICESIZE%ASSOCIATED&=aNETCDFSLICESIZE%SLICEFgen@STRING"lNETCDFLIMITSTRING'q1NETCDFLIMITSTRING%TRIM(=aNETCDFLIMITSTRING%LIMITigen@COUNTHCOUNT_ANY"4COUNT_ANY%PRODUCTE0COUNT_ANY%MIN%u7COUNT_ANY%ASSOCIATED =aCOUNT_ANY%LIMIT 0aCOUNT_ANY%NDIMS~COUNT_7=aCOUNT_7%LIMIT#COUNT_LIMIT_OR_VAR+w4COUNT_LIMIT_OR_VAR%PRESENT)=aCOUNT_LIMIT_OR_VAR%LIMIT-@aCOUNT_LIMIT_OR_VAR%IF_ABSENT(Dgen@NEXT l]NETCDFLIMITNEXT+7NETCDFLIMITNEXT%ASSOCIATED&=aNETCDFLIMITNEXT%LIMIT=Cgen@END`NETCDFSLICEEND*7NETCDFSLICEEND%ASSOCIATED%=aNETCDFSLICEEND%SLICETVgen@START!NETCDFLIMITSTART%Y0NETCDFLIMITSTART%MIN,7NETCDFLIMITSTART%ASSOCIATED'=aNETCDFLIMITSTART%LIMIT!bNETCDFSLICESTART,_ 7NETCDFSLICESTART%ASSOCIATED' =aNETCDFSLICESTART%SLICE Xgen@STRIDE"+!NETCDFLIMITSTRIDE&!0NETCDFLIMITSTRIDE%MIN- "7NETCDFLIMITSTRIDE%ASSOCIATED(C"=aNETCDFLIMITSTRIDE%LIMIT""cNETCDFSLICESTRIDE-"7NETCDFSLICESTRIDE%ASSOCIATED(#=aNETCDFSLICESTRIDE%SLICEW#INC_LIMIT #raNC_LIMIT%SLICES$8aNC_LIMIT%NDIMSJ$ANC_SLICE$FaNC_SLICE%BODY$XNC_SLICE_BODY")%EaNC_SLICE_BODY%DIM$n%8aNC_SLICE_BODY%START%%8aNC_SLICE_BODY%STRIDE$%8aNC_SLICE_BODY%COUNT#&8aNC_SLICE_BODY%SIZEN&UNC_SLICE_DIMS