KhBSrSSKrSSKrSSKrSSKrSSKrSSKrSSKrSSKrSSK J r SSK r SSK Jr SSK7 SSK Jr \R"qSqSqSqSqS qS qS qSqSqSq/qS qS qSq 0q!S q"Sq#Sq$Sq%[J/0q&S q'/q(S q)/q*Sq+S q,/q-/q./q/S r0SS jr1S\l20r3SH r4SS0\3\4'M SH r4SS0\3\4'M 0r50r6SHr7\7S-\5\7'\7\6\7S-'M Sr8Sr9Sr:Sr;\Rx"S\Rz5R|r?\Rx"S\Rz5R|r@\Rx"S\Rz5R|rA\Rx"S\Rz5RrC/SQrD/SQrES rFS!rG\HS4S"jrIS#rJS$rK\Rx"\JS \K\KS%4-\Rz5S&4rL\Rx"\JS \KS'-\KS'-S%4-\Rz5rM\Rx"\JS(-\Rz5S)4rN\Rx"\JS*-\Rz5S)4rOS+rP\Rx"\JS \P\PS%4-\Rz5S)4rQ\PS,-S--rR\Rx"\JS \R\RS%4-\Rz5S)4rSS.rT\Rx"\JS \T\TS%4-\Rz5S/4rUS0rV\Rx"\JS1\V\VS%4-\Rz5S24rWS3rX\Rx"\JS \X\XS%4-\Rz5S44rY\Rx"\JS5-\Rz5S64rZ\Rx"\JS7-\Rz5S84r[\Rx"\JS9-\Rz5S:4r\\Rx"\JS;-\Rz5S<4r]\Rx"\JS=-\Rz5S>4r^\Rx"\JS?-\Rz5S@4r_\Rx"\JSA-\Rz5SB4r`\Rx"\JSC-\Rz5SD4ra\Rx"\JSE-\Rz5SF4rb\Rx"\JSG-\Rz5SH4rc\Rx"\JSI-\Rz5SJ4rd\Rx"\JSK-\Rz5SL4re\Rx"\JSM-\Rz5SN4rf\Rx"\JSO-\Rz5SP4rg\Rx"\JSQ-\Rz5SR4rh\Rx"\JSS-\Rz5ST4ri\Rx"\JSU-\Rz5SV4rj\Rx"\JSW-\Rz5SX4rk\Rx"\JSY-\Rz\R-5SZ4rm\Rx"S[\R5S\4rnS]roS^rp\Rx"S_\Rz5rq\Rx"S`\Rz5rr\Rx"Sa\Rz5rsSSbjrtScruSSdjrvSerwSSfjrx\Rx"Sg\Rz5ry\Rx"Sh\Rz5rz\Rx"Si\Rz5r{\Rx"Sj\Rz5r|\Rx"Sk\Rz5r}\Rx"Sl5r~\Rx"Sm5r\Rx"Sn\Rz5rSorSprSqrSrrSsrStrSur\Rx"Sv\Rz5r\Rx"Sw\Rz5r\Rx"Sx\Rz5r\Rx"Sy\Rz5r\Rx"Sz\Rz5rS{rS|rS}rS~rSSjrSSjrSSjrSSjrSrSrSSjrSSjrSSjrSrSrSSjrSrSSjr\Rx"S\Rz5rSr\Rx"S\Rz5rSrSrSrSrSrSSjr04SjrSr\Rx"S5RrSrSr\Rx"S\Rz5rSSjrSr/4SjrSr\Rx"S\Rz5r\Rx"S\Rz5r\Rx"S\Rz5r\Rx"S\Rz5r\Rx"S\Rz5rSr04SjrSSjrSSjrSSjrSrSSjr/qSrSrSr/S4SjrSrG[|GR\5 \S:XGa/r/rSrSrSrSr\GRSSGHr\S :XaM \SS:XaSrM\S:XaSqSqM%\S:XaSqSqM1\S:Xa[&(a \1"SS5 SqSqMQ\S:XaSqM[\S:XaSqMe\S:XaSqSqMq\S:XaSqSqSqM\S:XaSrM\S:XaSrM\S:XaSrM\SS:Xa\"S\"\5-5 M\(aSr\qM\(aSr\qM\(a-\"\5GR5 \GR\5 GM\GR\5 GM [&(d[2(a[4(d \1"SS5 \"\5r[0(aF\1"S\"[05-S5 \"\5r\"[0S5r\GR\5 SSS5 \(a \H"\5 ggg!\ a Sr G Nf=f!\ar\"S\<S35 SrCGMSrCff=f!,(df  NQ=f)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__)*)symbolicfix cxSqSqSqSqSqSqSqSqSqSq /q Sq [/0q Sq SqSq/q0qSqSqSq/q/q/q/qSqg)Nrrrr r r ) strictf77sourcecodeformquietverbosetabchar pyffilename f77modulename skipemptyendsignorecontains dolowercasedebug groupcounter grouplist neededmodule expectbeginskipblocksuntil usermodules f90modulevars gotnextfilefilepositiontextcurrentfilename skipfunctions skipfuncs onlyfuncs include_pathsprevious_contextI/var/www/html/env/lib/python3.13/site-packages/numpy/f2py/crackfortran.pyreset_global_f2py_varsr*sIN EGGKMMNK ELr"ILKOKMKOMIIMr(c[(dg[(dJU(a#[RR [ 5 [RR U5 ggN)rrsysstdoutwriter )lineflags r)outmessr2s> 7 5  JJ  - .  r(2zabcdefghopqrstuvwxyz$_typespecrealijklmninteger)3intdoublefloatcharshortlongvoidcasewhilereturnsignedunsignediffortypedefsizeofunionstructstaticregisternewbreakdogotoswitchcontinueelseinlineexterndeleteconstautolenrankshapeindexslensize_imaxminflenfshapestringcomplex_double float_doublestdinstderrr.typedefault_bncbU[;a$[SU<S[U<S35 [U$U$)Nzrmbadname1: Replacing "" with "". )badnameserrmessnames r) rmbadname1rr s/ xx~' (~ Kr(cDUVs/sHn[U5PM sn$s snfr,)rrnames_ms r) rmbadnamerws%* +UrJrNU ++ +cbU[;a$[SU<S[U<S35 [U$U$)Nzundo_rmbadname1: Replacing "rlrm) invbadnamesrorps r)undo_rmbadname1r{s1 {T*, -4  Kr(cDUVs/sHn[U5PM sn$s snfr,)r{rts r)undo_rmbadnamer}s*/ 0%BOB % 00 0rxz-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*]\s*[^\s\d\t])z.f90z.f95z.f03z.f08)z.forz.ftnz.f77z.fcp[b/[R"U5R5RnO[ S[ R RU55n[US5nURU5nUR[R5(aSnOpUR[R[R45(aSnO9UR[R[R 45(aSnOSnSSS5 [XWS9$!,(df  N=f) a:Ensures that filename is opened with correct encoding parameter. This function uses charset_normalizer package, when available, for determining the encoding of the file to be opened. When charset_normalizer is not available, the function detects only UTF encodings, otherwise, ASCII encoding is used as fallback. N rbz UTF-8-SIGzUTF-32zUTF-16ascii)encoding)charset_normalizer from_pathbestrr`ospathgetsizeopenread startswithcodecsBOM_UTF8 BOM_UTF32_LE BOM_UTF32_BEBOM_LEBOM_BE)filenamemodernbytesfhandleraws r)openhookr,s%%//9>>@IIR23 (D !W,,v&C~~foo..&!4!4f6I6I JKK# >??##"  22" !s ,B)D'' D5cSn[U5RR5[;aSn[ US5nUR 5nSn[ U5(aSnO[U5(aSnSnUS:aqU(ajUSS:waBUR5(a-US-nUSS:wa[US S 5(d US S S :XaSnOUR 5nUS:a U(aMjS S S 5 U$!,(df  U$=f)z(Check if file is in free format Fortran.FTrr!r Nr &) rsuffixlowerCOMMON_FREE_EXTENSIONSrreadline _has_f_header_has_f90_headerstrip_free_f90_start)fnameresultrr0ns r)is_free_formatrKsF E{!%;; % !    A T " "AF!eAw#~$**,,QGtORa(A(Ad2bkUXFX!F##%D !e  M   Ms B/C77 Dc U(d/[[[[[[ [ [[4 nU/:Xag[nSnSnSn[R"S[R5n[R"S5n [R"S5n [R"S5n U(a U"SS5 S up|S /[S 5V s/sHn [U 5PM sn -nSq[R"U[ S 9nUR#5nU(dGOUR-5(GaSqUR)5qSqUn SqSq[.R0R3[5Sn[5[5R6R95[:;a#[=U5(d[?U5(dSqO&[A[5(a[?U5(dSq[(a[BqO[Dq[GS[I[5<S[<[=(a S=(d S<S35 URK5RMSS 5nUS:XdUSS;aO USSnUS:XdMSn[OUS5unnUS - nUSSR95S:Xa[OUS-USS-S5unnS nURQ5S:Xa[S:XaOSnGM[S:XGa)USS ;a)USSR95S!:Xa S"USS-nS nO&SnSnGM$[(a[SU5S#:aUSS#nUSU;a['S$[IU5-5eU(a [(a&[SU5S:aUSS :XdUUS%S-nSnSnGOU RUU5nU(aURWS&5nU(a(XzRUU5RWS&5-nSnSnGO[S"USS-nU(aUR95nOUnUnUnGO3[S:XGa U(dsWS':XamU RUU5(aWUS(-nUR#5nU(d [YS)5 OUU-nU RUU5(aOMAUR[5nU RUU5nU(aURWS&5nU(a'XzRUU5RWS&5-nSnSnO7U(a*U(a[]U5(dUR95OUnOUnUnUnUSLnO[_S*[I[5-5eS+URa5S- [U 4-qURUU5nU(Ga URWS,5n[.R0RcU5(a [eUUSS-9 O[.R0Rg[5/[h-nSnUHVn[.R0RkUU5n[.R0RcU5(dMISn[eUUSS-9 O U(d:[GS.[IU5<S/[.RlRkU5<S035 OU"U5 Un GMU(aUR95nOUnUnS+URa5S- [U 4-qURUU5nU(Ga URWS,5n[.R0RcU5(a [eUUSS-9 O[.R0Rg[5/[h-nSnUHVn[.R0RkUU5n[.R0RcU5(dMISn[eUUSS-9 O U(d:[GS.[IU5<S/[.RlRkU5<S035 OU"U5 SqURo5 U(a U"SS5 gWu qqqqqqqqqgs sn f![$a6n['SUR)5SUR+5SUS35eSnAff=f)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. NFr z*\s*include\s*(\'|")(?P[^\'"]*)(\'|")z(?P.*)&\s*\Zz(\s*&|)(?P.*)z.*?'''r )r r  )rTzreadfortrancode: reading #z failed with zu. It is likely that installing charset_normalizer package will help f2py determine the input file encoding correctly.rrrfreez Reading file z (format:z,strict)  z rrz!f2pyr )rcrCrf2pyz Hzxreadfortrancode: Found non-(space,digit) char in the first column. Are you sure that this code is in fix form? line=%sr0.pyf z.Unexpected end of file when reading multiline z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s" rq) dowithlineistopz-readfortrancode: could not find include file z in . Ignoring. )8rr r!rr beginpatternrrrrecompileIrangestr fileinput FileInputrrUnicodeDecodeError Exceptionrlineno isfirstlinerrsplitextrrrCOMMON_FIXED_EXTENSIONSr_has_fix_headerrbeginpattern77beginpattern90r2repr expandtabsreplacesplit_by_unquotedrrXmatchgrouprorstripiscstyledirective ValueError filelinenoisfilereadfortrancodedirnamer%joinpathsepclose)ffilerr saveglobalslocaldolowercasecont finallinell includelinecont1cont2 mline_markl1rv spacedigitsfinlmsgextis_f2py_directiverl_ origfinallinerlcmfn include_dirs foundfileinc_dirfn1s r)rres !#3_nV_ %+6  {" DI B**5rtt=K JJ, -E JJ- .EI&J 2r FB%U2Y7Yr3r7Y77K   eh 7C   A  ??  ! !llnOKBI"N''""?3A6CO$++1137NN(++q/A/A 009K9K!'y- - O,n .Y4"46 7 LLN " "63 /r'uH$#2Ar' "#As+B S bq6<<>W $$Q[2ab6%93?DAq $  779?'   U "t00Qq6<<>V+!AB%A(,% D(-%q6B;#2At;&!GIMa!QRRIICFQJqts{!AB%Z " KKNAkk!n226::B "I$&M !AB%A'$&HHJ $& $&MB v %C6Mj.>.>q.A.AHBMOBA!''++HHJ AAGGFO++a...v66 " #4EIZ[]I^I^ egI "I " TMDH4P^K__a a4 NN q /2877   m , Bww~~b!!zCGGOOO4 68E F  +G'',,w3Cww~~c**$% ' !L , !R"**//,"?AB y ! { ~HHJ  M0 1or433-(A WWV_ 77>>"   B:Q ?GGOOO<= MLI'ggll7B/77>>#&& !I#CJaH ( Hbjjool;=> 9IIK 2q9D 6 % %+E8 " +CLLN+;1SZZ\N &  s`< a b 1a<<bzN\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.*rhz|static|automatic|undefined)z([a-z]+[\w\s(=*+-/)]*?|)functionrrbegin)z [a-z\s]*? subroutinerrzprogram|block\s*dataz@|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|z 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*proceduremoduleprocedure)r implicitrrr)r dimension|virtualrr dimension)r externalrrr)r optionalrrr)r requiredrrr)r publicrrr)r privaterrr)r intrinsicrrr)r intent|depend|note|checkr z \s*\(.*?\).*intent)r parameterr z\s*\(.*r )r datar rr )r callr rr )r entryrrr)r callfunrrr)r commonrrr)r userrr)r containsrr r)r formatrrr)r Kthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefrrf2pyenhancementsz2\s*(?P''')(?P.*?)(?P''')\s*\Z multilinec [S5[U5-(aS5e[R"SRSR[R"U55SR[R"U55SSS95nUR U5nU(aUR 5nUS US 4$US 4$) 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('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*")) not_quotedr; single_quoted double_quotedbeforeafterr )setrrrescaper groupdict)r0 charactersrrds r)rrs E S_,P/PP -  !!'!((:)>?ryy4500 "("2 3A  A KKM( QwZ(( ":r(c/n[U5RS5H/nSHnURUS5nM URU5 M1 SR U5$)N@,@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[US5up#U(a[SRU5(dy[SRU5(d\US:Xd[ U55e[US5upU(a%[ X5 [USSS5upU(aM%[ X5 gUS:a_Sq[ S0q[ 00q[ /0q /[[ S'0[[ S'S[[ S'S[[ S 'S q S q gUS:GaSn[(a[[ :XaS n[ U:a[S [ [ 5<S [ [5<S35 [S5 [[ S- R[[ 5 [[ [[ S- S S'[[ [ S- q[ U:aM[(a[[ :Xa[[ S- R[[ 5 [[ [[ S- S S'[[ [ S- q[[ S- R[[ 5 [[ [[ S- S S'[[ [ S- qS q gUS:XagSn[[ ["[$[&[([*[,[.[0[2[4[6[8[:[<[>[@[B[D[F[H[J[[[L4H%nUSRU5nU(a O US-nM' W(Gd[Nn S[s=::a [ ::ag S[[ ;Ga=[[ SGH(n U [P;a [PU n S[[ ;aU [[ S;aM>[RR"SU -[UU5[RRV5n U (dMyU RU RYS55n [[U RYS55n U (aSU <SU <SU RYS5<S3nO SU <SU <S3n[\SRU5nU(d[S[ U5-5 g[_USU5 g [`S:d2[`S:Xa<[bRe5RgS5(aSq4[S[ -5 gWSS:XGaPS[s=::a [ :aO O[ S- q[[ ::ag[ S::a[kS[ -5e[8SRU5n U (agU RYS 5[[ :XdG[kS![ U RYS 55<S"[ [[ 5<S#[l<35e[[ :XaS q [[ S- R[[ 5 [[ [[ S- S S'[[ [ S- q[n(dSq8ggUSS$:Xa6S[s=::a [ ::a O O [ S-qgSq9[_XSU5 Sq8gUSS%:XagUSS&:Xa[_XSU5 gUSS':Xa+[t(agS[s=::a [ ::ag [ q gS[s=::a [ ::ag [_XSU5 g)(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]. ;rrNr bodyvarsblockrqr zcrackline: groupcounter=z groupname=rzYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement. externals interfacedz5(?P[^"]*)\b%s\b\s*@\(@(?P[^@]*)@\)@.*\Zrargszcallfun (z ) result (r)z8crackline: could not resolve function call for line=%s. rrz"crackline:%d: No pattern for line rz>crackline: groupcounter(=%s) is nonpositive. Check the blocks.thiszcrackline: End group z* does not match with previous Begin group z rrrr);rf2pyenhancementspatternrmultilinepatternr crackliner groupname groupcacherrrrr2r'dimensionpatternexternalpattern intentpatternoptionalpatternrequiredpatternparameterpattern datapattern publicpatternprivatepatternintrinsicpattern endifpattern endpattern formatpatternrfunctionpatternsubroutinepatternimplicitpattern typespattern commonpattern callpattern usepatterncontainspattern entrypatternmoduleprocedurepatterncrackline_re_1rzrmarkouterparenrrr*callfunpattern analyzelinerr!rendswithr&rr rrrr)r0resetr has_semicolonsemicolon_lineflr1patrre_1rqm1m2r)s r)r9r9s-)s3A5a8>>tDD/288>>z&4;&z0s; d "#4^AB5G#M Dn $ qy !2& "B' !2& +- < (+- < (,. < )+- < (  qy  =\\9BR ,'i: ; l n lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+LR =\\9 lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+L lQ& ' . .z,/G H6? 6MIlQ& ' +F 3,''!+LL rz D /=/ +}n jo/@}Z' &  FLL  ax# $   /< /  0 *\2 2"<0=;&&t,D:l#;; S_H`amHn@nXXLtSUcdhUikmkokoq2BHHX$67B%bhhv&67A !RXXh%7 948;&q)//5AWZ^_cZddf9d3+>, Q;7a   /< /  0&  /< /  0A1vt$r(cSnSnUH8nUS:XaUS-nUS:XaUS-nMOUS:XaUS- nUS:XaUS-nM4X-nM: U$)Nr rr4r@(@r5@)@r')r0rfrs r)rTrTWsq A A  8AAAvI#XAAAvI E Hr(c6SnSn[XS-5upEX$- nU(a`USU:XaUS:Xa USU-S-- nO$X%S- nUSS:XaUS- nOUSS:XaUS-n[USSUS-5upEX$- nU(aM`U(a[X0U455eU$)Nr r()@r4rr5)rr)r0commarrcrrs r)r%r%is A A%dDL9MFKA  !H AF us" "A qMAQx3QqSQ)%)UT\B   %$$|$$5 Hr(cJURSS5RSS5nU$)Nrar4rbr5)r)r0rs r)unmarkouterparenri|s$ UC ((4A Hr(cU(d0nU(dU$XLaU$[UR55HnUS:XaU(dX0;aXX'MMUS:XaXHn[XU5nM M>US:Xa[XUU5nMUUS:Xa[ XUU5nMlUS;aU(dX0;aXX'MMUS:XaMUS;a[ SU-5 M[ S [U5-5e U$) Nr4attrspec kindselector charselector)=typenamenote)r checkrrrdependz"appenddecl: "%s" not implemented. z-appenddecl: Unknown variable definition key: )listkeys setattrspecsetkindselectorsetcharselectorrorr)decldecl2forcekrs r) appenddeclr|s    } %**,  ? (& *_X"4E2 . "4q59D . "4q59D # # (& &[  )) 9A= >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\bcnURS/5Hn[RU5(dM g g)Nrkrr)get_intentcallbackpatternr)vdeclr)s r)_is_intent_callbackrs0 YYz2 & ! ' ' * *' r(cxSRUR55n[RU5n[ X5 U(akUR S5nU(a/URS5Vs/sHo3R 5PM snO/nUR S5X!R S54$S/S4$s snf)Nr attributesr$rqparams)rr&typedefpatternrprintrr)r0r^attrsr)s r)_resolvetypedefpatternrs 774::< D   d #B $O &9>EKK$45$4q$45Bxx(::: T>6s2B7c[R"S[R5nURU5nSnU(a7UR S5nUSUR 5XR 5S-nX4$)NzObind\(\s*(?P[^,]+)(?:\s*,\s*name\s*=\s*["\'](?P[^"\']+)["\']\s*)?\)r)rrrsearchrstartr)r0patternrbind_statements r)parse_name_for_bindrshjjkmomqmqrG NN4 EN QNU[[]#d99;<&88  r(c[U5up[U5n[RU5nU(a3UR S5UR S5UR S5U4$[ RU5nU(a/UR S5S-UR S5-S-nU/SS4$[ RU5nU(a$UR S5UR S5SS4$S/SS4$)Nrqr3rschemer4r5)rrTnameargspatternrroperatorpatterncallnameargspattern)r0 bind_cnamer^rqs r)_resolvenameargspatternrs*40D $ D   t $B xx&!1288H3EzQQ   t $B xx!C'"((6*::S@Rt##  " "4 (B xx&!14== T4 r(c <URS5nUS:waSq[(aUS;a[(d[S:a[ R R[5RS5Sn[SU-5 Sq [S-qS [['0[['/[['/[[S '0[[S 'S [[S 'U[[S 'S[[S'SqUS;G aTUR5n[ R""SU[ R$5(aSnO[[ R""SU[ R$5(aSnO-[ R""SU[ R$5(aSnUS:Xa<['URS55upVn[)US9[[S U'/nSn O[+URS55upXpUcUS:XaSnOSnUS;a [S5 X5[4qU(aC[-[/U5RS5V s/sHn U R15PM sn 5nO/nSU;a*SU;aUR3S5 SU;aM[S5 Sn Sn US ;aeSn S![[;agU[[S!;ag[[HnUS U:XdM g U[[S";agS#S$S .Un[4(a'[6S%:Xa[S::a[S&-qSn US';aSn [S-q0[['/[['U (a[8S:a[S([;[45-S5 S)[['S[[S '[4[[S 'S[[S'/[[S '/[[S*'/[[S"'0[[S '[S-q0[['/[['U (a[8S:a[S+[-S5 S,[['S,[[S 'S-[[S '[[S- S<S.[[S- S <3[[S'/[[S '/[[S*'/[[S"'0[[S '[S-q0[['/[['U[['U[[S 'U(dS/UR=S0S15-nURS25[[S3'[?U5[[S 'U [[S4'[S:Xa[[[S'O{[4(a7[S5:Xa-[[S- S<S.[<3[[S'O9[[S- S<S.[[S- S <3[[S'[A[[RC55H(n[[U(aM[[U M* U[[S!'/[[S '/[[S*'/[[S"'0[[S '0[[S6'US:Xa/[[S7'US ;aU[[S&- S*;a"[[S&- S*REU5 [FRH"[[S&- S 5[[S '[[S U[[S US8RKS95 US:;GafW (a[ RN"[PU 5nU(arU00[[S;'URS<5[[S;US<'URS=5(a%URS=5[[S;US '[S[[S U[[S&- S S5[[S U'US>:Xa_U (aXU [[S ;aDXY:Xd?[S[[S U[[S U 5[[S U'[[S&- S"REU5 US$:Xaq[TSR#URS25S0-U-5nU(a=[WURS5URS55unnnn[YUUUU5 US ;a[[S- RE[[5 [[[[S- S%S '[[ [S- q[[S- RE[[5 [[[[S- S%S '[[ [S- qggUS6:Xa[+URS55upXpUb|U(aC[-[/U5RS5V s/sHn U R15PM sn 5nO/nU b[;U 55eU[[S6U'S6U[4qggUS:Xa;[WX0RS55unnnn[YUUUU5nUb S?U[4qggUS@;Ga [[S nURS5R15nUR[SA5nUS:aUSB:Xa[]U5R[SC5S&- nUSUS-SA-UUS-S-nUR[SA5nUUSSA:XaXS![[;aG[SDURS5<USU<SE35 USFR_[[S!5-nUS:aSnSnOUSUR15nUUS&-Sn[/U5RS5n[aU5S:a%USn[SGSFR_USS5-5 Sn[/U5RS5V s/sHoR15PM sn GH`nR#U5nU(dAUSH;aSnOR[eURg55 [SIU<SJ[;U5<SK35 Ma[?URS 55nUSH;a USL:XdUSM:XaUURS5- nUU;a0UU'USN:XaUURS5-nUSB:XaURS5U-n[hR#U5(aU[[S!;a[S:axSO[[S&- S ;a [SP5 U[[S :waA[SQU<SR[[S <SS35 [[S!REU5 O[kSTU-5 O[kSUU-5 USV;aUnS8UU;aUUS8REW5 O W/UUS8'US9:Xay[[S S :Xa[SW5 GMU[[S!;aGMS*[[;a/[[S*'[[S*REU5 UnGMc U[[S 'Ub S?U[4qggUSX:XaMURS5RSF5V s/sHoR15PM sn [[SY'gUSZ:XGaW[[S nURS5R15SS%nSn[/U5RS5GHnURS[5V s/sHoR15PM sn unn[mU5n[?U5nUU;a0UU'S[UU;a*UUS[U:Xd[S_U<S`UUS[<SaU<Sb35 [oUU5nU(aURqSc5Sd:Xa[AU5n [rRuU5Hjn[AUURw5URy5R5R=SeSf55U URw5URy5&Ml SR_U 5nOHURqSc5Sg:Xa3USSR5R=SeSf5R=SFSh5n[{U0U5n![;U!5UUS['S8UU;aUUS8RESZ5 O SZ/UUS8'UnGM U[[S 'Ub S?U[4qggUSk:XGaURS5R15R5Sl:XaS[[Sk'gURS5(GaVSk[[;a[[Skn#O0n#U#c [Sm5 0n#[/URS55RS5GHn0n$[ R""SnU[ R$5nU(d[SoU-5 MC[R#URS55n%U%(d[SpU-5 M~[WU%RS5U%RS55unnnn[UU5un&n'n(UU$Sc'U&U$Sq'U'U$Sr'U(U$Ss'[AU$RC55HnU$U(aMU$U M [/URS55RS5Hn)StU);a4U)RSt5V s/sHoR15PM sn un*n+OU)R15=n*n+[aU*5[aU+5s=:XaS:XdO [SvU)-5 M[[U*5[U+5S-5Hn,U$U#[U,5'M M GM U#[[Sk'ggUSw:XGae/nSn-Sn.Sn/Sn0Sn1URS5Hn2U1(d!U2Sx:XaU0(+n0U2Sy:XaU0(aU/S-n/M+U2Sz:XaU1S-n1O U2S{:XaU1S- n1U/S:XaU-U2-n-MOU/S:XaU.U2-n.M\U/S&:XdMdU-R15n-U-RSF5(aU-SSR15n-UREU-U./5 U2n-Sn.Sn/M U/S&:XaLU-R15n-U-RSF5(aU-SSR15n-UREU-U./5 [[RqS 05n3SnUGHn4U4SR15U4SR15sU4S'U4S'U4SRSF5(a U4SSSU4S'U4SRSz5(a[S|U4S-5 M[[-[/U4S5RS5V s/sHoR15PM sn 55GH!un5n!U!RSz5(a[S|U!-5 M-S}U4S;a[S~U4S-5 MIU3RU!05 U3U!RqSc5n6[U3U!5n7U6Sg:Xa[ R"SU4S5OU4SRSF5n8U7(a SRSR_U855OU8U5n9U3U!RqS[5n>U>(aU>U9:wa[SU!<S`U><SU9<S^35 U9U3U!S['U!nGM$ GM U3[[S 'U(a S?U[4qggUS:XGa.URS5R15nUSSy:XdSU-n/n?[ R"SyUS&S9unn@nAU@R15n@U@(dSn@U?REW@WA/5 0nBS[[;a[[SnBU?Hvn2U2SWB;a/WBU2S'[/U2S5RS5V s/sHoR15PM sn H#nU(dM WBU2SREU5 M% Mx WB[[S'SW@[4qgUS:XGa[ R""SURS5[ R$5nU(GamURg5nCS[[;a0[[S'URS 5n0[[SU'SnDSWC;GaWCSGbSWC;aWCScSnDWD[[SUS'WCSRSF5V s/sHoR15PM nn 0nEUHn4S[U4;a[ R""SU4[ R$5n%U%(a@U%RS5R15WEU%RS5R15'O[S[;U45-5 OU4WEU4'WE[[SUS'M gg[eURg55 [S5 gUS;aS[[;a0[[S'[[SnFURS5S:XaKSWF;aE[WFS[5(a WFS/UFS'WFSREURS55 gURS5WFURS5'gUS:XaO[c[8(a [S5 g[nG[[UG[SS&URS55 g[8S:a%[eURg55 [S5 ggs sn f![La GNf=f![La GNf=f![La GNf=fs sn fs sn fs sn fs sn f![La [S\U<S]U<S^35 G Mf=f![|[~[4a n"[kSiU<SjU"<SE35 Sn"A"G MSn"A"ff=fs sn f![La [SuU)-5 G MSf=fs sn f![a [SU855(a/n:U8Hn;SU;;asU;RS5un.*?)\s*(\(\s*(?P[a-z-, ]+)\s*\)\s*|)\ZzDanalyzeline: could not extract info of implicit statement part "%s" zManalyzeline: could not extract types pattern of implicit statement part "%s" rlrmro-zZanalyzeline: expected "-" instead of "%s" in range list of implicit statement z^analyzeline: expected "-" instead of "%s" in range list of implicit statement (2) r '/r4r5z>analyzeline: implied-DO list "%s" is not supported. Skipping. rz=Comment line in declaration "%s" is not supported. Skipping. z\(.*?\)z(/{}/), c3,# UH nSU;v M g7f)rNr').0rs r) analyzeline..s5W3!8Wsrz*analyzeline: changing init expression of "") to "rz//)maxsplit_BLNK_rzR\A\s*(?P\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P))\s*(?P.*))|)\s*\Zrsnotonlyonlyz7\A\s*(?P\b\w+\b)\s*=\s*>\s*(?P\b\w+\b)\s*\Zlocalz0analyzeline: Not local=>use pattern found in %s mapz0analyzeline: Could not crack the use statement. )rrusercodez-analyzeline: No context for multiline block. z+analyzeline: No code implemented for line. )Trr&rrrrrbasenamer!r&r2rr:r;rrrrrrdictrrwr%rremoverrrrrrrrsrtr'copydeepcopyr[rrcrackline_bindlangr|rLcracktypespec0 updatevarsfindrTrrX namepatternrrrroget_parametersdetermineexprtyper~ real16patternfinditerrreval SyntaxError NameError TypeErrortypespattern4implicit cracktypespecrordchrr enumerate setdefault getdimensionfindallr IndexErroranyextendr8r isinstancerappendmultiline)Hrr?r0r/newnamerqrrr3r bindclinex needmodule needinterfaceitr{bindcdattr4selectorattredecl last_nameriplchrr^apinitexprrttvrimplrxr_ kindselect charselectrorbegcendcodlilrcfcinprr.ridxvtypevdimmatchesnew_val expanded_listr multipliervalue current_valclbnol commonkeymmisonlyrr!gcsH r)rVrVsK GGFOE {{t#GG}!1''""?399#>qA QT[ [ ] #a' "+ ,#% < "$ ,+- < (+- < (,5 < )+2 < (+4 < (  ++  88OUBDD 1 1 E XX(% 6 6#E XX-ubdd ; ;(E F?3AGGG4DEND59U5KJ| $V ,T 2DF,CAGGGDT,U )D < $%MMMN!6 '5d';'A'A%'HJ'H! ggi'HJKDD :* B* O Q  & &MZ 55:l3F;; -f:%.z,/ ==)jA$GE =\R/LA4E'!+LJ?? ! #a' #% < "$ , {A]+,-.0&.Il #0?J| $W -/ < *+5d+; < (-3 < * 1 />J| $V ,}!2|a/08/4K <(0|a/08*\TUEU:VW]:^4` <(0j.3356Al+A..|,Q/7,0 < (+- < (02 < -13 < .+- < (,. < ) F?35J| $Z 0 & &:lQ&67 DDvF~~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"Ra&23#((:l#;F#CDD q5ABBQBAEFB B  % %e , r7Q;AB oAB " # %3B%7%=%=e%DE%D'')%DEA""1%B00A!++-(d1g'(rxx/0,,Z1 #4RXXg&&~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  Z 55!,/ ;|SU#AGGG$45;;EBXXPRSUWUYUY[_cdeg*00&1ABhlmnp2@HHV$bhhw&739/(D%3@h4(0 J#+Z '1^$'1^$#+Z diik*A77 G+((9:@@GAax%=>WWS\)J\'')\)JJD$ '(ggi/tt9D 6Q6}ABBC "3t9c$i!m<'+SV =H1CP48J| $Z 0cd      !A8B8AACxAgcAgAv!Va!VaXXZ==%%ABB 2r(#-". 6B}}S!!V\\^ IIr2h ,'++FB7 A1qtzz|JAaD!A$ts##tABx!ts##Y\]^_\``a#I.QRSTQUBVB\B\]bBc.dBcQwwyBc.d$efQ<<$$]`aab!A$; \_`ab_ccd2&Q J/#DG,:?9:L"**Z16RSTURVR\R\]`Ra\EIhoodii.@AwWZ|G&#1gkk#. K7$:`acnpwxy&Q  Wgf,0 < (  *I|D    www%%'Aw#~$;D hhsD15 B XXZB 2r( z,/ /"<0:IAt9$"$ !A$)7!)=)C)CE)JK)JAggi)JK1adO**1-L .7 < *$b,7  XX acdcjcjkrcsuwuyuy{ BJ|4424 <(/88F#D46J| $U +D 1F|6 6?r)}'<F@F <(/5f=)+F)9)9#)>?)>Aggi)>?AaxXXVXY[][_[_a<>HH %='',uwrxx06689$ SVZ[\V] ]_!"1CEJ|,U3D9%@ !++- G H % % Z %= =;=J| $%7 8 | $%7 8 776?j (Z1_!J---!":* jM !1 2!"!1Aaggfo     #wHI   2(!, ) Q; !++- B C CJP      ."NLFv =@ hikmnp 0 I6 #S*+ h*K(%# }AB!BC$%r/e*"\ 5W555(* %,E"e|!H8= C8H$5J$1$8$8%++-3z?9Z$['1!H$1$8$8$G!H!. 4 4U[[] C&-#0EIhoodii.@AwWZ|G#\VL&@sDAr 7ArAAr""Ar30AsAs As@As@-AsAAsF1 As>PAt;P!At6P:At;[Au^&,Au dAyiAyr ArrArr" Ar0r/Ar0r3 AssAssAssAs;s:As;s>At3tAt.t.At3t6At;t;AuuAuu .AyvAAwwAyw)Aw> w:Ayw=Aw> w>AAyyAyc\SU;a0US'USnX;a/X1'X1RU5 g)Nf2pymultilinesr')r context_namemlr!s r)rr!s@u$"$ AO2 r(chSnSn[R"SU[R5(aSnOL[R"SU[R5(aSnOUR5R 5n[ R[ U55nU(d [S5 gUR5n[UR55Hn[XV5XV'M US;a USnUSnURS 5nUS :aUSUR5nXS -SnXX14$) Nzdouble\s*complexdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line. )rr7logicalr5 characterrhr6rrrr0) rrrrr selectpatternrTr2rrsrtrir)r4rrrr^r!r{rs r)rr+sH 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*\ZcUR5n[U5S::aU$USn[S[U5S- 5H*nXS:XaXS-S;d XS- S;aM#XU-nM, XS-nU$)Nrrrz ()[]{}=+-/* r )rrXr)exprexpr2rs r) removespacesr#Rs ::[$[&S UR)5nS U;nU(aUUS 'O+U(a$UUS :Xd[S U<SUS <SU<S35 SU;a[(R("U5US'OU(a~[+UR-55HanUUS;a6UUUSU:Xd'[SU<SU<SUSU<SUU<S3 5 MB[(R("UU5USU'Mc SU;a)U(a"U(aUUS'O[/SU<SU<S35 OU(a~[+UR-55HanUUS;a6UUUSU:Xd'[SU<SU<SUSU<SUU<S3 5 MB[(R("UU5USU'Mc SU;aUUS'O+U(a$USU:Xd[SU<SUS<SU<S35 SU;a[(R("U5US'OU(a(UH"n U US;dMUSRU 5 M$ Oi[(R("U5US '[(R("U5US'[(R("U5US'UUS'[(R("U5US'SUR1S5=(d /;aTU[$[&S;a@S[$[&;a/[$[&S'[$[&SRU5 U RS5(Gau[2R [5U RS555nU(Ga UR75nS HnUUS!-cMUUS!-UU'UUS!- M! [+UR-55HnUUb[9UU5UU'MUU M! S"U;aS#U;aUS"S$:Xa US#US"'US# OpUS%:Xa3SU;d US(d0US'S"US;aUSS" US"USS&'US" O7US#S'-US"-US#'US" [/S(U<SU<S)U<SU<S*US#<S+3 5 S"U;abUS,;a$SU;d US(d0US'US"USS&'US" O8US%:Xa2SU;d US(d0US'S"US;aUSS" US"USS&'US" S-U;a9S.U;a+US.US-:Xd[S/U<SUS.<SUS-<S35 OUS-US.'S#U;apS0US#-nSU;d US(dU/US'OrUSRU5 USH4nUSS1S2:XdMUU:wdMUSS3 [/SU<S4U<S5U<S35 O# O [S6UU RS5--5 [+UR-55HnUU(aMUU M U[$[&S U'S7[$[&;a[$[&S7RU5 UnGM U$s snfs snfs snf)8z 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. Nr#z(?P[a-zA-Z]+)rrrgz@ @r'z;updatevars: no name pattern found for entity=%s. Skipping. rqr.r4z+updatevars: attempt to change the type of "rrz ". Ignoring. rlz0updatevars: attempt to change the kindselector "rrmz updatevars:z*: attempt to change empty charselector to rz0updatevars: attempt to change the charselector "roz/updatevars: attempt to change the typename of "rkrr3r1r)rXarrayinit2rXr/r rrr$z updatevars: "z" is mapped to "r4z)" rr7rr5r0rnz6updatevars: attempt to change the init expression of " dimension(%s) rr z: attempt to change rz?updatevars: could not crack entity declaration "%s". Ignoring. r)rr%r&rrrrrrrXr'r#r,rrr2rrrr;rrrsrtror~lenarraypatternrTrri)r4rrk entitydeclrrrrorrrr)rselel1re1enamernot_has_typespecr{r^d1lkdmdm1s r)rrsI'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  NRVWXRYZ \ 1776?+ J|,V4 4|,V4U;@@BE)6 $,j!8uZ/@#@5,h89U*(, *(=n%joo/0AE.11:a=ER`LabcLd;dueN&;A&> 1 !OP4899Z]3Kn-a0 1 U*z#,6E.)$j23joo/0AE.11:a=ER`LabcLd;dueN&;A&> 1 !OP4899Z]3Kn-a0 1 &$,j!5#4#@5,h89&$(IIh$7j!!Aj 11j)003"!% ( 3E* $(IIj$9E. !$(IIj$9E. ! (E*  $ ( 3E*  %))J/52 61 <@XY_@`;`*\"::8: <(5 | $[ 1 8 8 ; 777   &&~aggg6F'GHB\\^2B"s(|/!#BH2rCxL3bggiA!u( 0A 71qE ) B;7b=%yB$&wK5 wK![0*%7~AV46E.1 E.$99 %n 5e <57Yn-c2uI&(kC&7"U)&C7 uI$a5"W+!GHB;#LL*%7~AV46E.157Yn-c2uI![0*%7~AV46E.1 E.$99 %n 5e <57Yn-c2uIR<e|U3Z2f:-E!5:r&z!;<&(Zc b=(2g;6B!.uZ7H-/Dj)j)004#(#4C"2Aw+5#)$)*$5b$9 '+0#r);!< % $5ZAGGG,,./ejjl#A88!H$38 < (/ L1 1 | $Z 0 7 7 > KL qN Fps`/` >`%cSnSnSnU(GaQUS;a[RU5nU(d[S[U5-5 gUR 5nUSUS'US [ UR 55HnX%(aMX% M [ UR55HupV[U5X%'M GOUS:XGa![RU5nU(d[S[U5-5 gUR 5nUSUS'US US(ah[R[US55nUR 5nS H#nXxS -(a XxS -Xx'XxX8'XxS - M% US bUS US 'US [ UR 55HnX5(aMX5 M [ UR55HupV[U5X5'M OvUS :XaY[R"S U[R5nU(aURS5nO1[S[X-5-5 O[S[U5-5 X#U4$)Nr2z4cracktypespec: no kindselector pattern found for %s kind2rrz4cracktypespec: no charselector pattern found for %s charlenlenkind)rXkindr1f2py_lenrhz\s*\(\s*(?P\w+)\s*\)rqz'cracktypespec: no typename found in %s z'cracktypespec: no selector used for %s )rlrr2rrrsrtitemsrrrmlenkindpatternr%rrr) r4rrrror{rrDr>s r)rr/sRJJH @ @%++H5JKtT\~^`#--/J(1JsO7#*//+,!}}" -Z--/0 *1 1  $%++H5JKtT\~^`#--/J(3JsO9%)$(..":i#89;!++-)BCx(&-3h&7 %,[JNS) * :&2-4Z-@Jz*9%*//+,!}}" -Z--/0 *1 1  xx =xNH#>>&1Bh1245 >(^% & 8 ++r(cU(d0nU(dU$SU;aU/US'U$U(aUSRU5 XS;aU$US:XaSUS;aUSRU5 U$US:XaSUS;aUSRU5 U$US:XaSUS;aUSRU5 U$US:XaSUS;aUSRU5 U$USRU5 U$)NrkrJ automaticrrr)rxrrzs r)ruruks+    6Z   Z% J  xKtJ/?? Z% K  j1A!A Z% K   D, ,   # #D ) K   4 + +   # #D ) K Z% Kr(cU(d0nU(dU$SU;aXS'U$[UR55HnU(d X0S;dMXUSU'M U$)Nrlrsrtrxselrzr{s r)rvrvsa   T!"^ #((*  A.11&)fD  # Kr(cU(d0nU(dU$SU;aXS'U$[UR55HnU(d X0S;dMXUSU'M U$)NrmrLrMs r)rwrwsa   T!"^ #((*  A.11&)fD  # Kr(cSU;aUS$U$)Nrqr')r/unknowns r) getblocknamerRs V} Nr(cFSUS<SUS<S3qg![a gf=f)NzIn: rrrqr)r r)r/s r) setmesstextrTs, ,1&M5=I    s   cf0nSU;a[US5nSU;aURUS5 U$)N parent_blockr) get_usedictupdate)r/usedicts r)rWrWs:GeN34 ~uU|$ Nr(c Uc0n[U5nU(dU$[UR55Hup4UR5nU[;a%[ SU<SUR S5<S35 MD[Un[U5nU(dMaU(a[SU-5 [UR55H4upxXq;a&[ S[U5<S[U5<S35 XU'M6 M U$)Nzget_useparameters: no module z info used by rqrz,get_useparameters: mapping for %s not impl. z(get_useparameters: overriding parameter z with value from module ) rWrsrGrrr2r~rror) r/ param_maprYusenamemappingmvarsrr{rs r)get_useparametersr_s % G  1--/ - ' eii/1 2 g&&   CwO P(DA~59!Wd7mMNaL )2& r(c [(dU$[U[5(aUVs/sHn[X1S-US9PM nnU$[ U5 [ U<SUS<S3S5 Uc [ U5nUbWSU;aQUSn[UR55H/nXVnSU;dMUSnS U;dMUS n X;dM(X)US 'M1 US V s/sHn [XS-US9PM n n XS 'U$s snfs sn f) Nr)tabr[Block: rqrrr.rlrEr-)rrrs postcrack2rTr2r_rt) r/rar[gretr.rvarrEvalbnew_bodys r)rcrcs! = %1!tyA   sE&M 2A6%e, 5V}diik"A'C$>*T>v,C''0~V #v(&A1* B& (&M L/&(s C2C7cL[U[5(a[/n/nUHMn[U5 [XRS-S9nSU;aSUS;aUR U5 M<UR U5 MO XC-$[U5 [U[ 5(dSU;a[ S[U5-5eSU;a USS:Xd[U<SUS<S 3S 5 [U5n[U5n[U5US '[US 5US 'URS 5(aUS n[XUS9US'/nSU;a?USn[UR55HnSU;dM UR U5 M O0nSn SU;aUSn URS5(Ga{/n SU;aUSn [ R "US 5n U (aU S-n OSn X;a#Sn SX4-U;aU S-n SX4-U;aMSX4-n S/0U S-S.nUSHnX;a/nSnUSHnUS-nUSS:XdMSn USH7nU S-n SU;dMUSU:XdM[ R "U5nUSU O U(dM^US(dUSU XR#U5 O USR U5 MX;dM[%X5(aMXUS U'M US (d US(a(XS'SU/0XSS.n0X|'[&R U5 U(aXpS'U$)zY TODO: function return values determine expression types if in argument list rrarqrr/z0postcrack: Expected block dictionary instead of rrbrrr.sortvarsr3r-rr r1r2__user__routinesunknown__user__routinesrz%s_%ir_user_interface)r/r-r.rqr r)r/r-r.rqr2)rrsrT postcrackr'rrrr2 analyzeargs analyzecommon analyzevars sortvarnamesr~ analyzebodyrtrr[ isexternalr)r/r3ragreturetrd userisdefineduseblockr{rqr2r^mnamerrredefjrhbbmblocks r)rprpsm%A N!t,A{zQvY6 A A{ eT " "we';JE #$ $ uV}0CC3f 6:  E % E&E&M$U6]3E* yyV}5E&MM ~<hmmo&AQ$$Q'' D V} yy 5 |,J %-( --E-E  !AUJ&-7EUJ&-7uj(E)20A)AC {#AvAAAz[0"#F)B !AA%|6 a'+yy}$%fIaL % #,  4#$V9$)&M!$4 *+;+;A+> ?!'&!((.:j&:&:+08If%a(-$. V  & 1",, .9$&;EWYF HO   v &e Lr(c/n/n[UR55H;nSX;aXS(aURU5 M*URU5 M= [U5nSnU(aUSnSnUSSHnXpUS;dMSn O U(a;USSU/-nUS-nXT:a'[ SSR U5-S-5 X-nU$O#URU5 USSn[U5nSnU(aMU$)NrrrrzTsortvarnames: failed to compute dependencies because of cyclic dependencies between rr)rsrtr'rXror)r.indepdeprrrr[ws r)rtrt[s' E C $))+  tw 478#4 JJqM LLO  CA A F QRAGH%% ab'QC-CAAu;))C.)+/01  L LLOab'CCAA) #* Lr(c [U5(dU$/n[USR55GHn/nUSUGHn[R"SU[R 5nU(Ga+/nUR S5(aG[UR S55RS5Vs/sHnUR5PM nn[UR S5R55nXS;aXSUSU;a-USUSRSS RU5-5 OLSS RU5-/USUS'O-U(aSSS RU5-/0USU'O0USU'X;aURU5 OUn[S U<S U<S 35 URU5 GM X0SU'GM S U;aXS 'U$US U-US 'U$s snf)Nrz2\A\s*\b(?P.*?)\b\s*(\((?P.*?)\)|)\s*\Zdimsr#rqr.rkr3r$z:analyzecommon: failed to extract "[()]" from "z " in common /z/. commonvars) hascommonrsrtrrrrr%r&rrrr'rro) r/rr{comvarsrrrrrs r)rrrr}s U   J %/&&( )x#AEq"$$PA776??%3AGGFO%D%J%J5%QS%QGGI%QSqwwv4467f %!U6]1%55f a(4;;+sxx~>@,sxx~>8@f a(4&CHHTN)K(L,Nf a(,.f a(&%%a(ijlmnp NN1 9$:%h?*@5 (l L$L1J>l L9Ss4G-c[U5 USR5VVs0sHup4SU;d SUS;dMX4_M nnn/nUSGH$nXS'USS;azUb USU;aMUS nUSUR5;a[R US5 US[;aMb[ (aUS[ ;aM|[ US S S 9US 'OUn[XxUS-S9nUSS;a(US(dURS5(dSU;aMUSRSS5S:Xa[R U5 MUSS:XaUS[US'UR U5 GM' U$s snnf)Nr.rkrr-rVr/rrqr3z T as_interfacesaved_interfacerrkrrrrr pythonmoduler) rTrGrtr#r'r$crack2fortrangenrpr~rrr) r/r3rakeyr  maybe_privater-rhas_s r)rurus ---//JC U "heJ6G&G  / D 6]!. W:3 3AfIT$9iyM..00  6+yI%yQvYi7#3>$6A C a#* - W:< <y!7!7!* W:  c2 &. 8   q !zX%+,V9 ai( KKN;< KKs E6E6cF[U5 [n0nSU;aUSc)Sn[S:a[S[ US5-5 X4$[ USR 55H7nUSURS5S;a USUX'M*USUSX#'M9 X4$)Nrrz6buildimplicitrules: no implicit rules for routine %s. rqr4)rJrJ)rTdefaultimplicitrulesrr2rrsrtr~)r/ implicitrules attrrulesr{s r)buildimplicitrulesrs(MIU   $ M{MPTUZ[aUbPcce  ## % +0023$Q'++J7?VV',Z'8';M$#(#4Q#7 #CIL 4  ##r(cl[XU5n[U5[[4;aU$[ SU-5e)z1Like `eval` but returns only integers and floats zr=%r)rrhr8r:r)rrdrrs r)myevalrs1 Q1 A Aw3, Vq\ ""r(z \A\b\w+\b\Zcn[[U0055nSUS4$![a Of=f[R U5(aSSU4$[ U5nUGHXn[ U5U:aM[ R"SU-S-U5(aM9[ R"SU-S-[ R5nUR U5nU(dM~UR U5nU(aEURS5<S S<S URS 5<3nUR U5nU(aME[W005n UR U5nU(aEURS5<S S<S URS 5<3nUR U5nU(aME[U005U - n UR U5nU(aEURS5<S S <S URS 5<3nUR U5nU(aME[U005nUR U5nU(aEURS5<S S <S URS 5<3nUR U5nU(aME[U005n U S -U -U:XaU S -U -U :XaXU4s $O![a Of=f g g)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') rNrz\w\s*\([^)]*\b\b(?P.*?)\b\b(?P.*)rr4r5rg?g?)NNN) r8rrgetlincoef_re_1rrXrrrrr) rxsetrlen_err]rr^eerhr)c2s r) getlincoefrsk* q"b! "!Tz    Q!Qw FE  q6E>  99&*U2A 6 6 zz.25GGN JJqM 1 ZZ]*Arxx/@BBBBb2r2&ZZ]*Arxx/@BBBBb2r2&*ZZ]*C'1BDBBBb2r2&ZZ]*C'1BDBBBbBB'GaK1$S1):7N    QP s: **AJ"5A(J"A+J" A(J"6(J"" J/.J/z\b[a-z][\w$]*\bcX;aXRS/5nSX;aY[X5(dG[RXS5H)nXC;dM XA;dMX@:wdMUR U5 M+ USSHGnURU/5=(d [ XAU5HnXS;dM UR U5 M MI O[ S[U5-5 /nX2U'U$)Nrrrnz,_get_depend_dict: no dependence info for %s )r~isstring word_patternrr'_get_depend_dictr2r)rqr.depswordswordrs r)rr= s | x, $* Xdj%9%9$,,TZ_=$$,LL& > !HDXXdB':'D9:>LLO: ?4:NOJ Lr(cf[UR55n0nUHn[X0U5 M U$r,)rsrtr)r.ru depend_dictrs r)_calc_depend_dictrS s1  EK +. r(c[U5n/n[UR55H!nX(aMURU5 X M# U(ad[UR 55H>up4UVs/sH oUU;dM UPM nnU(dURU5 X M:XaU'M@ U(aMdUVs/sH o3U;dM UPM sn$s snfs snfr,)rrsrtr'rG)r.rrurqlstrnew_lsts r)get_sorted_namesr[ s#D)K E[%%'(  LL !) k//12ID"%:#Qk)9q#G: T"%$+D! 3 +# 3UTdlDU 33 ; 4s5 CC; CCcUSS;aUSSn[RU5(ag[RU5(agSU-S-$) Nr'"rr zkind(r5)rr real8pattern)rcs r) _kind_funcrm sQ ayE"6""   F # # V c !!r(cZSU-nUS::agUS::agUS::agUS::ag USS -::ag g ) Nrrir0lrlrr r')rrs r)_selected_int_kind_funcrx sD aAF{G|G|G|AH} r(cUS:agUS:ag[R"5R5nURS5(a US::agg US:agUS::agg ) Nrrr) aarch64alphaarm64 loongarchmipspowerppcriscvs390xsparc!rr )platformmachinerr)prradixrs r)_selected_real_kind_funcr sn 1u2v &&(Gwxx 7   r6 "W r(c [R"U5n[R"U5nS[4S[4S[44HupEXC;dM XSU'M /n[ U5H+nSX;dM SXS;dMUR U5 M- [ R"S[ R5n[ R"S[ R5n [ R"S[ R5n UGH)nS X;GaXS n [X5(a(U R5n S Hn U R"U 6n M URS U 5n U RS U 5n S n SX;aASXS;a6[U 5nU RSXSS-S5n [U 5U:n U (dyU RU 5(dcU RS5n[U5S:aCSR!USS5R5RUSR5S5n [#X5(a[%U 5n[&R)U 5Hjn[%U UR+5UR-5R5RSS55UUR+5UR-5&Ml SR!U5n O![/X5(a[1SU S35 XSVs/sH:nUR3S5(dMUR5S5R75PM< sn=(d S/Sn[&R9U 5(aSn O[:R9U 5(aSn [=XUUS9X''[AX5(a&[CX'[D5(a[GX'5X''UR5nUU:wa X'UU'GM GM [IX5 [1SU<S35 GM, U$s snf![>a!nXU'[1SUSU<S35 SnANSnAff=f) NrEselected_int_kindselected_real_kindrkr z \bkind\s*\(\s*(?P.*)\s*\)z-\bselected_int_kind\s*\(\s*(?P.*)\s*\)z4\bselected_(int|real)_kind\s*\(\s*(?P.*)\s*\)rn))z.false.False)z.true.Truez kind("\1")zselected_int_kind(\1)Frlrr rr r!rzAget_parameters[TODO]: implement evaluation of complex expression rrrrr)dimspeczget_parameters: got "" on zget_parameters:parameter z does not have value?! )%rrrrrr'rrr islogicalrrsubrXrr&risdoublersrrrr iscomplexr2r removeprefixrrr param_evalrrrr8rr)r. global_paramsrg_paramsrqfunc param_namesrkind_reselected_int_kind_reselected_kind_rerrepl is_replaced orig_v_lenv_rrr7rrnls 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</B33B8c &#^?^@^A[U5 [U5up[R"US5mAUSS:XaUSTA;a0TAUS'SUS;aqTAS SUSS;abUSSSn[TA5[SUS55-H2nS H)nXS;dM [ TAR U05U5TAU'M+ M4 /nUS nUHnTAU UR U5 M [TAR55HnXG;dM UR U5 M [TA[U55n 0n [R"S 5Rn [TAR55H9n U "U 5n U (dMXR5U R!5nX M; UG H,nUS [UR55;a[ TAUX$S 5TAU'STAU;aSTAU;a STAUS;dU(aUS R%5n[XR55HVnUS:Xa XUS:XaMUTAU;aXUTAUU'M.US:XdM6XUHn[ TAUU5TAU'M MX O(X@S ;a ['S[)U5<SUS<S35 STAU;a9STAUS;a-TAUSSn[+[-U0U 55nUTAUSS'STAU;a9STAUS;a-TAUSSn[+[-U0U 55nUTAUSS'0nSTAU;GaTAUSnUR15 /TAUS'SunnnnnUGHnUSSS:XaUSSR35SSnOUSSS:XaUSSR35SSnOrUSSS :XaUSSR35SSnORUSS!S":XaUS!SR35SSnO2USS#S$:XaUS#SR35SSnO[ TAUU5TAU'U(aSTAU;a/TAUS'[5U5R7S%5Vs/sHnUR35PM snH:nUR9S&S5nUTAUS;dM#TAUSR U5 M< SnU(aPUR9S'S(5nUR9S)S*5nS$TAU;a U/TAUS$'OTAUS$R U5 SnUbS TAU;a/TAUS '[;[5U5R7S%5Vs/sHnUR35PM sn5H(nUTAUS ;dMTAUS R U5 M* SnUcGM(S"TAU;a/TAUS"'[5U5R7S%5Vs/sHnUR35PM snH(nUTAUS";dMTAUS"R U5 M* SnGM U(Ga STAU;Ga/TAUS'[;[5U5R7S%5Vs/sHnUR35PM sn5GHn[=UU 5nUS,:XaS,OS-nUU:XaU/nOS,5R7S.5n[CU5S/:Xa S-U;aS-/nS-n[CU5S:XaUS U:waS0US /n[CU5S/:XGa[E[FRHRJU5unnUU- S-nURM[FRNRPS19n0n USHn [FRR"U 5n!URUU!5(dM1URWU!5unn"UU"4S2jn#[URY55n$U$R[U"RY55 [UA4S3jU$55n&U#[U&54U U 'M U UU'TAUSR U5 GM S"TAU;GaS U;GaX@S ;GaTAUR S /5n'/n([_[`[b[d5"TAU5n)[gTAU5(Ga[iTAUS5GHun*nUR U5m?T?cGOU)(GaT?Rk5GHqun un+n,U?U@4S4jm@[5n-T@"U U-5 U U';dS5TAU ;d S TAU ;aM>U+bU U-;a|S6n.U+"[FRR"S7US8U*S9355n/U/RM[FRNRPS19n/U/TAU S5'U/U,-TAU S 'S"TAU ;aS7US8U*S:U3/TAU S"'OaS;n.STAU ;a/TAU S'SU0;dU0R U.(aS>OS=5 U0(dGMiU0TAU S'GMt T?cGMT?Rk5Hun un+n,TAU R S /5n&TAU R S/5H]n1U1RmS 5(dMSRoU1R755n1U&RqU1S?SR7S@55 M_ U&(a[[U&55TAU S 'UU&;dMU'R U 5 M GM O~[sTAU5(akSTAU;abS-TAUS;a![uTAUSS-U 5n2U2TAUSS-'O5STAUS;a)[uTAUSSU 5n2TAUSS U2TAUSS-'U((aU(TAUS"'U'(a[[U'55TAUS 'S5TAU;dG MLSTAU;a/TAUS'S=TAUS;a#S>TAUS;aTAUSR S=5 S TAU;ai/TAUS '[U Rk55H1upU "TAUS55(dMTAUS R U 5 M3 TAUS (dTAUS [wTAU5(dG M[yTAUS5U 5TAUS5'G M/ [TAR55GHnX@S:XdMS$TAU;a TAUS$US$'USS:XdM-SAU;a!USATA;a[{TAUTAUSA5TAU'SBU;dM\USBn3U3R9SCS5n4U3U4:X+n5U4R9SDS5n3U3U4:X+n6[|S RU35n U (a[U RSE5U RSF55un7n8nn9[U7U85un:n;nU>TA;aSTAU>;a TAU>SUS'USSM:Xa(U=Rq[TAR555 [TAR55HnUU=;dM TAU M TA$![a GMf=f![a9 [R"S U -[R"5RX'GM`f=f![.a G Nf=f![.a G Nf=fs snfs snfs snfs snf![>[@[4a ['S+U<S*35 G Nf=f![\a&n%Sn#[URY55n$Sn%A%G N{Sn%A%ff=f![.a GNpf=f![.a GN`f=f)Nz@ Sets correct dimension information for each variable/parameter r.r/rrqr rkc3*# UH oSv M g7f)rqNr')rrhs r)ranalyzevars..) s$F 1vY sr-rr3z[A-Za-z][\w$]*z.*\b%s\brr4r undefinedz"analyzevars: typespec of variable z is not defined in routine z. rmrXrlrE)NNNNNNr4rrr rr rrrrqrrpr#rz\n\nz z\n rz4analyzevars: could not parse dimension for variable rrz@:@r01)languagecX- U- $r,r')r7r)rhs r)solve_vanalyzevars..solve_v s01{(:r(c3`># UH#nURT;dMURv M% g7fr,)r )rr7r.s r)rr s(-74?q'(vv~%+AFFKs..c>TRUS//5SH#nX!;dM URU5 T"X!5 M% g)Nr)r~add)rrv1coeffs_and_deps compute_depss r)r!analyzevars..compute_deps s<*9*=*=a$*LQ*OB')~(, (4R(>+Pr(rnFzshape(rr5z) == Tinrrrr$rrpure recursiver6rroz'analyzevars: prefix (%s) were not used )rrrrrr)rrrh)DrTrrrrur~r'KeyErrorrsrtrr_rrrrrrrr2rrrrreverserr%r&rrw param_parserrrXrrExprparsetostringLanguager as_symbolr linear_solvesymbolsrX RuntimeErrorl_or isintent_inisintent_inoutisintent_inplaceisarrayrrGrrrrrisscalarrr|rLrrrisintent_callback isintent_aux)Br/rrgenrr{svarsr3r)r dep_matches name_matchrrln0rdimension_exprsrdimr rrrqrprrtmpr!dim_charrr=d2dsizesolver_and_depsr7rhr all_symbolsrv_depsn_depsn_checks n_is_inputrsolverrall_deps is_requiredr0v_attraarprpr1ispureisrecr4rrrrro neededvarsrqrrr.sB @@@r)rsrs sH1%8M 99U6] #D W~#f T(A U6] U6] H vr* *-#J/CY$Ff $F!FF.Ax"-dhhq"oq"AQ/G E =D   G LLO $))+  = LLOD"3E": ;FK-.44J $))+  qM 1'')AEEG$A K  Q44 () )!$q'9qT?;DG T!W $a(Z47:;N-N A$**,C!-"4"9"9";< ?}/A!/D /S$DG+)6);A)>DGAJ*_%2%7%:*5d1gq*AQ&; =-'Qv01 T!W $Q//GN+E2DB/0A23Q'. T!W $a00GN+F3DB/0A34Q'/ a 7:&D LLN"$DGJ /K ,CRa5K'QR5;;=!B/CrUh&ekkmQr2FrUh&ekkmQr2FrUg%qrU[[]Ab1ErUf_abEKKM1R0D)$q'15DGtAw.,.Q)1?1G1M1Me1TU1TAaggi1TUiiR0d1gh&77 GH-44S9 V "F<<&9D<<5DT!W,+/&QQ..t4D%tAw.,.Q)&>&;Q;W;WX];^'_;^a ;^'_`DGH$55 GH-44Q7a"F$d1g-+-Q(1?1F1L1LU1ST1SAaggi1STDGG$44 GG,33A6U!EWX{$q'1')Q $",: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+@DAq56!%;36aiik2BK$/$6$6qyy{$C*--74?-7*76=d6l5J 2-"/:.=*GK(//2B $q' !fo!V}:L !W[[2.FHk>.004Q9JtAw%d1gk&:;DAq&5&9&9!&->-@-@(5(B/3Q 67C$JQ 1#*$q'#9+12aSaS(A8CDGG$4 /3 #+47#:8:DGH$5#'tAwx/@#@$(GH$5$<$F&*1gkk*b&A#%==#:#:)+)a(&(Q #$q'*"55$q'*"55Q #**:6tAw&$&Q! !2!2!45DAaQ)0036Awx(Q)Q  +DGCL&AQ [^$))+  f a $Qf W~+u$xD)@(a$uX2GHDGu$xB**VR0C"$mF["5B!#s]E$Q--b1A:HGGFOQWWW-=;?7(D%;H$h<08 J.6Q +!$XDLU8_ 5j A&%3!)9=(26(:B:HJv$67ADGN3%6@DGN3#2:DGJ/!&1$q'6&BDG &1$q';&GDG! FeT\oI^^`UX W~VV 5 5=53F#FGJ5=1Jdiik"A%|4T!W==!!!$# 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# KU    " K!#K1,=rtt!D!J!J  K2!!4V"(`UN' H=(()uB0F(4!G /3G25emmo2FK!GD )! !(1!)$(!)sAB-AB)AC+AC-,AC>AD AD"AD  ADAAD>9AE1AFB ABBABB>ACCACC AC*C)AC*C- AC;C:AC;D%AD;D:AD;D> AE. EAE) E)AE. E1 AE?E>AE?F AFFAFz\A[a-z]+[\w$]*\Zc Uc[XU5nU$[U5S:dUSS[U5S- 2S:wa[ SUS 35eUSS R S 5n[U5S:XaUS R S 5n[U5S:Xa([ US U5n[S[U5S-5nOO[ US U5n[ USU5n [[U5[U 5S-5nO[ SUS35eURS5(aUSSOUR S 5n/n UH!n [XU5n U RU 5 M# [[Xj55nU$![a nUn[SUSU<S35 SnAU$SnAff=f![an[SUSU <S35 SnANzSnAff=f)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 "rrr0rrezparam_eval: dimension z can't be parsedr r$rrz.param_eval: multidimensional array parameters z not supportedz(/r) rrr2rXrr&rrr8rr'rzip) rrrrrrdimrangeboundlbounduboundv_evalitems r)rr s& ;Q&)A 7|a7#3S\!^#34<1':KLMMq}""3'H 8}A;$$S) x=A  V4EQE 1 -H !f5F !f5FS[#f+a-8HI#9N45 5LL&&1RA44S9A F >/D  d  S "#A HK ;A 'uE!b9 : : ;> > 'uE$< = = >s/ E1: F1 F;FF G(GGc"SU;a]USURS5nXRS5S-URS5n[[X155n[ XU5$X;a [ X5$UHn[ R "SU-S-[ R5nURU5nU(dMHURS5[ X5-URS5-nURU5nU(aMKM U$) 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 r4Nrr5rrrr) rrfindr8rrrrrrr)r!rdnameddimsr[rr]rs r)rr sr ax,166#;&&+a- -K./6='(( 69~A::$q(+==rttD 1 A!GGH% N#%&WWW%56JJqM! r(cUn[RU5(+nU(a[U5upV[XSU5nSnUH>n U R 5n U [ R [ R-;aSn X-nM@ USS:XaUS-nOUS-nUnXS;dXS;aUS-nXS;aMXS;aMX;a;S n U[U 5-U;aU S -n U[U 5-U;aMU[U 5-nU(a WUSU'U$XS;aX1S;aUSUUSU'O0USU'S U;a&X1S US -;a[USUS 5USU'U$) Nr.e_rr r_er3rrr1r2r) analyzeargs_re_1rrrrrcascii_lowercasedigitsrru) r)r/r3orig_a a_is_exprrratnarr{s r) expr2namerF1 s F$**1--I#5e#< q- ? A A..>>B  b6S=cBdB = Av$6CA= Av$6y #a&jD AA#a&jD AJf a H &M !v&#(=#8f a #%f a % FK.@5CV.V$V*5=+;ZHE&M!  Hr(c[U5 [U5upSU;a/US'/nUSH n[X@U5nURU5 M" X0S'SU;a@[ USR 55H upVUHnX@S;dM 0USU'M M" USH>nUSU;dMSU;a/US'USUS;dM'USRUS5 M@ SU;aUSUS;a 0USUS'U$)Nr3rr.r-rqr1r)rTrrFr'rsrG)r/rrr3r)r{args1rhs r)rqrqV s))%0M Uf D 6] a % A&M%U7^1134HA&M)')E&M!$5 6] V9 %'%'k"yk 22k"))!F)4  5U8_E&MA)+f eHo& Lr(z\A\(.+?,.+?\)\Zz\A[+-]?\d+(_(?P\w+)|)\Zz*\A[+-]?[\d.]+[-\d+de.]*(_(?P\w+)|)\Zz \A\(.*\)\Zz\A(?P\w+)\s*\(.*?\)\s*\Zc[U[5(aSS0$[U[5(aSS0$[U[5(aSS0$[U[5(aU$[ [ U55e)Nr4r7r5r)rr8r:rrAssertionErrorr)rs r)_ensure_exprdictrKx sk!SI&&!UF##!WI&&!T a !!r(c|X;a [X5$UR5n[RU5(aSS0$[RU5nU(aESUR 5;a-UR S5(a[S[U5-5 SS0$[RU5nU(aESUR 5;a-UR S5(a[S[U5-5 SS0$SH\n[XS9RS U-S -5Vs/sHoUR5PM snHnXa;dM [X5s s $ M^ 0n[RU5(a[US S X5nOx[RU5nU(a\UR S5n[UR S5X5nU(a S U;aUS U(dUS U;a[X(S 5$US S;aSSS0S.$U(d[S[U5-5 U$s snf)Nr4rrqz:determineexprtype: selected kind types not supported (%s) r7r5)+rrrr.rfrr rkrrrr)r4rmz>determineexprtype: could not determine expressions (%s) type. )rKrdetermineexprtype_re_1rdetermineexprtype_re_2rrr2rdetermineexprtype_re_3r%r&determineexprtype_re_4rdetermineexprtype_re_5) r!r.rulesroprrrrns r)rr s | ++ ::+EQ%L99 Aw%'#sDD  MQUVZQ[ \ ^ H+[s(H9rc[U5 Sn[U[5(aQUHInU(a2USS;a)US[;aM"[(aUS[;aM<U[ XAUS9-nMK U$SnSnSnUSnUS:Xag/n SU;aUSnSU;afUSn USH4n [ XU 5n [X5(aM#U RU 5 M6 USS :XdU (aS S RU 5-nSn S U;a?[US R55Hn U <U[-<U <S US U <3n M! URS/5SSnUS :XaSU;aURS5 U(a&U <U[-<SS RU5<SU<3n SnSU;a[USU[-5nSnSU;a[USU[-5nUS:XaSnSnSU;a%SUS-nUSU ;aU RUS5 [ USU[-US9n[!XSX[-US9n SnSU;aU(dSUS-nSU;aTSn[USR#55H-un nU<U[-<SU <SS RU5<S3nM/ UU-nUS:XaUS:XaSnU<U<U<S U<U<U<S U<U <U<U <U<U<U<S U<S U<3nU$)!Nr r/rrqrrr3r.rz(%s)r$rrr callbackintent(z) rrrrz result (%s)r-rz! in %srzentry r4r5rrzend )rTrrsr#r$rrFrr'rrtrr~r use2fortrancommon2fortran vars2fortranrG)r/rarrerdrrqr3 blocktypeargslr.r)rr{ intent_lstrrrr-mess entry_stmtsrs r)rr s" C%AQwZ#==V9 )96)!;(lKKC  F D DgII E V} V}vA!E*A$TW-- Q >Z '5CHHUO+DU"e./4467A #-E:L4Ma4P R 88R(+JJ:#;*%,cGmHHZ0$8 C ~%,g 6 F5hw? "" F5%/1 ?% ' LLx ) E&M3=| TD  V}e7] OD D |5=(% w--/0DAq(#-CHHQKIK1k!L T^%; VYdFD:JCQUW]_cehjsuy {C Jr(c Sn[UR55HInUS:XaU<U<SSRX5<3nM(U<U<SU<SSRX5<3nMK U$)Nr rzcommon r$zcommon /z/ )rsrtr)rrarer{s r)rZrZ sZ C &++-  =%(#sxx /BCC*-sAsxx 7JKC ! Jr(cSn[UR55HnU<U<SU<S3nX0:XaU(aUSS:XaUSSnM/SX;aXS(aSU-nSX;aiXS(a]Sn[XSR55H9nXPUSU:XaU<U<U<3nSnM U<U<U<S XSU<3nSnM; U(dMUSS:XdMUSSnM U$) Nr zuse r$r rz%s only:rrz=>rL)rrarerrr{s r)rYrY s C #((* "C+ 6R<s2w#~#2h  SV v$C CF?sve}A#&-,,./Au a((&)1a0CA*-q!SVE]15EFCA 0 33r7c>cr(C%& Jr(cUSn/nUH4n[5SU-nU"U5(aURU5 M4M6 U$![a MGf=f)Nr z isintent_%s)globalsr'r)rfrrer rcs r)true_intent_listre sg h-C C # -&01Avv 6"  J    sA AAc < [U5 Sn/nUHnXpS;dM URU5 M SU;a9USH0nXq;aXv;aURU5 M M"[SU-5 M2 SU;aURUS5 U(d8[ UR 55HnXv;dM URU5 M UGHnSX;a@XSH5nX;dM SX;dMXqUS;dM![SU<SU<S 35 M7 S U;aXpS ;a[ X5(a U<U<S U<3nU<U<S U<3n[X5(a U<U<S U<3nXq;a SX;aMSn USHn XzS:XdM U SS:XdMSn O U (aMXq;a[U5 [SU-5 MXpS:Xa"USS:wdURS5(aGM)SX;aESX;aSXS;aXr;a U<U<S U<3nGMX[X5 [SU-5 GMvXSn U S:XaSX;aU <SXS<S3n 0n SX;aXSn OSX;aXSn S U ;a$U S S!;aU <S"U S <S3n OLU <S U S <3n O?S#U ;a&U <S$U S#<3n S%U ;aU <S&U S%<S3n OS'U -n OS%U ;a U <S(U S%<S3n S)n SX;adXSVs/sH nUS*;dM UPM nnU(aS+U;aS,U;aURS,5 U(aU <S-S.RU5<3n S.n S/X;a#U <U <S0S.RXS/5<S3n S.n S1X;a2[X5nU(aU <U <S2S.RU5<S3n S.n S3X;a#U <U <S4S.RXS35<S3n S.n SX;a#U <U <S5S.RXS5<S3n S.n S6X;aKXS6nXSS7;a+[U5nSUR<S.UR <S3nU <S8U<S6U<3n O U <S8U<3n U<U<U <3nGM U$s snf!["a N:f=f)9Nr r.rz7vars2fortran: Confused?!: "%s" is not defined in vars. rrrz;vars2fortran: Warning: cross-dependence between variables "z" and "rr1zintent(callback) z external z optional r4rr-rqr/rrz/vars2fortran: No definition for argument "%s". rrkrz-vars2fortran: No typespec for argument "%s". rhror4r5rlrmr)rrz*(rXz(len=rEz,kind=z%s)z(kind=r)rz intent(in)z intent(out)rr$rz dimension(r rXrqzcheck(zdepend(rn)rrz :: )rTr'rorrsrtr isoptionalshowr2r~rrrerr5imagr)r/r.r3rarrenoutr)r!rrhvardefrrrrrrs r)r[r[, s C D  f  KKNu|$Ay=KKN!NQRRT %U E*%& diik"A} A# tw WX&9TW!41gh>O9Oghjkln' % A{);$; ))36Q?'*C3C$'""+.Q7yZtw6D6]& >ajJ&>D# = J FJ K  f W~+uyy/B/B  TW $TW$twz7J)J9/2C;C M DqH I $ V  dg 5!')<=F TW $w~.H tw &w~.H (?} *&,hsm<$*HSM: (.@X%.4hv6FGF"f-F8#*0(62BC   #wz2.2! ,2D.  4$9N  M*%+SXXd^< $' !388DGK$89;FA tw "47+C-3Q FA dg (.388DGG Awz"&CCQA%&VVQVV4A'-a3F#)1-FsF+OP JQ.D!s R R 6*R RRc6[SS5 [U[5 [SS5 /q[ [ S5n[SS5 [ H(n[SURS3S5 [X5nM* [SS5 [U5n[U-$)NzReading fortran codes... rzPost-processing... z"Applying post-processing hooks... z rzPost-processing (stage 2)... ) r2rr9rrprpost_processing_hooks__name__traverserc)filespostlisthooks r) crackfortranrs s (!,E9% "A&K1&H 115%"T]]O2&*H+& ,a0(#H  !!r(cB[U5S-nSnS[-nX!-U-$)NrzE! -*- f90 -*- ! Note: the context of this file is case sensitive. z ! This file was auto-generated with f2py (version:%s). ! See: ! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e )r f2py_version)r/pyfheaderfooters r) crack2fortranry s: 5 !D (CF F <&  r(c[U[5=(a. [U5S:H=(a [US[[45$)Nr0r)rtuplerXr8r)objs r)_is_visit_pairr} s8 sE " /CA  /3q6C:.0r(c[U5(a6USS:XaU$U"XU/UQ70UD6nUb[U5(deU$UnUupOSU4nSn[U[5(aF/n[U5H4up[ X4U/UQ7X'/-US.UD6upU cM#UR U 5 M6 O][U[ 5(aF[ 5nUR5H'up[ X4U/UQ7X'/-US.UD6upUcM#XU'M) OUnUcU$X4$)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. """ rrVN)parentsr)r}rrsrror'rrG)r|visitrrr3kwargs new_resultparent result_keyr[r  new_indexnew_itemrnew_key new_values r)roro si8c q6^ #J3A$A&A  !!*-- --  C #t %cNLE"*E>5#K;?#K3:X3E28#KCI#K I$!!(+ + C  V ))+JC!)3,"J:>"J29H2D17"JBH"J G"&/7# &   !!r(c USupVUupxSn US;aUSSS:XdeUSSn OUS:XaUS SS:XdeUS Sn OS n S n U b6Un U R5Hup[U 5(dMU "X5n M! O_US :XaYUS SSn Un U R5H8up[U 5(dM[R"S U -S -SU -U 5n M: U b!X:wa[ SUSUSUSU S3 S5 X{4$g )aPreviously, Fortran character was incorrectly treated as character*1. This hook fixes the usage of the corresponding variables in `check`, `dimension`, `=`, and `callstatement` expressions. The usage of `char*` in `callprotoargument` expression can be left unchanged because C `character` is C typedef of `char`, although, new implementations should use `character*` in the corresponding expressions. See https://github.com/numpy/numpy/pull/19388 for more information. r cz[R"SU-S-X5n[R"SU-S-X5nU$)Nz[*]\s*\brz\b\s*[\[]\s*0\s*[\]])rr)varnamer s r) fix_usage8character_backward_compatibility_hook..fix_usage,s>{W,u4gEuw)@@' r()rrqrr.rrnrN callstatementz (? `z` )rG ischaracterrrr2)r7rrr3r parent_key parent_valuerr r 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__rz-quietz-verboser0z-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form. z-skipemptyendsz--ignore-containsz-f77z-f90rz-hz-showz-mrzUnknown option %s 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). z Writing fortran code to file %s r)r)r)r$)rQr,)r N)Nr )r )NN)rr)rF)r F)__doc__r-rcrrrrrrpathlibrr ImportErrorr rauxfuncsrversionrur rrrrrrrrrrrr!rrr rr;rrr:r%rr$r&rr#r"rr*r2 _MAXCACHErrrnrzrrrrwr{r}rrrrrrrrrrrrrhrbeforethisafter fortrantypesrLrrIrJ groupbegins77r groupbegins90r groupendsrGendifsrFmoduleproceduresrRrKr<r=r?r@rCrDrEr>rArBrNrQrUrMrOrPrHSr7r8rr*rScrackline_bind_1rr9rTr%rir|rrrrrrrrrrrrrVrrrrlrmrHr5r#r,rrrurvrwrRrTrWr_rcrprtrrrurrrrrrrrrrrrrrrrsr?rrrFrqrNrOrPrQrRrKrrrZrYrer[rmrsryr}rorr'rnrpfuncsrcf2f3 showblocklistargvrrorrrOSErrordetailrqrvr/r'r(r)rs_ IT    ""                 2          #L  !A)62 " A)95    Ae)HQKKE  ,1 3RTT:AA **12448??**12448??**12448>>:83>4'+!_DDD zzr<t<>FGNOGH 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 kmomqmqr\%~ $ & > KRTTS %&(dd,**rtvtxtxy***+-441jj@"$$H ;= zzHJ $A244H    DD (4jjErttL zzI244Q zz9244A 235449**GIKIMIMN "JfR8,x6   <@]@D(V*Z$&#**^RTT2EPzz,bdd3 ,4$"  &(*bJ( **W%++  DN ::12448; |M` " J4$6=$DbddK12449M2448$ErttL ")+( ZHV0 }F"" !0 "$D?"D9 xBC z E E A B BM XXab\ 7  qTS[A (]EG *_GE &[yVXY[M"N " "M % %N &[I"N &[I#NM $YB '\M $YB qTS[ )DG3 4 BK BM  2Q  Q LLOcd 9}}   E"H{3d;6GGKH% +s #q GGCL$ XQGnpo 2)F:R011 2"$ #s5l=%)m m.=m m  m+ m&&m+. m<