+ CDj=&Rt^RIt^RIt^RIt^RIt^RIt^RIt^RIt^RIt^RI H t ^RI t ^RI HtHt^RI5]P"s^sRs^s^sRsRsRs^s^s^s.sRsRs^s /s!Rs"^s#Rs$^s%\J./s&Rs'.s(Rs).s*Rs+Rs,.s-.s..s/Rt0RRlt1/t2R F t3R R /]2]3&K R F t3R R /]2]3&K /t4/t5.RNRNRNRNRNRNRNRNRNRNRNRNRNRNRNRNRNRNR NR!NR"NR#NR$NR%NR&NR'NR(NR)NR*NR+NR,NR-NR.NR/NR0NR1NR2NR3NR4NR5NR6NR7NR8NR9NR:NR;NRNR?NR@NFt6]6RA,]4]6&]6]5]6RA,&K RBt7RCt8RDt9REt:]Pv!RF]Px4Pzt>]Pv!RG]Px4Pzt?]Pv!RH]Px4Pzt@]Pv!RI]Px4PtB.ROtC.ROtDRJtERKtF]G^3RLltHRMtIRNtJ]Pv!]IR]J]JRO3,]Px4R?3tK]Pv!]IR]JRP,]JRP,RO3,]Px4tL]Pv!]IR,]Px4RQ3tM]Pv!]IR,]Px4RQ3tNRRtO]Pv!]IR]O]ORO3,]Px4RQ3tP]ORS,tQ]Pv!]IR]Q]QRO3,]Px4RQ3tRRTtS]Pv!]IR]S]SRO3,]Px4RU3tTRVtU]Pv!]IRW]U]URO3,]Px4RX3tVRYtW]Pv!]IR]W]WRO3,]Px4RZ3tX]Pv!]IR,]Px4R[3tY]Pv!]IR,]Px4R\3tZ]Pv!]IR,]Px4R]3t[]Pv!]IR,]Px4R^3t\]Pv!]IR,]Px4R_3t]]Pv!]IR,]Px4R`3t^]Pv!]IR,]Px4Ra3t_]Pv!]IR,]Px4Rb3t`]Pv!]IR,]Px4Rc3ta]Pv!]IR,]Px4Rd3tb]Pv!]IR,]Px4Re3tc]Pv!]IR,]Px4Rf3td]Pv!]IR,]Px4Rg3te]Pv!]IR,]Px4Rh3tf]Pv!]IR,]Px4Ri3tg]Pv!]IR,]Px4Rj3th]Pv!]IR,]Px4Rk3ti]Pv!]IR,]Px4Rl3tj]Pv!]IR,]Px]P,4Rm3tl]Pv!Rn]P4Ro3tmRptnRqto]Pv!Rr]Px4tp]Pv!Rs]Px4tq]Pv!Rt]Px4trRRultsRvttRRwltuRxtvRRyltw]Pv!Rz]Px4tx]Pv!R{]Px4ty]Pv!R|]Px4tz]Pv!R}]Px4t{]Pv!R~]Px4t|]Pv!R4t}]Pv!R4t~]Pv!R]Px4tRtRtRtRtRtRtRt]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4tRtRtRtRtRRltRRltRRltRRltRtRtRRltRRltRRltRtRtRRltRtRRlt]Pv!R]Px4tRt]Pv!R]Px4tRtRtRtRtRtRRlt/3RltRt]Pv!R4PtRtRt]Pv!R]Px4tRRltRt.3RltRt]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4t]Pv!R]Px4tRt/3RltRRltRRltRRltRtRRlt.sRtRtRt.R3RltRtE\zEP]4]R8XEd.t.t^t^t^t^t]EPR,EF3t]R8XdK ]^,R8Xd^tK]R8Xd^s^sK,]R8Xd^s^sK9]R8Xd\&'d ]1!R^4^sRsK[]R8Xd^sKf]R8Xd^sKq]R8Xd^sRsK~]R8Xd ^sRs^sK]R8Xd^tK]R8Xd^tK]R8Xd^tK]^,R8Xd]!R]!]4 R24K]'d^t]sK]'d^t]sK]'d.]!]4EP4]EP]4EK!]EP]4EK6 \&'g"\2'd\4'g ]1!R^4]!]4t\0'dP]1!R]!\04 R2^4]!]4t]!\0R4;_uu_4t]EP]4RRR4]'d ]G!]4R#R#R# ] dRt E L+i;i ]dt]!R]: R24RtAEK RtAii;i +'giLY;i)a crackfortran --- read fortran (77,90) code and extract declaration information. Copyright 1999 -- 2011 Pearu Peterson all rights reserved. Copyright 2011 -- present NumPy Developers. Permission to use, modify, and distribute this software is given under the terms of the NumPy License. NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. Usage of crackfortran: ====================== Command line keys: -quiet,-verbose,-fix,-f77,-f90,-show,-h -m ,--ignore-contains Functions: crackfortran, crack2fortran The following Fortran statements/constructions are supported (or will be if needed): block data,byte,call,character,common,complex,contains,data, dimension,double complex,double precision,end,external,function, implicit,integer,intent,interface,intrinsic, logical,module,optional,parameter,private,public, program,real,(sequence?),subroutine,type,use,virtual, include,pythonmodule Note: 'virtual' is mapped to 'dimension'. Note: 'implicit integer (z) static (z)' is 'implicit static (z)' (this is minor bug). Note: code after 'contains' will be ignored until its scope ends. Note: 'common' statement is extended: dimensions are moved to variable definitions Note: f2py directive: f2py is read as Note: pythonmodule is introduced to represent Python module Usage: `postlist=crackfortran(files)` `postlist` contains declaration information read from the list of files `files`. `crack2fortran(postlist)` returns a fortran code to be saved to pyf-file `postlist` has the following structure: *** it is a list of dictionaries containing `blocks': B = {'block','body','vars','parent_block'[,'name','prefix','args','result', 'implicit','externals','interfaced','common','sortvars', 'commonvars','note']} B['block'] = 'interface' | 'function' | 'subroutine' | 'module' | 'program' | 'block data' | 'type' | 'pythonmodule' | 'abstract interface' B['body'] --- list containing `subblocks' with the same structure as `blocks' B['parent_block'] --- dictionary of a parent block: C['body'][]['parent_block'] is C B['vars'] --- dictionary of variable definitions B['sortvars'] --- dictionary of variable definitions sorted by dependence (independent first) B['name'] --- name of the block (not if B['block']=='interface') B['prefix'] --- prefix string (only if B['block']=='function') B['args'] --- list of argument names if B['block']== 'function' | 'subroutine' B['result'] --- name of the return value (only if B['block']=='function') B['implicit'] --- dictionary {'a':,'b':...} | None B['externals'] --- list of variables being external B['interfaced'] --- list of variables being external and defined B['common'] --- dictionary of common blocks (list of objects) B['commonvars'] --- list of variables used in common blocks (dimensions are moved to variable definitions) B['from'] --- string showing the 'parents' of the current block B['use'] --- dictionary of modules used in current block: {:{['only':<0|1>],['map':{:,...}]}} B['note'] --- list of LaTeX comments on the block B['f2pyenhancements'] --- optional dictionary {'threadsafe':'','fortranname':, 'callstatement':|, 'callprotoargument':, 'usercode':|, 'pymethoddef:' } B['entry'] --- dictionary {entryname:argslist,..} B['varnames'] --- list of variable names given in the order of reading the Fortran code, useful for derived types. B['saved_interface'] --- a string of scanned routine signature, defines explicit interface *** Variable definition is a dictionary D = B['vars'][] = {'typespec'[,'attrspec','kindselector','charselector','=','typename']} D['typespec'] = 'byte' | 'character' | 'complex' | 'double complex' | 'double precision' | 'integer' | 'logical' | 'real' | 'type' D['attrspec'] --- list of attributes (e.g. 'dimension()', 'external','intent(in|out|inout|hide|c|callback|cache|aligned4|aligned8|aligned16)', 'optional','required', etc) K = D['kindselector'] = {['*','kind']} (only if D['typespec'] = 'complex' | 'integer' | 'logical' | 'real' ) C = D['charselector'] = {['*','len','kind','f2py_len']} (only if D['typespec']=='character') D['='] --- initialization expression string D['typename'] --- name of the type if D['typespec']=='type' D['dimension'] --- list of dimension bounds D['intent'] --- list of intent specifications D['depend'] --- list of variable names on which current variable depends on D['check'] --- list of C-expressions; if C-expr returns zero, exception is raised D['note'] --- list of LaTeX comments on the variable *** Meaning of kind/char selectors (few examples): D['typespec>']*K['*'] D['typespec'](kind=K['kind']) character*C['*'] character(len=C['len'],kind=C['kind'], f2py_len=C['f2py_len']) (see also fortran type declaration statement formats below) Fortran 90 type declaration statement format ============================================ F77 is subset of F90 (Main source: IBM XL Fortran 5.1 Language Reference Manual) type declaration = [[]::] = byte | character[] | complex[] | double complex | double precision | integer[] | logical[] | real[] | type() = * | ([len=][,[kind=]]) | (kind=[,len=]) = * | ([kind=]) = comma separated list of attributes. Only the following attributes are used in building up the interface: external (parameter --- affects '=' key) optional intent Other attributes are ignored. = in | out | inout = comma separated list of dimension bounds. = [[*][()] | [()]*] [// | =] [,] In addition, the following attributes are used: check,depend,note TODO: * Apply 'parameter' attribute (e.g. 'integer parameter :: i=2' 'real x(i)' -> 'real x(2)') The above may be solved by creating appropriate preprocessor program, for example. N)Path) __version__symbolic)*fixcz^sRs^s^sRsRsRs^s^s^s .s ^s \./s Rs ^sRs.s/s^sRsRs.s.s.s.sRsR#)rrN ) strictf77sourcecodeformquietverbosetabchar pyffilename f77modulename skipemptyendsignorecontains dolowercasedebug groupcounter grouplist neededmodule expectbeginskipblocksuntil usermodules f90modulevars gotnextfilefilepositiontextcurrentfilename skipfunctions skipfuncs onlyfuncs include_pathsprevious_contextQ/data/cameron/venvs/s3viz/lib/python3.14/site-packages/numpy/f2py/crackfortran.pyreset_global_f2py_varsr)sIN EGGKMMNK ELr"ILKOKMKOMIIMr'c\'gR#\'gMV'd$\PP \ 4\PP V4R#R#N)rrsysstdoutwriter)lineflags&&r(outmessr1s> 7 5  JJ  - .  r'zabcdefghopqrstuvwxyz$_typespecrealijklmnintegerintdoublefloatcharshortlongvoidcasewhilereturnsignedunsignediffortypedefsizeofunionstructstaticregisternewbreakdogotoswitchcontinueelseinlineexterndeleteconstautolenrankshapeindexslensize_imaxminflenfshapestringcomplex_double float_doublestdinstderrr-typedefault_bncpV\9d+\RV R\V, R24\V,#V#)zrmbadname1: Replacing "" with "". )badnameserrmessnames&r( rmbadname1rp s6 x)$x7GtLM~ Kr'cBVUu.uFp\V4NK up#uupir+)rpnames_ms& r( rmbadnamerus%* +UrJrNU ++ +cpV\9d+\RV R\V, R24\V,#V#)zundo_rmbadname1: Replacing "rjrk) invbadnamesrmrns&r(undo_rmbadname1rys8 {.tfH[=N>@IIR23 (D ! !W,,v&C~~foo..&!4!4f6I6I JKK# >??##"  22" !s5A.D6$7D6D66 E c@Rp\V4PP4\9dRp\ VR4;_uu_4pVP 4p^p\ V4'd^pM\V4'd^pRpV^8d{V'dsV^,R8wdSVP4'd=V^,pV^,R8wd\VR,4'g VR R R8XdRpMVP 4pKRRR4V# +'giT#;i) z(Check if file is in free format Fortran.FTr! NN&Nr ) rsuffixlowerCOMMON_FREE_EXTENSIONSrreadline _has_f_header_has_f90_headerstrip_free_f90_start)fnameresultrr/ns& r(is_free_formatrLsF E{!%;; %  !    A T " "AF!eAw#~$**,,QGtOR(A(Ad2bkUXFX!F##%D  M   MsA D #D 4AD  D c  V'g0\\\\\\ \ \\3 pV.8XdR#\pRpRpRp\P!R\P4p\P!R4p \P!R4p \P!R4p V'd V!RR.4RRrR.\^ 4U u.uFp \V 4NK up ,pRs\P!V\ R 7pVP#4pT'gEMTP-4'EdRsTP)4s^sTp ^sRs\.P0P3\4^,p\5\4P6P94\:9d&\=T4'g\?T4'g^sM(\A\4'd\?T4'gRs\'d\BsM\Ds\GR\: R\ \'dRMR R24TPI4PKRR4pTR8XgTR.,R9dMTRR.pKRp\MTR4wppTR, pTR,P94R8Xd'\MTR/,TR,,R4wppR pTPO4R8Xd\R8XdMRpEK\R8XEd^T^,R09d7TR,P94R8XdRTR,,pR pM,RpRpEKG\'d\QT4^H8d TR,pT^,T9d\'RT: 24hT'd \'d5\QT4^8d%T^,R8XgTTR ,,pRpRpEMT PST4pT'dTPUR!4pT'd-YzPST4PUR!4,pRpRpEM{RTR,,pT'dTP94pMTpTpTpEMJ\R8XEd$T'gXR"8XdyT PST4'dbTR#,pTP#4pT'g \WR$4M#TT,pT PST4'gKGTPY4pT PST4pT'dTPUR!4pT'd,YzPST4PUR!4,pRpRpM:T'd-T'd\[T4'gTP94MTpMTpTpTpTRJpM\]R%\_\4 24hR&TPa4^, R'\ R(T R)2sTPST4pT'EdTPUR*4p\.P0PcT4'd\eTT^R+7M\.P0Pg\4.\h,p^pTFZp\.P0PkTT4p\.P0PcT4'gKJ^p\eTT^R+7M T'g1\GR,T: R'\.PlPkT4 R-24MT!T4Tp EKT'dTP94pMTpTpR&TPa4^, R'\ R(T R)2sTPST4pT'EdTPUR*4p\.P0PcT4'd\eTT^R+7M\.P0Pg\4.\h,p^pTFZp\.P0PkTT4p\.P0PcT4'gKJ^p\eTT^R+7M T'g1\GR,T: R'\.PlPkT4 R-24MT!T4RsTPo4T'd T!R^4R#Xw sssssssssR#uup i \$d7p\'R TP)4 R TP+4 R T R24hRp?ii;i)1z Read fortran codes from files and 1) Get rid of comments, line continuations, and empty lines; lower cases. 2) Call dowithline(line) on every line. 3) Recursively call itself when statement "include ''" is met. NFrz*\s*include\s*(\'|")(?P[^\'"]*)(\'|")z(?P.*)&\s*\Zz(\s*&|)(?P.*)z.*?''' )rTzreadfortrancode: reading #z failed with zu. It is likely that installing charset_normalizer package will help f2py determine the input file encoding correctly.rfreez Reading file z (format:z,strict)  z rrz!f2pyrNN:r rNf2pyz :NHNzvreadfortrancode: Found non-(space,digit) char in the first column. Are you sure that this code is in fix form? line=NNr/.pyf z.Unexpected end of file when reading multiline z4Flag sourcecodeform must be either 'fix' or 'free': zLine #z in z:"z" ro) dowithlineistopz-readfortrancode: could not find include file . Ignoring. r r )rcrCr)8rrr r r beginpatternrrrrecompileIrangestr fileinput FileInputrrUnicodeDecodeError Exceptionrlineno isfirstlinerrsplitextrrrCOMMON_FIXED_EXTENSIONSr_has_fix_headerrbeginpattern77beginpattern90r1 expandtabsreplacesplit_by_unquotedrrVmatchgrouprmrstripiscstyledirective ValueErrorrepr filelinenoisfilereadfortrancodedirnamer$joinpathsepclose)ffilerr saveglobalslocaldolowercasecont finallinell includelinecont1cont2 mline_markl1rt spacedigitsfinlmsgextis_f2py_directiverl_ origfinallinerlcmfn include_dirs foundfileinc_dirfn1s&&& r(rrfs !#3_nV_ %+6  {" DI B**5rtt=K JJ, -E JJ- .EI&J 2r %U2Y7Yr3r7Y77K   eh 7C   A  ??  ! !llnOKBI"N''""?3A6CO$++1137NN(++q/A/A 009K9K!'y- - oo%89-.IIy2.NcS T LLN " "63 /r'uH$#2A!#As+B S b6<<>W $$Q[2b6%93?DAq $  779?'   U "t00S6<<>V+!B%A(,% D(-%q6B;#At;&!EEFE!KLLIICFQJqts{!B%Z " KKNAkk!n226::B "I$&M !B%A'$&HHJ $& $&MB v %C6Mj.>.>q.A.AHBMOBA!''++HHJ AAGGFO++a...v66 " #4EIZ[]I^I^ egI "I " TMDFtNG[F\]_ _$S^^%5%9$:;""1!2"RD?   m , 1Bww~~b!!zCGGOOO4 68E F  +G'',,w3Cww~~c**$% ' !L , !KB6R""$**//,"?!@ OP y ! HHJ  M 01 45T/9J"RDPUV-(Aq WWV_ 77>>"   B:Q ?GGOOO<= MLI'ggll7B/77>>#&& !I#CJaH ( GvN jjool;>dzN\s*(?P%s(?=\s*(\b(%s)\b)))\s*(?P(\b(%s)\b))\s*(?P%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|byte.*z|static|automatic|undefinedbeginzprogram|block\s*datazM|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|type(?!\s*\()z\end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface|endsubroutine|endfunctionendzDend\s*(if|do|where|select|while|forall|associate|critical|enum|team)z[\w]*?endifzmodule\s*proceduremoduleprocedureimplicit dimensionexternaloptionalrequiredpublicprivate intrinsicintent parameterdatacallentrycallfuncommonusecontainsformatf2pyenhancementsz2\s*(?P''')(?P.*?)(?P''')\s*\Z multilinec \R4\V4,'dQR4h\P!RPR\P!V4 R2R\P!V4 R2RRR 74pVP V4pV'd#VP 4pVR ,VR ,3#VR 3#) z Splits the line into (line[:i], line[i:]), where i is the index of first occurrence of one of the characters not within quotes, or len(line) if no such index exists z"'zcannot split by unquoted quoteszR\A(?P({single_quoted}|{double_quoted}|{not_quoted})*)(?P{char}.*)\Zz[^"'][z('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*")) not_quotedr9 single_quoted double_quotedbeforeafterr)setrrr escaper groupdict)r/ charactersrrds&& r(rrs E S_,,P/PP -  !!'ryy45Q7RYYz*+1-00 "("2 3A  A KKM( QwZ(( ":r'c.p\V4PR4F/pRFpVPVR4pK VPV4K1 RP V4#)@,@z(),r,)markoutercommasplitrappendr)argslinearrs& r( _simplifyargsr%sV A H % + +E 2A !S!A  3 88A;r'z"\s*(?P\b[a-z]+\w*\b)\s*=.*z \s*(?P\b[a-z]+\w*\b)\s*=.*zH\s*bind\(\s*(?P[^,]+)\s*,\s*name\s*=\s*"(?P[^"]+)"\s*\)c\VR4wr#V'd\^,PV4'g\^,PV4'g]V^8XgQ\ V44h\VR4wrV'd#\ W4\VR,R4wrK*\ W4R#V^8dq^s\ R/s\ //s\ ./s .\\ ,R&/\\ ,R&R\\ ,R&R\\ ,R&R)s R)s R#V^8Ed^p\'d\\ 8Xd^p\ V8d\R \ : R \: R 24\R 4\\ ^, ,P\\ ,4\\ ,\\ ^, ,R),R&\\ \ ^, sK\'Ed\\ 8XEd\\ ^, ,P\\ ,4\\ ,\\ ^, ,R),R&\\ \ ^, s\\ ^, ,P\\ ,4\\ ,\\ ^, ,R),R&\\ \ ^, sR)s R#VR8XdR#^p\\ \"\$\&\(\*\,\.\0\2\4\6\8\:\<\>\@\B\D\F\H\J\\\L3F.pV^,PV4pV'dM V^,pK0 X'Eg\Np ^\u;8:d\ 8:dR#R \\ ,9Ed_\\ ,R ,EFAp V \P9d\PV ,p R\\ ,9d V \\ ,R,9dKQ\RP!RV R2\UV4\RPV4p V 'gKV PV PYR44p \[V PYR44p V 'dRV RV RV PYR4 R2pM RV RV R2p\\^,PV4pV'g\R\ V4 R24R#\_VRV4R# \`^8g5\`^8Xd?\bPe4PgR4'dRs4\R\ R24R#X^,R8XEdz^\u;8:d \ 8d"MM\ ^, s\\ 8:dR#\ ^8:d\kR\ R 24h\8^,PV4p V 'd^V PYR!4\\ ,8Xg9\kR"V PYR!4: R#\\ ,: R$\l 24h\\ 8XdR)s \\ ^, ,P\\ ,4\\ ,\\ ^, ,R),R&\\ \ ^, s\n'g^s8R#R#V^,R%8XdC^\u;8:d \ 8:dMM\ ^,sR#^s9\_W^,V4^s8R#V^,R&8XdR#V^,R'8Xd\_W^,V4R#V^,R(8Xd2\t'dR#^\u;8:d\ 8:dR#\ s R#^\u;8:d\ 8:dR#\_W^,V4R#)*z reset=-1 --- initialize reset=0 --- crack the line reset=1 --- final check if mismatch of blocks occurred Cracked data is saved in grouplist[0]. ;r NNNrbodyvarsblockrozcrackline: groupcounter=z groupname=rzYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement. externals interfacedz(?P[^"]*)\bz \b\s*@\(@(?P[^@]*)@\)@.*\Zrargszcallfun (z ) result (r)z4crackline: could not resolve function call for line=. r rz crackline:z: No pattern for line rzcrackline: groupcounter(=z#) is nonpositive. Check the blocks.thiszcrackline: End group z* does not match with previous Begin group z rrrr r );rf2pyenhancementspatternrmultilinepatternr crackliner groupname groupcacherrrrr1r"dimensionpatternexternalpattern intentpatternoptionalpatternrequiredpatternparameterpattern datapattern publicpatternprivatepatternintrinsicpattern endifpattern endpattern formatpatternrfunctionpatternsubroutinepatternimplicitpattern typespattern commonpattern callpattern usepatterncontainspattern entrypatternmoduleprocedurepatterncrackline_re_1rxrmarkouterparenrrr%callfunpattern analyzelinerr rendswithr%rrrrrr)r/resetr has_semicolonsemicolon_lineflr0patrre_1rom1m2r$s&& r(r5r5sJ)s3A5a8>>tDD/288>>z&4;&z0s; d "#4^B5G#M D.$ qy !2& "B' !2& +- < (+- < (,. < )+- < (  qy  =\\9BR .|.>k)VXY Z l n lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+L =\\9 lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+L lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+LL rz D /=/ +}n jo/@}Z' &  FLL  ax# $ 1  /< /  0 *\2 2"<0==;&&t,D:l#;; S_H`amHn@nXX*4&0PQ"4("$$02BHHX$67B%bhhv&67A!)$q:bhhx>P=QQRS!)$q15&q)//5ARSWX\S]R^^abd9d3+>, Q;7aN=OQR R l * O,"#**:l+CD2;L2I ,"#B'/ l ##a' }K Q7   /< /'!+L  A1vt$ Q7  Q$ $A1vt$ Q:  >   /< /  0&  /< /  0A1vt$r'cRp^pVFPpVR8XdV^,pV^8Xd VR,pK%M"VR8XdV^, pV^8Xd VR,pKHW,pKR V#)rr/@(@r0@)@r&)r/rfrs& r(rPrPTsq A A  8AAAvI#XAAAvI E Hr'cRp^p\WR,4wrEW$, pV'dV^,V8Xd V^8XdVRV,R,, pM>W%^,, pV^,R8Xd V^, pMV^,R8Xd V^,p\VR,VR,4wrEW$, pKV'dQ\W0V344hV#)r()@r/r0r()rr)r/commarr_rrs&& r(r r fs A A%dDL9MFKA  !H AF us" "A qMAQx3QqSQ)%)UT\B  $$|$$5 Hr'cJVPRR4PRR4pV#)r]r/r^r0)r)r/rs& r(unmarkouterparenreys$ UC ((4A Hr'c4V'g/pV'gV#WJdV#\VP44FpVR8XdV'gW09d W,W&K$K&VR8XdW,Fp\WV4pK KJVR8Xd\WV,V4pKfVR8Xd\ WV,V4pKVR9dV'gW09d W,W&KKVR8XdKVR 9d\ RV R24K\ R\V4,4h V#) r2attrspec kindselector charselectornotez appenddecl: "z" not implemented. z-appenddecl: Unknown variable definition key: )=typename)rcheckrrrdepend)listkeys setattrspecsetkindselectorsetcharselectorrmrr)decldecl2forcekrs&&& r( appenddeclrx~s    } %**,  ? (& *_XX"4E2 . "4q59D . "4q59D # # (& &[  )) mA3&:; <KF#$ $) , Kr'zD\s*(?P(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P.*)\Zz[(?:,(?P[\w(),]+))?(::)?(?P\b[a-z$_][\w$]*\b)(?:\((?P[\w,]*)\))?\Zz\s*(?P\b[\w$]+\b)\s*(@\(@\s*(?P[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P(?:(?!@\)@).)*)\s*@\)@))*\s*\ZzF\s*(?P(operator|assignment))@\(@\s*(?P[^)]+)\s*@\)@\s*\Zz9\s*(?P\b[\w$]+\b)\s*@\(@\s*(?P.*)\s*@\)@\s*\Zz4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)zA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))zintent\s*\(.*?\bcallback\bctVPR.4F!p\PV4'gK ^# ^#)rg)get_intentcallbackpatternr)vdeclr$s& r(_is_intent_callbackr}s0 YYz2 & ! ' ' * *' r'czRPVP44p\PV4p\ W4V'dlVP R4pV'd/VPR4Uu.uFq3P 4NK upM.pVP R4W!P R43#R.R3#uupi)r attributesrroparamsN)rr!typedefpatternrprintrr)r/rZattrsr$s& r(_resolvetypedefpatternrs 774::< D   d #B $O &9>EKK$45$4q$45Bxx(::: T>6s4B8c\P!R\P4pVPV4pRpV'd<VP ^4pVRVP 4WP 4R,pW3#)zObind\(\s*(?P[^,]+)(?:\s*,\s*name\s*=\s*["\'](?P[^"\']+)["\']\s*)?\)N)rrrsearchrstartr)r/patternrbind_statements& r(parse_name_for_bindrshjjkmomqmqrG NN4 EN QNU[[]#d99;<&88  r'c\V4wr\V4p\PV4pV'd4VP R4VP R4VP R4V3#\ PV4pV'd<VP R4R,VP R4,R,pV.RR3#\ PV4pV'd%VP R4VP R4RR3#R.RR3#)ror.rschemer/r0N)rrPnameargspatternrroperatorpatterncallnameargspattern)r/ bind_cnamerZros& r(_resolvenameargspatternrs*40D $ D   t $B xx&!1288H3EzQQ   t $B xx!C'"((6*::S@Rt##  " "4 (B xx&!14== T4 r'c |EVPR4pVR8wdRs\'EdVR9d\'g\^8d\ P P\4PR4^,p\RV R 24^s \^,sR \\&/\\&.\\&.\\,R &/\\,R &R \\,R &V\\,R&R\\,R&^sVR9E dEVP4p\ P"!RV\ P$4'dRpM]\ P"!RV\ P$4'dRpM.\ P"!RV\ P$4'dRpVR8Xd@\'VPR44wrVpRV/\\,R ,V&.pRp M\)VPR44wrXrVfVR8XdRpMRpVR9d \R4W5\3sV'dC\+\-V4PR4U u.uFp V P/4NK up 4pM.pRV9d&RV9dVP1R4K\R4^p ^p VR9d^p R\\,9dR#V\\,R,9dR#\\,FpVR,V8XgKR# V\\,R ,9dR#RR!RR"/V,p\2'd/\4R8Xd$\^8:d\^,s^p VR9d^p \^,s/\\&.\\&V 'd\6^8d\R#\2: R$2^4R%\\&R\\,R &\2\\,R&R\\,R&.\\,R &.\\,R&&.\\,R &/\\,R &\^,s/\\&.\\&V 'Ed \6^8d\R'\: R(2^4R\\&R\\,R &R)\\,R&\\^, ,pVR, R*VR, 2\\,R&.\\,R &.\\,R&&.\\,R &/\\,R &\^,s/\\&.\\&V\\&V\\,R &V'gR+VP9R,R-4,pVPR.4\\,R/&\;V4\\,R&V \\,R0&\^8Xd\\\,R&M\2'dG\^8Xd<\\^, ,R, R*\ 2\\,R&M?\\^, ,pVR, R*VR, 2\\,R&\=\\,P?44F5p\\,V,'dK#\\,VK7 V\\,R&.\\,R &.\\,R&&.\\,R &/\\,R &/\\,R1&VR8Xd.\\,R2&VR9dV\\^, ,R&,9d/\\^, ,R&,PAV4\BPD!\\^, ,R ,4\\,R &\\,R ,V,\\,R ,V,R,PGR34VR9EdX 'd\ PJ!\LV 4pV'dV//\\,R4&VPR54\\,R4,V,R5&VPR64'd2VPR64\\,R4,V,R&\O\\,R ,V,\\^, ,R ,R,4\\,R ,V&VR8XdV 'dV \\,R ,9dfWY8Xg`\O\\,R ,V,\\,R ,V ,4\\,R ,V&\\^, ,R ,PAV4VR"8Xd\P^,P#VPR.4R,,V,4pV'd>\SVPR4VPR44wpppp\UVVVV4VR9Ed\\^, ,PA\\,4\\,\\^, ,R,R &\\\^, s\\^, ,PA\\,4\\,\\^, ,R,R &\\\^, sR#R#VR18Xd\)VPR44wrXrVeV'dC\+\-V4PR4U u.uFp V P/4NK up 4pM.pV eQ\WV 44hV\\,R1,V&R1V\3sR#R#VR8Xd?\SW0PR44wpppp\UVVVV4pVe R7V\3sR#R#VR9Ed\\,R ,pVPR4P/4pVPYR:4pV^8dVR98Xd\[V4PYR;4^, pVRV^,R:,VV^,R,pVPYR:4pVVRR:8XdhR\\,9dR\RR=P]VR?,4: R@24Rp\-V4PR4U u.uFqP/4NK up EFp\`P#V4pV'g9VR9dRpMH\cVPe44\RAV RBV: RC24KY\;VPR44pVR9d VR9dVVPR4, pVV9d/VV&VR88XdVVPR4,pVR98XEdVPR4V,p\fP#V4'dV\\,R,9d\^8dRD\\^, ,R,9d \RE4V\\,R,8wdP\RFV RG\\,R, RH24\\,R,PAV4M\iRIV RJ24M\iRIV RK24VR9dTpRVV,9d!VV,R,PAX4M X.VV,R&VR38Xd\\,R ,R 8Xd\RL4EKXV\\,R,9dEKxR&\\,9d.\\,R&&\\,R&,PAV4TpEK V\\,R &Ve R7V\3sR#R#VRM8XdRVPR4PR=4U u.uFqP/4NK up \\,RN&R#VRO8XEd\\,R ,pVPR4P/4^RpRp\-V4PR4EFpVPRP4U u.uFqP/4NK up wpp\kT4p \;T4pTT9d/TT&RPTT,9d9TT,RP,T8Xg$\RTT RUTT,RP, RVT R 24\mTT 4pT'EdTPoRW4RX8Xd\=T4p!\pPsT4Fjp\=TTPu4TPw4P4P9RYRZ44T!TPu4TPw4%Kl RP]T!4pMMTPoRW4R[8Xd8TR?,P4P9RYRZ4P9R=R\4p\yT/T 4p"\WT"4TT,RP&RTT,9d!TT,R,PARO4M RO.TT,R&TpEK V\\,R &Ve R7V\3sR#R#VR_8XEdVPR4P/4P4R`8XdR\\,R_&R#VPR4'Edj\\,PoR_/4p$V$f\Ra4/p$\-VPR44PR4EFp/p%\ P"!RbV\ P$4pV'g\RcV RS24KE\P#VPR44p&V&'g\RdV RS24K\SV&PR4V&PR44wpppp\VV4wp'p(p)VV%RW&V'V%Re&V(V%Rf&V)V%Rg&\=V%P?44FpV%V,'dKV%VK \-VPR44PR4Fp*RhV*9d4V*PRh4U u.uFqP/4NK up wp+p,MV*P/4;p+p,\_V+4\_V,4u;8Xd^8XgM\RiV* Rk24K\\V+4\V,4^,4Fp-V%V$\V-4&K K EK V$\\,R_&R#R#VRl8XEd.pRp.Rp/^p0^p1^p2VPR4Fp3V2'g)V3Rm8XdV1'*p1V3Rn8XdV1'd V0^,p0K3V3Ro8Xd V2^,p2MV3Rp8Xd V2^, p2V0^8Xd V.V3,p.KfV0^8Xd V/V3,p/KxV0^8XgKV.P/4p.V.PR=4'dV.R?,P/4p.VPAV.V/.4T3p.Rp/^p0K V0^8XdRV.P/4p.V.PR=4'dV.R?,P/4p.VPAV.V/.4\\,PoR /4p4RpVEFp5V5^,P/4PR=4V5^,P/4uV5^&V5^&V5^,PRo4'd\RqV5^, Rr24K~\\+\-V5^,4PR4U u.uFqP/4NK up 44EF?wp6p"V"PRo4'd\RqV" Rr24K/RsV5^,9d\RtV5^, Rr24KUV4PV"/4V4V",PoRW4p7\V4V",4p8V7R[8Xd\ P!RuV5^,4MV5^,PR=4p9V8'dRvRwP]V94 Rx2MV9V6,p:T4T",PoRP4p?T?'dT?T:8wd\R}T" RUT? R~T: RS24T:T4T",RP&T"pEKB EK V4\\,R &V'd R7V\3sR#R#VR8XEdcVPR4P/4pV^,Rn8Xg RV,p.p@\ P!RnV^R7wppApBVAP/4pAVA'gRpAX@PAXAXB.4/pCR\\,9d\\,R,pCX@Fp3V3^,XC9d .XCV3^,&\-V3^,4PR4U u.uFqP/4NK up F,pV'gK XCV3^,,PAV4K. K XC\\,R&RXA\3sR#VR8XEd\ P"!RVPR4\ P$4pV'EdVPe4pDR\\,9d/\\,R&VPR4p/\\,R,V&^pERXD9Ed;XDR,Ee-RXD9dXDR,f^pEXE\\,R,V,R&XDR,PR=4U u.uFqP/4NK pp /pFVFp5RPV59d\ P"!RV5\ P$4p&V&'dAV&PR4P/4XFV&PR4P/4&M\R\WV54 R$24MV5XFV5&XF\\,R,V,R&K R#R#R#\cVPe44\R4R#VR9dR\\,9d/\\,R&\\,R,pGVPR4R8Xd[RXG9dT\XGR,\4'dXGR,.VGR&XGR,PAVPR44R#VPR4XGVPR4&R#VR8Xd\\f\6'd \R4R#\pH\\VH,\R,VPR44R#\6^8d'\cVPe44\R4R#R#uup i \HdELi;i \HdELi;i \HdELi;iuup iuup iuup iuup i \Hd\RQT RRT RS24EK6i;i \z\|\~3d p#\iR]T: R^T# R$24Rp#?#EKjRp#?#ii;iuup i \Hd\RiT* Rj24E K`i;iuup i \Ed\;QJdRyT94F 'gK RzM R{M !RyT944'd.p;T9FpT;PT>P/4.\T=4,4KQ \d$T;PAT

.*?)\s*(\(\s*(?P[a-z-, ]+)\s*\)\s*|)\Zz@analyzeline: could not extract info of implicit statement part "zIanalyzeline: could not extract types pattern of implicit statement part "rhrirl-z2analyzeline: expected "-" instead of "z&" in range list of implicit statement z*" in range list of implicit statement (2) r'/r/r0zanalyzeline: implied-DO list "z" is not supported. Skipping. rzComment line in declaration "z\(.*?\)(/, z/)c3,"TF pRV9xK R#5i)rNr&).0rs& r( analyzeline..s5W3!8WsTFrz*analyzeline: changing init expression of "") to "r z//)maxsplit_BLNK_r zR\A\s*(?P\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P))\s*(?P.*))|)\s*\Zronotonlyonlyz7\A\s*(?P\b\w+\b)\s*=\s*>\s*(?P\b\w+\b)\s*\Zlocalz-analyzeline: Not local=>use pattern found in mapz0analyzeline: Could not crack the use statement. rusercodez-analyzeline: No context for multiline block. :NNz+analyzeline: No code implemented for line. )rrr rf)rrr )rrr)rr r rrrr)rrrrrrrrrr>operator assignment)rrrrrr)r)Srr%rrrrrbasenamer r!r1rr6r7rrrrrrrrur rremoverrrrrprorpr"copydeepcopyrYrrcrackline_bindlangrxrHcracktypespec0 updatevarsrfindrPrrV namepatternrrr{rmget_parametersdetermineexprtyperz real16patternfinditerrreval SyntaxError NameError TypeErrortypespattern4implicit cracktypespecrordchrr removeprefix enumerate setdefault getdimensionfindall IndexErroranyextendr6r isinstancerappendmultiline)Irr=r/r+newnamerorrr.r bindclinex needmodule needinterfaceit prev_grouprwbindcdattr2selectorattredecl last_nameriplchrrZapinitexprrttvrimplrtr[ kindselect charselectrlrbegcendcodlilr_fcinprr*ridxvtypevdimmatchesnew_val expanded_listr multipliervalue current_valclbnol commonkeymmisonlyrrgcsI&&& r(rRrRs GGFOE {{t#GG}!1''""?399#>qAKG9TX Y [ #a' "+ ,#% < "$ ,+- < (+- < (,5 < )+2 < (+4 < (  ++  88OUBDD 1 1 E XX(% 6 6#E XX-ubdd ; ;(E F?3AGGG4DEND6@%5HJ| $V ,T 2DF,CAGGGDT,U )D < $%MMMN!6 '5d';'A'A%'HJ'H! ggi'HJKDD :* B O Q  & &MZ 55:l3F;; --f:%.z,/ ==\9jA$GE =\R/LA4E'!+LJ?? ! #a' #% < "$ , {=m=NbQSTU&.Il #0?J| $W -/ < *+5d+; < (-3 < * 1 />J| $V , ]|q02<\A=M2Nv2V1WWXYhXi/jJ| $V ,#L1$45J2vF~~k22MU^^\gMh <0AK&|4V  /4< />6:J| $W -d 3 '|<   *8 777#+%'(D%x4?  *I|D  ! n n<(0 WWW  # # % GGDM q5TX%r"''.2AFQUd"RAZ/B A!"v~&J|,D"D<776?+BrF8278#((:l#;F#CDD q5ABBQBAEFB B  % %e , r7Q;AB 447HHRV4D3GsL M %3B%7%=%=e%DE%D'')%DEA""1%B00A!++-(DTFK##$%}67rxx/0,,6P1PRXXg&&~a{"BHHW--xWWV_r))//33 < 8 @@'!+)L1><>J|,[9<(5< "wwr{HUU:&)3'|113;;CEW- 2v. !GE!HSMU1X%a$++K8(3}a$II1J,1 < (  *I|D  !   777  ! ! # ) ) +v 537J| $Z 0 WWW  l+// B?D|SU#AGGG$45;;EBXXPRSUWUYUY[Z[\Z]]abd*00&1ABcdecffjkm2@HHV$bhhw&739/(D%3@h4(0 J#+Z '1^$'1^$#+Z diik*A77 G+((9:@@GAax%=>WWS\)J\'')\)JJD$ '(ggi/tt9D 6Q6PQRPSS~A "3t9c$i!m<'+SV =H1CP48J| $Z 0]^      !A8B8AACxAgcAgAv!Va!VaXXZ==%%BB 2r(#-". 6B}}S!!V\\^ IIr2h ,'++FB7 A122371JAaD!A$ts##81>]^_#I.QRSTQUBVB\B\]bBc.dBcQwwyBc.d$efQ<<$$?)>Aggi)>?AaxXXVXY[][_[_a<>HH %='',uwrxx06689$"OPTUVPWyXZ []!"1CEJ|,U3D9%@ !7|( !++- G H % % Z %= =;=J| $%7 8 | $%7 8 776?j (Z1_!J---!":* jM !1 2!"!1Aaggfo     #wHI   2(, ) 1 akkm>? mJJ      ."NLFv =@ WXYWZZ`ac`ddhik 0 I6 :8,G%%(E-. b*K(%#"TUVTWW~ A$%n/e*"T s5W5sss5W555(* %,E"e|!H8= C8H$5J$1$8$8%++-3z?9Z$['1!H$1$8$8$G!H!. 4 4U[[] C&-#0=A499W#5"6b9ws|G#TVL&@smBB>+ABCA&BC9.BC'BC92BC>I+BDK=BD LBDL(BD R/ BD2\8BE/] BE*]#BE/h4BFl&BFl.BFsBJ4yBJ9C BCCBCC BC$C#BC$C' BC6C5BC6DBD D BD/D.BD/D2BE'EBE"E"BE'E*BE/E/BFF BFFBJ1F-BJ1GBJ1GBJ1G+ABH1H/BJ1H1*BI IBJ1IBI I/BJ1JBJ1J0BJ1crRV9d/VR&VR,pW9d.W1&W1,PV4R#)f2pymultilinesNr")r context_namemlrs&&& r(rrs=u$"$ AO2r'cRpRp\P!RV\P4'dRpMM\P!RV\P4'dRpMVP4P 4p\ P\ V44pV'g\R4R#VP4p\VP44Fp\WV,4WV&K VR 9dVR,pVR,pVPR4pV^8dVRVP4pW^,RpWW13#) Nzdouble\s*complexdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line. r2rr)rr5logicalr3 characterrf) rrrrr selectpatternrPr1rrorprer)r2rrrrZrrwrs&& r(rrsH D xx#Xrtt44# '244 8 8%>>#))+   ^B/ 0B  M O A !&&(^%QQV9 wZ  AAv"1v||~ AZ t ''r'z)\s*(?P\b\w+\b)\s*(?P.*)\s*\ZzB\s*(\(\s*(kind\s*=)?\s*(?P.*)\s*\)|\*\s*(?P.*?))\s*\Zz2\s*(\((?P.*)\)|\*\s*(?P.*))\s*\Zz\s*(kind\s*=\s*(?P.*?)\s*(@,@\s*len\s*=\s*(?P.*)|)|(len\s*=\s*|)(?P.*?)\s*(@,@\s*(kind\s*=\s*|)(?P.*)|(f2py_len\s*=\s*(?P.*))|))\s*\Zz\s*(@\(@\s*(?!/)\s*(?P.*?)\s*@\)@\s*\*\s*(?P.*?)|(\*\s*(?P.*?)|)\s*(@\(@\s*(?!/)\s*(?P.*?)\s*@\)@|))\s*(=\s*(?P.*?)|(@\(@|)/\s*(?P.*?)\s*/(@\)@|)|)\s*\ZcLVP4p\V4^8:dV#V^,p\^\V4^, 4FIpW,R8Xd+W^,,R9gW^, ,R9dK:WV,,pKK WR,,pV#)r rz ()[]{}=+-/* r )rrVr)exprexpr2rs& r( removespacesr$Fs ::VR-,VR#,8Xg)VR-,pVR#,p\R.V RV RV R24M VR#,VR-&R"V9dR/VR", R02pRV9gVR,'gV.VR&MVR,PV4VR,F=pVR1,R28XgKVV8wgKVR,R9\/RV R3V: R4V: R24M+ M(\R5VV PR 4,,4\+VP-44FpVV,'dKVVK V\$\&,R ,V&R6\$\&,9d(\$\&,R6,PV4TpEK V#uupiuupiuupi):z Returns last_name, the variable name without special chars, parenthesis or dimension specifiers. Alters groupcache to add the name, typespec, attrspec (and possibly value) of current variable. Nrz(?P[a-zA-Z]+)rrrcz@ @r'z-updatevars: no name pattern found for entity=rror*r2z+updatevars: attempt to change the type of "rrz ". Ignoring. rhz0updatevars: attempt to change the kindselector "rriz updatevars:z*: attempt to change empty charselector to rz0updatevars: attempt to change the charselector "rlz/updatevars: attempt to change the typename of "rgrr.r,rrVarrayinit2rrrrz updatevars: "z" is mapped to "r/z)" rkz6updatevars: attempt to change the init expression of " dimension(r0N Nrz: attempt to change rz?updatevars: could not crack entity declaration "%s". Ignoring. r)rVr0r1rr5rr3r )rr r!rrrrrrrVr"r$r-rrr1rrpr7rrrorprmrzlenarraypatternrPrre) r2rrg entitydeclrrrrlrrrr$rselel1re1enamernot_has_typespeccurrent_typespecrw current_kindrZd1lk array_spec current_initnew_initdmdm1s &&&& r(rrzsI'4X'H$JH'5h'?'E'Ee'LM'L!GGI'LM  JJ. /A AGGG$**,#a&' N HHQK+J7==eD ED'')DB E C &4\/RSBT5U]`&a&g&ghm&no&n779&noBr 2::eS12p   a  ?Qy V X 1776?+ J|,V4 4|,V4U;@@BE)6 $,j!8uZ/@#@#(#4 EeWM-.ghZ~OPU*(, *(=n%joo/0AE.11:a=ER`LabcLd;d',^'?joo/0AE.11:a=ER`LabcLd;d"RSTRUV'',gT%2G2J1KL$$.qM?.!BC4899Z]3Kn-a0 1&$,j!5#4#@I%Q":./wxjPQ&$(IIh$7j!!Aj 11j)003"!% ( 3E* $(IIj$9E. !$(IIj$9E. ! (E*  $ ( 3E*  %))J/552 61 <@XY_@`;`*\"::8: <(5 | $[ 1 8 8 ; 777   &&~aggg6F'GHBr\\^2B"s(|/!#BH2rCxL3bggiA!u( 0A 71qE ) B;7b=%yB$&wK5 wK![0*%7~AVAV46E.1 E.$99 %n 5e <57Yn-c2uI&(kC&7"U)&C7 uI%'[ -z1#>$$,:QugQzl$!HIB;#LL*%7~AVAV46E.157Yn-c2uI![0*%7~AVAV46E.1 E.$99 %n 5e <57Yn-c2uIR<e|U3Z2f:-E',Sz #%f:!$$)7$|nGH:N.!/0&(Zc b=%bk]!4B!.uZ7H7H-/Dj)j)004#(#4#4C"2w+5#)$)*$5b$9 '+eW [\ AN Fpsf5ffcRRpRpRpV'EdVR9d\PV4pV'g\R\V4 R24R#VP 4pVR,VR&VR\ VP 44FpW%,'dKW%K \ VP44FwrV\V4W%&K EMVR8XEdY\PV4pV'g\R\V4 R24R#VP 4pVR,VR&VRVR,'d\P\VR,44pVP 4pRF<pWxR ,,'dWxR ,,Wx&Wx,W8&WxR ,K> VR ,e VR ,VR &VR\ VP 44FpW5,'dKW5K \ VP44FwrV\V4W5&K MuVR 8XdW\P!R V\P4pV'dVPR 4pM.\RW, R24M\R\V4 R24W#V3#)Nz1cracktypespec: no kindselector pattern found for rkind2rrz1cracktypespec: no charselector pattern found for charlenlenkindr2f2py_lenrfz\s*\(\s*(?P\w+)\s*\)roz$cracktypespec: no typename found in z$cracktypespec: no selector used for r6)rVkind)rhrr1rrrorpitemsrprilenkindpatternr rrr) r2rrrrlrwrrKrBs && r(rr+s^JJHx @ @%++H5JGXGWWYZ\#--/J(1JsO7#*//+,!}}" -Z--/0 *1 1  $%++H5JGXGWWYZ\#--/J(3JsO9%)$$(..":i#89;!++-)BCx((&-3h&7 %,[JNS) * :&2-4Z-@Jz*9%*//+,!}}" -Z--/0 *1 1  xx =xNH#>>&1>x?R>SSUVW :4>:J"M N 8 ++r'cRV'g/pV'gV#RV9d V.VR&V#V'dVR,PV4WR,9dV#VR8Xd)RVR,9dVR,PV4V#VR8Xd)RVR,9dVR,PV4V#VR8Xd)RVR,9dVR,PV4V#VR8Xd)RVR,9dVR,PV4V#VR,PV4V#)rgrH automaticrrr)rtrrvs&&&r(rqrqes+    6Z   Z% J  xKtJ/?? Z% K  j1A!A Z% K   D, ,   # #D ) K   4 + +   # #D ) K Z% Kr'cV'g/pV'gV#RV9dWR&V#\VP44F,pV'gW0R,9gKW,VR,V&K. V#)rhrorprtselrvrws&&& r(rrrrsa   T!"^ #((*  A.11&)fD  # Kr'cV'g/pV'gV#RV9dWR&V#\VP44F,pV'gW0R,9gKW,VR,V&K. V#)rirSrTs&&& r(rsrssa   T!"^ #((*  A.11&)fD  # Kr'c&RV9d VR,#V#rnr&)r+unknowns&&r( getblocknamerYs V} Nr'cZRVR, RVR, R2sR# \dR#i;i)zIn: rrrorN)rr)r+s&r( setmesstextr[s6 !%-%-C    s  **cz/pRV9d\VR,4pRV9dVPVR,4V#) parent_blockr ) get_usedictupdate)r+usedicts& r(r^r^s:GeN34 ~uU|$ Nr'c Vf/p\V4pV'gV#\VP44Fwr4VP4pV\9d$\ RV RVP R4 R24KC\V,p\V4pV'gKeV'd\RV R24\VP44F#wrxWq9d\ RV: RV: R24WV&K% K V#) Nzget_useparameters: no module z info used by rorzget_useparameters: mapping for z not impl. z(get_useparameters: overriding parameter z with value from module ) r^rorNrrr1rzrrm) r+ param_mapr`usenamemappingmvarsrrwrs && r(get_useparametersrfs % G  1--/ - ' 3G9Nyy()- . g&&   5gYlK L(DA~B1%H..5[<=aL )2& r'c T\'gV#\V\4'd&VUu.uFp\W1R,VR7NK ppV#\ V4\ V RVR, R2^4Vf \ V4pVepRV9diVR,p\VP44FBpWV,pRV9gKVR,pRV9gK&VR,p W9gK7W),VR&KD VR,U u.uFp \WR,VR7NK p p WR&V#uupiuup i) r)tabrbBlock: rorr*rhrMr))rrro postcrack2r[r1rfrp) r+rhrbgretr*rvarrMvalbnew_bodys &&& r(rjrjs) = %1!tyA   se75=/ ,a0%e, 5V}diik"A'C$>*T>v,C''0~V #v(&A1* B& (&M L/&(s D ;D%c \V\4'dm.p.pVFZp\V4\WRR,R7pRV9d"RVR,9dVP V4KIVP V4K\ WC,#\V4\V\ 4'g#RV9d\ R\V4,4hRV9d(VR,R8Xg\V RVR, R 2^4\V4p\V4p\V4VR &\VR ,4VR &VPR 4'd VR ,p\WVR7VR &.pRV9dEVR,p\VP44FpRV9gK VP V4K M/pRp RV9d VR,p VPR4'Ed.p RV9d VR,p \ P !VR ,4p V 'd V R,p MRp W9d!^p V RV 2V9d V ^,p KV RV 2p RRR .R /RV R,/pVR,EF pW9d.pRpVR ,FpV^,pVR,R8XgKRp VR ,FEpV ^,p RV9gKVR,V8XgK%\ P !V4pVR ,V M V'gKzVR ,'g VR ,VWP#V4M VR ,P V4KW9gK\%W,4'dKW,VR ,V&EK VR ,'gVR ,'d2WR&RRR V.R /RV RVR,/p/W|&\&P V4V'dWpR&V#)zY TODO: function return values determine expression types if in argument list rrhrorr+z0postcrack: Expected block dictionary instead of rrirr*sortvarsr.r)r rr,r-__user__routinesunknown__user__routinesrr_user_interfacerr )rror[ postcrackr"dictrrr1 analyzeargs analyzecommon analyzevars sortvarnamesrz analyzebodyrprrY isexternalr)r+r.rhgreturetrk userisdefineduseblockrwror-remnamerrredefjrobbmblocks&&& r(rwrws%A N!t,A{zQvY6 A A{ eT " "we';JE #$ $ uV}0CC3%wuV}oR0!4  E % E&E&M$U6]3E* yyV}5E&MM ~<hmmo&AQ$$Q'' D V} yy 5 |,J %-( --E-E  !AG1QC.M1EgQqcNEk62R0A)AC {##AvAAAz[0"#F))B !AA%|6 a'+yy}$%fIaL % #,  4#$V99$)&M!$4 *+;+;A+> ?!'&!((.Jux$8$8',x &!!$+$, V   & 1 1",, 9"B|U;EWYF HO   v &e Lr'cv.p.p\VP44FIpRW,9d)W,R,'dVPV4K8VPV4KK \V4p^pV'dV^,p^pVR,FpWpV,R,9gK^pM V'dVVR,V.,pV^,pWT8d4\ RRP V4,R,4W,pV#KVPV4VR,p\V4p^pKV#)rnr(zTsortvarnames: failed to compute dependencies because of cyclic dependencies between rr)rorpr"rVrmr)r*indepdeprrrrWws& r(r|r|Ts E C $))+  tw 478#4#4 JJqM LLO  CA A F RAGH%% b'QC-CAAu;))C.)+/01  L LLOb'CCAA Lr'c t\V4'gV#.p\VR,P44EFp.pVR,V,EFp\P!RV\P 4pV'Ed[.pVP R4'dG\VP R44PR4Uu.uFpVP4NK pp\VP R4P44pWR,9dxRVR,V,9d;VR,V,R,PRRPV4 R 24M_RRPV4 R 2.VR,V,R&M7V'd$RRRPV4 R 2./VR,V&M /VR,V&W9dVPV4MTp\R V R V R 24VPV4EK W0R,V&EK R V9dWR &V#VR ,V,VR &V#uupi)r z2\A\s*\b(?P.*?)\b\s*(\((?P.*?)\)|)\s*\Zdimsrror*rgr3rr0z:analyzecommon: failed to extract "[()]" from "z " in common /z/. commonvars) hascommonrorprrrrr r!rrpr"rrm) r+rrwcomvarsrrrrrs & r(rzrzvs U   J %/&&( )x##AEq"$$PAq776??%3AGGFO%D%J%J5%QS%QGGI%QSqwwv4467f %!U6]1%55f a(4;;($(8:<)$(8:8<f a(4"z#((4.1A%C$D(FE&M!$(*E&M!$&%%a(PQRPSS`ab`ccghj NN1 7$8%h=*>5 (l L$L1J>l L7SsH5c\V4VR,P4UUu/uFwr4RV9gRVR,9gKW4bK ppp.pVR,EFqpWR&VR,R9dVeVR,V9dK*VR,pVR,VP49d\P VR,4VR,\9dK\ 'dVR,\ 9dK\ VRR R 7VR &MTp\WxVR ,R 7pVR,R9d1VR,'g"VPR4'g RV9dEKVR,PRR4R8Xd\P V4EK;VR,R8XdVR,\VR,&VP V4EKt V#uuppi)r*rgrr)r]r+ror.rT as_interfacesaved_interfacerrrrrr pythonmodulerrz r) r[rNrpr"r"r#crack2fortrangenrwrzrrr) r+r.rhkeyr maybe_privater)roas_s &&& r(r}r}s ---//JC U "heJ6G&G  / D 6]]!. W:3 3AfIT$9iyM..00  6+yI%yQvYi7#3>$6A C a#* - W:< <yy!7!7!* W:  c2 &. 8   q !zX%+,V9 ai( KKN;< KKs GGc\V4\p/pRV9dVR,f0Rp\^8d \R\ VR,4 R24W3#\ VR,P 44FTpVR,V,PR4R9dVR,V,W&K;VR,V,R,W#&KV W3#)rNz2buildimplicitrules: no implicit rules for routine ror1r2)rHrQ)r[defaultimplicitrulesrr1rrorprz)r+ implicitrules attrrulesrws& r(buildimplicitrulesrs(MIU   $ M{HeTZmI\H]]`ac  ## % +0023$Q'++J7?VV',Z'8';M$#(#4Q#7 #CIL 4  ##r'cp\WV4p\V4\\39dV#\ RV: 24h)z1Like `eval` but returns only integers and floats zr=)rrfr6r8r)rrkrrs&&& r(myevalrs3 Q1 A Aw3, r!Z  r'z \A\b\w+\b\Zc\\V//44p^VR3# \dMi;i\P T4'd^^T3#\ T4pTEF^p\ T4T8dK\ P!RT,R,T4'dKC\ P!RT,R,\ P4pTP T4pT'gKTP T4pT'd<TPR4 R^ RTPR 4 2pTP T4pKC\X//4p TP T4pT'd<TPR4 R^ RTPR 4 2pTP T4pKC\T//4T , p TP T4pT'd<TPR4 RR RTPR 4 2pTP T4pKC\T//4pTP T4pT'd<TPR4 RR RTPR 4 2pTP T4pKC\T//4p T R ,T ,T8XdT R ,T ,T 8XdYT3u#M \dMi;iM R #) a Obtain ``a`` and ``b`` when ``e == "a*x+b"``, where ``x`` is a symbol in xset. >>> getlincoef('2*x + 1', {'x'}) (2, 1, 'x') >>> getlincoef('3*x + x*2 + 2 + 1', {'x'}) (5, 3, 'x') >>> getlincoef('0', {'x'}) (0, 0, None) >>> getlincoef('0*x', {'x'}) (0, 0, 'x') >>> getlincoef('x*x', {'x'}) (None, None, None) This can be tricked by sufficiently complex expressions >>> getlincoef('(x - 0.5)*(x - 1.5)*(x - 1)*x + 2*x + 3', {'x'}) (2.0, 3.0, 'x') Nz\w\s*\([^)]*\b\b(?P.*?)\b\b(?P.*)rr/r0rg?g?)NNN) r6rrgetlincoef_re_1rrVrrrrr) rxsetrlen_errYrrZeeror$c2s && r( getlincoefrsk* q"b! "!Tz    Q!Qw FE  q6E>  99&*U2A 6 6 zz.25GGN JJqM 1 ZZ]HHX./q1RXXg5F4GHBBB2r2&ZZ]HHX./q1RXXg5F4GHBBB2r2&*ZZ]HHX./qQrxx7H6IJBBB2r2&ZZ]HHX./qQrxx7H6IJBBBBB'GaK1$S1):7N   GH s: ++-J)A J)'A'J)A J)0A5J)) J76J7z\b[a-z][\w$]*\bcW9dW,PR.4pRW,9dj\W,4'gS\PW,R,4F,pWC9gK WA9gKW@8wgKVP V4K. VR,FIpVPV.4;'g \ WAV4FpWS9gK VP V4K KK M\ R\V4 R24.pW2V&V#)rnrkNNNz)_get_depend_dict: no dependence info for r)rzisstring word_patternrr"_get_depend_dictr1r)ror*depswordswordrs&&& r(rr2 s | x, $* Xdj%9%9$,,TZ_=$$,LL& > !HHDXXdB'::'D9:>LLO: ;DJd"pYT&\1RT RT: R24Rp?LRp?ii;i)rMselected_int_kindselected_real_kindrgrz \bkind\s*\(\s*(?P.*)\s*\)z-\bselected_int_kind\s*\(\s*(?P.*)\s*\)z4\bselected_(int|real)_kind\s*\(\s*(?P.*)\s*\)rkz kind("\1")zselected_int_kind(\1)FrhrrNrrzAget_parameters[TODO]: implement evaluation of complex expression rr)dimspeczget_parameters: got "" on zget_parameters:parameter z does not have value?! ))z.false.False)z.true.Truer )%rrrrrr"rrr islogicalrrsubrVrr!risdoublerorrrr iscomplexr1rrrrr param_evalrrrr6rr)r* global_paramsrg_paramsrofunc param_namesrkind_reselected_int_kind_reselected_kind_rerrepl is_replaced orig_v_lenv_rrr9rrnls&& r(rr s  YY} %Fyy'H ++-DE,.FGK   !TN K K d #  [DGJ4G%G   q !$jj A!!GGID  4(A  M1-A$(()A1EA  K(TW^44!$QJ #(?(G"GLA#&a&:"5K'--a00B2w{GGBsG,224<pV !V4pV'gKWP4VP!4pW,K@ VE FpV^,\VP449d"\ W6,W&^,,4W6&R W6,9Ed RW6,9dR W6,R,9gV'dV^,P%4p\VV,P44F}pVR 8XdVV,V,R8XdK!WsV,9dVV,V,W6,V&KIVR8XgKRVV,V,Fp\ W6,V4W6&K K M'W`R,9d\'RV: RVR, R24RW6,9dTRW6,R,9d@W6,R,R,p\)\+V/V 44pVW6,R,R&RW6,9dTRW6,R,9d@W6,R,R,p\)\+V/V 44pVW6,R,R&/pRW6,9EdW6,R,pVP/4.W6,R&RJwpppppVEF p V R,R8XdV R,P14^RKpMV R,R8XdV R,P14^RKpMV R,R8XdV R,P14^RKpMfV R,R8XdV R ,P14^RKpM=V R!,R"8XdV R#,P14^RKpM\ W6,V 4W6&V'dRW6,9d .W6,R&\3V4P5R$4Uu.uFpVP14NK upFIpVP7R%R4pVW6,R,9gK+W6,R,P V4KK RpV'd_VP7R&R'4pVP7R(R)4pR"W6,9dV.W6,R"&MW6,R",P V4RpVeRW6,9d .W6,R&\9\3V4P5R$4Uu.uFpVP14NK up4F7pVW6,R,9gKW6,R,P V4K9 RpVfEKRW6,9d .W6,R&\3V4P5R$4Uu.uFpVP14NK upF7pVW6,R,9gKW6,R,P V4K9 RpEK# V'EdMRW6,9Ed?.W6,R&\9\3V4P5R$4Uu.uFpVP14NK up4EFp\;VV 4pVR+8XdR+MR,pVV8XdV.pM\3VR+4P5R-4p\AV4^8Xd R,V9dR,.pR,p\AV4^8XdV^,V8wd R.V^,.p\AV4^8XEd8\C\DPFPHV4wpp V V, ^,p!V!PK\DPLPNR/7p/p"VR,Fp\DPP!V4p#V!PSV#4'gK2V!PUV#4wrW3R0lp$\V PW44p%V%PYVPW44V%U#u0uF"p#V#P\V9gKV#P\kK$ p'p#V$\V'43V"V&K V"VV&W6,R,P V4EK RW6,9EdfRV9Ed^W`R,9EdPW6,P R.4p(.p)\_\`\b\d4!W6,4p*\gW6,4'Ed\iW6,R,4EFwp+pVP V4o@S@fEMV*'EdS@Pk4EFwpwp,p-V@VA3R1loA\4p.SA!VV.4VV(9gR2W>,9gRW>,9dKGV,eVV.9dR3p/V,!\DPP!R4V R5V+ R6244p0V0PK\DPLPNR/7p0V0W>,R2&V.V-,W>,R&RW>,9dR4V R5V+ R7V 2.W>,R&MwR8p/RW>,9d .W>,R&R9W>,R,9dW>,R,P R94V(P V4V)P R4V R5V+ R7V 24W>,P R.4p1R:V19g#R;V19gT1P V/'dR;MR:4V1'gEKV1W>,R&EK S@fEKS@Pk4Fwpwp,p-W>,P R.4p'W>,P R.4F^p2V2PmR4'gKRPoV2P544p2V'PqV2^RKP5R<44K` V''d\\V'44W>,R&VV'9gKV(P V4K EK M\sW6,4'dRW6,9dR,W6,R,9d4\uW6,R,R,,V 4p3V3W6,R,R,&MVRW6,R,9dC\uW6,R,R,V 4p3W6,R,RV3W6,R,R,&V)'d V)W6,R&V('d\\V(44W6,R&R2W6,9gE KbRW6,9d .W6,R&R:W6,R,9d3R;W6,R,9dW6,R,P R:4RW6,9d.W6,R&\V Pk44F@wrV!W6,R2,4'gK"W6,R,P V4KB W6,R,'g W6,R\wW6,4'gE Km\yW6,R2,V 4W6,R2&E K \VP44EFpW`R,8XgKR"W6,9dW6,R",VR"&VR,R8XgKBR=V9d0VR=,V9d"\{W6,W0R=,,4W6&R>V9gKVR>,p4V4P7R?R4p5V4V58X*p6V5P7R@R4p4V4V58X*p7\|^,PV44pV'Ed\VPRA4VPRB44wp8p9pp:\V8V94wp;p,4 RE24EK VR,RL9EdRFV9d-\P!VR,VRF,,4p>M\P!VR,4p>\VP44F<p\_\\4!W6,4'gK+V>P V4K> RGV9dV>Pq\VRG,P444\VRG,P44F4pVRG,V,FpVV>9gK V>P V4K K6 VR,R8Xd9R=V9dV>P VR=,4MV>P VR,4VR,RM9d2VR,p?V?V9d"RVV?,9dVV?,R,VR&VR,RH8Xd)V>Pq\VP444\VP44FpVV>9gK W6K V#uupi \dEKi;i \d;\P!R T R 2\P"4PY&EKi;i \,dELi;i \,dELQi;iuupiuupiuupiuupi \<\>\3d\'R*T: R)24E Li;i \Zd'p&Rp$\T!PW44p%Rp&?&E L\Rp&?&ii;iuup#i \,dELi;i \,dELi;i)Nz@ Sets correct dimension information for each variable/parameter r*r+rrorrgr)r.z[A-Za-z][\w$]*z.*\brr2r undefinedz"analyzevars: typespec of variable z is not defined in routine r1rirVrhrMNr4r:r5NN:NrNrrrnrrmr:NNrj:rNNrrz\n\nz z\n rz4analyzevars: could not parse dimension for variable rrz@:@1)languagec W, V, #r+r&)r9r$ros&&&r(solve_vanalyzevars..solve_v s01{(:r'c<SPVR..4^,F$pW!9gK VPV4S!W!4K& R#r+)rzadd)rrv1coeffs_and_deps compute_depss&& r(r!analyzevars..compute_deps s?*9*=*=a$*LQ*O*OB')~(, (4R(>+Pr'rkFzshape(rr0z) == Tinrrrrrpure recursiver2rrlzanalyzevars: prefix (z) were not used rrrfr)NNNNNr )rrrr)rr)Er[rrrrqrzr"KeyErrorrorprrfrrrrrrrr1rrrreverserr r!rru param_parserrrVrrExprparsetostringLanguager as_symbolr  linear_solvesymbolsr_ RuntimeErrorrl_or isintent_inisintent_inoutisintent_inplaceisarrayrrNrrrrrisscalarrrxrHrrrrisintent_callback isintent_aux)Br+rrr*genrorrwsvarsr.r$r dep_matches name_matchrrln0rdimension_exprsrdimrrnrmrjrrtmprdim_charrrAd2dsizesolver_and_depsr9r all_symbolsrv_depsn_depsn_checks n_is_inputrsolverrall_deps is_requiredr1v_attraarprpr1ispureisrecr2rrrrrl neededvarsrorrsB& @@r(r{r{ s1%8M 99U6] #D W~#f T(A 6] U6] H vr* *-#J/CYU6]!C]F))]!CCC.Ax"-dhhq"oq"A/D E =D   G LLO $))+  = LLOD"3E": ;FK-.44J $))+  qM 1'')AEEG$A G  Q44 () )!$'9qT?;DG TW $$')jDGJDGAJ*_%23%7%:%:*5dgq*A&; =-'@F**/-=> TW $//GN+E2DB/0A23'. TW $00GN+F3DB/0A34'/  7:&D LLN"$DGJ /K ,CR5K'R5;;=!B/CrUh&ekkmQr2FrUh&ekkmQr2FrUg%rU[[]Ab1ErUf_bEKKM1R0D)$'15DGtw.,.)1?1G1M1Me1TU1TAaggi1TUiiR0dgh&77 GH-44S9 V "F<<&9D<<5DTW,+/&..t4D%tw.,.)&>&;Q;W;WX];^'_;^a ;^'_`DGH$55 GH-44Q7a"F$dg-+-(1?1F1L1LU1ST1SAaggi1STDGG$44 GG,33A6U!EWXs{$'1') $",:3,?,E,Ee,LM,Lq,LMA (62'(3hsCHH}&Z+As399%@2w!|r !U2w!|1(9!2a5\2w!|!$X]]%8%8"!=B "R! !NNH4E4E4G4GNH+-!&vA ( 2 21 5A$~~a00!G+0+=+=a+@DA56%;36aiik2BK$/$6$6qyy{$C5@*74?q'(vv~%+AFFK!'*76=d6l5J 2-"/:.=*GK(//2B $' !fo!V}:L W[[2.FHk>.0049Jtw%dgk&:;DAq&5&9&9!&->-@-@(5(B/3 67C$J 1#*$'#9+12aSaS(A8CDGG$4 /3 #+47#:8:DGH$5#'twx/@#@$(GH$5$<$F&*gkk*b&A#%==#:#:)+)(&( #$'*"55$'*"55 #**:6tw&$&! !2!2!45DA)0036wx(()  +DGCL&A [^$))+  f  $f W~+u$xD)@($X2GHDGu$xB**VR0C"$mF["5B!#s]E$Q--b1Aq:HGGFOQWWW-=;?7(D%;H$h<08 J.6 +!$XDL8_ 5j A&%3!)9=(26(:B:HJv$67ADGN3%6@DGN3#2:DGJ/!&1$'6&BDG &1$';&GDG! 3Dx4I3JJ[\^UX W~VV 5 5=53F#FGJ5=1Jdiik"A%|4TW==!!!$# e    d5>#6#6#89 :%.--/0w**A *"))!,+1 >Z '5 !!%/2!!%-0 >7 7=Dt|DJ 6"&t*X"6h >V #   d499;/ 0diik"A "G# Ki "D   " G!#tA3bM244!@!F!F  G2!!4V"(`UN' H=(()uB0F(4!G /3G25emmo2FK!G*7t )! !(1!)$(!)s1AOAO!.AO4AP<5AQAQ AQ% (AQ* AQ/ . AQ4 AAR!5AS AS C!ASDAS,O! AO1O0AO1O4AAP9P8AP9P< AQ Q AQ Q AQQAQQ4&ARRARR! AS R,AS S AS S AS)S(AS)S, AS;S:AS;z\A[a-z]+[\w$]*\Zc Vf\WV4pV#\V4^8g"VRR\V4^, 1,R8wd\ RV R24hV^R P R4p\V4^8XdV^,P R 4p\V4^8Xd1\ V^,V4p\^\V4^,4pM[\ V^,V4p\ V^,V4p \\V4\V 4^,4pM\ R V R 24hVPR 4'dV^RMTP R4p.p VF!p \WV4p V PV 4K# \\Wj44pV# \d!pTp\RT RT: R24Rp?T#Rp?ii;i \dp\RT RT : R24Rp?L|Rp?ii;i)a Creates a dictionary of indices and values for each parameter in a parameter array to be evaluated later. WARNING: It is not possible to initialize multidimensional array parameters e.g. dimension(-3:1, 4, 3:5) at this point. This is because in Fortran initialization through array constructor requires the RESHAPE intrinsic function. Since the right-hand side of the parameter declaration is not executed in f2py, but rather at the compiled c/fortran extension, later, it is not possible to execute a reshape of a parameter array. One issue remains: if the user wants to access the array parameter from python, we should either 1) allow them to access the parameter array using python standard indexing (which is often incompatible with the original fortran indexing) 2) allow the parameter array to be accessed in python as a dictionary with fortran indices as keys We are choosing 2 for now. Nzparam_eval: got "rrrazparam_eval: dimension z can't be parsedrrz.param_eval: multidimensional array parameters z not supportedrr r) rrr1rVrr!rrr6rr"rxzip) rrrrrrdimrangeboundlbounduboundv_evalitems &&&& r(rr s& ;Q&)A 7|a7#5S\A%5#56$>1':KLMMq}""3'H 8}A;$$S) x=A  V4EQE Q/H !f5F !f5FS[#f+/:HI#9N45 5LL&&1RA44S9A F >/D  d  S "#A HK ;A 'uE!b9 : : ;> > 'uE$< = = >s/ F G G"F==G G-G((G-c^RV9djVRVPR4pWPR4^,VPR4p\\W144p\ W,V,4#W9d\ W,4#VFp\ P !RV,R,\ P4pVPV4pV'gKQVPR4\ W,4,VPR4,pVPV4pKZ V#)aRecursively parse array dimensions. Parses the declaration of an array variable or parameter `dimension` keyword, and is called recursively if the dimension for this array is a previously defined parameter (found in `params`). Parameters ---------- d : str Fortran expression describing the dimension of an array. params : dict Previously parsed parameters declared in the Fortran source file. Returns ------- out : str Parsed dimension expression. Examples -------- * If the line being analyzed is `integer, parameter, dimension(2) :: pa = (/ 3, 5 /)` then `d = 2` and we return immediately, with >>> d = '2' >>> param_parse(d, params) 2 * If the line being analyzed is `integer, parameter, dimension(pa) :: pb = (/1, 2, 3/)` then `d = 'pa'`; since `pa` is a previously parsed parameter, and `pa = 3`, we call `param_parse` recursively, to obtain >>> d = 'pa' >>> params = {'pa': 3} >>> param_parse(d, params) 3 * If the line being analyzed is `integer, parameter, dimension(pa(1)) :: pb = (/1, 2, 3/)` then `d = 'pa(1)'`; since `pa` is a previously parsed parameter, and `pa(1) = 3`, we call `param_parse` recursively, to obtain >>> d = 'pa(1)' >>> params = dict(pa={1: 3, 2: 5}) >>> param_parse(d, params) 3 r/Nr0rrrr) rrfindr6rrrrrrr)rrdnameddimsrYrrYrs&& r(rr sr ax,166#;&&+/!''#,/K./6='(( 69~A::$q(+==rttD 1 A!GGH% N#%&WWW%56JJqMr'cLTp\PV4'*pV'd\V4wrV\WR,V4pRpVFGp V P 4p V \ P \ P,9dRp W,pKI VR ,R8Xd VR,pM VR,pTpWR,9gWR,9d VR,pK%W9d7^p V\V 4,V9d V ^,p K"V\V 4,pV'dXVR,V&V#WR,9d$VR,PV/4VR,V&RV9d@W1R,VR,,9d%\VR,V,R 4VR,V&V#) r*e_rr_er.rr,r-rr ) analyzeargs_re_1rrrrraascii_lowercasedigitsrrzrq) r$r+r.orig_a a_is_exprrratnarrws &&& r( expr2namerI$ si F$**1--I#5e#< q- ? A A..>>B  b6S=cBdB = Av$6CAy #a&jD AA AJf a H &M !$V}00\w+)|)\Zz*\A[+-]?[\d.]+[-\d+de.]*(_(?P\w+)|)\Zz \A\(.*\)\Zz\A(?P\w+)\s*\(.*?\)\s*\Zc\V\4'dRR/#\V\4'dRR/#\V\4'dRR/#\V\4'dV#\ \ V44h)r2r5r3r)rr6r8rrxAssertionErrorr)rs&r(_ensure_exprdictrNi sk!SI&&!UF##!WI&&!T a !!r'cW9d\W,4#VP4p\PV4'dRR/#\PV4pV'dIRVP 49d0VP R4'd\R\V4 R24RR/#\PV4pV'dIRVP 49d0VP R4'd\R\V4 R24RR/#RFkp\WR7PR V,R ,4Uu.uFqUP4NK upFpWa9gK \W,4uu# Km /p\PV4'd\V^RW4pM\PV4pV'dmVP R4p\VP R4W4pV'd R V9dVR V'g'V^,V9d\W(^,,4#V^,R 9d RR R RR//#V'g\R\V4 R24V#uupi)r2rroz6determineexprtype: selected kind types not supported (rr5r3rr/rbrgrrriz4determineexprtype: could not determine expressions (z) type. )+rrrr )rNrdetermineexprtype_re_1rdetermineexprtype_re_2rrr1rdetermineexprtype_re_3r r!determineexprtype_re_4rdetermineexprtype_re_5) r"r*rulesroprrrrns &&& r(rru s | ++ ::+EQ%L99 Aw%K#sDD B4:,i X Z H+[sI0rc\V4Rp\V\4'djVFapV'dCVR,R9d5VR,\9dK-\'dVR,\9dKMV\ WAVR7,pKc V#RpRpRpVR,pVR8XdR#.p RV9d VR,pRV9d{VR,p VR,F9p \ WV 4p \W,4'dK(V PV 4K; VR,R8Xg V 'dRR PV 4 R 2pRp R V9dL\VR ,P44F'p V V\, V R VR ,V , 2p K) VPR .4R,pVR8XdRV9dVPR4V'd'V V\, RR PV4 RV 2p RpRV9d\VR,V\,4pRpRV9d\VR,V\,4pVR8XdRpRpRV9d4RVR, R 2pVR,V 9dV PVR,4\ VR,V\,VR7p\!WR,W\,VR7p RpRV9dV'g RVR, 2pRV9d]Rp\VR,P#44F-wp pV V\, RV RR PV4 R 2pK/ VV,pVR8Xd VR8XdRpV V V R V V V R V V V V V V V RV R V 2pV#) rr+rrorrr.r*r/rr0rrrrcallbackintent(z) r r rrz result (r)rz! in rzentry rrzend r)r[rror"r#rrIrr"rrprrzr use2fortrancommon2fortran vars2fortranrN)r+rhrrlrkrror. blocktypeargslr*r$rrw intent_lstr r rr)mess entry_stmtsrs&&& r(rr sw C%AQwZ#==V9 )96)!;(lKKC  F D DgII E V} V}vA!E*A$TW-- Q >Z '5sxx'q)DU"e./4467A#3"4S7]OA3a#();#r rS)r rhrlrrrws&& r(r\r\ s  C #((* cU$qc# 6R<s2w#~#2h  SV vE.C CF?sve}}A#&-,,./Au a(( E!QC.CA E!QCr#&-*:);cr(C%& Jr'cVR,p.pVF9p\4RV 2,pV!V4'dVPV4K9K; V# \dKMi;i)r isintent_)globalsr"r)rmrrlrr_s& r(true_intent_listri si h-C C # IfX./Avv 6"  J    sA  AAc  \V4Rp.pVF#pWpR,9gKVPV4K% RV9dAVR,F3pWq9dWv9dVPV4K"K$\RV R24K5 RV9dVPVR,4V'g:\ VP 44FpWv9gK VPV4K VEFpRW,9dVW,R,FBpW9gK RW,9gKWqV,R,9gK0\RV RV R 24KD R V9dWpR ,9d\ W,4'd V V R V 2pV V R V 2p\W,4'd V V R V 2pWq9dRW,9dK^p VR,F$p WzR,8XgKV R,R8XgK"^p M V 'dEKWq9d\V4\RV R24EK9WpR,8Xd)VR,R8wgVPR4'dEKnRW,9dWRW,9d'RW,R,9dWr9d V V R V 2pEK\W,4\RV R24EKW,R,p V R8Xd#RW,9dV RW,R, R2p /p RW,9dW,R,p MRW,9dW,R,p RV 9d.V R,R49dV R V R, R2p MWV RV R, 2p MHR!V 9d,V R"V R!, 2p R#V 9dV R$V R#, R2p MV R2p MR#V 9dV R%V R#, R2p R&p RW,9doW,R,Uu.uFpVR59gK VNK ppV'd R'V9dR(V9dVPR(4V'dV R)R*PV4 2p R*p R+W,9d)V V R,R*PW,R+,4 R2p R*p R-W,9d5\W,4pV'dV V R.R*PV4 R2p R*p R/W,9d)V V R0R*PW,R/,4 R2p R*p RW,9d)V V R1R*PW,R,4 R2p R*p R2W,9dXW,R2,pW,R,R69d*\V4pRVP R*VP R2pV R3V R2V 2p MV R3V 2p V V V 2pEK V#uupi \"dL3i;i)7rr*rzvars2fortran: Confused?!: "z" is not defined in vars. rrnz;vars2fortran: Warning: cross-dependence between variables "z" and "rr,zintent(callback) z external z optional r2r)ror+rz*vars2fortran: No definition for argument "rkrrgrz(vars2fortran: No typespec for argument "rfrlr/r0rhrirz*(rVz(len=rMz,kind=z(kind=rz intent(in)z intent(out)rrrr3rr[rmzcheck(zdepend(rkz :: )rr)r)rr)r[r"rmrrorpr isoptionalshowr1rzrrrirr3imagr)r+r*r.rhrrlnoutr$rrrovardefrrrrrrs&&&&& r(r^r^ s C D  f  KKNu|$$Ay=KKN!1!4OPR %U E*%& diik"A} A# tw WX&&9TW!41gh>O9OUVWUXX_`a_bbfgi' % A{);$; ))cU"3A37E#is+C$'""cU)A3/yZtw6D6]]& >ajJ&>D# = J @4H I  f W~+uyy/B/B  TW $TW$twz7J)J9 E#is3C M >qcF G $ V  dg 5xq!4 5Q7F TW $w~.H tw &w~.H (?} *"82hsm_A6"81Xc]O4 h xuXe_$56F!"86(6*:);1="81 x xvhv&6%7q9F   #wz2.2! ,A2D.  4$9N  M*"82chhtn%56 $' !xs*SXXdgk6J-K,LANFA tw "47+C"8A3gchhsm_A>A dg xs&$''2B)C(DAFFA tw xs'#((4783D*E)FaHFA $'> Awz"&CCQAAFF81QVVHA.AxtA3as+FxtA3'FcU6(#IJ JM.@!s U9U90(U>> V  V cF\R^4\V\4\R^4.s\ \ ^,4p\R^4\ F(p\RVP R2^4\W4pK* \R^4\V4p\V,#)zReading fortran codes... zPost-processing... z"Applying post-processing hooks... z rzPost-processing (stage 2)... ) r1rr5rrwrpost_processing_hooks__name__traverserj)filespostlisthooks& r( crackfortranrw s (!,E9% "A&K1&H 115%"T]]O2&*H+& ,a0(#H  !!r'c\\V4R,pRpR\ R2pW!,V,#)rzE! -*- f90 -*- ! Note: the context of this file is case sensitive. z3 ! This file was auto-generated with f2py (version:zZ). ! See: ! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e )r f2py_version)r+pyfheaderfooters& r( crack2fortranr} s@ 5 !D (CF33?.AF <&  r'c\V\4;'d4\V4^8H;'d\V^,\\34#)r)rtuplerVr6r)objs&r(_is_visit_pairr sB sE " / /CA  / /3q6C:.0r'c0\V4'd>V^,R8XdV#V!WV.VO5/VBpVe\V4'gQhV#TpVwrMRV3pRp\V\4'dK.p\V4F8wr\ W3VW'.,V.VO5/VBwrV fK'VP V 4K: MZ\V\ 4'dC/pVP4F+wr\ W3VW'.,V.VO5/VBwrVfK'WV&K- MTpVfV#W3#)aTraverse f2py data structure with the following visit function: def visit(item, parents, result, *args, **kwargs): """ parents is a list of key-"f2py data structure" pairs from which items are taken from. result is a f2py data structure that is filled with the return value of the visit function. item is 2-tuple (index, value) if parents[-1][1] is a list item is 2-tuple (key, value) if parents[-1][1] is a dict The return value of visit must be None, or of the same kind as item, that is, if parents[-1] is a list, the return value must be 2-tuple (new_index, new_value), or if parents[-1] is a dict, the return value must be 2-tuple (new_key, new_value). If new_index or new_value is None, the return value of visit is ignored, that is, it will not be added to the result. If the return value is None, the content of obj will be traversed, otherwise not. """ r]N)rrrorrsr"rxrN)rvisitparentsrr.kwargs new_resultparent result_keyrYr new_indexnew_itemrnew_key new_values&&&&*, r(rsrs sS8c q6^ #J3A$A&A  !!*-- --  C #t %cNLE"*E>5+2X+=v#<,0#<4:#< I$!!(+ + C   ))+JC!)3,*1H*.fix_usages>{W,u4gEuw)@@' r'r*rkN callstatementz (? `z` r )rrmr)rN ischaracterrrr1)r:rrr.r parent_key parent_valuerrr vars_dictrrvds&&&*, r(%character_backward_compatibility_hookrs` 'r{JJC ++r{1~'''BKN r{1~'''BKN  I $??,KG2%g9 -  BKN6*  $??,KG2FF!G+e3S7]IO -   ( AcU;""'yk>?@ Br'__main__r(rz-quietz-verbosez-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form. z-skipemptyendsz--ignore-containsz-f77z-f90rz-hz-showz-mrzUnknown option z OSError: a Warning: You have specified module name for non Fortran 77 code that should not need one (expect if you are scanning F90 code for non module blocks but then you should use flag -skipemptyends and also be sure that the files do not contain programs without program statement). zWriting fortran code to file rr r )r )z.f90z.f95z.f03z.f08)z.forz.ftnz.f77z.f)z([a-z]+[\w\s(=*+-/)]*?|)rrr)z [a-z\s]*?rrr)rrrr)rdimension|virtualrr)rrrr)rrrr)rrrr)rrrr)rrrr)rrrr)rintent|depend|note|checkrz \s*\(.*?\).*)rrrz\s*\(.*)rrrr)rrrr)rrrr)rr r r)rr r r)rr r r)rr r r)rr r r)rKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefrr)r)r)rXr+)rN)Nr)r)NN)rr)rF)rF)__doc__rrrrrrrar,pathlibrr ImportErrorrrrauxfuncsversionryr r rrrrrrrrrrr rrrrr7rrr6r$rr#r%rr"r!rr)r1rrrlrxrrpruryr{rrrrrrrrrrrrrlrbeforethisafter fortrantypesrHrrErF groupbegins77r groupbegins90r groupendsrCendifsrBmoduleproceduresrNrGr8r9r;r<r?r@rAr:r=r>rJrMrQrIrKrLrDSr3r4rr%rOcrackline_bind_1rr5rPr rerxr rrrrrrr{r}rrrrRrrrrhrirOr7r$r-rrrqrrrsrYr[r^rfrjrwr|rzr}rrrrrrrrrrrrrrrr{rBrrrIryrQrRrSrTrUrNrrr]r\rir^rqrwr}rrsrr"rrrtfuncsr_f2f3 showblocklistargvrrmrrrOSErrordetailrurzr.r&r'r(rs%LZ   $ ""                 2          #L !A)62 " A)95    %  7 F G V V V W    ( *. 05 7@ BJ LS    ( */ 18 :> @F HP    ' )1 3; =D FL      !  #*  ,2  4:  <@                % '5 7> @H JR    Ae)HQKKE  ,1 3RTT:AA **12448??**12448??**12448>>:83>4'+!]DBD zzr<t<>FGNO r=->>FGNO7 ZZr9i66>?DE  zzy&&$77?@GH )r+-=tDDbddL**88"$$@AKL::o1889;?@KL**88"$$@AKL**88"$$@AKL**88"$$@AKL 44bdd<=EF 66>?HI::::BDDBCNO ?.QQRTRVRVXYab ::@@"$$HITUjj00"$$89?@ jj00"$$89?@ zz22BDD:;BC 66>?HI 44bdd<=EF ZZ..67<= **66>?IJ 44bdd<=EF **_8M&MOQOSOSVXVZVZOZ[]oo::9244ABMN(A244H::A244HZZ kmomqmqrX%v $ & @ KRTTS %&(dd,**rtvtxtxy***+-441jj@"$$H ;= zzHJ $A244H    t@n(8jjErttL zzI244Q zz9244A 235449**GIKIMIMN "Jnb6,t6   <@\~D'T*Z$&!**^RTT2AHzz,bdd3 ,4$"  $(*bJ( **W%++ DN ::12448; |M`  D6$6=$DbddK12449M2448$ErttL ")+( ZGT0 z@"" !0 "$D?"D9 xBC z E E A B BM XXb\\ 7  qTS[A (]EG *_GE &[yVXY[M"N " "M % %N &[I"N &[I#NM $YB '\M $YB qTS[ od1gYb1 2 BK BM  2Q  Q LLOcd 9}}   E"H{/[0A/B"EqIH% +s # #q GGCL$ XQYmBo 2)F:R011 2"$ #s5q $)qr qqq=$ q88q= r