[k820309 919.0)Xe  module_internal_header_util.f90MODULE_INTERNAL_HEADER_UTILINT_PACK_STRINGINT_UNPACK_STRINGu #INT_GET_TI_HEADER_INTEGER#INT_GET_TI_HEADER_REALu #INT_GEN_TI_HEADER_INTEGER#INT_GEN_TI_HEADER_REALu #INT_GET_TD_HEADER_INTEGER#INT_GET_TD_HEADER_REALu #INT_GEN_TD_HEADER_INTEGER#INT_GEN_TD_HEADER_REAL#@X #HDRBUF #HDRBUFSIZE #ITYPESIZE #TYPESIZE #DATAHANDLE #ELEMENT#DATA#COUNT#CODE@ D@ #p11D@  @@  @@ D@  D@1@D@$p11D@D@#@X #HDRBUF#HDRBUFSIZE#ITYPESIZE#TYPESIZE#DATAHANDLE#ELEMENT#DATA#COUNT#CODE@ D@%p11D@ @@ @@D@ D@1@D@ &p11D@D@#@X #HDRBUF#HDRBUFSIZE#ITYPESIZE#TYPESIZE#DATAHANDLE#ELEMENT #DATA!#COUNT"#CODE#@ D@p11D@ @@ @@ @@ @ 1@ @@!p11 @@" @@##@X #HDRBUF$#HDRBUFSIZE%#ITYPESIZE&#TYPESIZE'#DATAHANDLE(#ELEMENT)#DATA*#COUNT+#CODE,@ D@$p11D@% @@& @@' @@( @)1@ @@* p11 @@+ @@,#@X #HDRBUF-#HDRBUFSIZE.#ITYPESIZE/#TYPESIZE0#DATAHANDLE1#DATESTR2#ELEMENT3#DATA4#COUNT5#CODE6@ D@-/p11D@. @@/ @@0D@1 D@21 D@31@D@40p11D@5D@6#@X #HDRBUF7#HDRBUFSIZE8#ITYPESIZE9#TYPESIZE:#DATAHANDLE;#DATESTR<#ELEMENT=#DATA>#COUNT?#CODE@@ D@71p11D@8 @@9 @@:D@; D@<1 D@=1@D@> 2p11D@?D@@#@X #HDRBUFA#HDRBUFSIZEB#ITYPESIZEC#TYPESIZED#DATAHANDLEE#DATESTRF#ELEMENTG#DATAH#COUNTI#CODEJ@ D@A+p11D@B @@C @@D @@E @F1 @G1@ @@H,p11 @@I @@J#@X #HDRBUFK#HDRBUFSIZEL#ITYPESIZEM#TYPESIZEN#DATAHANDLEO#DATESTRP#ELEMENTQ#DATAR#COUNTS#CODET@ D@K-p11D@L @@M @@N @@O @P1 @Q1@ @@R .p11 @@S @@T%@U #HDRBUFV@ Vp11%@W #HDRBUFX@ Xp11#@Y#HDRBUFZ#HDRBUFSIZE[#ITYPESIZE\#FTYPESIZE]#DATAHANDLE^#DATESTR_#VARNAME`#DUMMYa#FIELDTYPEb#COMMc#IOCOMMd#DOMAINDESCe#MEMORYORDERf#STAGGERg#DIMNAMESh#DOMAINSTARTi#DOMAINENDj#MEMORYSTARTk#MEMORYENDl#PATCHSTARTm#PATCHENDn@ D@Zp11 D[ \ ] ^ @_1 @`1@a p11 b c d e @f1 @g1,@ @hp111@ ip11@ jp11@ kp11@ l p11@ m p11@ n p11#@o#HDRBUFp#HDRBUFSIZEq#ITYPESIZEr#FTYPESIZEs#DATAHANDLEt#DATESTRu#VARNAMEv#DUMMYw#FIELDTYPEx#COMMy#IOCOMMz#DOMAINDESC{#MEMORYORDER|#STAGGER}#DIMNAMES~#DOMAINSTART#DOMAINEND#MEMORYSTART#MEMORYEND#PATCHSTART#PATCHEND@ @p p11Dq r DsDt D@u1 D@v1@w p11DxyzD{D@|1D@}1,@D@~p111@Dp11@Dp11@p11@p11@Dp11@Dp11#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#FILENAME#SYSDEPINFO#DATAHANDLE@ D@p11D  @1 @1 #@#HDRBUF#HDRBUFSIZE#ITYPESIZE#FILENAME#SYSDEPINFO#DATAHANDLE@ @p11D  D@1 D@1D#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#FILENAME#SYSDEPINFO#IO_FORM#DATAHANDLE@ D@p11D  @1 @1  #@#HDRBUF#HDRBUFSIZE#ITYPESIZE#FILENAME#SYSDEPINFO#IO_FORM#DATAHANDLE@ @p11D  D@1 D@1DD#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#CODE@ Dp11D   #@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#CODE@ p11D DD#@ #HDRBUF#HDRBUFSIZE#ITYPESIZE#TYPESIZE#DATAHANDLE#ELEMENT#VARNAME#DATA#COUNT#CODE@ D@p11D@ @@ @@ @@ @1 @1@ @@p11 @@ @@#@ #HDRBUF#HDRBUFSIZE#ITYPESIZE#TYPESIZE#DATAHANDLE#ELEMENT#VARNAME#DATA#COUNT#CODE@ D@!p11D@ @@ @@D@ D@1 D@1@D@"p11D@D@#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#ELEMENT#VARNAME#DATA#CODE@ D@'p11D@ @@ @@ @1 @1 @1 @@#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#ELEMENT#VARNAME#DATA#CODE@ D@(p11D@ @@D@ D@1 D@1 D@1D@#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#DATESTR#ELEMENT#DATA#CODE@ D@)p11D@ @@ @@ @1 @1 @1 @@#@#HDRBUF#HDRBUFSIZE#ITYPESIZE#DATAHANDLE#DATESTR#ELEMENT#DATA#CODE@ D@*p11D@ @@D@ D@1 D@1 D@1D@#@#HDRBUF#HDRBUFSIZE#ITYPESIZE@ D3p11D #@#HDRBUF#HDRBUFSIZE#ITYPESIZE@ 4p11D Dfn#fn12buapp(MODULE_INTERNAL_HEADER_UTIL&{gen@INT_GET_TI_HEADER&{gen@INT_GEN_TI_HEADER& {gen@INT_GET_TD_HEADER&{gen@INT_GEN_TD_HEADER*INT_GET_TI_HEADER_INTEGER1aINT_GET_TI_HEADER_INTEGER%HDRBUF5C@aINT_GET_TI_HEADER_INTEGER%HDRBUFSIZE4@aINT_GET_TI_HEADER_INTEGER%ITYPESIZE3@aINT_GET_TI_HEADER_INTEGER%TYPESIZE5@aINT_GET_TI_HEADER_INTEGER%DATAHANDLE2CLaINT_GET_TI_HEADER_INTEGER%ELEMENT/aINT_GET_TI_HEADER_INTEGER%DATA0@aINT_GET_TI_HEADER_INTEGER%COUNT/S@aINT_GET_TI_HEADER_INTEGER%CODE'INT_GET_TI_HEADER_REAL.PaINT_GET_TI_HEADER_REAL%HDRBUF2@aINT_GET_TI_HEADER_REAL%HDRBUFSIZE1@aINT_GET_TI_HEADER_REAL%ITYPESIZE0T@aINT_GET_TI_HEADER_REAL%TYPESIZE2@aINT_GET_TI_HEADER_REAL%DATAHANDLE/LaINT_GET_TI_HEADER_REAL%ELEMENT, aINT_GET_TI_HEADER_REAL%DATA- @aINT_GET_TI_HEADER_REAL%COUNT, @aINT_GET_TI_HEADER_REAL%CODE*$ INT_GEN_TI_HEADER_INTEGER1 aINT_GEN_TI_HEADER_INTEGER%HDRBUF5e @aINT_GEN_TI_HEADER_INTEGER%HDRBUFSIZE4 @aINT_GEN_TI_HEADER_INTEGER%ITYPESIZE3 @aINT_GEN_TI_HEADER_INTEGER%TYPESIZE5% @aINT_GEN_TI_HEADER_INTEGER%DATAHANDLE2e LaINT_GEN_TI_HEADER_INTEGER%ELEMENT/ aINT_GEN_TI_HEADER_INTEGER%DATA05 @aINT_GEN_TI_HEADER_INTEGER%COUNT/u @aINT_GEN_TI_HEADER_INTEGER%CODE' INT_GEN_TI_HEADER_REAL.raINT_GEN_TI_HEADER_REAL%HDRBUF2@aINT_GEN_TI_HEADER_REAL%HDRBUFSIZE16@aINT_GEN_TI_HEADER_REAL%ITYPESIZE0v@aINT_GEN_TI_HEADER_REAL%TYPESIZE2@aINT_GEN_TI_HEADER_REAL%DATAHANDLE/LaINT_GEN_TI_HEADER_REAL%ELEMENT,BaINT_GEN_TI_HEADER_REAL%DATA-@aINT_GEN_TI_HEADER_REAL%COUNT,@aINT_GEN_TI_HEADER_REAL%CODE*FINT_GET_TD_HEADER_INTEGER1aINT_GET_TD_HEADER_INTEGER%HDRBUF5@aINT_GET_TD_HEADER_INTEGER%HDRBUFSIZE4@aINT_GET_TD_HEADER_INTEGER%ITYPESIZE3@aINT_GET_TD_HEADER_INTEGER%TYPESIZE5T@aINT_GET_TD_HEADER_INTEGER%DATAHANDLE2LaINT_GET_TD_HEADER_INTEGER%DATESTR2LaINT_GET_TD_HEADER_INTEGER%ELEMENT/,aINT_GET_TD_HEADER_INTEGER%DATA0@aINT_GET_TD_HEADER_INTEGER%COUNT/@aINT_GET_TD_HEADER_INTEGER%CODE'0INT_GET_TD_HEADER_REAL.aINT_GET_TD_HEADER_REAL%HDRBUF2~@aINT_GET_TD_HEADER_REAL%HDRBUFSIZE1@aINT_GET_TD_HEADER_REAL%ITYPESIZE0@aINT_GET_TD_HEADER_REAL%TYPESIZE2>@aINT_GET_TD_HEADER_REAL%DATAHANDLE/~LaINT_GET_TD_HEADER_REAL%DATESTR/LaINT_GET_TD_HEADER_REAL%ELEMENT,aINT_GET_TD_HEADER_REAL%DATA-@aINT_GET_TD_HEADER_REAL%COUNT,@aINT_GET_TD_HEADER_REAL%CODE*INT_GEN_TD_HEADER_INTEGER1aINT_GEN_TD_HEADER_INTEGER%HDRBUF5h@aINT_GEN_TD_HEADER_INTEGER%HDRBUFSIZE4@aINT_GEN_TD_HEADER_INTEGER%ITYPESIZE3@aINT_GEN_TD_HEADER_INTEGER%TYPESIZE5(@aINT_GEN_TD_HEADER_INTEGER%DATAHANDLE2hLaINT_GEN_TD_HEADER_INTEGER%DATESTR2LaINT_GEN_TD_HEADER_INTEGER%ELEMENT/aINT_GEN_TD_HEADER_INTEGER%DATA0@aINT_GEN_TD_HEADER_INTEGER%COUNT/@aINT_GEN_TD_HEADER_INTEGER%CODE'INT_GEN_TD_HEADER_REAL.aINT_GEN_TD_HEADER_REAL%HDRBUF2R@aINT_GEN_TD_HEADER_REAL%HDRBUFSIZE1@aINT_GEN_TD_HEADER_REAL%ITYPESIZE0@aINT_GEN_TD_HEADER_REAL%TYPESIZE2@aINT_GEN_TD_HEADER_REAL%DATAHANDLE/RLaINT_GEN_TD_HEADER_REAL%DATESTR/LaINT_GEN_TD_HEADER_REAL%ELEMENT,aINT_GEN_TD_HEADER_REAL%DATA-n @aINT_GEN_TD_HEADER_REAL%COUNT, @aINT_GEN_TD_HEADER_REAL%CODE \GET_HDR_TAG#J!aGET_HDR_TAG%HDRBUF!!\GET_HDR_REC_SIZE(*"aGET_HDR_REC_SIZE%HDRBUF+"vINT_GEN_WRITE_FIELD_HEADER2$$aINT_GEN_WRITE_FIELD_HEADER%HDRBUF6$@aINT_GEN_WRITE_FIELD_HEADER%HDRBUFSIZE5$@aINT_GEN_WRITE_FIELD_HEADER%ITYPESIZE5(%@aINT_GEN_WRITE_FIELD_HEADER%FTYPESIZE6h%@aINT_GEN_WRITE_FIELD_HEADER%DATAHANDLE3%LaINT_GEN_WRITE_FIELD_HEADER%DATESTR3%LaINT_GEN_WRITE_FIELD_HEADER%VARNAME1@&aINT_GEN_WRITE_FIELD_HEADER%DUMMY5&@aINT_GEN_WRITE_FIELD_HEADER%FIELDTYPE0'@aINT_GEN_WRITE_FIELD_HEADER%COMM2D'@aINT_GEN_WRITE_FIELD_HEADER%IOCOMM6'@aINT_GEN_WRITE_FIELD_HEADER%DOMAINDESC7'LaINT_GEN_WRITE_FIELD_HEADER%MEMORYORDER3(LaINT_GEN_WRITE_FIELD_HEADER%STAGGER4\(aINT_GEN_WRITE_FIELD_HEADER%DIMNAMES7(aINT_GEN_WRITE_FIELD_HEADER%DOMAINSTART5h)aINT_GEN_WRITE_FIELD_HEADER%DOMAINEND7)aINT_GEN_WRITE_FIELD_HEADER%MEMORYSTART5p*aINT_GEN_WRITE_FIELD_HEADER%MEMORYEND6*aINT_GEN_WRITE_FIELD_HEADER%PATCHSTART4x+aINT_GEN_WRITE_FIELD_HEADER%PATCHEND++vINT_GET_WRITE_FIELD_HEADER2r-aINT_GET_WRITE_FIELD_HEADER%HDRBUF6-@aINT_GET_WRITE_FIELD_HEADER%HDRBUFSIZE56.@aINT_GET_WRITE_FIELD_HEADER%ITYPESIZE5v.@aINT_GET_WRITE_FIELD_HEADER%FTYPESIZE6.@aINT_GET_WRITE_FIELD_HEADER%DATAHANDLE3.LaINT_GET_WRITE_FIELD_HEADER%DATESTR3B/LaINT_GET_WRITE_FIELD_HEADER%VARNAME1/aINT_GET_WRITE_FIELD_HEADER%DUMMY50@aINT_GET_WRITE_FIELD_HEADER%FIELDTYPE0R0@aINT_GET_WRITE_FIELD_HEADER%COMM20@aINT_GET_WRITE_FIELD_HEADER%IOCOMM60@aINT_GET_WRITE_FIELD_HEADER%DOMAINDESC71LaINT_GET_WRITE_FIELD_HEADER%MEMORYORDER3^1LaINT_GET_WRITE_FIELD_HEADER%STAGGER41aINT_GET_WRITE_FIELD_HEADER%DIMNAMES722aINT_GET_WRITE_FIELD_HEADER%DOMAINSTART52aINT_GET_WRITE_FIELD_HEADER%DOMAINEND7:3aINT_GET_WRITE_FIELD_HEADER%MEMORYSTART53aINT_GET_WRITE_FIELD_HEADER%MEMORYEND6B4aINT_GET_WRITE_FIELD_HEADER%PATCHSTART44aINT_GET_WRITE_FIELD_HEADER%PATCHEND#J5INT_GEN_OFR_HEADER*5aINT_GEN_OFR_HEADER%HDRBUF.o6@aINT_GEN_OFR_HEADER%HDRBUFSIZE-6@aINT_GEN_OFR_HEADER%ITYPESIZE,6LaINT_GEN_OFR_HEADER%FILENAME.;7LaINT_GEN_OFR_HEADER%SYSDEPINFO.7@aINT_GEN_OFR_HEADER%DATAHANDLE#7INT_GET_OFR_HEADER*h8aINT_GET_OFR_HEADER%HDRBUF.8@aINT_GET_OFR_HEADER%HDRBUFSIZE-,9@aINT_GET_OFR_HEADER%ITYPESIZE,l9LaINT_GET_OFR_HEADER%FILENAME.9LaINT_GET_OFR_HEADER%SYSDEPINFO.:@aINT_GET_OFR_HEADER%DATAHANDLE$D:INT_GEN_OFWB_HEADER+:aINT_GEN_OFWB_HEADER%HDRBUF/v;@aINT_GEN_OFWB_HEADER%HDRBUFSIZE.;@aINT_GEN_OFWB_HEADER%ITYPESIZE-;LaINT_GEN_OFWB_HEADER%FILENAME/B<LaINT_GEN_OFWB_HEADER%SYSDEPINFO,<@aINT_GEN_OFWB_HEADER%IO_FORM/<@aINT_GEN_OFWB_HEADER%DATAHANDLE$=INT_GET_OFWB_HEADER+=aINT_GET_OFWB_HEADER%HDRBUF/@>@aINT_GET_OFWB_HEADER%HDRBUFSIZE.>@aINT_GET_OFWB_HEADER%ITYPESIZE->LaINT_GET_OFWB_HEADER%FILENAME/ ?LaINT_GET_OFWB_HEADER%SYSDEPINFO,X?@aINT_GET_OFWB_HEADER%IO_FORM/?@aINT_GET_OFWB_HEADER%DATAHANDLE&?INT_GEN_HANDLE_HEADER-e@aINT_GEN_HANDLE_HEADER%HDRBUF1@@aINT_GEN_HANDLE_HEADER%HDRBUFSIZE0)A@aINT_GEN_HANDLE_HEADER%ITYPESIZE1iA@aINT_GEN_HANDLE_HEADER%DATAHANDLE+A@aINT_GEN_HANDLE_HEADER%CODE&AINT_GET_HANDLE_HEADER-vBaINT_GET_HANDLE_HEADER%HDRBUF1B@aINT_GET_HANDLE_HEADER%HDRBUFSIZE0:C@aINT_GET_HANDLE_HEADER%ITYPESIZE1zC@aINT_GET_HANDLE_HEADER%DATAHANDLE+C@aINT_GET_HANDLE_HEADER%CODE0CINT_GEN_TI_HEADER_INTEGER_VARNA7DaINT_GEN_TI_HEADER_INTEGER_VARNA%HDRBUF;HE@aINT_GEN_TI_HEADER_INTEGER_VARNA%HDRBUFSIZE:E@aINT_GEN_TI_HEADER_INTEGER_VARNA%ITYPESIZE9E@aINT_GEN_TI_HEADER_INTEGER_VARNA%TYPESIZE;F@aINT_GEN_TI_HEADER_INTEGER_VARNA%DATAHANDLE8HFLaINT_GEN_TI_HEADER_INTEGER_VARNA%ELEMENT8FLaINT_GEN_TI_HEADER_INTEGER_VARNA%VARNAME5FaINT_GEN_TI_HEADER_INTEGER_VARNA%DATA6dG@aINT_GEN_TI_HEADER_INTEGER_VARNA%COUNT5G@aINT_GEN_TI_HEADER_INTEGER_VARNA%CODE0GINT_GET_TI_HEADER_INTEGER_VARNA7HaINT_GET_TI_HEADER_INTEGER_VARNA%HDRBUF;2I@aINT_GET_TI_HEADER_INTEGER_VARNA%HDRBUFSIZE:rI@aINT_GET_TI_HEADER_INTEGER_VARNA%ITYPESIZE9I@aINT_GET_TI_HEADER_INTEGER_VARNA%TYPESIZE;I@aINT_GET_TI_HEADER_INTEGER_VARNA%DATAHANDLE82JLaINT_GET_TI_HEADER_INTEGER_VARNA%ELEMENT8~JLaINT_GET_TI_HEADER_INTEGER_VARNA%VARNAME5JaINT_GET_TI_HEADER_INTEGER_VARNA%DATA6NK@aINT_GET_TI_HEADER_INTEGER_VARNA%COUNT5K@aINT_GET_TI_HEADER_INTEGER_VARNA%CODE'KINT_GEN_TI_HEADER_CHAR.LaINT_GEN_TI_HEADER_CHAR%HDRBUF2M@aINT_GEN_TI_HEADER_CHAR%HDRBUFSIZE1CM@aINT_GEN_TI_HEADER_CHAR%ITYPESIZE2M@aINT_GEN_TI_HEADER_CHAR%DATAHANDLE/MLaINT_GEN_TI_HEADER_CHAR%ELEMENT/NLaINT_GEN_TI_HEADER_CHAR%VARNAME,[NLaINT_GEN_TI_HEADER_CHAR%DATA,N@aINT_GEN_TI_HEADER_CHAR%CODE'NINT_GET_TI_HEADER_CHAR.OaINT_GET_TI_HEADER_CHAR%HDRBUF2P@aINT_GET_TI_HEADER_CHAR%HDRBUFSIZE1\P@aINT_GET_TI_HEADER_CHAR%ITYPESIZE2P@aINT_GET_TI_HEADER_CHAR%DATAHANDLE/PLaINT_GET_TI_HEADER_CHAR%ELEMENT/(QLaINT_GET_TI_HEADER_CHAR%VARNAME,tQLaINT_GET_TI_HEADER_CHAR%DATA,Q@aINT_GET_TI_HEADER_CHAR%CODE'RINT_GEN_TD_HEADER_CHAR.RaINT_GEN_TD_HEADER_CHAR%HDRBUF25S@aINT_GEN_TD_HEADER_CHAR%HDRBUFSIZE1uS@aINT_GEN_TD_HEADER_CHAR%ITYPESIZE2S@aINT_GEN_TD_HEADER_CHAR%DATAHANDLE/SLaINT_GEN_TD_HEADER_CHAR%DATESTR/ATLaINT_GEN_TD_HEADER_CHAR%ELEMENT,TLaINT_GEN_TD_HEADER_CHAR%DATA,T@aINT_GEN_TD_HEADER_CHAR%CODE'UINT_GET_TD_HEADER_CHAR.UaINT_GET_TD_HEADER_CHAR%HDRBUF2NV@aINT_GET_TD_HEADER_CHAR%HDRBUFSIZE1V@aINT_GET_TD_HEADER_CHAR%ITYPESIZE2V@aINT_GET_TD_HEADER_CHAR%DATAHANDLE/WLaINT_GET_TD_HEADER_CHAR%DATESTR/ZWLaINT_GET_TD_HEADER_CHAR%ELEMENT,WLaINT_GET_TD_HEADER_CHAR%DATA,W@aINT_GET_TD_HEADER_CHAR%CODE$2XsINT_GEN_NOOP_HEADER+XaINT_GEN_NOOP_HEADER%HDRBUF/)Y@aINT_GEN_NOOP_HEADER%HDRBUFSIZE.iY@aINT_GEN_NOOP_HEADER%ITYPESIZE$YsINT_GET_NOOP_HEADER+ZaINT_GET_NOOP_HEADER%HDRBUF/Z@aINT_GET_NOOP_HEADER%HDRBUFSIZE.Z@aINT_GET_NOOP_HEADER%ITYPESIZE