From add92e1a2fd76f462211587ae63df928a6cc09e5 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 11 Sep 2011 13:22:39 -0400 Subject: [PATCH] Added new xml-fortran libraries to fix issue where horizontal tabs in XML files causes error. --- lib/gfortran/libxmlparse.a | Bin 121218 -> 121654 bytes lib/gfortran/read_xml_primitives.mod | 192 +++++++++---------- lib/gfortran/write_xml_primitives.mod | 266 +++++++++++++------------- lib/gfortran/xmlparse.mod | 110 +++++------ lib/intel/libxmlparse.a | Bin 145020 -> 145590 bytes lib/intel/read_xml_primitives.mod | Bin 36106 -> 36106 bytes lib/intel/write_xml_primitives.mod | Bin 19137 -> 19137 bytes lib/intel/xmlparse.mod | Bin 14092 -> 14109 bytes 8 files changed, 284 insertions(+), 284 deletions(-) diff --git a/lib/gfortran/libxmlparse.a b/lib/gfortran/libxmlparse.a index cfca15b4b1f20bf2fcac640de99d5862f2c3cc96..50253851db277b2253e7f5f5d96dd56a4b114446 100644 GIT binary patch delta 11208 zcmcIqc~n(Ln!j}cSwsPm?TLyJK>=AF0tzkJ<#w3oW?eqkV8anNCj7ylR`o4mq#`njZGjq?m z)P28i`+Z-1RrkKf{h8bM&>`PVgIpO|nQ56BX)!UWG5k>f#>AwjrrHG@QyX9yMxJ2= zF8aScT@P}&XO3a~Kc3`Cn<39EdGWs-X&Gth`$R+2(w{WUU0zrJB>j7Hxcf9&AK)tr zI%XWL4U8b;=*8W3bH+@%FVN<4wp@>Ku3y=){;98=t<@c^1z$PWpI?8hgB8{|R&bB7 zVO+sISI#$Nle4wFqqX{8%QfPhcQ)wIz>rmU{GSTxg?{8662sJkw!9y7=xhr!Uwd}> zu@fIuJJ`}rD%bN%lkf9P^w4BT&;q2BJ+pyog`$jg0y(5qhL z9IcBT<^Fi+TtY7JOZxH9(KJ5B=6-3|F9`VywGV&G>@clm+es+h5ZjlM*tz5yQ`|_d zqk0N;j<{;x5IPQeICd!Q8W!q)H7=KsU%9`IUqZ+(`gQy?nvxhve>tqb`|PMegzR?T zOgPww6w=*kP2pEf#_`zNvEO%fiCV06u&d29-oC2u3u`ys?dtk{hnHcvciJOOb7&Y1 z8kgjC0K`&;rtN-CS*`y=w zkI?@r%JO%%w8skPbf-O*<~koYzq{jp(>b1yGWR#d{=^I>^q(a)Ecb^?Z;&WDsqE9S zqdD8wwZ|E+R%2~@(3)rl94olZ=dWeuZ6j!7U&yC}X+S=m>}oizC~u){<$iwMF;A4Q zCC6!H#TY{Anu@=WiL|lu4OZRYs&lNm&rDCCK@Z<2pHRn)bn1BIJUPX#M$*$$^J&YJ zaB`OB&di{vrkrPUm^(9p;k(J(%yu;Wbu}fwWmhBVoM|=Wpzt(zR$qE^+6&|``}6_X z{)%G;Av@f;Gjj-8BaHs7W&>G=sx5TIf>8IBS;u`wM6(R|$&ZEnPj3I<$?MF1ea!iR zzJ7)=l0oC?TXl(K0sVsg-9mlqhmr#{p8Y*Xi`d^=^s)M(=0HN9t4|;f>aI^Di|OV1 z;Q^a?#n{p5PdCkr?7PdKJLLY3(3E+Jq=U|yml!aR)si0%*|?JH&rw{76LO$nCYN@T znkqh}70N&5ETp~HSt8|aC|}B2uUlU3wa7~B$#GD78!858mwcyEQg(0Kh3aq z3$WY7YELIatU2i<(!X;CfQ^;lW#xxW-LEmU5R&WLhH(PLQgVFvDI@*JQMe{J5Gl=K#W?{!w_L(1@Xzy== zzYrMNMg$4OVq80@8<~i&U@LpteJV?U&X?%Mt;i>j~fbha}a+H@lQ(u7ro3b ze~W%UM8994-sS?(6N`pjdNV&fo~;7#y~sBaaZ(JpSVQdcVQ=6&AIB9i`nRI~yOcI1 zg=J$w&|=Mzv{EKm<{J(_L-kCKK+3NFF`yzWeFVp zg_DN$oxmZQ z{%mZ-I1l=H!6G|*jUrdGTdLq{99OW&uYQvjZw|)W=E3eY1y>uaiLV}Z$UNtwpA`c{ zgV}C*kQ<>wUNR{Z?DhIi)o|%|p@!FCyd9xX_dlRq@<|2v#tFprx__?eH=w^O9`t_< zg}M*ntDhZuS7j-h8j z$)15bij21i$E6LEJ<672lx0rC~*EEz% zzD?+NoCiCnf~$2tiMU?JyWyfPW>m!18El8i5`(=kqKB30Wj5lHjo8DPYF&gC+{kV( z|B7-w3f1r>n8i_M$F_afdCjl9;a@^rpOqU5uJXID#gVs{0lc*Aki2BK!~-7MEs(@! zMgp-#Xebkw+r<-z>%>+oxJvAK#3cbqY?p>hVut|lA@(FztOJPI!?<^LNMf>&2P3W% ztB!&`UhYA@IZE_f$p?y@U&_12NyPO8{;J{feh_AZ0>NRO<&#*iahAg z^MEf0+|^wmIdji=Flbe9HSv}~qR!nNB4=)!hRd1T-wS6CxN@hyJV;ce-iLo}V~4DW z+^PE^u2*D;rZ0EuI1l=H(RhbcC11Hy*Lbj7sNiayHz2Op@nsE{Th$rBt*`=ScQ-JH8ElfHbl7}n@e^PE5ZdFZVPv$uzAbsgs zPKQIo{{=Uy0>pX5WOm9nTcYVpKdVNFXK34YO)fLo3v$;7DA&t#O~Yk*qT_m|Ek)sx zt>Ef1C{}R3G$rpx0k@7iNQn7*oahPjk8$vyMncC;87Z7~?<5+L?)?->z!DUD9UI)n+TJ5MA1_x z=We3l5|t!|$w|OvN)k+I6W;OU)L+J^t|XC(?U$Nd_WM4RU()1P(7rPX)`S1(-dV{> z7&IE><(gbRI?YA-7ELbg_ki5II2x+w%@-*0qzNb*4ky)#(uT4NXtReG_p#?#Jnn*HuNX#%&%Ws_`BSz8P4{45;Da3}B_#aBqgN zIswB!(8?r^&7`qUoK&{t2^VZ;Hhk!KfwyFVPEHdI-$4!+o-=1aovBbrXPvF z>TU9%e+Y5Ch@S!O5(|EelE5`Bz*r3Mt%m@=n+OT$0d67A6X5GY7AR_xsvq0)yXNC4 z&<$Rh1a0&l%H^7$i^M)u?9}ygagt~wyRSnH*b{FG;yfN-a*|-P1LCbixr`@&KW$a) z_=YX*UU5L%9@gwA@;sv0sT~uZ%bc)7FW>|Xmu-1)Muv=Nc>DiuF#45c%6u>_+{!}3TkzsyT0M)#K`Z{e}AyhM~5a?DFKA7%; zLZG_><&v&!zttY>cB0?I9^|Lc?41q)i}Eo5a;c!cEzkB ztGR|mq$y%G+|!8b;kFdP?7jhE&5w$pT$dF;YMAd?820}gyPvZ+Jz1_`#C3Y3o#407 zgM5w?{5C0amH#@#b^dKm;D695%9i#K>gi=WsrXg%xo&k$ClR*0idYRhsu;R1y%@SK zw-~yv8vhNd)A?C3bluCvknTIErDFb>sjq);>%SC07 zZ42t@Mcq*bt-BB9lBQe|2RzuFLBH2L$jx%_8&VGZ^zscuT<4ur4&|#V2mVdvz<-_M zM=jS*jPn-Cb^eDv*quYaH$2FFDg=Mqz={X+geK(Dn0TG#N~ka;(?D(-a`DmSi|KzEZa0(zN_+%hRb(nE@-%X+2%Ij@ZEt2mT&V! z5|D6=pYo-bd<~Z`voveCe2Ha?hRc^&+I!(Hqx-Fu>%9bqA>UfzZ{_eq5|XbGR3V~QeP{JyZuqgs6E+-6)c-8QM9e6SV;9CDoVfm-8+&_Gw1Y=_MJ2LzVEx=_xsj& z-!eyz_^);OZ;fip$}!Ecnb~%GhFu)}N4wn|o0CIqdsC36X@!~=GWmb|Yx4x$`@E+8 zAAjt@Ia>c;W`E+pJcoL=4qjZa*0q=i1leT*GwpUqMh0f@$1x`>%Wlui8w=a^Iry^a za5}{1x^wWWoPX@&vRW2~@T=UlDf(F-cEpuo-^kd@kYS(JkzjQtjC3;gDx4VA&E9|o zqgS(2xH1NexMubio=t~yai6odT_@rXF}B9ln)m=?8=y6D8oZKhg@lozuEwM&#x}Yh zPCo3%Y~V2G>*u(pm7m;@_w}t?SVrySh5|fW35U#fS9xX_=l&5;V5a!I@_DRlWA^?* zEZvnc{*W(Q0iWexWt&{*3TpjhQ<g?y3gHA*lKb763P@FXTlCzcz1p{kvPYHftMt!q)pD<7DX# zG=R2lXkkx$DQ*1?C8X!q@N6jf*RF%7Yge&eu-9d=U%}M6k9|{66ryXRU~2tl_C9=E zf0lg+HPe%z_m1yb4-A=+2}ABY&wh_*iC~%1!2aNxHzk;{lQ3^e5;98QhlZ$*X{GF0 z)J=s&(}3;AvqVV0tARaFNEtJO;ly2!vlozhl|A{)kQt0^L-lM|S%V*AD@pO;yEn1b zN_?H`wVAIEat5Wb5dMxYSY}&;*ZGF{2WW{HO*ve;H<`6U@T?fN9g=Z81XVbmg?Y1L z_*WWinU%!s@Y1YgRt=YDjbaPIe|B>1>iYJ#t4$FO!VnqycO2Dq%EeY{?BQ-zlkH*wd2BEO4PEKk&xgl9vcE_vHrK?~&AYSL1z7 z*7lCCB#+@VRAbsUe@VB=NxP`{Kc6TW6f&M(Q~an=l7Br?&iSR_^TjH8Ucy=pwQWAyRpoYJy)1A;(d*`hKWfeNZ{~ zq2gCtB>!5VoWF;<`>o6eRVy=mB=7{ATw0^Nxq<^K{3`T4b+!R%p^9s}9D=Q1GzM&WT0#3G6|Uz#v$NYOz65a%K=TEz#Mh zkiNv=H-m(@xhGh7t!bWao%O;W9wOXI4H3$`crbJ!{^G#`mv;_^Yuj}5!r*}sZ+hXI zp#rfeln}c@2{AoPB%75$_fmr|38R$r&M@d*iv1P__Ew!A4g3)G{w?@(yRYFdWEL8LZI$|BLplyZ0tA`1@tP#4A zXdNaDvB%&N5=VzgGpB}u1v7kh7@1)avVyhk%C*b$(h(T#BI3n{^7WLnlM#LH%~Q#^9;DFW>UQ|4=8CFLmfa=o>n0#VNud%p{yv z>3pUkW0-G%WfQiCK{2d1NO8Lq{iPv-=EtSRHKl=fsxB;Qpp`VNR?-+{CGb3}(1@(D zN`FOviVJU%+ECh@mtJEAf58eFT?XQa9=T$bX$y`da!e#uq9Ib|A(CKM;DlZELZtNh z7~X&}?|+aQ=aE8xK9bb8atgMQli@Z39cd#pTNI(CM^PtHM2{v%$1pO2(QIWMeA{^D8lMa2+DVh~}{Q#mb6_EhZU%?hYF?5-jWSQXB<# zjNzTpAApE1HO>lkY8q%nlCSzP>hcw!v%!aprA%#5UgwSMA-|4G~%TE?%GFOY1!o$<=PA~k|l11$2lL_it zGSok&bDl!i*6KW4>FZ@5IiI_f2BgEgO z6V&B&g38Jm7;3H;{_`0E>g5b*!rsRbFN+ulA^prTFw#md{Cy6Abi_eUopOjRHYF2!x9HrFNg8#Tq;Y?y&@jKu z9N532tbzHPvMAClit%a|#h8{ouxzy#{*r8g@kloLF*QdPepQYHaTh*Mlo5}$IplR$ z4oSb7Bbv?jCnfAz>MJ>jY#Wj*RozhT>wZ+O%*&))x|h^T(k#o9;+|luz3^YoLnG$U zu>)(Bd*MGcR%o5@vihADe%3gVs(Z)D9Bmr+?}4?b96dRXa`fUj%F(%Tw4dL^3HS4~ z@wA`UkEi{-5vlD4!x10&c8-Ux#|6=YJHnaqx8o5nV($A*^Mu>{xPJV%Cx8W?VlPhs zdxy^dHUYZuq2>Ans7LBMNySbiM@lAwWv9-jLU)J38zz!q;v}(TYn*f&Tr`~9=z6() z-pg`mzRX8bzEpP?x>3D8rRP&V%JL~659O1s<4RcMOf;t3*8397?DGIyrNFND)9b&l zh875PHWJde8$6+a!dg>65kH3$rvAMGO8w0ON_}vlxRquXic7|JSE2OWv*+d)f_;b1 z+X`i;K3xd)NFGw;dxg-xL$_V(r`*3(Ulr2D@r_z`XXT;_)cH3>6l6d#J=did(+gN} zF=;F;mZFar%l&8{uHxPLc(F*J?d@XeiQC;`d~+4Y1(LFTqn1Uc`afw0l#nHBi7M*%-%6sk1Cyoup8g$^x^GI|zoIa{`rcF!k!8{)vy9ADmXW!;%gCi!lG(0gc1!Zt zDD$-844%P)p`kT|zgtF5eTl0G98gZau}H}8G%k)s|COE6eFU{E>3; z9?rL;4gx(_PO#@B9{*>#bTqhv9353bB`d5LIOh5a0=}<;Fm_hReC-BNbql!Vt6g#B-c_RD{2SM!t`1KY^fzb*P;#rI%_4=p<3y~n-c0X3FT8a zFx1dG0p(iqOaLpYmLl|&D|*xYNphJ7-~9n{mk0j~Kj_)3N4h_fUi4Vr23PkQZSJp> zqt%nDFeHBN50Ld9eD|lvRu8`W(_@zh-~GMulm}mZZw%MyF9c;&7>*j{JpCSi+8Tnl z-)D83`;+i&v4)4+ztCdn#bx)W$GslQQ}Altr;l@gz5LW;+5KfQUH*$E|2f0ak?D~C W5@orT?K^zRU;XFyQr05ITmA)y0^Gm= diff --git a/lib/gfortran/read_xml_primitives.mod b/lib/gfortran/read_xml_primitives.mod index 7c1db22bdf..687f88ce7a 100644 --- a/lib/gfortran/read_xml_primitives.mod +++ b/lib/gfortran/read_xml_primitives.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '4' created from read_xml_primitives.f90 on Mon Aug 29 09:02:14 2011 -MD5:235b0d14c80f92b943d08f5cd7a2fcd9 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from read_xml_primitives.f90 on Sun Sep 11 13:20:50 2011 +MD5:3e005ad2b49de84dd8e5e80665ca0d86 -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) @@ -213,163 +213,163 @@ ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 64 'has_var' '' 'has_var' 55 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -234 'info' '' 'info' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +237 'info' '' 'info' 236 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -231 'info' '' 'info' 230 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -242 'name' '' 'name' 239 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () -0 0) -243 'value' '' 'value' 239 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 -() () () 0 0) -248 'endtag' '' 'endtag' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 249 'attribs' '' 'attribs' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -247 'tag' '' 'tag' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +248 'endtag' '' 'endtag' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 251 'data' '' 'data' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 252 'no_data' '' 'no_data' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -265 'no_data_truncation' '' 'no_data_truncation' 262 ((VARIABLE IN -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL -()) 0 0 () () 0 () () () 0 0) -267 'report_errors' '' 'report_errors' 262 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () -0 () () () 0 0) -266 'report_lun' '' 'report_lun' 262 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -268 'report_details' '' 'report_details' 262 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () -0 () () () 0 0) -264 'ignore_whitespace' '' 'ignore_whitespace' 262 ((VARIABLE IN -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL -()) 0 0 () () 0 () () () 0 0) 260 'mustread' '' 'mustread' 257 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 259 'fname' '' 'fname' 257 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +258 'info' '' 'info' 257 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 250 'no_attribs' '' 'no_attribs' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -241 'no_attribs' '' 'no_attribs' 239 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () -() 0 () () () 0 0) -286 'datafunc' '' 'datafunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 304 0 (305 306 307) () 0 () () () 0 0) -285 'startfunc' '' 'startfunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 308 0 (309 310 311) () 0 () () () 0 0) -287 'endfunc' '' 'endfunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE) (UNKNOWN 0 0 0 UNKNOWN ()) -312 0 (313 314) () 0 () () () 0 0) -288 'lunrep' '' 'lunrep' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -284 'data' '' 'data' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () -0 0) -289 'error' '' 'error' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +243 'value' '' 'value' 239 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 +() () () 0 0) +266 'report_lun' '' 'report_lun' 262 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +267 'report_errors' '' 'report_errors' 262 ((VARIABLE IN UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () +0 () () () 0 0) +265 'no_data_truncation' '' 'no_data_truncation' 262 ((VARIABLE IN +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL +()) 0 0 () () 0 () () () 0 0) +264 'ignore_whitespace' '' 'ignore_whitespace' 262 ((VARIABLE IN +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL +()) 0 0 () () 0 () () () 0 0) 283 'attribs' '' 'attribs' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -293 'tag' '' 'tag' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +282 'filename' '' 'filename' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 +() () () 0 0) +268 'report_details' '' 'report_details' 262 ((VARIABLE IN UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () +0 () () () 0 0) +285 'startfunc' '' 'startfunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 +0 0 UNKNOWN ()) 304 0 (305 306 307) () 0 () () () 0 0) +284 'data' '' 'data' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () +0 0) +287 'endfunc' '' 'endfunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE) (UNKNOWN 0 0 0 UNKNOWN ()) +308 0 (309 310) () 0 () () () 0 0) +289 'error' '' 'error' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) 292 'info' '' 'info' 291 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -297 'no_data' '' 'no_data' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +288 'lunrep' '' 'lunrep' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) +286 'datafunc' '' 'datafunc' 281 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 +0 0 UNKNOWN ()) 311 0 (312 313 314) () 0 () () () 0 0) +263 'info' '' 'info' 262 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 296 'data' '' 'data' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +295 'no_attribs' '' 'no_attribs' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +297 'no_data' '' 'no_data' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 298 'type' '' 'type' 291 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -295 'no_attribs' '' 'no_attribs' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +301 'text' '' 'text' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +300 'info' '' 'info' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 9 'int' '' 'int' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 8 'text' '' 'text' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -301 'text' '' 'text' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +294 'attribs' '' 'attribs' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( +INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 11 'text' '' 'text' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -14 'text' '' 'text' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +12 'string' '' 'string' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +293 'tag' '' 'tag' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -18 'text' '' 'text' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -16 'lineno' '' 'lineno' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 15 'int' '' 'int' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +14 'text' '' 'text' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 20 'lineno' '' 'lineno' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 19 'string' '' 'string' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -309 'tag' '' 'tag' 308 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +18 'text' '' 'text' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +305 'tag' '' 'tag' 304 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -12 'string' '' 'string' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -311 'error' '' 'error' 308 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () -() 0 0) -310 'attribs' '' 'attribs' 308 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 -0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -305 'tag' '' 'tag' 304 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +312 'tag' '' 'tag' 311 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 307 'error' '' 'error' 304 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -306 'data' '' 'data' 304 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +314 'error' '' 'error' 311 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) +310 'error' '' 'error' 308 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) +309 'tag' '' 'tag' 308 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () +0 0) +313 'data' '' 'data' 311 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -314 'error' '' 'error' 312 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () -() 0 0) -313 'tag' '' 'tag' 312 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () -0 0) -300 'info' '' 'info' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -294 'attribs' '' 'attribs' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -237 'info' '' 'info' 236 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +306 'attribs' '' 'attribs' 304 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 +0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +16 'lineno' '' 'lineno' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +231 'info' '' 'info' 230 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +234 'info' '' 'info' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 240 'attribs' '' 'attribs' 239 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +242 'name' '' 'name' 239 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () +0 0) +241 'no_attribs' '' 'no_attribs' 239 ((VARIABLE UNKNOWN-INTENT +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () +() 0 () () () 0 0) 246 'info' '' 'info' 245 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +247 'tag' '' 'tag' 245 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 255 'info' '' 'info' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -258 'info' '' 'info' 257 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -263 'info' '' 'info' 262 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -282 'filename' '' 'filename' 281 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 -() () () 0 0) 89 'info' '' 'info' 88 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 269 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 90 'tag' '' 'tag' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 diff --git a/lib/gfortran/write_xml_primitives.mod b/lib/gfortran/write_xml_primitives.mod index 84f8f8c6e1..738008e258 100644 --- a/lib/gfortran/write_xml_primitives.mod +++ b/lib/gfortran/write_xml_primitives.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '4' created from write_xml_primitives.f90 on Mon Aug 29 09:02:15 2011 -MD5:48dd6f881d713a003c12a48e5069f15b -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from write_xml_primitives.f90 on Sun Sep 11 13:20:51 2011 +MD5:37de84621905a4407a25775206b414e5 -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) @@ -190,134 +190,163 @@ DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 88 'value' '' 'value' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -131 'info' '' 'info' 130 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +134 'info' '' 'info' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -128 'info' '' 'info' 127 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -139 'name' '' 'name' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () -0 0) -140 'value' '' 'value' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 -() () () 0 0) -145 'endtag' '' 'endtag' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 146 'attribs' '' 'attribs' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -144 'tag' '' 'tag' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +145 'endtag' '' 'endtag' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 148 'data' '' 'data' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 149 'no_data' '' 'no_data' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -162 'no_data_truncation' '' 'no_data_truncation' 159 ((VARIABLE IN -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL -()) 0 0 () () 0 () () () 0 0) -164 'report_errors' '' 'report_errors' 159 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () -0 () () () 0 0) -163 'report_lun' '' 'report_lun' 159 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -165 'report_details' '' 'report_details' 159 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () -0 () () () 0 0) -161 'ignore_whitespace' '' 'ignore_whitespace' 159 ((VARIABLE IN -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL -()) 0 0 () () 0 () () () 0 0) 157 'mustread' '' 'mustread' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 156 'fname' '' 'fname' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +155 'info' '' 'info' 154 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 147 'no_attribs' '' 'no_attribs' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -138 'no_attribs' '' 'no_attribs' 136 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () -() 0 () () () 0 0) -183 'datafunc' '' 'datafunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 201 0 (202 203 204) () 0 () () () 0 0) -182 'startfunc' '' 'startfunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 205 0 (206 207 208) () 0 () () () 0 0) -184 'endfunc' '' 'endfunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC -BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE) (UNKNOWN 0 0 0 UNKNOWN ()) -209 0 (210 211) () 0 () () () 0 0) -185 'lunrep' '' 'lunrep' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -181 'data' '' 'data' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () -0 0) -186 'error' '' 'error' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +140 'value' '' 'value' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 +() () () 0 0) +163 'report_lun' '' 'report_lun' 159 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +164 'report_errors' '' 'report_errors' 159 ((VARIABLE IN UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () +0 () () () 0 0) +162 'no_data_truncation' '' 'no_data_truncation' 159 ((VARIABLE IN +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL +()) 0 0 () () 0 () () () 0 0) +161 'ignore_whitespace' '' 'ignore_whitespace' 159 ((VARIABLE IN +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL +()) 0 0 () () 0 () () () 0 0) 180 'attribs' '' 'attribs' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -190 'tag' '' 'tag' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +179 'filename' '' 'filename' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 +() () () 0 0) +165 'report_details' '' 'report_details' 159 ((VARIABLE IN UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () +0 () () () 0 0) +182 'startfunc' '' 'startfunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 +0 0 UNKNOWN ()) 201 0 (202 203 204) () 0 () () () 0 0) +184 'endfunc' '' 'endfunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE) (UNKNOWN 0 0 0 UNKNOWN ()) +205 0 (206 207) () 0 () () () 0 0) +186 'error' '' 'error' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) 189 'info' '' 'info' 188 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -194 'no_data' '' 'no_data' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +185 'lunrep' '' 'lunrep' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) +183 'datafunc' '' 'datafunc' 178 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC +BODY UNKNOWN 0 0 DUMMY SUBROUTINE RECURSIVE ALWAYS_EXPLICIT) (UNKNOWN 0 +0 0 UNKNOWN ()) 208 0 (209 210 211) () 0 () () () 0 0) +160 'info' '' 'info' 159 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 193 'data' '' 'data' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +192 'no_attribs' '' 'no_attribs' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +194 'no_data' '' 'no_data' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 195 'type' '' 'type' 188 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -192 'no_attribs' '' 'no_attribs' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +198 'text' '' 'text' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +197 'info' '' 'info' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 10 'int' '' 'int' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 9 'text' '' 'text' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -198 'text' '' 'text' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +191 'attribs' '' 'attribs' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( +INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 12 'text' '' 'text' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -15 'text' '' 'text' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +13 'string' '' 'string' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +190 'tag' '' 'tag' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -19 'text' '' 'text' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -17 'lineno' '' 'lineno' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 16 'int' '' 'int' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +15 'text' '' 'text' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 21 'lineno' '' 'lineno' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 20 'string' '' 'string' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -206 'tag' '' 'tag' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +19 'text' '' 'text' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +202 'tag' '' 'tag' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -13 'string' '' 'string' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -208 'error' '' 'error' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () -() 0 0) -207 'attribs' '' 'attribs' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 -0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -202 'tag' '' 'tag' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +209 'tag' '' 'tag' 208 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 204 'error' '' 'error' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -203 'data' '' 'data' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () -0 0) +138 'no_attribs' '' 'no_attribs' 136 ((VARIABLE UNKNOWN-INTENT +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () +() 0 () () () 0 0) +143 'info' '' 'info' 142 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +144 'tag' '' 'tag' 142 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +152 'info' '' 'info' 151 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +91 'info' '' 'info' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +92 'tag' '' 'tag' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +93 'indent' '' 'indent' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +94 'values' '' 'values' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +25 'info' '' 'info' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +26 'tag' '' 'tag' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +27 'indent' '' 'indent' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +28 'value' '' 'value' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +31 'info' '' 'info' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +32 'tag' '' 'tag' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +33 'indent' '' 'indent' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +34 'values' '' 'values' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +102 'info' '' 'info' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +103 'tag' '' 'tag' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +104 'indent' '' 'indent' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +105 'value' '' 'value' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 114 'info' '' 'info' 113 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 115 'tag' '' 'tag' 113 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 @@ -410,69 +439,40 @@ DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 64 'array' '' 'array' 60 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 ASSUMED_SHAPE ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -211 'error' '' 'error' 209 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +181 'data' '' 'data' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () +0 0) +211 'error' '' 'error' 208 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -210 'tag' '' 'tag' 209 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +207 'error' '' 'error' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) +206 'tag' '' 'tag' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -197 'info' '' 'info' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -191 'attribs' '' 'attribs' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -134 'info' '' 'info' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +210 'data' '' 'data' 208 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () +0 0) +203 'attribs' '' 'attribs' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 +0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +17 'lineno' '' 'lineno' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +128 'info' '' 'info' 127 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +131 'info' '' 'info' 130 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 137 'attribs' '' 'attribs' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -143 'info' '' 'info' 142 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -152 'info' '' 'info' 151 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -155 'info' '' 'info' 154 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -160 'info' '' 'info' 159 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -179 'filename' '' 'filename' 178 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 -() () () 0 0) -91 'info' '' 'info' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -92 'tag' '' 'tag' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -93 'indent' '' 'indent' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -94 'values' '' 'values' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -25 'info' '' 'info' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -26 'tag' '' 'tag' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -27 'indent' '' 'indent' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -28 'value' '' 'value' 24 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'info' '' 'info' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -32 'tag' '' 'tag' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -33 'indent' '' 'indent' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -34 'values' '' 'values' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -102 'info' '' 'info' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 166 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -103 'tag' '' 'tag' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -104 'indent' '' 'indent' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -105 'value' '' 'value' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +139 'name' '' 'name' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () +0 0) ) ('reshape' 0 22 'write_to_xml_double' 0 23 'write_to_xml_double_1dim' 0 diff --git a/lib/gfortran/xmlparse.mod b/lib/gfortran/xmlparse.mod index c2b67a6330..eed1dab200 100644 --- a/lib/gfortran/xmlparse.mod +++ b/lib/gfortran/xmlparse.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '4' created from xmlparse.f90 on Mon Aug 29 09:02:13 2011 -MD5:392e8ac05d894165a1260dd33194e88b -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from xmlparse.f90 on Sun Sep 11 13:20:49 2011 +MD5:655e28c1e6643240ddb018161f15a54a -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) @@ -98,6 +98,55 @@ ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 90 0 (91 92 93) () 0 () () () (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 94 0 (95 96 97) () 0 () () () 0 0) +85 'text' '' 'text' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +86 'int' '' 'int' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +39 'fname' '' 'fname' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +40 'mustread' '' 'mustread' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) +11 'info' '' 'info' 10 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +26 'info' '' 'info' 25 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +27 'tag' '' 'tag' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +28 'endtag' '' 'endtag' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) +29 'attribs' '' 'attribs' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( +INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +30 'no_attribs' '' 'no_attribs' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +31 'data' '' 'data' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () +0 0) +32 'no_data' '' 'no_data' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +72 'info' '' 'info' 71 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) +73 'tag' '' 'tag' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) +74 'attribs' '' 'attribs' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( +INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +75 'no_attribs' '' 'no_attribs' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +76 'data' '' 'data' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 +ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () +0 0) +77 'no_data' '' 'no_data' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +78 'type' '' 'type' 71 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN +UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () +0 0) +43 'info' '' 'info' 42 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 44 'ignore_whitespace' '' 'ignore_whitespace' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) @@ -160,10 +209,10 @@ UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 99 'tag' '' 'tag' 98 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -85 'text' '' 'text' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -86 'int' '' 'int' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +100 'attribs' '' 'attribs' 98 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC +UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 +0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 88 'text' '' 'text' 87 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 89 'string' '' 'string' 87 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 @@ -186,55 +235,6 @@ DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 38 'info' '' 'info' 37 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -39 'fname' '' 'fname' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -40 'mustread' '' 'mustread' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -11 'info' '' 'info' 10 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -26 'info' '' 'info' 25 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -27 'tag' '' 'tag' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -28 'endtag' '' 'endtag' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -29 'attribs' '' 'attribs' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -30 'no_attribs' '' 'no_attribs' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -31 'data' '' 'data' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () -0 0) -32 'no_data' '' 'no_data' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -72 'info' '' 'info' 71 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -73 'tag' '' 'tag' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) -74 'attribs' '' 'attribs' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -75 'no_attribs' '' 'no_attribs' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -76 'data' '' 'data' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 -ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () -0 0) -77 'no_data' '' 'no_data' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -78 'type' '' 'type' 71 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () -0 0) -43 'info' '' 'info' 42 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (DERIVED 49 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) -100 'attribs' '' 'attribs' 98 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 -0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 101 'error' '' 'error' 98 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 103 'tag' '' 'tag' 102 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN diff --git a/lib/intel/libxmlparse.a b/lib/intel/libxmlparse.a index 5b7040359de943981fdceccf7df4cb876619a1c7..6025a8f656b3ca5cd3bcf49ec58df222ca26595e 100644 GIT binary patch delta 10923 zcmcIqdw5OPwqI-QJlU1Rjy$%A?U8aklbuA~k4>U^l8}&)m*6PJn^w69B|TElWUA%e z$I;6kbRj;c0_qGT$Hwb%dcRr9=n zcNZ$k|MR78zM>3*fBu)3yF^`~wVgSB%CuLpC@bysx6DiZ?GRj_Ve@|CV)X7i{-z3#dg2AynKgRyL$vkf+V6C>FiT zCe@~Ova*Hkg4CYwx7yXHp{*W@(q7S&MFB``q^RMnuYYi8vL~XE;fNNfcrRn+{=wQD zPu9*aNLy;$LRXWo(uE}O$T0S>Pr2`L^!*BbFALuY^hw8?^53jeKyYY~7iLW-)In%3 zme0|_gia^apEQkS3j%_j^9ilWMp8k0yf=`&k*`J=1z~u<>;-ek>Bs8|WpKQN=5!73 z{e95hSWb2-&o;9Ak3su%@;~cql;m(5xFz=IO@XMpMiU!vN{Qm4BAmix0$ zVcoH;x^HE1AAz{6x^K9?P(z<{$s^xaEJro2>xd!k_`(|~t#y8BO^jb{N^@(gkg{|( zYbtW6)0kgzSMQs*TU)d0zGG2Cg4mGa54A40S(p3}_HuDIR+eAJ-WoAj8+eO-n;XRL zjwsQBn%w0hBUJ6q9qtvw_LnU7P2$sAleKd8i|#?C=d>=f_`&3AJ?dKWXzaqn%Lh4j zsD8C$d0AceJ-VxYOZ_Y?r7SzqRd+P6?$$F?%B#EaFQ=4Qd!H>Uo2z=cwem!(y4RgD zah0k@xKBoI8Ibywx*hJJ&EhH{aJ?<$J7FLam8?T4~tqkXhaNe#Z|sw z#Ym?gJYdnT)~w$C9{u=FzJ7j&#p+GIf!r9zPaQGDGTp`vF}|!}<-e;JSi-99>QeXR zRl8Jm09(Aa1KYl)iyF`Vye7;yR+%z>3LJ6V-kH5n|DqNjsUP`K?Z%?(1KH&IZnk)( zUtXoNa(L0OyzHU^*Pz_WIM$`!#@?$>=n?Y_79aPFX@HYy4H0~mLgs>oNUmXOL!1^9 z$F?^Nu~g5RWdIJ=jYYBuy?(M9$R;wIp7>C0&sMQOz3QQA(<7&emFZl(kX%x@oFSO>i$>`;i*>Z2BlCQ#aY#I-Sa|r_HRKIeyGImR28XiHb_l zlkTWJR43c5hp^-8y7GuKHrm*Ybt(GIyFB+l^HJRWCy z>qFRj=g&yedsJTsCr-@3}ud6N_L0`%k?C>DHF*KOB)^#EtF@S zWbZH8f7eG(Tcifr_eeNw2EmK%tNSfbgS6N2&dwjS>Y)o%tM+qWLtu^ty!iluAmj{u z;3JsqAS8ibBH&!fE(_ey&q!oHVTyMXg7I;`pZ+Z`NX-&Z&xgo&8$T)yWQTkZLgahT z{MAUDkR|Gu@q{R>tRBV6-wsyk(}^fO zZ3(aUxhS^fqu?mwipjQ+_-@W8G3CiFa$?Ri5-u0{HsPJ3kuTzkBKMCriX1W8g!iE$ zOd`8c1GfK2H?2(!X3U2}mJf*7m+tU+T#T_yobM8DuHJ{w;T_^UzHjV*HQ^8w#$AeA z6^oxCE_6t=eFoWu9(sXO7R92TPb8jP!Q;>2o#Q;v^SucV#PrGw12FEq0l%zg71@Oz zYLK#pcwb69SG7IGp^pEiRZNEamB&Ru_| zgTgZ&c_0*CwgWx!vtK+;u)l=!cS@y%-Uw644vm0#q7lXMdgoVp;a)cJs))BJUay?V z7yOEN)V0kNN9Z~w@j+KS>H3;<{UqU_>otn+1&0qGW?h{UP*-2VVZOjyM7+!d)HNqT zU%iy;e?y8RH)wl;QI{OI6bH^hD{Yx$5-*Y4MO`jR{*c#)@+yh?A9=lUe8HIy&>hMz zQHLPO4s{mxG_s4n?V@9Ex-kuTn%$GJq(2|`?|PVW3@2as2r-1FNy%8! zxl%09cAR)Cld+_yBwWt*HRiInNI38ti654N@q4FmBOjvVX9-VB!J3w*U`;1Vevqd- z{g%3b>_C%i$|Qftdx_%iOTn5Rl6Z1WPfB*VrvH%Q$@6SQeeC=R|E||5N552_kPrAM z*EBN~=Uha%nDcGoy_||Q-67#}u05$nE$m-QILz$<@qeQDUTKj1Nlp2m7mQ&~!}u-< zhxp>C%uU1i(KpHTcO5)Sdjk$02g2c&Z&A7cK?h#!@X@m=W# z{1{(DcxgJWiG%6*OnXFrFn#%L;a4tvL;28U_-Xg)o;1*~=M)ZnI({U@uaN9;N?XxQ zsU*$iT*L!Z^BqBHSjF@^j@m{Dt;P)lF+~2=Q@nHVDNXOYs?C%2!hkWZPpZ8$M`s~3JJ{arYmvFH$-yxoBF!pz` zgv)uC561rPl5j7cX9w{cDgL)6d>7$&F@DWIB^)+VJZ&WHB~XnA2H0cB9zb>olfW<0 z?|jKF*K?F)m)G|?wChE))BwAioJ0}UQ*pm~$tV)*_+S2A-yz#0@)f_$iodg3vT(un z&cebZWpQJLEWcTEFh~cFu6=a7v@<}=!?RwFCHK68C zl2ZhC6v<9W_O6os8?v|IHXnZNq{)9T`OC-eBa{Cw@_!+hlNIIJ-;~1;FrMe|i>(m! zVlKY=CrY@yO~;ZQgn9F8FO-6hDY>{!S4uc+mwQyb&8B!FpF0<~=@ApJg?L});x@e^ z@nyZ=lU|=ZL&oFx6Y<^{MRuY0D(OwiL%pLV9Q2C!hDoM)Lhs@{T(xhQcwrQGC)wNb zSkSoFs1dvKa2|~k5AeN&e}j7LwtU`3AoxDW4npfcXHPL3oyA2UB-`!I(sL zp=Uqkn?`n6wcYq7=Jy9Fj@;k9XvgE^oa6)|JV?aDd~Bxo5N_l{h_n*kaR?S+poBvb z(UiO)xTR-EIK=Nm{Q4nS{BL zzmwiO5?|K)ko1NW@ML_zd}O^YvWrc#g7oGVpx)m|IOyF>dgqzq3BC0N)Hf4v8}Sa1 zUGz|aLw&xWxQB`VgM`cV{Ri>wMNjL#O8mqktYel5ze#vmk)f}; z!GxcoSAv6Nhjk#o5?nF)2U0v+G3o$+_+47`b6~MCPc6IHI2Y`{mi**(#ESK|SMYc7 zE$Hw3l>9_LyHlQ%Ccen?T`~6Qx{23^c;)* z-$vm1_AdFE&x;chANswX_U9Rl@4P4B(C;FOZyAaDL_9Gs`$+6#Pr`++GU6qVMEx}* zvCg$4S>G>%)sd+39aB{CDsWng1}aNP<#~+a)Jjl|$aa-hMF82&Dtne-_4}H5H;Ff# z?4tVOR4XY#^~*}I`ddx>d&K`3{p`M_Pjtz;ZKe95SNLD>Bp8a@LiEZ~lsC?Vdr%SI zB)gC&Hu36Gly|5U<$Y=5TZ!LHelL!~MI1Sb7SpIFazRfr`M)v>^~^Kj8HB$>cA-bS z@4r6^^_-^o*G&98;VT!Z(s#0dIy0r;a7=Mn5znA!Lpr3QM2|qyiSyOx~G>?yqsLOt%%J}&BHQ@{5J;J#5PGb-^ z_q^K}?D;SWw{usqCRUF@-TMd^JwHkD8^>UMFPiW(g#R!G`{rN$w7v_3$B|vs%|Y`@ zuEx08CZ6~;q`VsI`hGR)J7)5`N%1dJoF)@~kMI_Z)HWV-Fh`cAZ#5{~BX6!=xSl8$i&fEGTU8sM zdEQ(W(8MFfYW|wdsvnHeg4*QGMSjn=`rm-R^ma&_*-OzDXVoiWwQx%(9^y3rQleE+ zK3IcLNTD7+fI~eA;*I+JGD7}(-A2{HGMn3b<2NPa-4)H{zo!ogtfD#SPiHr(+cy0V DSPrs< delta 10153 zcmcIqdstN0wLklaWJDsvYrxUq#A50bhjE7Y`z7)aRFJoz&8Ma{O6nt86^u$-lN6DS z_W&BD%9m)9HrVkqsf{hy*o&!r^>J!h&qRqPtiPc(Ae0KfZ9U<%_ndz zqqXKBb=^p6_pzwk^vl?K^i`h5{EV5eBlI)o+XcRV1>Y;ecM|v{!9}@86Mcim26{r) zBt&h9PNAz9nvQ5SqGr^zgzonZa%@CYnFB#)Ke+Bf`?;y`zIPm4uXyr3WX)hjM`b}Y|9wA-t|UXA{L8>N@z4_^E-aR%!Mk2aTqml-Zf8rp4T?he1` zX=DZcDn5^lqA>|`OhXx_x=x?E(X=b!2pM#5NL;4QxDlu*uhiMU85){(;dgwyv2~N# z8=tx7>n`}zonh#<6Uxn@A;qWeSRj2erJdBcf1A=r$Wq##mQP~n?X-`{HhMNad1Trv z%#->igwW|36+S?12o`PLMur`}XpYxk*J+cz|nUN_{ky@R$C+Q^&qc;Q5K zav%M)@B_7?mp0@EQ~!nEqi1rXLd9=FdA>j|lF@B7hd)%}~5)q(Db+kb9S zd&g<^rNlx{z8a_AezNfw_f@l>)_Ij#{OaS#PiS6!s%HSpeAPtH)mhX56TM#lI%%gn zcfLV#+>s3(gt+J~8b}9sJxwC%gvRm2N#h!G>2DeX=xdFBBuaa_myD;~jbj;nuQ6M* z-zEN9@CxEbpWE$EH_-rX+6od#8)+K7K__XwD@XvH*c7KtTghB1n&RkNO@10#N&M;g zrT~`gznUg#t5-4Xsonm>p#{A_V*SE$Djk&z3g+j`DacPw&901cX-E241Q(X5j;8x| zKcn4#fe|;-0Qc9s+sTv&#TXOra6G~mPLFG$l(YtDdvB2d5>7X_1XJ5C6a9X(l@>O~ zYY%QS+J!BCG^r(k{;9>Ee%kD>J-Ea6Xud;&X-!KAeRBkxbms91d$l)DWi}TR-gSpe zqF*!9au(#@8mRq@B~Tqs&322GV{vOBEohx>aYg^DsEBZSq;&$l+8Rq|?Fmqw(e!+) zKds*5ua)*QjV|`%RC=M+kJxF;p7Hd9JptM&Rt?qZpr7uEWp~shGE1)y5oOZ+wPn2| zkiAdtCH^E*s~#jSx9@BD6V>a}w7%8EQtLS#4kUkIdBczTzfYl^9aDuJbmcT+GtkZt zJHPu348bau>@y|%GPHAk&eP3ae60h!c5DmrRqsvL&eyQ}a>fj}Zi6dr>GamVT}`~z zt{K`+Pu1eMGy|e}_GtDJ+2g~$v&*U~!hoo*& zE!6i~IOuyPTubD7uHpMM2gEfy9?g3caP@Ns)S;ifXLV4YnWeq7gI!&0aQMF4X6Zci zrT2ra!A{`f8hF|Hm9LpjeR9+lPCdrD;W2(MJGJmyR_j&+4lIiD2jFo`bAg4|Ql6YR zw2S=s{8h4DkpHJ_%9&;>eT-kb3-TW|-~lM$Bj9nQM?5-z3ED+|EUmIU0`j*-K>lAp z#_v=FG30>Dw*Ih&07K}4T>$~fpDI5%6OO&v%V z5Ci3KN;pqvMm!bm#x|A4=xw5hPn*4h(RXtUl;DKK#Y-=8bwMs`kA(AFHjMXn9^VGZtE(8>?&1Dv|tnp1bJxJlc&V-6r|-yzg=cwqB3bK4&AB^|llz*YrKf zZe{+W)?Z3|@;?6w`W!xSI{olIIx$}e+Kn}J#X(JX{Mqbv8hwl7pr*|dmz?WBoL&oS zmxS}Zox}KRz-hf>z&}FVD;{b(IUZ{2jQ>tE&l8HjJ7l7rhw=7_FB~}_TvJW5%Qfwk_~d>58T2{6l5n2yI_A4);1l}H2~gALy3Jm_=sPO`YPvds5wK-E z6PpvDrUxXP=empWCxO#?-heAOe_tZMccM-|%r9<@mPFu>m2l3#9OKIp;T)_q;MIu# zG!gXwTEcm)#4YX}_~z~#|KHe8~gR?;SXE4 zlJv*4x*=KjQ~w>Wo+-M0$@mnA6a04MpCZ}$UD+Gllzg=FJp3*zdbm#V=eN}9cuTEI z(Qm1>J0+ag;a!~BHi?fPRl#>mvdc61zGRnYvd6%G9r^EoUAwcI_&O}9ECX9&vr)L& zNoZFY#z}>UxKwCzwjnMF<0@03$*mI3Hz$&}r@|0@AmO~pnHYZq`R^L=e8j!epvhCy zbRI`U8VhDi9ER<<$t<*U{qn)Dfw-)f4RQGxx9>4=Z%Y2WnFBm2TPM?CXf8`Q-|t7L z_e;snn+I5*2fkS5vXA$VTm;KTX1U zADS`W>jpm2{}buZ|87HE8^&EphyL3#7#UllFCy>M4CsHJg!8W59b!OT$hQt4fwkvH`+yR z@yEA=nV1{-FB#%Hg%0qmeG&f@CiZ?B@p`oL8uRD0sPSJ6{%bry|0T&jl9__RtUQo- z(Y~4-QEf3kaY#90}hx5aFUWi}?4uy9Yz^^td}DAQ zk8}Y!ES9a&?8VEy2FpD*2j(p*M_bI>lad2-U5x%>yP?SQJowihG~j87cSv?_3S}?8 zE*SD3#rz+lozLm_*h{q8FPBGscaIWn91nK=0clN^oOo?KP{iU~=-Da*?v41iTz%8@ z#>ZxImEQk&CYesBelo%Fz~Jvh|IoR*mf_;9NAXkULh&-^Lhs@}N%9hB)z{ z&dr0_E|ubCy^Hg-@U0{$T!Lk}hb3Ar_f?eZ&V$kZPYLJk+lz9)kojoMWgP7X2KRP! z56y>N8%KLeKB&(`oL7a9emiz=em-_f!nusMkasi2?>FGxi2p7h9{VQ|=hc-TTW2M^ zT$TZekC#O}GCb$$dK}NpV@9?_7cXKy7utORe`QkJyHO7kH1KM^4xtZ@$x!t!gDaP z5aw=DA?Oi#Lou%t?Z&ywF4Xt$$T!4I$GCN97kv{SuQnFybywejyw($jcqhhRK)-(! z!oEf=1bsq>_?w9X?c#hl;lAP)!oJESocFH)`F~{K6ZPD>5c=9+h%3jq_JyGT8t_}c zmUzM$zu>vE5OkZ09<4hX?Lv0}>P{^J-9MCYeeQ5>HW>IszJ?;`$8JMh561l-?V=yz zBS2>n?57vbw!R_ZT=xLRcNK%aZUgRtb-jsp zp--Ii|AxHk_e+33zT{zj-WXp}0{ZGDT%Pl0j6WgaTwff<|GfnCePO`U5I2=VUZGEX zWPh?0>K9!K`ts0E)Gr6)p9MebZVBi5#Juju_)`+j^*xL6S4&|oZyN9whM@oQ)o`|rki?ZLeF3~}Pq$rI&Jp9STRe{DJF z6ZxM-{>F01uNm+ah#yD0$bSX%{}K4D-G;a|821U{gNXCG$meuKg?>)0&WcCZZCwTE zZbe+^-h})oDnR#11HK*cFVHS@i*t9a0_x(k2>2%~dblp)<5Jin-OrJ4z?+bNGuj3J zEv(DdMKCWr4RL!h?jZ2ez8mbn#3~=o-Htx4O4wVB0e=heQnZWQ;>=c7!rp#X347BF z@kcTKb?|eXH{kCfe%HWn;>}}g5Oi6+s`R(RpGi((Tu7Ck-x`m&vFE8((DNTlxRp_f zv+{No=>8kxqUYVn-&+N>9W>w<5g)x6dS+kDNZAtcmk}>QyQtfE+*kQx;C;>zcNOC{ z1F!n0#h~w+!LJAX$P(Zgv*h9Yw-6t{1oX`|-~))SM7z*uM}4c2cZ(s;gWsswY64#O zlyBCP+Trip@VgvaguV2875+`(y1_2KNu!L?-G}{ccw;$au#4~QG4V$ z{j4ui&0nug06(+JzHOCs)51(Nxz|Eh-ZZl>UeTmJi&y@72&mGR(I#t8cAj7=VCzqGSBT0FI3d6ukhGj0t)G delta 28 icmX>&mGR(I#t8OZ3V7=VCzqGSBT0FI3d6ukh9UkMlh diff --git a/lib/intel/xmlparse.mod b/lib/intel/xmlparse.mod index 38864017971322cdf2ba1570db5008abe7ea8da5..0467fec0e06ef31b38036f44aec57d66a47cc1dd 100644 GIT binary patch delta 1350 zcmZ8gU1(cn82-M~<>w@6V!O6U+Whq=X-<-plcY(IiLG%SYgw9vG_9Q=al2S=wyX>U zv1~9!ul!l}IM9pPcq6@7H;3Xb6t;pghg3HZoKu;CIE4P}(lSBc?{t-RA0&C7=Y8Mj z{rSGU)i~cU$&9l<=S^|>B6z3+cmaQ>`%R~Ns4@zf4q411 zUg2##nNex<<%}DzW!yCWawcFr6>&@N6H@qX!9gB!cs#VT7l;?fxR3+JLQX&(>N$Ah z5vTtDgXj}>SOiSbIYTGQBJvRs86jYtm(jJ-naK5RsLM5Yk@Oh7Q^$3nDS_)9>A;HLyfOjwJ% zuo-npXH1Np*~xL^50hwNX`&X$u@oOcnf~W6AItEYSc`?F(`Lp#Fv6R0uZ5)uhVWlZ z6`B?*loH2kT;Zp%8IK9F727c%?uk}x zidKuR*s$(sbqmYZU7dTPgmVe2aA&W{iZ2pvLQW$2mc~}1jlYP05+QyEzNA<9-iDJ( zmoz?EVnLF2^Ra`mONItxwBbg%qLr9Th7)*O4e(`LRfGH|+*bYEi*5SP!k-H8&+%X? zB>dZfMyi{a@Nz2PeW#PLpZ6$@YIWu(zJQgKk6*)gDL)r+Hzo5?*wVfS&UP_&jQmad z^vV<;9xFXsW`LxU(cr)D>D7zUue<1ouv0gMba0|C6 zP{wxJBVY0CuUVPgQ`6Cn>lvq&ssu^vX;d;YH(@r@7Z~yG*Vof_^?$%B1v;^j@$m+J z&-C&%q-;M8O34QKI!akZ5Pc|T-9XkOj2f_`s#VI>dP9FE`qEx)1^klj6xLhNIq2*b zX@1Aas~=-IPZ+~#;^D#Gr>-1uYSn7FY7D3|u>Y2Zr!`xBv(J-zud05NM!h;&8es$E z{u&<*_VXUx7?jP+6n_a5InSYDydvg^7QQ)!cyD-KR_5E;#X9&Tjsa*m;B9pO@$%_2k3+6Ab5LW)t<& zid)Is@Os`ZygvXw