Ë
|
KñúhLL ã ó d Z ddlZddlZddlZddlZddlZddlZddlZddlZddl m
|
Z
|
ddl Z ddl mZmZ ddl ej" adadadadadad ad adadada g a d a d a da i a!d a"da#da$da%tJ g ia&d a'g a(d
|
a)g a*da+d
|
a,g a-g a.g a/d Z0dÅd Z1d e_2 i Z3dD ] Z4ddie3e4< dD ] Z4ddie3e4< i Z5i Z6dD ] Z7e7dz e5e7< e7e6e7dz < d Z8d Z9d Z:d Z; ejx dejz « j| Z? ejx dejz « j| Z@ ejx dejz « j| ZA ejx d ejz « j ZCg d ¢ZDg d ¢ZEd ZFd ZGeHdfd!ZId"ZJd#ZK ejx eJd eKeKd$fz ejz « d%fZL ejx eJd eKd&z eKd&z d$fz ejz « ZM ejx eJd'z ejz « d(fZN ejx eJd)z ejz « d(fZOd*ZP ejx eJd ePePd$fz ejz « d(fZQePd+z ZR ejx eJd eReRd$fz ejz « d(fZSd,ZT ejx eJd eTeTd$fz ejz « d-fZUd.ZV ejx eJd/eVeVd$fz ejz « d0fZWd1ZX ejx eJd eXeXd$fz ejz « d2fZY ejx eJd3z ejz « d4fZZ ejx eJd5z ejz « d6fZ[ ejx eJd7z ejz « d8fZ\ ejx eJd9z ejz « d:fZ] ejx eJd;z ejz « d<fZ^ ejx eJd=z ejz « d>fZ_ ejx eJd?z ejz « d@fZ` ejx eJdAz ejz « dBfZa ejx eJdCz ejz « dDfZb ejx eJdEz ejz « dFfZc ejx eJdGz ejz « dHfZd ejx eJdIz ejz « dJfZe ejx eJdKz ejz « dLfZf ejx eJdMz ejz « dNfZg ejx eJdOz ejz « dPfZh ejx eJdQz ejz « dRfZi ejx eJdSz ejz « dTfZj ejx eJdUz ejz « dVfZk ejx eJdWz ejz ejØ z « dXfZm ejx dYejØ « dZfZnd[ Zod\ Zp ejx d]ejz « Zq ejx d^ejz « Zr ejx d_ejz « ZsdÆd`Ztda ZudÇdbZvdc ZwdÅddZx ejx deejz « Zy ejx dfejz « Zz ejx dgejz « Z{ ejx dhejz « Z| ejx diejz « Z} ejx dj« Z~ ejx dk« Z ejx dlejz « Zdm Zdn Zdo Zdp Zdq Z
dr Zds Z ejx dtejz « Z ejx duejz « Z ejx dvejz « Z ejx dwejz « Z ejx dxejz « Zdy Zdz Zd{ Zd| ZdÆd}ZdÆd~ZdÆdZdÈdZd Zd ZdÉdZdÊdZdËd
Zd Zd ZdÌdZd ZdÍdZ ejx dejz « Zd Z ejx dejz « Z¡d Z¢d Z£d Z¤d Z¥d Z¦dÎdZ§i fdZ¨d Z© ejx d« j Zªd Z«d Z¬ ejx dejz « ZdÉdZ®d Z¯g fdZ°d Z± ejx dejz « Z² ejx dejz « Z³ ejx d ejz « Z´ ejx d¡ejz « Zµ ejx d¢ejz « Z¶d£ Z·i fd¤Z¸dÏd¦Z¹dÌd§ZºdÌd¨Z»d© Z¼dÐdªZ½g a¾d« Z¿d¬ ZÀd ZÁg dfd®ZÂd¯ ZÃt| j eë eÅd°k( rg ZÆg ZÇdZÈdZÉdZÊdZËej dd D ]æ ZÍeÍd k( r eÍd d±k( rdZÈeÍd²k( rdada eÍd³k( rd´ada(eÍdµk( rt& r e1d¶d« dadaAeÍd·k( rdaIeÍd¸k( rdaQeÍd¹k( rdada[eÍdºk( rdad»adageÍd¼k( rdZÉoeÍd½k( rdZËweÍd¾k( rdZÊeÍd d¿k( r eÎdÀ eÏeÍ« d¥« eÉrdZÉeÍa¡eÊrdZÊeÍa¨eÈr+ eÐeÍ« j£ « eÆj eÍ« ÕeÇj eÍ« è t& st2 rt4 s e1dÂd« e¿eÆ« ZÔt0 rG e1dà eÏt0 « d¥d« eÀeÔ« ZÕ eÐt0 dÄ« 5 ZÈeÈj eÕ« ddd« eËr eHeÔ« yyy# e $ r dZ Y
|
¦w xY w# eÒ$ rZÓ eÎdÁeÓd¥« Y dZÓ[ÓdZÓ[Óww xY w# 1 sw Y CxY w)Ñ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 <pyffilename>
|
-m <module name for f77 routines>,--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: <commentchar>f2py<line> is read as <line>
|
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'][<index>]['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':<variable definition>,'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:
|
{<modulename>:{['only':<0|1>],['map':{<local_name1>:<use_name1>,...}]}}
|
B['note'] --- list of LaTeX comments on the block
|
B['f2pyenhancements'] --- optional dictionary
|
{'threadsafe':'','fortranname':<name>,
|
'callstatement':<C-expr>|<multi-line block>,
|
'callprotoargument':<C-expr-list>,
|
'usercode':<multi-line block>|<list of multi-line blocks>,
|
'pymethoddef:<multi-line block>'
|
}
|
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'][<variable name>] =
|
{'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(<arrayspec>)',
|
'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 = <typespec> [[<attrspec>]::] <entitydecl>
|
<typespec> = byte |
|
character[<charselector>] |
|
complex[<kindselector>] |
|
double complex |
|
double precision |
|
integer[<kindselector>] |
|
logical[<kindselector>] |
|
real[<kindselector>] |
|
type(<typename>)
|
<charselector> = * <charlen> |
|
([len=]<len>[,[kind=]<kind>]) |
|
(kind=<kind>[,len=<len>])
|
<kindselector> = * <intlen> |
|
([kind=]<kind>)
|
<attrspec> = 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.
|
<intentspec> = in | out | inout
|
<arrayspec> = comma separated list of dimension bounds.
|
<entitydecl> = <name> [[*<charlen>][(<arrayspec>)] | [(<arrayspec>)]*<charlen>]
|
[/<init_expr>/ | =<init_expr>] [,<entitydecl>]
|
|
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)Ú*Úfixú Ú éÿÿÿÿc óx da dadadadadadadadada g a
|
da t g ia da dadag ai adadadag ag ag ag ad ay )Nr r r r r
|
r )Ú strictf77ÚsourcecodeformÚquietÚverboseÚtabcharÚ pyffilenameÚ f77modulenameÚ skipemptyendsÚignorecontainsÚ dolowercaseÚdebugÚ groupcounterÚ grouplistÚ neededmoduleÚ expectbeginÚskipblocksuntilÚ usermodulesÚ f90modulevarsÚ gotnextfileÚfilepositiontextÚcurrentfilenameÚ skipfunctionsÚ skipfuncsÚ onlyfuncsÚ include_pathsÚprevious_context© ó úJH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/crackfortran.pyÚreset_global_f2py_varsr* Å s ð IØNØ EØGØGØKØMØMØNØKØ EàLÜ rÐ"IØLØKØOØKØMØKØÐØOØMØIØIØMØÑr( c ó¨ t sy t sE|r#t j j t
|
« t j j | « y y ©N)r r ÚsysÚstdoutÚwriter )ÚlineÚflags r) Úoutmessr2 ë s: õ ØÝ Ù Ü JJ× Ñ Ô -Ô .Ü
|
|
×ÑÕ ð r( é2 zabcdefghopqrstuvwxyz$_ÚtypespecÚrealÚijklmnÚinteger)3ÚintÚdoubleÚfloatÚcharÚshortÚlongÚvoidÚcaseÚwhileÚreturnÚsignedÚunsignedÚifÚforÚtypedefÚsizeofÚunionÚstructÚstaticÚregisterÚnewÚbreakÚdoÚgotoÚswitchÚcontinueÚelseÚinlineÚexternÚdeleteÚconstÚautoÚlenÚrankÚshapeÚindexÚslenÚsizeÚ_iÚmaxÚminÚflenÚfshapeÚstringÚcomplex_doubleÚ float_doubleÚstdinÚstderrr. ÚtypeÚdefaultÚ_bnc óZ | t v r"t d| dt | d« t | S | S )Nzrmbadname1: Replacing "ú" with "ú".
|
)ÚbadnamesÚerrmess©Únames r) Ú
|
rmbadname1rr s6 Ø xÑÜÐ)¨$¨¨x¼À¹Ð7GÀtÐLÔMÜ~Ð Ø Kr( c ó> | D cg c] }t |« c}S c c}w r, )rr ©ÚnamesÚ_ms r) Ú rmbadnamerw s Ø%*Ö +rJrNÒ +Ð+ùÒ +ó
c óZ | t v r"t d| dt | d« t | S | S )Nz undo_rmbadname1: Replacing "rl rm )Ú invbadnamesro rp s r) Úundo_rmbadname1r{ s8 Ø {ÑÜÐ.¨t¨f°H¼[ÈÑ=NÐ<OÈtÐTÔUÜ4Ñ Ð Ø Kr( c ó> | D cg c] }t |« c}S c c}w r, )r{ rt s r) Úundo_rmbadnamer} s Ø*/Ö 0 BOBÕ Ò 0Ð0ùÒ 0rx z-\*-\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.fc óL t .t j | « j « j }n×t dt
|
j j | « « }t | d« 5 }|j |« }|j t j « rd}nf|j t j t j f« rd}n4|j t j t j f« rd}nd}ddd« t | |¬« S # 1 sw Y xY w) aN 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-16Úascii)Úencoding)Úcharset_normalizerÚ from_pathÚbestr r` ÚosÚpathÚgetsizeÚopenÚreadÚ
|
startswithÚcodecsÚBOM_UTF8Ú BOM_UTF32_LEÚ BOM_UTF32_BEÚBOM_LEÚBOM_BE)ÚfilenameÚmoder ÚnbytesÚfhandleÚraws r) Úopenhookr + sà ô Ð%Ü%×/Ñ/°Ó9×>Ñ>Ó@×IÑIô R ¨Ó2Ó3Ü (DÓ !ð
|
# WØ,,vÓ&CØ~~fooÔ.Ø&Ø ¤×!4Ñ!4´f×6IÑ6IÐ JÔKØ#Ø ¤§ ¡ ´· ± Ð >Ô?Ø#ð #÷
|
#ô $¨Ô 2Ð2÷
|
#ð
|
#ús Á*BDÄD#c ó¼ d}t | « j j « t v rd}t | d« 5 }|j « }d}t |« rd}nt |« rd}d}|dkD rX|rV|d dk7 r6|j « r&|dz }|d dk7 rt |d d
|
« s|d d d k( rd}n|j « }|dkD r|rVd d d « |S # 1 sw Y |S xY w)z(Check if file is in free format Fortran.FTÚré r ú!r ú Né éþÿÿÿr ú&)
|
r ÚsuffixÚlowerÚCOMMON_FREE_EXTENSIONSr ÚreadlineÚ _has_f_headerÚ_has_f90_headerÚstripÚ_free_f90_start)ÚfnameÚresultr r0 Úns r) Úis_free_formatr« J sò ð FÜ E{×Ñ× Ñ Ó!Ô%;Ñ;ØÜ %Ó ð & Ø× Ñ Ó!Ø Ü Ô ØAÜ TÔ "ØAØFØ!eØAw#~ $§*¡*¤,ØQØGtO¬¸¸R¸a¸Ô(AÀdÈ2ÈbÀkÐUXÒFXØ !FØØ×#Ñ#Ó%Dð !e÷&ð M÷ &ð Mús ºB CÃCc
|
ó` |s/t t t t t t
|
t t t f }| g k( ryt }d}d}d}t j dt j « }t j d« } t j d« }
|
t j d« } |r |dd« d \ }} d
|
gt d « D cg c] } t | « c} z }dat j | t ¬ « } |j# « }|snà|j- « ræda|j) « ada |} dadat. j0 j3 t « d }t5 t « j6 j9 « t: v rt= |« st? |« sdan tA t « r t? |« sdat rtB antD atG dtI t « dt t xr dxs dd« |jK « jM dd
|
« }|dk( s|d dvrn |dd }|dk( sd}tO |d « \ }}|d
|
z }|dd j9 « d k( rtO |d z |d d z d « \ }}d }|jQ « dk( rt dk( rnd}«t dk( r|d d v r'|dd j9 « d!k( r d"|d d z }d }n d}d}ãt rtS |« d#kD r|dd# }|d |vrt' d$tI |« z « |rt r$tS |« d kD r|d d
|
k( s||d%d z }d}d}nu| jU |« }|r|jW d&« }|r)||
|
jU |« jW d&« z }d}d}n&d"|d d z }|r|j9 « }n|}|}|}nt dk( rß|sbd'k( r]| jU |« rL|d(z } |j# « }|s tY d)« n||z }| jU |« rn6|j[ « }| jU |« }|r|jW d&« }|r(||
|
jU |« jW d&« z }d}d}n(|r |r t] |« s|j9 « n|}n|}|}|}|du}nt_ d*tI t « « d+|ja « dz
|
t | fz a|jU |« }|rÿ|jW d,« }t. j0 jc |« rte ||d¬-« nÈt. j0 jg t « gth z }d} |D ]S } t. j0 jk | |« } t. j0 jc | « sCd} te | |d¬-« n | sAtG d.tI |« d/t. jl jk |« d0« n ||« |} õ|r|j9 « }n|}|}d+|ja « dz
|
t | fz a|jU |« }|rÿ|jW d,« }t. j0 jc |« rte ||d¬-« nÈt. j0 jg t « gth z }d} |D ]S } t. j0 jk | |« } t. j0 jc | « sCd} te | |d¬-« n | sAtG d.tI |« d/t. jl jk |« d0« n ||« da|jo « |r
|
|dd« y\ a aaaaaaaayc c} w # t$ $ r6}t' d|j) « d|j+ « d| d« d}~ww xY w)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 '<filename>'" is met.
|
NFr
|
z*\s*include\s*(\'|")(?P<name>[^\'"]*)(\'|")z(?P<line>.*)&\s*\Zz(\s*&|)(?P<line>.*)z.*?'''r )r
|
r
|
ú é
|
)r Tzreadfortrancode: reading ú#z failed with
|
zu.
|
It is likely that installing charset_normalizer package will help f2py determine the input file encoding correctly.r r r Úfreez Reading file z (format:z,strictú)
|
õ Â z
|
r r z!f2pyr )r Úcr ÚCr¯ Úf2pyz éH zxreadfortrancode: Found non-(space,digit) char in the first column.
|
Are you sure that this code is in fix form?
|
line=%sé r0 ú.pyfú
|
z.Unexpected end of file when reading multiline
|
z4Flag sourcecodeform must be either 'fix' or 'free': zLine #%d in %s:"%s"
|
rq )Ú
|
dowithlineÚistopz-readfortrancode: could not find include file z in ú . Ignoring.
|
)8r r r! r r Ú beginpatternr r r ÚreÚcompileÚIÚrangeÚstrÚ fileinputÚ FileInputr r£ ÚUnicodeDecodeErrorÚ Exceptionr ÚlinenoÚ isfirstliner r Úsplitextr r r¡ ÚCOMMON_FIXED_EXTENSIONSr¥ Ú_has_fix_headerr« Úbeginpattern77Úbeginpattern90r2 ÚreprÚ
|
expandtabsÚreplaceÚsplit_by_unquotedr¦ rX ÚmatchÚgroupro ÚrstripÚiscstyledirectiveÚ
|
ValueErrorÚ
|
filelinenoÚisfileÚreadfortrancodeÚdirnamer% ÚjoinÚpathsepÚclose) Úffilerº r» Ú saveglobalsÚlocaldolowercaseÚcontÚ finallineÚllÚ includelineÚcont1Úcont2Ú
|
mline_markÚl1rv Ú spacedigitsÚfinÚlÚmsgÚextÚis_f2py_directiveÚrlÚ_Ú origfinalliner ÚlcÚmÚfnÚ include_dirsÚ foundfileÚinc_dirÚfn1s r) rÙ rÙ d sh ñ Ü!Ô#3´_ÄnÔV_Ü %¤¬+ð6 à {ØÜ"Ðð DØIØ BÜ**Ø5´r·t±tó=Kä JJÐ,Ó -EÜ JJÐ-Ó .EÜIÓ&JÙ Ù2rÔØ FBØ%¬U°2«YÖ7 r3r7Ò7Ñ7KØÐÜ
|
×
|
Ñ
|
e¬hÔ
|
7CØ
|
ð Ø Añ Ù Ø ??Ô Ø !Ð Ø !llnOØKØBØIØ "NÜ''×"Ñ"¤?Ó3°AÑ6CÜOÓ$×+Ñ+×1Ñ1Ó3Ô7NÑNÜ(¨Ô+¬¸qÔ/AØ Ü ¤Ô0¼ ÈÔ9KØ!'ÝÜ - ä - Ý ÜOÕ,nÜ!Ò/ iÒ6°BÑ6ð8ô 9ð LLN× "Ñ " 6¨3Ó /àr'ØuHÑ$ØØ#2Að r'ð
|
"Ðä# A sÓ+BØ SØ bq6<<>WÒ $Ü$ Q¨¡[°2°a°b°6Ñ%9¸3Ó?DAqØ $Ð Ø 779?Ü Ò'ð
|
ð Ù Ü UÓ "ØtÐ0Ñ0ØQq6<<> VÒ+Ø ! A B %AØ(,Ñ%à DØ(-Ð%Ù ÝÜq6B;Ø#2AØt;Ñ&Ü ð !GäIMÈaËñ!Qó Rð Rñ I¬C°«F°QªJ¸qÀ¹tÀsº{à!AB%ZØ Ø " àKK NÙØ AÙØekk¨!n× 2Ñ 2°6Ó :Ñ:BØ "IØ$&Mð ! A B %Aá'Ø$&§H¡H£J à$& Ø$&MØBä vÒ %ÙC 6M¨j×.>Ñ.>¸qÔ.AØHØØ BÙ Ü Ø MôOà ØBAØ!×'Ñ'¨Ô+Ø ð ð HHJØ AAÙØGGFOÙØ%++ a.×.Ñ.¨vÓ6Ñ6Ø Ø " á#ñ 4EÔIZÐ[]ÔI^ §¡¤
|
ÐegIà "IØ " ØØTMDä ØFÄtÌNÓG[ÐF\Ð]ó_ð _à4Ø NNÓ qÑ ¤/°2ð87ñ 7Ðà × Ñ mÓ ,Ù Ø BÜww~~bÔ!Ü ¨zÀÖCô GGOO¤OÓ4ð 6Ü8Eñ F à Ø +ò GÜ '',, w°Ó3CÜww~~ cÕ*Ø$% Ü'¨¸
|
È!ÕLÙ ð ñ !ÝÜ R¤"§*¡*§/¡/°,Õ"?ð Aõ Bñ yÔ !Ø ñ{ ñ~ ØHHJ à ØMØ0Ø Ó1Ñ o¨rð43ñ 3Ðà×Ñ-Ó(AÙØ WWV_Ü 77>>"Ô Ü B¨:¸QÖ ?ä GGOO¬OÓ <Ð=Ä ÑMLØIØ'ò Üggll 7¨BÓ/Ü77>> #Õ&Ø !IÜ# C°JÀaÕHÙð ñ ÝÜHbjjoo¨lÕ ;ð=õ >ñ 9Ô ØÐØIIKÙ Ù2qÕð 9Dñ 6 Ð% ¸È Ø % ©+ùòE 8øô "ò ÜØ+¨C¯L©L«NÐ+;¸1¸S¿Z¹Z»\¸NØ ð & ð ó ð ûð ús Ã])Ã<]. Ý. ^-Ý71^(Þ(^-zN\s*(?P<before>%s(?=\s*(\b(%s)\b)))\s*(?P<this>(\b(%s)\b))\s*(?P<after>%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|byteú.*rh z|static|automatic|undefined)z([a-z]+[\w\s(=*+-/)]*?|)Úfunctionrú rù Úbegin)z [a-z\s]*?Ú
|
subroutinerü rù zprogram|block\s*datazM|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|type(?!\s*\()z\end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface|endsubroutine|endfunctionÚendzDend\s*(if|do|where|select|while|forall|associate|critical|enum|team)z[\w]*?Úendifzmodule\s*procedureÚmoduleprocedure)r
|
Úimplicitr rù r )r
|
údimension|virtualr rù Ú dimension)r
|
Úexternalr rù r )r
|
Úoptionalr rù r )r
|
Úrequiredr rù r )r
|
Úpublicr rù r )r
|
Úprivater rù r )r
|
Ú intrinsicr rù r )r
|
úintent|depend|note|checkr z \s*\(.*?\).*Úintent)r
|
Ú parameterr z\s*\(.*r )r
|
Údatar rù r )r
|
Úcallr rù r )r
|
Úentryr rù r )r
|
Úcallfunr rù r )r
|
Úcommonr rù r )r
|
Úuser rù r )r
|
Úcontainsr r
|
r )r
|
Úformatr rù r )r
|
úKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefr rù Úf2pyenhancementsz2\s*(?P<before>''')(?P<this>.*?)(?P<after>''')\s*\ZÚ multilinec óL t d« t |« z rJ d« t j dj dt j |« ddt j |« ddd¬ « « }|j | « }|r|j « }|d
|
|d fS | d fS ) 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"'z cannot split by unquoted quoteszR\A(?P<before>({single_quoted}|{double_quoted}|{not_quoted})*)(?P<after>{char}.*)\Zz[^"'ú]ú[z('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*"))Ú
|
not_quotedr; Ú single_quotedÚ double_quotedÚbeforeÚafterr
|
)Úsetr¾ r¿ r ÚescaperÒ Ú groupdict)r0 Ú
|
charactersr ró Úds r) rÑ rÑ s® ô E
|
S _Ò,ÐPÐ/PÓPÐ -Ü
|
|
|
ð !ß!'¡Ø ryy¨Ó 4Ð 5°QÐ7ØRYYzÓ*Ð+¨1Ð-Ø0Ø0ð "(ó "2ó 3Að
|
AÙØ KKMØ( QwZÐ(Ð(Ø ":Ðr( c óº g }t | « j d« D ], }dD ] }|j |d« } |j |« . dj |« S )Nú@,@z(),rð ú,)ÚmarkoutercommaÚsplitrÐ ÚappendrÛ )ÚargslineÚarª r s r) Ú _simplifyargsr, ¬ s` Ø
|
AÜ HÓ %× +Ñ +¨EÓ 2ò Øò "AØ !SÓ!Að "à ðð 88A;Ðr( z"\s*(?P<result>\b[a-z]+\w*\b)\s*=.*z \s*(?P<bind>\b[a-z]+\w*\b)\s*=.*zH\s*bind\(\s*(?P<lang>[^,]+)\s*,\s*name\s*=\s*"(?P<lang_name>[^"]+)"\s*\)c ó® t | d« \ }}|rt d j | « slt d j | « sT|dk( sJ t |« « t | d« \ } }|r!t | |« t |dd d« \ } }|r!t | |« y|dk r_dat diat i iat g ia g t t d< i t t d< dt t d< dt t d < d
|
a
|
d
|
a y|dkD rd}t rt t k( rd }t |kD r t d t t « d t t « d« t d« t t dz
|
j t t « t t t t dz
|
d
|
d< t t = t dz
|
at |kD r t rÍt t k( rÀt t dz
|
j t t « t t t t dz
|
d
|
d< t t = t dz
|
at t dz
|
j t t « t t t t dz
|
d
|
d< t t = t dz
|
ad
|
a
|
y| dk( ryd}t t t" t$ t& t( t* t, t. t0 t2 t4 t6 t8 t: t< t> t@ tB tD tF tH tJ t t tL fD ] }|d j | « }|r n|dz }! stN } dt cxk r t k ry dt t v r t t d D ] }
|
|
|
tP v r tP |
|
}
|
dt t v r|
|
t t d v r7tS j d|
|
z tU | « tR jV « } | sk| j | jY d« « } t[ | jY d« « } | r d|
|
d| d| jY d« d} n d|
|
d| d} t\ d j | « }|st dt | « d« yt_ |d | « y t` dkD s,t` dk( r7tb je « jg d « rda4t d t z « yd d k( r=dt cxk r t k rn nt dz
|
at t k ryt dk rtk d t z « t8 d j | « } | rc| jY d!« t t k( sDtk d"t | jY d!« « d#t t t « d$tl « t t k( rd
|
a t t dz
|
j t t « t t t t dz
|
d
|
d< t t = t dz
|
atn sda8yy|d d%k( r5dt cxk r t k r n n
|
t dz ayda9t_ ||d | « da8y|d d&k( ry|d d'k( rt_ ||d | « y|d d(k( r*tt rydt cxk r t k r y t a yt a ydt cxk r t k ry t_ ||d | « y))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 r Nr
|
ÚbodyÚvarsÚblockrq r é zcrackline: groupcounter=z groupname=r¹ zYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement.
|
Ú externalsÚ
|
interfacedz5(?P<before>[^"]*)\b%s\b\s*@\(@(?P<args>[^@]*)@\)@.*\Zr Úargszcallfun ú(z
|
) result (r© ú)z4crackline: could not resolve function call for line=ú.
|
r r¸ z"crackline:%d: No pattern for line
|
rý z>crackline: groupcounter(=%s) is nonpositive. Check the blocks.Úthiszcrackline: End group z* does not match with previous Begin group z
|
rû rþ rÿ r );rÑ Úf2pyenhancementspatternrÒ ÚmultilinepatternrÎ Ú crackliner Ú groupnameÚ
|
groupcacher r r r r2 r) ÚdimensionpatternÚexternalpatternÚ intentpatternÚoptionalpatternÚrequiredpatternÚparameterpatternÚ datapatternÚ publicpatternÚprivatepatternÚintrinsicpatternÚ endifpatternÚ
|
endpatternÚ formatpatternr½ ÚfunctionpatternÚsubroutinepatternÚimplicitpatternÚ typespatternÚ commonpatternÚ callpatternÚ
|
usepatternÚcontainspatternÚ entrypatternÚmoduleprocedurepatternÚcrackline_re_1rz r¾ ÚmarkouterparenrÀ rÓ r, ÚcallfunpatternÚ analyzeliner r! r¡ Úendswithr& rÆ r r r r r )r0 Úresetrð Ú has_semicolonÚsemicolon_lineÚflr1 Úpatró Úre_1rq Úm1Úm2r+ s r) r< r< ¹ sM ô )¨¨sÓ3ÑA}ÙÔ 5°aÑ 8× >Ñ >¸tÔ DÜ /°Ñ 2× 8Ñ 8¸Ô >àzÐ&4 ;Ó&zä 0°°sÓ ;Ñ nÙ Ü dEÔ "Ü#4°^ÀAÀBÐ5GÈÓ#MÑ D.ò ô $Ô ØØ qyØ Ü! 2Ð& Ü" BÐ'
|
Ü! 2Ð& Ø+-
|
<Ñ Ñ(Ø+-
|
<Ñ Ñ(Ø,.
|
<Ñ Ñ)Ø+-
|
<Ñ Ñ(Ø Ø ØØ qyØ Ý \¬\Ò 9ØBÜRÒ Ý Ü,Õ'¬¬i ð:ô ;ä Ølô nä l QÑ&Ñ '× .Ñ .¬z¼,Ñ/GÔ HÜ6?Ä Ñ6MIl QÑ&Ñ '¨Ñ +¨FÑ 3Ü,Ð'Ü'¨!Ñ+Lô RÓ õ \¬\Ò 9Ü l QÑ&Ñ '× .Ñ .¬z¼,Ñ/GÔ HÜ6?Ä Ñ6MIl QÑ&Ñ '¨Ñ +¨FÑ 3Ü,Ð'Ü'¨!Ñ+LÜ l QÑ&Ñ '× .Ñ .¬z¼,Ñ/GÔ HÜ6?Ä Ñ6MIl QÑ&Ñ '¨Ñ +¨FÑ 3Ü,Ð'Ü'¨!Ñ+LØ LØØ rzØØ DÜ ¤/´=Ä/Ü Ü ¤+¬}¼nÜ Ü jÜ Ü oÔ/@Ü ¤ ¬}ÜZ¬ Ü Ü'Ü Ü&ð ò ð FLLÓ Ù Ù Øaxð#ò$ Ü Ø Ô /¤<Ò /Ø ð 0à *¤\Ñ2Ò 2Ü"¤<Ñ0°Ñ=ó Ø;Ñ&Ü& tÑ,DØ ¤:¬lÑ#;Ñ;ÀÌ
|
ÔS_ÑH`ÐamÑHnÑ@nØ ÜXXØLÈtÑSÔUcÐdhÓUiÔkm×koÑkoóqâØ B§H¡H¨XÓ$6Ó7BÜ% b§h¡h¨vÓ&6Ó7AÙØ!)¨$¨¨q°°°:¸b¿h¹hÀxÓ>PÐ=QÐQRÐ Sà!)¨$¨¨q°°°1Ð 5Ü& qÑ)×/Ñ/°Ó5AÙ Ü Ø RÔSWÐX\ÓS]ÐR^Ð^aÐ bôdá Ü 9¨dÔ3Ùð) ô* Q;7 a<¬O×,AÑ,AÓ,C×,LÑ,LÈVÔ,TØ #Ð Ü Ð9¼\ÑJÔ KØØ Q5 Ø Ô .¤,Õ .Ü'¨!Ñ+LÜ ¤,Ò.ØÜ 1Ò Üð 0ä +ñ -ó .ð .ô !_× "Ñ " 4Ó (Ù &Ó)¬Y´|Ñ-DÒDÝä ! "§(¡(¨6Ó"2Õ 3´T¼)ÄLÑ:QÕ5RÝ -ð /ó ð ô
|
lÒ *Ø OÜ, Ñ"Ñ#×*Ñ*¬:´lÑ+CÔDÜ2;¼LÑ2I , Ñ"Ñ# BÑ'¨Ñ/Ü lÐ #Ü# aÑ' Ý ØKð à Q7Ò Ø Ô /¤<Õ /Ü'¨!Ñ+LØ Ø ÜAs1vtÔ$Ø Ø Q7Ò Ø Ø QÐ$Ò $ÜAs1vtÕ$Ø Q:Ò Ý Ø Ø Ô /¤<Ò /Ø ð 0ä&,à Ô /¤<Ò /Ø ð 0äAs1vtÕ$r( c óz d}d}| D ]1 }|dk( r|dz }|dk( r|dz }|dk( r|dz
|
}|dk( r|dz }-||z }3 |S )Nr
|
r r6 r ú@(@r7 ú@)@r' )r0 rë Úfr³ s r) rW rW W sq Ø
|
AØ AØ ò Ø 8ØAAØAvØIØØ #XØAAØAvØIØØ Eð ð Hr( c ó d}d}t | |dz « \ }}||z }|rY|d |k( r|dk( r |d|z dz z }n#||d z }|d dk( r|dz }n |d dk( r|dz }t |dd |dz « \ }}||z }|rY|rJ t || |f« « |S )Nr
|
r ú()ú@r6 r r7 )rÑ rÎ )r0 Úcommarë rf r r s r) r' r' i sÍ Ø
|
AØ AÜ% d¨E°D©LÓ9MFEØKAÙ
|
Ø !HÒ A¨¢FØ usÑ"Ñ "Aà qMAØQx3ØQØqS ØQÜ)¨%°°¨)°U¸T±\ÓB Ø V ò ñ Ð$$4 |Ó$Ó$5Ø Hr( c óJ | j dd« j dd« }|S )Nrd r6 re r7 )rÐ )r0 r s r) Úunmarkouterparenrl | s$ Ø UCÓ ×(Ñ(¨°Ó4AØ Hr( c ó¢ | si } |s| S | |u r| S t |j « « D ]¤ }|dk( r|s|| vs|| | |< |dk( r|| D ] }t | ||« } 5|dk( rt | || |« } K|dk( rt | || |« } a|dv r|s|| vsl|| | |< u|dk( r{|dv rt d| d « t d
|
t |« z « | S ) Nr4 ÚattrspecÚ kindselectorÚ charselector)ú=ÚtypenameÚnote)r
|
Úcheckr r r Údependz appenddecl: "z" not implemented.
|
z-appenddecl: Unknown variable definition key: )ÚlistÚkeysÚ setattrspecÚsetkindselectorÚsetcharselectorro rÆ r )ÚdeclÚdecl2ÚforceÚkrë s r) Ú
|
appenddeclr s Ù ØÙ Ø Ø u}Ø Ü %**,Ó ò $Ø
|
?Ù Ø (QØ *_Ø1Xò 3Ü" 4¨¨EÓ2ñ 3à .Ò Ü" 4¨¨q©°5Ó9DØ .Ò Ü" 4¨¨q©°5Ó9DØ Ð#Ñ #Ù Ø (QØ &[Ø Ø ð )ñ )ä m A 3Ð&:Ð;Õ <äÐ KÜ Fñ #ó $ð $ð)$ð, Kr( zD\s*(?P<this>(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P<after>.*)\Zz[(?:,(?P<attributes>[\w(),]+))?(::)?(?P<name>\b[a-z$_][\w$]*\b)(?:\((?P<params>[\w,]*)\))?\Zzª\s*(?P<name>\b[\w$]+\b)\s*(@\(@\s*(?P<args>[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P<result>\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P<bind>(?:(?!@\)@).)*)\s*@\)@))*\s*\ZzF\s*(?P<scheme>(operator|assignment))@\(@\s*(?P<name>[^)]+)\s*@\)@\s*\Zz9\s*(?P<name>\b[\w$]+\b)\s*@\(@\s*(?P<args>.*)\s*@\)@\s*\Zz4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)zA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))zintent\s*\(.*?\bcallback\bc ó` | j dg « D ] }t j |« s y y)Nrn r r )ÚgetÚ_intentcallbackpatternrÒ )Úvdeclr+ s r) Ú_is_intent_callbackr µ s2 Ø YYz 2Ó &ò Ü !× 'Ñ '¨Õ *Ùðð r( c ód dj | j « « } t j | « }t | |« |re|j d« }|r-|j d« D cg c] }|j « c}ng }|j d« ||j d« fS d g d fS c c}w )Nr
|
Ú
|
attributesr& rq Úparams)rÛ r( ÚtypedefpatternrÒ ÚprintrÓ r¡ )r0 ra Úattrsr+ s r) Ú_resolvetypedefpatternr ¼ s Ø 774::<Ó DÜ × Ñ dÓ #BÜ $OÙ Ø Ó&Ù9> E§K¡K°Ó$4Ö5qÓ5ÀBØxxÓ ¨¯©°Ó(:Ð:Ð:Ø T>Ðùò 6s Á)B-c óì t j dt j « }|j | « }d }|r8|j d« }| d |j « | |j « d z } | |fS )NzObind\(\s*(?P<lang>[^,]+)(?:\s*,\s*name\s*=\s*["\'](?P<name>[^"\']+)["\']\s*)?\)r )r¾ r¿ rÀ ÚsearchrÓ Ústartrý )r0 ÚpatternrÒ Úbind_statements r) Úparse_name_for_bindr Æ sl ÜjjÐkÔmo×mqÑmqÓrGØ NN4Ó EØNÙ Ø Q àNU[[]Ð# d¨5¯9©9«;¨<Ð&8Ñ8Ø Ð Ð r( c óÖ t | « \ } }t | « } t j | « }|r3|j d« |j d« |j d« |fS t
|
j | « }|r/|j d« dz |j d« z dz }|g d d fS t j | « }|r$|j d« |j d« d d fS d g d d fS )Nrq r5 r© Úschemer6 r7 )r rW ÚnameargspatternrÒ rÓ ÚoperatorpatternÚcallnameargspattern)r0 Ú
|
bind_cnamera rq s r) Ú_resolvenameargspatternr Ð sã Ü*¨4Ó0ÑD*Ü $Ó DÜ × Ñ tÓ $BÙ ØxxÓ §¡¨&Ó!1°2·8±8¸HÓ3EÀzÐQÐQÜ × Ñ tÓ $BÙ ØxxÓ! CÑ'¨"¯(©(°6Ó*:Ñ:¸SÑ@ØRtÐ#Ð#Ü × "Ñ " 4Ó (BÙ ØxxÓ §¡¨&Ó!1°4¸Ð=Ð=Ø T4Ð Ð r( c óº8 | j d« }|dk7 rdat rÛ|dvr×t sÑt dk rÈt
|
j j t « j d« d }t d| d « da t dz ad
|
t t < i t t < g t t < g t t d < i t t d < d
|
t t d < |t t d< dt t d< da|dv rË|j « }t! j" d|t j$ « rd}nOt! j" d|t j$ « rd}n't! j" d|t j$ « rd}|dk( r8t' | j d« « \ }}}d|it t d |< g }d} n t) | j d« « \ }}} }
|
||dk( rd}nd }|d vr t d « ||t fa|r@t+ t- |« j d « D cg c] } | j/ « c} « }ng }d |v r%d |v r|j1 d « d |v rt d « d} d} |d!v r\d} d"t t vry|t t d" vryt t D ] }|d |k( s y |t t d# v ryd$d%d!| }t2 r#t4 d&k( rt dk rt d'z ad} |d(vrd} t dz ai t t < g t t < | rÉt6 dkD r t d)t9 t2 « z d« d*t t < dt t d < t2 t t d< d t t d< g t t d < g t t d+< g t t d#< i t t d < t dz ai t t < g t t < | rãt6 dkD rt d,t z d« d-t t < d-t t d < d.t t d< t t dz
|
d d/t t dz
|
d t t d< g t t d < g t t d+< g t t d#< i t t d < t dz ai t t < g t t < |t t < |t t d < |sd0|j; d1d2« z }| j d3« t t d4< t= |« t t d< | t t d5< t dk( rt t t d< nqt2 r4t d6k( r+t t dz
|
d d/t t t d< n7t t dz
|
d d/t t dz
|
d t t d< t? t t jA « « D ]! }t t | rt t |= # |t t d"< g t t d < g t t d+< g t t d#< i t t d < i t t d7< |dk( rg t t d8< |d!v r£|t t d'z
|
d+ vr"t t d'z
|
d+ jC |« tE jF t t d'z
|
d « t t d < t t d | t t d | d jI d9« = |d:v rN
|
rt! jL tN |
|
« }|rm|i it t d;< |j d<« t t d; | d<< |j d=« r%|j d=« t t d; | d< tQ t t d | t t d'z
|
d d « t t d |< |d>k( rX| rV| t t d v rD|| k( s?tQ t t d | t t d | « t t d |< t t d'z
|
d# jC |« |d%k( rltR d j# | j d3« d1z |z « }|r=tU |j d« |j d« « \ }}}}tW ||||« |d!v r¿t t dz
|
jC t t « t t t t dz
|
d& d < t t = t dz
|
at t dz
|
jC t t « t t t t dz
|
d& d < t t = t dz
|
ayy|d7k( rt) | j d« « \ }}} }|s|r@t+ t- |« j d « D cg c] } | j/ « c} « }ng }| J t9 | « « |t t d7 |< d7|t fayy|dk( r;tU || j d« « \ }}}}tW ||||« }|
|
d?|t fayy|d@v rât t d }| j d« j/ « }|jY dA« }|dk r£|dBk( rt[ |« jY dC« d'z
|
}|d|dz dAz ||dz d z }|jY dA« }||d dAk( rTd"t t v rEt dD| j d« |d| dE« |dFj] t t d" « z }|dk rd}d }n|d| j/ « }||d'z d }t- |« j d « }t_ |« dkD r%|d }t dGdFj] |dd « z « d}t- |« j d « D cg c] } | j/ « c} D ]/ }t` j# |« } | s<|dHv rd }nOtc | je « « t dI|dJt9 |« dK« Wt= | j d« « }|dHv r|dLv r|| j d« z }||vri ||< |dMk( r|| j d« z } |dBk( rÕ| j d« |z } tf j# | « r¬|t t d" vrt dkD rsdNt t d'z
|
d vr t dO« |t t d k7 r^t dP|dQt t d dR« t t d" jC |« n ti dS| dT« nti dU|z « |dVv r|} d|| v r|| d jC « n g|| d< |d9k( rrt t d d
|
k( r t dW« Ü|t t d" vrðd+t t vrg t t d+< t t d+ jC |« |}2 |t t d < |
|
d?|t fayy|dXk( rK| j d« j dF« D cg c] } | j/ « c} t t dY< y|dZk( r?t t d }| j d« j/ « dd& }d}t- |« j d « D ]Ð } |j d[« D cg c] } | j/ « c} \ }} tk |« } t= |« }||vri ||< d[|| v r&|| d[ | k( st d_|d`|| d[ da| d « tm | | « }|rù|jo db« dck( rt? | « } tp js | « D ]i } t? | | ju « | jw « j « j; ddde« « | | ju « | jw « k d j] | « } nG|jo db« dfk( r3| dd j « j; ddde« j; dFdg« } ty | i | « }!t9 |!« || d[< d|| v r|| d jC dZ« n dZg|| d< |}Ó |t t d < |
|
d?|t fayy|djk( r| j d« j/ « j « dkk( rdt t dj< y| j d« r/t t jo dji « }#|# t dl« i }#t- | j d« « j d « D ]Å }i }$t! j" dm|t j$ « } | st dn| d^« =t j# | j d« « }%|%st do| d^« stU |%j d« |%j d« « \ }}}}t ||« \ }&}'}(||$db< |&|$dp< |'|$dq< |(|$dr< t? |$jA « « D ] }|$| r |$|= t- | j d« « j d « D ] })ds|)v r2 |)j ds« D cg c] } | j/ « c} \ }*}+n|)j/ « x}*}+t_ |*« t_ |+« cxk( rdk( sn t dt|) dv« zt
t |*« t |+« dz « D ] },|$|#t |,« < ¯ È |#t t dj< yy|dwk( r÷g }d }-d }.d}/d}0d}1| j d« D ] }2|1s|2dxk( r|0 }0|2dyk( r|0r|/dz }/|2dzk( r|1dz }1n
|
|2d{k( r|1dz
|
}1|/dk( r|-|2z }-:|/dk( r|.|2z }.E|/d'k( sK|-j/ « }-|-j dF« r|-dd j/ « }-|jC |-|.g« |2}-d }.d}/ |/d'k( rG|-j/ « }-|-j dF« r|-dd j/ « }-|jC |-|.g« t t jo d i « }3d}|D ]² }4|4d j/ « j dF« |4d j/ « c|4d< |4d< |4d j dz« rt d||4d d}« gt t+ t- |4d « j d « D cg c] } | j/ « c} « « D ]þ \ }5}!|!j dz« rt d||! d}« 'd~|4d v rt d|4d d}« A|3j |!i « |3|! jo db« }6t |3|! « }7|6dfk( rt! j d|4d « n|4d j dF« }8 |7rddj] |8« dn|8|5 }9|3|! jo d[« }>|>r|>|9k7 rt d|! d`|> d|9 d^« |9|3|! d[< |!} µ |3t t d < |r
|
d?|t fayy|dk( r| j d« j/ « }|d dyk( sd|z }g }?t! j dy|d'¬« \ }}@}A|@j/ « }@|@sd}@|?jC @Ag« i }Bdt t v rt t d }B|?D ]i }2|2d Bvrg B|2d < t- |2d « j d « D cg c] } | j/ « c} D ] }|sB|2d jC |« k Bt t d< d@t fay|dk( r·t! j" d| j d« t j$ « } | rY| je « }Cdt t vri t t d< | j d« }i t t d |< d}DdCv r%Cd dCv rCd d}DDt t d | d< Cd j dF« D cg c] } | j/ « }} i }E|D ]¡ }4d[|4v rt! j" d|4t j$ « }%|%r@|%j d« j/ « E|%j d« j/ « < n t dt9 |4« dE« n|4E|4< Et t d | d< £ ytc | je « « t d« yyy|dv r«dt t vri t t d< t t d }F| j d« dk( rDdFv r@t¡ Fd t¢ « r Fd g|Fd< Fd jC | j d« « y| j d« F| j d« < y|dk( rIt t6 r t d« yt }Gt¥ t |G t dd' | j d« « yt6 dkD r%tc | je « « t d« yyc c} w # tJ $ r Y ~w xY w# tJ $ r Y »w xY w# tJ $ r Y Kw xY wc c} w c c} w c c} w c c} w # tJ $ r t d\| d]| d^« Y çw xY w# tz t| t~ f$ r }"ti dh| di|"dE« Y d}"~" d}"~"ww xY wc c} w # tJ $ r t dt|) du« Y w xY wc c} w # t $ rÐ t d |8D « « rg }:|8D ] };d
|;v rp |;j d
« \ }<}=|:j |=j/ « gt |<« z « I# t $ r" |:jC |;j/ « « Y sw xY w|:jC |;j/ « « |:}8|7rddj] |8« dn|8|5 }9Y w xY wc c} w c c} w )a
|
Reads each line in the input file in sequence and updates global vars.
|
|
Effectively reads and collects information from the input file to the
|
global variable groupcache, a dictionary containing info about each part
|
of the fortran module.
|
|
At the end of analyzeline, information is filtered into the correct dict
|
keys, but parameter values and dimensions are not yet interpreted.
|
r9 r N)rû r r rh r ú.r z=analyzeline: no group yet. Creating program group with name "rm Úprogramr/ r0 r1 rq ÚfromskyÚfrom)rû r r z block\s*dataú
|
block datazpython\s*moduleú python modulezabstract\s*interfaceúabstract interfacerh r rn Ú _BLOCK_DATA_r
|
)Ú interfacer r z2analyzeline: No name/args pattern found for line.
|
r% z<analyzeline: argument list is malformed (missing argument).
|
)r r r5 r4 rü rú r r2 ©r¢ r z&analyzeline: Creating module block %s
|
Úmoduler3 zDanalyzeline: Creating additional interface block (groupcounter=%s).
|
r¢ Úunknown_interfaceú:Úunknown_r rð r Úprefixr© é r Úvarnamesr ©rú rü ÚbindlangÚlangÚ lang_namer Úvariable)r r
|
r r r r r r ú::r
|
re z"All arguments will have attribute r¹ r& zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r.
|
©r r z&analyzeline: no name pattern found in z statement for ú . Skipping.
|
> ÚoperatorÚ
|
assignmentr Ú__user__z8analyzeline: missing __user__ module (could be nothing)
|
z(analyzeline: appending intent(callback) ú to z arguments
|
z analyzeline: intent(callback) z is ignored
|
z=analyzeline: intent(callback) %s is already in argument list
|
)r r r r r r z(analyzeline: ignoring program arguments
|
rÿ Ú implementedbyr rq zAanalyzeline: could not extract name,expr in parameter statement "ú" of "ú"
|
z1analyzeline: Overwriting the value of parameter "ú" ("z ") with "r4 r5 r# ÚeÚcomplexz+1j*(z analyzeline: Failed to evaluate z . Ignoring: r Únonez<analyzeline: Overwriting earlier "implicit none" statement.
|
z9\s*(?P<this>.*?)\s*(\(\s*(?P<after>[a-z-, ]+)\s*\)\s*|)\Zz@analyzeline: could not extract info of implicit statement part "zIanalyzeline: could not extract types pattern of implicit statement part "ro rp rr ú-z2analyzeline: expected "<char>-<char>" instead of "z&" in range list of implicit statement
|
z*" in range list of implicit statement (2)
|
r ú'ú/r6 r7 z analyzeline: implied-DO list "z " is not supported. Skipping.
|
r z Comment line in declaration "z\(.*?\)ú(/ú, z/)c 3 ó$ K | ] }d |v
|
yw)r Nr' )Ú.0ró s r) ú <genexpr>z analyzeline.<locals>.<genexpr>µ s è ø Ò5¨3 !8Ñ5ùs r z*analyzeline: changing init expression of "ú") to "r z//)ÚmaxsplitÚ_BLNK_r zR\A\s*(?P<name>\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P<notonly>))\s*(?P<list>.*))|)\s*\Zrv ÚnotonlyÚonlyz7\A\s*(?P<local>\b\w+\b)\s*=\s*>\s*(?P<use>\b\w+\b)\s*\ZÚlocalz-analyzeline: Not local=>use pattern found in Úmapz0analyzeline: Could not crack the use statement.
|
)r r Úusercodez-analyzeline: No context for multiline block.
|
z+analyzeline: No code implemented for line.
|
)SrÓ r& r r r r r Úbasenamer! r( r2 r r= r> r r¡ r¾ rÒ rÀ r r rw r' r¦ Úremover r r rÎ rÐ rr rv rw r) ÚcopyÚdeepcopyr[ rÆ r Úcrackline_bindlangr rO Úcracktypespec0Ú
|
updatevarsÚfindrW rÛ rX Ú namepatternr r! r ro Úget_parametersÚdetermineexprtyper Ú real16patternÚfinditerr rý ÚevalÚ SyntaxErrorÚ NameErrorÚ TypeErrorÚtypespattern4implicitÚ cracktypespecrÁ ÚordÚchrr Ú removeprefixÚ enumerateÚ
|
setdefaultÚ getdimensionÚfindallÚ
|
IndexErrorÚanyÚextendr8 rÖ Ú
|
isinstancer Úappendmultiline)Hró r? r0 r1 Únewnamerq r rð r5 r© Ú bindclineÚxÚ
|
needmoduleÚ needinterfaceÚitr~ ÚbindcdatÚtr4 ÚselectorÚattrÚedeclÚ last_namerã ÚiÚplÚchr» ra ÚapÚinitexprr ÚttÚvrì Úimplr{ rb Ú
|
kindselectÚ
|
charselectrr r ÚbegcÚendcÚoÚdlÚilrf ÚfcÚinpr³ r0 rë ÚidxÚvtypeÚvdimÚmatchesÚnew_valÚ expanded_listrÒ Ú
|
multiplierÚvalueÚ current_valÚclÚbnÚolÚ commonkeyÚmmÚisonlyrï r# ÚgcsH r) rY rY à sp ð GGFOEØ {ÒØ ÐÝtÐ#GÑGÝ ¤ °Ò!1Ü''×"Ñ"¤?Ó3×9Ñ9¸#Ó>¸qÑAÜØKÈGÈ9ÐTXÐ Yô [à Ü# aÑ' Ø"+ ,Ñ Ø#%
|
<Ñ Ø"$ ,Ñ Ø+-
|
<Ñ Ñ(Ø+-
|
<Ñ Ñ(Ø,5
|
<Ñ Ñ)Ø+2
|
<Ñ Ñ(Ø+4
|
<Ñ Ñ(Ø Ø Ð+Ò+à Ü 88O U¬B¯D©DÔ 1Ø EÜ XXÐ(¨%´·±Ô 6Ø#EÜ XXÐ-¨u´b·d±dÔ ;Ø(EØ F?Ü 3°A·G±G¸GÓ4DÓ END%Ø6@À%Ð5HJ|Ñ $ VÑ ,¨TÑ 2ØDØFä,CÀAÇGÁGÈGÓDTÓ,UÑ )D$ Ø <Ø Ò$Ø%àØÐ MÑMÜÐMÔNà ! 4¬ Ð6ÐÙ Ü Ü'5°dÓ';×'AÑ'AÀ%Ó'Hö JØ"#ð ggiò Jó KDð DØ :Ø*Ø Bð *ä ØOô Qð
|
Ø à Ð&Ñ &Ø MØZ¬ Ñ 5Ñ5ØØ:¤lÑ3°FÑ;Ñ;ØÜ ¤ Ñ-ò Øf: Ó%Ùð ð z¤,Ñ/° Ñ=Ñ=ØØ )°jÑAÀ$ÑGEÝ \¨RÒ /´LÀAÒ4EÜ'¨!Ñ+LØJØÐ ?Ñ?Ø ! ä# aÑ' Ø#%
|
<Ñ Ø"$ ,Ñ Ù Ü{ÜÐAÜ ]Ó+ñ,Ø-.ô0à&.IlÑ #Ø0?J|Ñ $ WÑ -Ü/<J|Ñ $ VÑ ,Ø/1J|Ñ $ VÑ ,Ø/1J|Ñ $ VÑ ,Ø46J|Ñ $ [Ñ 1Ø57J|Ñ $ \Ñ 2Ø/1J|Ñ $ VÑ ,Ü'¨!Ñ+LØ')J|Ñ $Ø&(IlÑ #Ù Ü{ÜÐ_Ü ñ"Ø#$ô&à&1IlÑ #Ø0;J|Ñ $ WÑ -Ø/BJ|Ñ $ VÑ ,ä<¨!Ñ+Ñ,¨VÓ4´jÄ ÐPQÑAQÑ6RÐSYÒ6Zð0\J|Ñ $ VÑ ,à/1J|Ñ $ VÑ ,Ø46J|Ñ $ [Ñ 1Ø57J|Ñ $ \Ñ 2Ø/1J|Ñ $ VÑ ,Ü'¨!Ñ+LØ')J|Ñ $Ø&(IlÑ #Ø"' ,Ñ Ø,1
|
<Ñ Ñ)ÙØ § ¡ ¨c°3Ó 7Ñ7DØ-.¯W©W°XÓ->
|
<Ñ Ñ*Ü+5°dÓ+;
|
<Ñ Ñ(Ø-3
|
<Ñ Ñ*Ü 1Ò Ü/>J|Ñ $ VÒ ,Ý |¨qÒ 0ä<¨!Ñ+Ñ,¨VÓ4µoð0GJ|Ñ $ VÒ ,ô <¨!Ñ+Ñ,¨VÓ4´jÄ ÐPQÑAQÑ6RÐSYÒ6Zð0\J|Ñ $ VÑ ,äj¤ Ñ.×3Ñ3Ó5Ó6ò 0AÜ lÑ+¨AÓ.Ü |Ñ,¨QÑ/ð 0ð ,0
|
<Ñ Ñ(Ø+-
|
<Ñ Ñ(Ø02
|
<Ñ Ñ-Ø13
|
<Ñ Ñ.Ø+-
|
<Ñ Ñ(Ø,.
|
<Ñ Ñ)à F?Ø35J|Ñ $ ZÑ 0à Ð&Ñ &Ø:¤l°QÑ&6Ñ7¸ ÑDÑDÜ<¨!Ñ+Ñ,¨[Ñ9×@Ñ@ÀÔFÜ/3¯}©}Ü<¨!Ñ+Ñ,¨VÑ4ó06J|Ñ $ VÑ ,ð Ü |Ñ,¨VÑ4°TÑ:Ü |Ñ,¨VÑ4°TÑ:¸:ÑF×LÑLÈZÓXðZð Ð.Ò .áÜ 99Ô%7¸ÓCÙØ<@À"¸:J|Ñ,¨ZÑ8ØIQÏ É ÐX^ÓI_J|Ñ,¨ZÑ8¸Ñ>¸vÑFØ ~~ kÔ2ØMUÏ^É^Ð\gÓMh
|
¤<Ñ0°Ñ<¸TÑBÀ6ÑJð Ü9CÜ |Ñ,¨VÑ4°TÑ:¼JÄ|ÐVWÑGWÑ<XÐY_Ñ<`ÐacÑ<dó:f
|
<Ñ(¨Ñ0°Ñ6ð yÒ Ùf¬
|
´<Ñ(@ÀÑ(HÑ HØ 6>ÜAKÜ &¤|Ñ 4°VÑ <¸TÑ BÄJÌ|ÑD\Ð]cÑDdÐekÑDlóBn
|
¤<Ñ0°Ñ8¸Ñ>ð Ü<¨!Ñ+Ñ,¨\Ñ:×AÑAÀ$ÔGð JÒ Ü Q×%Ñ% a§g¡g¨hÓ&7¸#Ñ&=ÀÑ&DÓEAÙÜ2@ØGGFO Q§W¡W¨WÓ%5ó37Ñ/( D¨%ä8 X¨t°UÔ;à Ð&Ñ &Ü l QÑ&Ñ '× .Ñ .¬z¼,Ñ/GÔ HÜ6?Ä Ñ6MIl QÑ&Ñ '¨Ñ +¨FÑ 3Ü,Ð'Ü'¨!Ñ+LÜ l QÑ&Ñ '× .Ñ .¬z¼,Ñ/GÔ HÜ6?Ä Ñ6MIl QÑ&Ñ '¨Ñ +¨FÑ 3Ü,Ð'Ü'¨!Ñ+Lð 'ð
|
Ü 7¸¿¹ÀÓ8HÓ IÑ dFAØ Ð ÙÜ Ü+9¸$Ó+?×+EÑ+EÀeÓ+Lö"NØ&'ð #$§'¡'¥)ò "Nó Oð Ø>Ð /¤4¨£<Ó />Ø6:J|Ñ $ WÑ -¨dÑ 3Ø '¨¬|Ð <Ñ ð ð
|
Ü*8Ø 1777Ó#ó+%Ñ'(D %ä x¨°4¸Ó? Ø Ð Ø *¨I´|Ð DÑ ð !à ÐnÒ nÜ<Ñ(¨Ñ0Ø WWWÓ × #Ñ #Ó %Ø GGDMØ q5TXÒ%Ü rÓ"×'Ñ'¨Ó.°Ñ2AØFQUdÑ" R¨¨A©¨ ZÑ/BØ AØ!"v~ &¬J´|Ñ,DÑ"DÝØ ¨"¨R¨aª&ð2ô 3à#((¤:¬lÑ#;¸FÑ#CÓDÑDØ q5ØAØBàBQ BØAEFBÜ BÓ × %Ñ % eÓ ,Ü r7Q;ØABÜ ÐoØABÓ ñ"ô #à ä%3°BÓ%7×%=Ñ%=¸eÓ%DÖE !'')ÒEó 4 AÜ ×"Ñ" 1Ó%BÙØÐ0Ñ0ØAä!++-Ô(ÝÚ d 1gð 'ô (à ä rxx¨Ó /Ó0ØÐ,Ñ,°Ð6PÑ1PØRXXgÓ&Ñ&Ø~Ø aØ{Ò"ØBHH WÓ -Ñ-ØxÒ ØWWV_ rÑ)Ü)×/Ñ/°Ô3ؤ
|
¬<Ñ 8¸Ñ @Ñ@Ü'¨!Ò+Ø )´¼LÈ1Ñ<LÑ1MÈfÑ1UÑ UÜ 'Ø$_ô!að !¤J¬|Ñ$<¸VÑ$DÒ DÝ 'Ú@AÄ:ÌlÑC[Ð\bÓCcð)eô !fä *¬<Ñ 8¸Ñ @× GÑ GÈÕ Jä #Ø"@ÀÀÀ=Ð Qõ Sô ð !6Ø9:ñ!<ô =àÐ]Ñ]ØØU 1XÑ%ØaÑ$×+Ñ+¨BÕ/à(* taÑ$ØzÒ!Ü lÑ+¨GÑ4¸ ÒAÜÐ GÔHÙ ØJ¤|Ñ 4°VÑ <Ñ<Ù Ø ¤j´ Ñ&>Ñ>Ø<>J|Ñ,¨[Ñ9Ü<Ñ(¨Ñ5×<Ñ<¸QÔ?ØIði4 ðj ,1
|
<Ñ Ñ(Ø Ð Ø *¨I´|Ð DÑ ð !à Ð"Ò "à !§¡¨Ó 0× 6Ñ 6°sÓ ;Ö <1QWWYÒ <ô <Ñ Ò1à Ó Ü<Ñ(¨Ñ0Ø WWWÓ × #Ñ #Ó % a¨Ð +Ø Ü Ó#×)Ñ)¨%Ó0ó $ Að Ø23·'±'¸#³,Ö ?¨QqwwyÒ ? 8ô
|
$ EÓ*FÜ1 AØ~Ø aØeAh¨¨a©°© ¸Ò(AÝÚuQx }¢hð0ô 1ä! (¨FÓ3AÙØ55Ó$¨Ò.Ü h BÜ *× 3Ñ 3°HÓ =ò SÜ04Ø $ Q§W¡W£Y¨q¯u©u«wÐ 7× =Ñ =Ó ?× GÑ GÈÈSÓ Qó1S1779 Q§U¡U£WÑ-ðSð "ww r{HØUU:Ó&¨)Ò3Ø '¨¨|× 1Ñ 1Ó 3× ;Ñ ;¸CÀÓ Eß WÓ-ð ð Ü 2 vÓ.ô
|
! GE!HSMØU 1XÑ%ØaÑ$×+Ñ+¨KÕ8à(3 }aÑ$ØIðI$ ðJ ,1
|
<Ñ Ñ(Ø Ð Ø *¨I´|Ð DÑ ð !à Ó Ø 777Ó × !Ñ !Ó #× )Ñ )Ó +¨vÒ 5Ø37J|Ñ $ ZÒ 0Ø WWWÕ Ü lÑ+×/Ñ/°
|
¸BÓ?DØ|ÜØSôUàÜ# A§G¡G¨GÓ$4Ó5×;Ñ;¸EÓBó ' ,ØÜXXØPÐRSÔUW×UYÑUYó[áÜØZÐ[\ÐZ]Ð]aÐbôdà Ü*×0Ñ0°·±¸&Ó1AÓBÙÜØcÐdeÐcfÐfjÐkômà Ü2@ØHHVÓ$ b§h¡h¨wÓ&7ó39Ñ/( D¨%ä3@Ø hó4(Ñ0
|
J¨à#+ZÑ Ø'1^Ñ$Ø'1^Ñ$Ø#+ZÑ Ü diikÓ*ò $AØ 7Ø Gð$ô (¨¯©°Ó(9Ó:×@Ñ@ÀÓGò ,AØaxð%Ø=>¿W¹WÀS»\Ö)J¸¨!¯'©')Ò)JJD¡$ð '(§g¡g£iÐ/tÜ t9¬¨D« Ô6°QÔ6Ü Ø PÐQRÐPSÐS~Ð ôAà Ü "¤3 t£9¬c°$«i¸!©mÓ <ò ,Ø'+S V ñ,ò ,ð1' ,ðP 48J|Ñ $ ZÒ 0ð] ð^
|
Ø Ø Ø Ø Ø ØØÓ!ò AÙØ8Ø BØ8¡ØAAØ ØCxØAgØcØAgØAvØ!VØaØ!VØaØXXZØ== Ô%ØAB BØ 2r(Ô#ØØØð- ð. 6ØBØ}}SÔ!ØV\\^Ø IIr2hÔ Ü,Ñ'×+Ñ+¨F°BÓ7Ø Øó 0 AØ1 ×2Ñ2°3Ó7¸¸1¹¿¹» JAaD!A$ØtsÔ#ÜÐ8¸¸1¹¸Ð>]Ð^Ô_ØÜ#¤IÄ.ÐQRÐSTÑQUÓBV×B\ÑB\Ð]bÓBcÖ.d¸Q¨q¯w©wyÒ.dÓ$eÓfò + QØ<< Ô$ÜÐ <¸Q¸CÐ?^Ð _Ô`ð Ø!A$;ô Ð ;¸A¸a¹D¸6ÐA`Ð aÔbØ Ø 2Ô&Ø Q JÓ/Ü# D¨¡GÓ,Ø:?À9Ò:L"** Z°°1±Ô6ÐRSÐTUÑRV×R\ÑR\Ð]`ÓRaðTÙ=A 4§9¡9¨WÓ#5Ð"6°bÑ 9ÀwÈsÁ|Gð& # 1gkk¨#Ó . Ù K°7Ò$:ÜÐ HÈÈÈ4ÐP[È}Ð\cÐdkÐclÐlpÐ qÔrØ &Q Ø òW+ ð 0 ðb ,0
|
<Ñ Ñ(Ù Ø *¨I´|Ð DÑ ð à Ó ØwwwÓ ×%Ñ%Ó'ØAw#~Ø$;Dà Ühhs D°1Ô5 BØ XXZÙØBØ
|
2r(ÔØ Ø z¤,Ñ/Ñ /Ü"¤<Ñ0°Ñ:IØò .AØt9Ñ$Ø"$ !A$Ü)7¸¸!¹Ó)=×)CÑ)CÀEÓ)JÖK AaggiÒKò .ÚØ a dO×*Ñ*¨1Õ-ñ .ð .ð .7
|
<Ñ Ñ*Ø $ b¬,Ð7ÑØ Ü XXØ aÐcd×cjÑcjÐkrÓcsÔuw×uyÑuyó{â Ø BØJ¤|Ñ 4Ñ4Ø24
|
<Ñ(¨Ñ/Ø88FÓ#DØ46J|Ñ $ UÑ +¨DÑ 1ØFØ| 6¡
|
Ñ 6Ø ? r¨)¡}Ð'<Ø FØ@F
|
<Ñ(¨Ñ/°Ñ5°fÑ=Ø)+¨F©×)9Ñ)9¸#Ó)>Ö? AaggiÐ?Ð?ØØò FAØaxÜ XXØ VÐXYÔ[]×[_Ñ[_ó aá Ø<>¿H¹HØ %ó='ß',¡u£wð rxx¨Ó 0× 6Ñ 6Ó 8Ò 9ô $Ø"OÔPTÐUVÓPWÈyÐXZÐ [õ ]ð !"1ØCEJ|Ñ,¨UÑ3°DÑ9¸%Ò@ñ Fô !++-Ô Ü ÐGÕ Hð+ !7|ð,
|
Ð%Ñ %Ø ¤Z´ Ñ%=Ñ =Ø;=J|Ñ $Ð%7Ñ 8Ü |Ñ $Ð%7Ñ 8Ø 776?jÒ (¨Z¸1©_Ü!J-¬Ô-Ø!" :¡ * Ø jM× Ñ §¡¨Ó!1Õ 2à!"§¡¨Ó!1AaggfoÒ Ø Ò Ü Ð #ÝÜÐHÔIØ Ü Ü
|
2Ü(¨¨!Ð,Ø õ )ô
|
1Ü akkmÔ ÜÐ>Õ?ð
|
ùòo JøôN ò Úð ûô ò Úð ûô ò Úð üò."NùòL Fùòt =ùò @øÜ ò ÜØWÐXYÐWZÐZ`ÐacÐ`dÐdhÐiôkâð ûô0 ¤¬IÐ6ò ÝÚ#¢Sð*ô +åûð üòb *KøÜ (ò %Ü #Ø"TÐUVÐTWÐW~Ð ô Aâ $ð%üòn /eøô* "ò Tô
|
Ñ5¨WÔ5Ô5Ø(* Ø%,ò DEØ " e|ð!HØ8=¿ ¹ ÀCÓ8HÑ$5 J°Ø$1×$8Ñ$8¸%¿+¹+»-¸ Ì3ÈzË?Ñ9ZÕ$[øÜ'1ò !HØ$1×$8Ñ$8¸¿¹» Ö$Gð!Húð !.× 4Ñ 4°U·[±[³]Õ CðDð #0Ù=A 4§9¡9¨WÓ#5Ð"6°bÑ 9ÀwÈsÁ|Gð#TüòV Lùò& @sA È)Aj/Ü 7Aj4 ßAAk á3"Ak èAk$ð!Ak)ú2Ak.ü4Ak8ýAk3ý Ak8ÁB8 AlÁK,AmÁK?AmÁLAmÁU#Am2ÁX- Am7Á]1AqÁbAqÁj4 AkÁk AkÁk AkÁkAkÁk Ak!Ák Ak!Ák3Ak8Ák8AlÁlAlÁlAm Ál.AmÁmAm ÁmAmÁmAm/Ám.Am/Ám7&AqÁn A Ao Áo AqÁo (Ap
|
ÁpAqÁp Ap
|
Áp
|
AAqÁqAqc óZ d| vri | d< | d }||vrg ||< || j |« y )NÚf2pymultilines©r) )rÓ Ú context_nameÚmlr# s r) rì rì sC ØuÑ$Ø"$Ð Ñ Ø Ð Ñ AØ1Ñ Ø ,ØlO×Ñ2Õ r( c óF d }d }t j d| t j « rd} nFt j d| t j « rd} n | j « j « } t
|
j t |« « }|s t d« y |j « }t |j « « D ] }t || « ||< | dv r
|
|d }|d }|j d « }|d
|
k\ r|d | j « }||d z d }| |||fS ) Nzdouble\s*complexúdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line.
|
)r¼ r7 Úlogicalr5 Ú characterrh r9 r r° r r2 ) r¾ rÒ rÀ r¦ r¡ Ú selectpatternrW r2 r! rv rw rl rÕ )r4 rã rõ rö ra r# r~ rù s r) rÓ rÓ ! s ØHØ DÜ xxÐ# X¬r¯t©tÔ4Ø#Ü Ð'¨´2·4±4Ô 8Ø%à>>Ó#×)Ñ)Ó+Ü × Ñ ^¨BÓ /Ó 0BÙ ÜØ Mô OàØ
|
AÜ !&&(^ò &Ü !¡Ó%!ð&àÐQÑQØV9Ø wZØ
|
AØAvØ"1v||~Ø AZØ Xt RÐ 'Ð'r( z)\s*(?P<name>\b\w+\b)\s*(?P<after>.*)\s*\ZzB\s*(\(\s*(kind\s*=)?\s*(?P<kind>.*)\s*\)|\*\s*(?P<kind2>.*?))\s*\Zz2\s*(\((?P<lenkind>.*)\)|\*\s*(?P<charlen>.*))\s*\Zz§\s*(kind\s*=\s*(?P<kind>.*?)\s*(@,@\s*len\s*=\s*(?P<len>.*)|)|(len\s*=\s*|)(?P<len2>.*?)\s*(@,@\s*(kind\s*=\s*|)(?P<kind2>.*)|(f2py_len\s*=\s*(?P<f2py_len>.*))|))\s*\Zz¿\s*(@\(@\s*(?!/)\s*(?P<array>.*?)\s*@\)@\s*\*\s*(?P<len>.*?)|(\*\s*(?P<len2>.*?)|)\s*(@\(@\s*(?!/)\s*(?P<array2>.*?)\s*@\)@|))\s*(=\s*(?P<init>.*?)|(@\(@|)/\s*(?P<init2>.*?)\s*/(@\)@|)|)\s*\Zc óä | j « } t | « dk r| S | d }t dt | « dz
|
« D ]' }| | dk( r| |dz dv s
|
| |dz
|
dv r || | z }) || d z }|S )Nr r r z ()[]{}=+-/* r )r¦ rX rÁ )ÚexprÚexpr2rù s r) Ú removespacesr' J s Ø ::<DÜ
|
4yA~Ø Ø GEÜ 1c$i !mÓ $ò Ø GsNØ1q5k^Ñ+Øa!e Ñ.Ø ØQð ð DHÑ EØ Lr( c ó d}d}d}d}| D ]8 }|dk( r |dv r||z }|}|s|dv r|}||k( r| }n |dk( r|r|dz }2||z }|}: |S ) a'
|
The function replace all spaces in the input variable line which are
|
surrounded with quotation marks, with the triplet "@_@".
|
|
For instance, for the input "a 'b c'" the function returns "a 'b@_@c'"
|
|
Parameters
|
----------
|
line : str
|
|
Returns
|
-------
|
str
|
|
r
|
FNú\)r) r¿ ú")r¿ r* r ú@_@r' )r0 ÚfragmentÚinsideÚ current_quoteÚescapedr³ s r) Úmarkinnerspacesr0 Y s ð HØ FØMØGØ ò Ø d?qÐ$5Ñ 5Ø MHØGØ Ù!{Ñ*Ø MØ Ò Ø ZFØ #X&Ø Ñ HØ ØA Øð ð Or( c ó d}t | |« \ }}}|r¬t |« j d« D cg c] }|j « }}g } t j
|
d« }
|
|D ]Y } | s|
|
j | « } | r0| j d« j « } | | t | « d z } | j | « [ | }t |« j d« D cg c] }|j « }}g }|D ]u }t t t |« « d¬« j d« D cg c] }|j « c}D ]& }|s|j |j dd« « ( w |D ]· }t j |« } | st d t! |« d
|
« 4t# | j d « « }i }|t$ t& d v ræt$ t& d | j) « }d |v}|r| |d < n"| r | |d k( st d|d|d d| d« d|vrt) j( |« |d< nu|rst+ |j- « « D ]W }||d v r0|| |d | k( s"t d|d|d|d | d|| d « :t) j( || « |d |< Y d|vr |r|r||d< nt/ d|d|d« nu|rst+ |j- « « D ]W }||d v r0|| |d | k( s"t d|d|d|d | d|| d « :t) j( || « |d |< Y d|vr||d< n"|r |d |k( st d|d|d d|d« d |vrt) j( |« |d < n|r|D ] } | |d vs |d j | « net) j( | « |d < t) j( |« |d< t) j( |« |d< ||d< t) j( |« |d < d |j1 d « xs g v rP|t$ t& d v r>d t$ t& vrg t$ t& d < t$ t& d j |« | j d « r't2 j t5 | j d « « « }|r×|j7 « }d!D ] }||d"z ||d"z ||< ||d"z = t+ |j- « « D ] }|| t9 || « ||< ||= d#|v ryd$|v ru|d# d%k( r |d$ |d#< |d$= na| d&k( r*d|vs|d si |d< d#|d v r|d d#= |d# |d d'< |d#= n2|d$ d(z |d# z |d$< |d#= t/ d)| d|d*| d|d+|d$ d, « d#|v rO| d-v r d|vs|d si |d< |d# |d d'< |d#= n.| d&k( r)d|vs|d si |d< d#|d v r|d d#= |d# |d d'< |d#= d.|v r3d/|v r'|d/ |d. k( s t d0|d|d/ d|d. d« n|d. |d/< d$|v rd1|d$ d2}d |vs|d s|g|d < nj|d j |« |d D ]- }|dd3 d4k( s ||k7 s|d d5= t/ d|d6|d7|d« n" n t d8|| j d « z z « t+ |j- « « D ] }|| r ||= |t$ t& d |< d9t$ t& v r t$ t& d9 j |« |}º |S c c}w c c}w c c}w ):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.
|
Nr% z(?P<start>[a-zA-Z]+)r r ©rj z@ @r+ z-updatevars: no name pattern found for entity=r² rq r0 r4 z+updatevars: attempt to change the type of "rº rÆ z ". Ignoring.
|
ro z0updatevars: attempt to change the kindselector "r¸ rp z updatevars:z*: attempt to change empty charselector to r¼ z0updatevars: attempt to change the charselector "rr z/updatevars: attempt to change the typename of "rn r r5 r3 r )rX ÚarrayÚinitÚ2rX r3 r
|
r" r r& z updatevars: "z" is mapped to "r6 z)"
|
©r¼ r7 r! r5 r4 rq z6updatevars: attempt to change the init expression of "ú
|
dimension(r7 é r r z: attempt to change r¶ z?updatevars: could not crack entity declaration "%s". Ignoring.
|
rª ) rà r' r( r¦ r¾ r¿ rÒ rÓ r¡ rX r) r' r0 rÐ rÖ r2 rÎ rr r> r rÐ rv rw ro r ÚlenarraypatternrW r! rl )r4 rõ rn Ú
|
entitydeclrø r r rr rï rë r³ r+ ró ÚsÚelÚel1r» Úe1Úenamer÷ Únot_has_typespecr~ ra Úd1ÚlkÚdmÚdm1s r) rÔ rÔ ~ s= ð IÜ'4°X¸xÓ'HÑ$J
|
HáÜ'5°hÓ'?×'EÑ'EÀeÓ'LÖM !AGGIÐMÐMØ Ü JJÐ.Ó /Øò AÙØØ
|
AÙØGGGÓ$×*Ñ*Ó,Ø#a&'
|
NØ HHQKð ð Ü +¨JÓ 7× =Ñ =¸eÓ DÖ E!'')Ð EBÐ EØ
|
CØ ò 3Ü&4´\Ä/ÐRSÓBTÓ5UÐ]`Ô&a×&gÑ&gÐhmÓ&nÖo 1779Òoò 3BÚØ
|
|
2:: e¨SÓ1Õ2ñ 3ð3ð ó EÜ × Ñ aÓ ÙÜ Ø?ÄÀQøyÈ ÐVô Xà Ü177 6?Ó+ØØ J|Ñ,¨VÑ4Ò 4Ü |Ñ,¨VÑ4°UÑ;×@Ñ@ÓBEØ )°Ð 6Ð Ù Ø$,jÒ!Ù 8¨u°ZÑ/@Ò#@ÝÚ5 Ó,ªhð8ô 9à UÑ*Ü(,¯ © °*Ó(=nÒ%ÙÜ jooÓ /Ó0ò LAØE .Ñ 1Ñ1¸:Àa¹=ÈEÐR`ÑLaÐbcÑLdÒ;dÝ Ú u e¨NÑ&;¸AÓ&>À
|
È1à ð!Oõ Pô 48·9±9¸Zȹ]Ó3KnÑ-¨aÒ0ð Lð UÑ*©zÙ#Ø,6E.Ò)åÚ $¢jð 2õ 3áÜ jooÓ /Ó0ò LAØE .Ñ 1Ñ1¸:Àa¹=ÈEÐR`ÑLaÐbcÑLdÒ;dÝ Ú u e¨NÑ&;¸AÓ&>À
|
È1à ð!Oõ Pô 48·9±9¸Zȹ]Ó3KnÑ-¨aÒ0ð Lð Ñ&Ø$,jÒ!Ù 5¨Ñ#4¸Ò#@ÝÚ5 Ó,ªhð8ô 9à Ñ&Ü$(§I¡I¨hÓ$7jÒ!ÙØ!ò 4AØ jÑ 1Ò1Ø jÑ)×0Ñ0°Õ3ñ4ô !%§ ¡ ¨(Ó 3E*Ñ Ü$(§I¡I¨jÓ$9E.Ñ !Ü$(§I¡I¨jÓ$9E.Ñ !Ø (E*Ñ Ü $§ ¡ ¨(Ó 3E*Ñ Ø %)) JÓ/Ò5°2Ñ 6¸1Ä
|
Ì<Ñ@XÐY_Ñ@`Ñ;`ؤ*¬\Ñ":Ñ:Ø8:
|
<Ñ(¨Ñ5Ü |Ñ $ [Ñ 1× 8Ñ 8¸Ô ;Ø 777Õ Ü ×&Ñ&¤~°a·g±g¸gÓ6FÓ'GÓHBÚØ\\^Ø2ò )BØ"s(|Ñ/Ø!# B¨¡H¡ 2Ø r CxLð)ô bggi ò "AØ!uÐ(Ü 0°°A±Ó 71à qEð "ð B; 7¨b¡=Ø%y BØ$& w¡K5 Ø wKØ! [Ò0Ø *°%Ñ 7ÀÀ~ÒAVØ46E .Ñ 1Ø E¨.Ñ$9Ñ9Ø % nÑ 5°eÐ <Ø57¸±YnÑ-¨cÑ2Ø uIà&(¨¡k°CÑ&7¸"¸U¹)Ñ&C7 Ø uIÝ Ú $¢aª²5¸"¸W»+ð!Gô Hð B;Ø Ð#LÑLØ *°%Ñ 7ÀÀ~ÒAVØ46E .Ñ 1Ø57¸±YnÑ-¨cÑ2Ø uIØ! [Ò0Ø *°%Ñ 7ÀÀ~ÒAVØ46E .Ñ 1Ø E¨.Ñ$9Ñ9Ø % nÑ 5°eÐ <Ø57¸±YnÑ-¨cÑ2Ø uIàR<Øe|¨U°3©Z¸2¸f¹:Ò-EÝ Ú ! 5¨£:¨r°&«zð!;õ <ð &(¨¡Zc
|
àb=Ø% b¨¡k ]°!Ð4BØ!¨Ñ.°u¸ZÒ7HØ-/¨DjÒ)à jÑ)×0Ñ0°Ô4Ø#(¨Ñ#4ò &CØ " 2 Aw¨+Ó 5¸#À»)Ø$)¨*Ñ$5°bÐ$9Ý 'Ú+0²#²rð);ô !<á %ñ &ô ÐZØAGG GÓ ,Ñ,ñ.ô /äejjlÓ#ò AØ8Ø!Hð ð 38
|
<Ñ Ñ(¨Ñ/Ø ¤LÑ1Ñ 1Ü |Ñ $ ZÑ 0× 7Ñ 7¸Ô >Ø ðKEðL Ðùòq Nùò
|
Fùò ps ±\1Ã \6Ä-\;c óz d }d }d }|r.| dv r£t j |« }|st dt |« d« y |j « }|d |d< |d= t |j « « D ] }|| r ||= t |j « « D ] \ }}t |« ||< n| dk( rt j |« }|st dt |« d« y |j « }|d |d< |d= |d rft j t |d « « }|j « }d
|
D ]# }||d z r ||d z ||< || ||< ||d z = % |d |d |d < |d = t |j « « D ] }|| r ||= t |j « « D ] \ }}t |« ||< nq| d k( rTt j d|t j « }|r|j d« }n3t dt | |z « z « nt dt |« d« |||fS )Nr6 z1cracktypespec: no kindselector pattern found for r¹ Úkind2r r" z1cracktypespec: no charselector pattern found for ÚcharlenÚlenkind)rX Úkindr5 Úf2py_lenrh z\s*\(\s*(?P<name>\w+)\s*\)rq z'cracktypespec: no typename found in %s
|
z$cracktypespec: no selector used for )ro rÒ r2 rÎ r! rv rw Úitemsrr rp Úlenkindpatternr' r¾ rÀ rÓ ) r4 rõ r r rr r~ rù rH rB s r) rà rà ' s ØJØJØHÚØ Ð@Ñ @Ü%×+Ñ+¨HÓ5JÙ ÜØGÌÈXËÐGWÐWYÐZô\àØ#×-Ñ-Ó/JØ (¨Ñ 1JsOØ7Ð#Ü*//Ó+Ó,ò &Ø! !}Ø" 1 ð &ô Z× -Ñ -Ó /Ó0ò .1Ü *¨1£
|
1 ò .à Ó $Ü%×+Ñ+¨HÓ5JÙ ÜØGÌÈXËÐGWÐWYÐZô\àØ#×-Ñ-Ó/JØ (¨Ñ 3JsOØ9Ð%Ø)Ò$Ü(×.Ñ.Ü" :¨iÑ#8Ó9ó;à!×+Ñ+Ó-Ø)ò *BØ r CxÒ(Ø&-¨b°3©hÑ&7 Ø%,¨R¡[JrNØ S¡Ñ)ð *ð
|
:Ñ&Ð2à-4°ZÑ-@JzÑ*Ø9Ð%Ü*//Ó+Ó,ò &Ø! !}Ø" 1 ð &ô Z× -Ñ -Ó /Ó0ò .1Ü *¨1£
|
1 ñ .à Ò ÜxxÐ =¸xÌÏÉÓNHÙØ#>>¨&Ó1äÐBÜ h¨Ñ 1Ó2ñ4õ 5ô Ð:¼4À»>Ð:JÈ"ÐMÔ NØ z 8Ð +Ð+r( c ó¤ | si } |s| S d| vr|g| d< | S |r| d j |« || d v r| S |dk( r d| d vr| d j |« | S |dk( r d| d vr| d j |« | S |dk( r d| d vr| d j |« | S |dk( r d| d vr| d j |« | S | d j |« | S )Nrn rJ Ú automaticr r r )r{ rö r} s r) rx rx b s- Ù ØÙ Ø ØÑ Ø 6ZÑØ Ù Ø ZÑ× Ñ Ô%Ø tJÑ Ñ Ø Ø xÒK¨t°JÑ/?Ñ ?Ø ZÑ× Ñ Ô%ð Kð
|
Ò °°jÑ1AÑ!AØ ZÑ× Ñ Ô%ð Kð
|
Ò Ø D Ñ ,Ñ ,Ø Ñ × #Ñ # DÔ )ð Kð
|
Ò Ø 4
|
Ñ+Ñ +Ø Ñ × #Ñ # DÔ )ð Kð ZÑ× Ñ Ô%Ø Kr( c ó | si } |s| S d| vr|| d< | S t |j « « D ] }|s|| d vs || | d |< | S )Nro ©rv rw ©r{ Úselr} r~ s r) ry ry } sl Ù ØÙ Ø ØTÑ!Ø "^Ñ Ø Ü #((*Ó ò -Ù AT .Ñ 1Ò1Ø&)¨!¡fD Ñ Ò #ð-ð Kr( c ó | si } |s| S d| vr|| d< | S t |j « « D ] }|s|| d vs || | d |< | S )Nrp rP rQ s r) rz rz sl Ù ØÙ Ø ØTÑ!Ø "^Ñ Ø ä #((*Ó ò -Ù AT .Ñ 1Ò1Ø&)¨!¡fD Ñ Ò #ð-ð Kr( c ó d| v r| d S |S )Nrq r' )r1 Úunknowns r) Ú getblocknamerV s Ø ØV}Ð Ø Nr( c óB d| d d| d da y # t $ r Y y w xY w)NzIn: r r¦ rq r¹ )r rÆ )r1 s r) Ú setmesstextrX ¢ s6 ð Ø ! %¨¡- °°%¸±-° ÀÐCÑøÜ ò Ù ð ús c ó^ i }d| v rt | d « }d| v r|j | d « |S )NÚ parent_blockr )Ú get_usedictÚupdate)r1 Úusedicts r) r[ r[ « s: ØGØÑ Ü e NÑ 3Ó4Ø ~ØuU|Ô$Ø Nr( c
|
óÎ |i }t | « }|s|S t |j « « D ]µ \ }}|j « }|t vr"t d|d| j d« d« @t | }t |« }|sW|rt d| d« t |j « « D ]2 \ }}||v r$t dt |« dt |« d« |||< 4 · |S ) Nz get_useparameters: no module z info used by rq r¹ z get_useparameters: mapping for z not impl.
|
z(get_useparameters: overriding parameter z with value from module )
|
r[ rv rK r¡ r r2 r r× ro rÎ ) r1 Ú param_mapr] ÚusenameÚmappingÚmvarsr r~ rÿ s r) Úget_useparametersrc ´ só ð ÐØ Ü%Ó GÙ ØÐÜ § ¡ £ Ó 1ò ÑØ--/Ø -Ñ 'Ý Ú eii¨Õ /ð1ô 2à Ü gÑ&Ü Ó&ÙØ á Ü Ð5°g°Y¸lÐKÔ LÜ Ó(ò DAqØI~ÝÜ59¸!µW¼dÀ7½mðMô Nà IaLñ ð ð& Ðr( c óÎ t s| S t | t « r | D cg c] }t ||dz |¬« }}|S t | « t | d| d dd« | t | « }|Md| v rI| d }t |j « « D ]( }|| }d|v s |d }d |v s|d } | |v s!|| |d < * | d
|
D
|
cg c] }
|
t |
|
|dz |¬« } }
|
| | d
|
< | S c c}w c c}
|
w ) Nr )Útabr_ úBlock: rq r¹ r r0 ro rI r/ )r rë rv Ú
|
postcrack2rX r2 rc rw ) r1 re r_ ÚgÚretr0 rª ÚvarrI ÚvalÚbÚnew_bodys r) rg rg Ò s/ õ Ø Ü%Ô à ö Øô ! t¡°yÖAð ð à
|
ÜÔÜ se75 =/¨Ð ,¨aÔ0àÐÜ% eÓ, àÐ ¨5¡ ØV}ÜdiikÓ"ò 6AØq'CØ Ò$Ø>Ñ*ØT>Ø v,CØiÒ'Ø'0°¡~V ð 6ð v ö(Øô 1 #¨¡*¸ ÖBð (Hð (à E&Mà Lùò/ ùò&(s C Â<C"c ó t | t « rYg }g }| D ]K }t |« t ||dz ¬« }d|v rd|d v r|j |« ;|j |« M ||z S t | « t | t
|
« sd| vrt dt | « z « d| v r | d dk( st | d| d d d
|
« t | « } t | « } t | « | d < t | d « | d < | j d « r| d }t | ||¬« | d< g }d| v r:| d }t |j « « D ] }d|v s|j |« ni }d} d| v r| d } | j d« rKg }
|
d| v r| d }
|
t! j | d « } | r| dz } nd} | |v r!d} | d| |v r| dz } | d| |v r| d| } dg i | dz d}| d D ]² }||
|
v rg }d}| d D ]l }|dz }|d dk( sd} |d D ]1 }| dz } d|v s |d |k( st! j |« }|d | = n |sO|d s| d |= |
|
|
|
j# |« = n |d j |« || v st% | | « r¨| | |d |< ´ |d s|d r+|
|
| d< d|gi | | d d }i || < t& j |« |r|| d< | S ) zi
|
TODO:
|
function return values
|
determine expression types if in argument list
|
r ©re rq rµ r1 z0postcrack: Expected block dictionary instead of r¥ rf r¹ r r0 Úsortvarsr5 r/ r r
|
r3 r4 Ú__user__routinesÚunknown__user__routinesr rð r¢ Ú_user_interface)r1 r/ r0 rq r r )r1 r/ r0 rq r4 )rë rv rX Ú postcrackr) ÚdictrÆ r r2 Ú analyzeargsÚ analyzecommonÚ analyzevarsÚ sortvarnamesr Ú analyzebodyrw rÐ r[ Ú
|
isexternalr )r1 r5 re ÚgretÚuretrh Ú userisdefinedÚuseblockr~ rq r4 rb Úmnamerù r¢ r» ÚedefÚjrl ÚbbÚmblocks r) rt rt ò s ô %Ô ØØØò AÜ NÜ! t¡Ô,Aà{z¨Q¨v©YÑ 6Ø Aà Að ð d{ÐÜÔÜ eTÔ " w°eÑ';ÜÐJÜE
|
ñ#ó $ð $à u V}Ð0CÒ CÜ3%wu V}o¨RÐ0°!Ô4Ü Ó EÜ %Ó EÜ Ó&E&MÜ$ U¨6¡]Ó3E*ÑØ yyÔØV}Ü t°Ô5E&MàMØ ~Ø<ÜhmmoÓ&ò (AØQØ ×$Ñ$ QÕ'ñ (ð Ø DØ ØV}à yyÕ Ø
|
Ø 5Ñ Ø |Ñ,JÜ % -Ó(Ù ØÐ-Ñ-Eà-EØ MÑ !ØAØG1QC. MÑ1ØEð G1QC. MÒ1à gQqcNEØ )°2Ø ¨Ð0AÑ)AñC à{Ñ#ò 0AØJØØØ v ò "AØAAØz [Ó0Ø Ø"# F¡)ò &BØ ! A¡AØ %¨|°°6±
|
¸a³Ü'+§y¡y°£} Ø$% f¡I¨a LÙ %ð &ò Ø#$ V¢9Ø$)¨&¡M°!Ð$4Ø *¨:×+;Ñ+;¸AÓ+>Ð ?Ù !ð "ð &Ñ!×(Ñ(¨Õ.Øe¤J¨u°Q©xÕ$8Ø',¨Q¡x &Ñ! !Ò$ð+ 0ð, VÒ ¨&Ò 1Ø",E,Ñ Ø .Øð9Ø$&°ÀUÈ;ÑEWñYFà HUOÜ × Ñ vÔ &ÙØ e Ø Lr( c óÐ g }g }t | j « « D ]4 }d| | v r| | d r|j |« $|j |« 6 t |« }d}|r|d }d}|dd D ] }|| | d v sd} n |r;|dd |gz }|dz }||kD rKt ddj |« z dz « ||z } |S |j |« |dd }t |« }d}|r|S )Nru r r zTsortvarnames: failed to compute dependencies because of cyclic dependencies between r r¹ )rv rw r) rX ro rÛ )r0 ÚindepÚdeprÿ rª rù r^ Úws r) ry ry Q s4 Ø EØ
|
CÜ $))+Ó ò Ø tAwÑ 4¨¡7¨8Ò#4Ø JJqMà LLOð ô
|
CAØ AÙ
|
Ø FØ ØQRò AØDGHÑ%Ò%ØÙð ñ Øab'QC-CØAAØ1uÜð ;à )) C.ñ)à+/ñ0ô 1ð Øð Lð LLOØab'CÜCAØAò) ð* Lr( c ó¦ t | « s| S g }t | d j « « D ] }g }| d | D ]m }t j d|t j
|
« }|r g }|j d« rDt |j d« « j d« D cg c] }|j « }}t |j d« j « « }|| d v rXd| d | v r.| d | d j dd j |« d
|
« nIdd j |« d
|
g| d | d< n)|r ddd j |« d
|
gi| d |< ni | d |< ||vr&|j |« n|}t d | d | d « |j |« p || d |< d| vr|| d< | S | d |z | d< | S c c}w )Nr z2\A\s*\b(?P<name>.*?)\b\s*(\((?P<dims>.*?)\)|)\s*\ZÚdimsr% rq r0 rn r7 r& r7 z:analyzecommon: failed to extract "<name>[(<dims>)]" from "z " in common /z/.
|
Ú
|
commonvars)Ú hascommonrv rw r¾ rÒ rÀ rÓ r' r( r¦ rr r) rÛ ro ) r1 r r~ Úcomvarsr» ró r rï rª s r) rw rw s s$ Ü UÔ Ø ØJÜ %/×&Ñ&Ó(Ó )ó %ØØx Ñ#ó AÜØEÀqÌ"Ï$É$óPAâØØ776?ä%3°A·G±G¸F³OÓ%D×%JÑ%JÈ5Ó%Qö SØ !ð GGIð SDð Sä qww v× 4Ñ 4Ó 6Ó7Øf Ñ%Ø! U¨6¡]°1Ñ%5Ñ5Ø f aÑ(¨Ñ4×;Ñ;Ø (¨¯©°$« Ð(8¸Ð :õ<ð )¨¯©°$« Ð(8¸Ð :ð8<f aÑ(¨Ò4áà" z°#·(±(¸4³.Ð1AÀÐ%CÐ$Dð(FE&M !Ò$ð (*E&M !Ñ$ØJÑ&Ø ×%Ñ% aÕ(àÜØPÐQRÐPSÐS`ÐabÐ`cÐcgÐhôjà NN1Ö ð7 ð8 %hÓð= %ð> 5Ñ Ø (lÑð Lð $ LÑ 1°JÑ >lÑØ Lùò7 Ss Â$Gc ó¬ t | « | d j « D ci c] \ }}d|vsd|d vr|| }}}g }| d D ] }| |d< |d dv rl||d |vr|d }|d |j « v rt j |d « |d t v rXt
|
r |d t
|
vrjt |d
|
d ¬ « |d < n|}t |||dz ¬« }|d dv r|d s|j d« sd|vr±|d j dd« dk( rt j |« ß|d dk( r|d t |d < |j |« |S c c}}w )Nr0 rn r r/ rZ r1 r« rq r5 z
|
T©Ú as_interfaceÚsaved_interfacer ro r£ r· r r r
|
Ú pythonmoduler¤ ) rX rK rw r# r) r$ Úcrack2fortrangenrt r rÐ r r ) r1 r5 re Úkeyr Ú maybe_privater/ rl Úas_s r) rz rz s ô Ôð -×-Ñ-Ó/÷á CØ UÑ " h°e¸JÑ6GÑ&Gð U
|
ðMñ ð DØ 6]ó Ø !.ÑØ W:Ð3Ñ 3ØÐ A f¡I°TÑ$9ØàiàyM× .Ñ .Ó 0Ñ0Ü× Ñ 6¡Ô+ØyIÑ%ØÝQvY¬iÑ 7ØÜ#3Ø>°ô$6AÐ Ò ð CÜ a #¨¡*Ô -Ø W:Ð<Ñ <Øy §¡ Ô!7Ø!¨Ñ*ØØ W:× Ñ c 2Ó &¨.Ò 8Ü × Ñ qÕ !àzXÒ%Ø+,¨V©9 a iÑ(Ø KKNð; ð< KùóKs ¢Ec ó> t | « t }i }d| v r| d *d }t dkD rt dt | d « d« ||fS t | d j « « D ]5 }| d | j d« dvr | d | ||< (| d | d ||< 7 ||fS )Nr r z2buildimplicitrules: no implicit rules for routine rq r8 r4 )rJ rN )rX Údefaultimplicitrulesr r2 rÎ rv rw r )r1 Ú implicitrulesÚ attrrulesr~ s r) Úbuildimplicitrulesr Ê sÞ ÜÔÜ(MØIØUÑØ Ñ Ð $Ø MÜ{ÜØHÌÈeÐTZÉmÓI\ÐH]Ð]`Ðaôcð )Ð #Ð#ô %
|
Ñ+×0Ñ0Ó2Ó3ò DØÑ$ QÑ'×+Ñ+¨JÓ7Ð?VÑVØ',¨ZÑ'8¸Ñ';M !Ò$à#(¨Ñ#4°QÑ#7¸
|
Ñ#CIaLð Dð
|
)Ð #Ð#r( c ój t | ||« }t |« t t fv r|S t d|« )z2 Like `eval` but returns only integers and floats zr=)rÛ rh r8 r: rÖ )r» rh rë r s r) Úmyevalr Ý s5 ä Q1 AÜ Aw3,Ñ ØÜ
|
r!ZÓ
|
Ð r( z \A\b\w+\b\Zc óÌ t t | i i « « }d|dfS # t $ r Y nw xY wt j | « rdd| fS t | « }|D ] }t |« |kD rt j d|z dz | « r0t j d|z dz t j « }|j | « }|sn |j | « }|r<|j d« d d d
|
|j d « }|j |« }|r<t i i « } |j | « }|r<|j d« d d d
|
|j d « }|j |« }|r<t |i i « | z
|
}
|
|j | « }|r<|j d« d d d
|
|j d « }|j |« }|r<t |i i « }|j | « }|r<|j d« d d d
|
|j d « }|j |« }|r<t |i i « } |
|
d z | z |k( r|
|
d z | z | k( r|
|
| |fc S y# t $ r Y yw xY w y)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')
|
r Nr z\w\s*\([^)]*\bú\bú(?P<before>.*?)\bú\b(?P<after>.*)r r6 r7 r g à?g ø?)NNN) r8 r rÆ Úgetlincoef_re_1rÒ rX r¾ r r¿ rÀ rÓ ) r» Úxsetr³ Úlen_erï r` ró ra Úeerl r+ Úc2s r) Ú
|
getlincoefr§ è s ð* Ü q"bÓ!Ó "Ø!TzÐøÜ ò Ù ð úä× Ñ QÔ Ø!QwÜ FEØ ó #Ü q6E>Ø Ü 99Ð&¨Ñ*¨UÑ2°AÔ 6à ÜzzÐ.°Ñ2Ð5GÑGÌÏÉÓNØ JJqMÚ ð ØZZ ]ÙØ HH XÓ .Ð/¨q°°°1°R·X±X¸gÓ5FÐ4GÐHBØ B Bò ô 2r 2Ó&ØZZ ]ÙØ HH XÓ .Ð/¨q°°°1°R·X±X¸gÓ5FÐ4GÐHBØ B Bò ô 2r 2Ó&¨Ñ*ØZZ ]ÙØ HH XÓ .Ð/¨q°°°Q°r·x±xÀÓ7HÐ6IÐJBØ B Bò ô 2r 2Ó&àZZ ]ÙØ HH XÓ .Ð/¨q°°°Q°r·x±xÀÓ7HÐ6IÐJBØ B Bò ô B BÓ'ØGaK 1Ò$¨¨S©°1©¸Ò):Ø a 7Nð Ø øô ò ØØ Ø ð úðC#ðH s: )¨)ÃAIÄAIÅ-A IÇ AIÈ('IÉ I!É I!z\b[a-z][\w$]*\bc ó° | |v r²|| j dg « }d|| v rOt || « sAt j || d « D ]# }||vs||v s || k7 s|j |« % |d d D ]> }|j |g « xs t |||« D ] }||vs|j |« @ nt dt | « d« g }||| < |S )Nru rq z)_get_depend_dict: no dependence info for r¹ )r ÚisstringÚ word_patternrç r) Ú_get_depend_dictr2 rÎ )rq r0 ÚdepsÚwordsÚwordr s r) r« r« / sõ Ø t|ØT
|
x¨Ó,à $t*Ñ ¤X¨d°4©jÔ%9Ü$×,Ñ,¨T°$©Z¸©_Ó=ò 'ð uÒ$¨°ª ¸$À$»,ØLL Õ&ð 'ð
|
!Hò $DØXXd BÓ'ò :Ü'¨¨d°DÓ9ò $àE>ØLL Oñ $ñ $ô Ð;¼DÀ»J¸<ÀrÐJÔKØØDJØ Lr( c ód t | j « « }i }|D ] }t || |« |S r, )rv rw r« )r0 ru Ú depend_dictrª s r) Ú_calc_depend_dictr± E s8 Ü Ó EØKØ ò /ÜD +Õ.ð/à Ðr( c óv t | « }g }t |j « « D ] }|| r |j |« ||= |rTt |j « « D ]5 \ }}|D cg c] }||v s| }}|s|j |« ||= 1|||< 7 |rT|D cg c] }|| v s| c}S c c}w c c}w r, )r± rv rw r) rK )r0 r° ru rq Úlstrª Únew_lsts r) Úget_sorted_namesrµ M sÓ Ü# DÓ)KØ EÜ[×%Ñ%Ó'Ó(ò "Ø4Ó Ø LLÔ ØDÑ!ð"ñ Ü k× /Ñ /Ó 1Ó2ò ,ID#Ø"%Ö:Q¨¨kÒ)9qÐ:GÐ:ÙØ TÔ"Ø Ñ%à$+ DÒ!ð ,ò ð #Ö 3T d¨d¢lDÒ 3Ð3ùò ;ùò 4s Á+ B1Á5B1 B6Â*B6c ó | d dv r| dd } t j | « ryt j | « ryd| z dz S ) Nr ú'"r r é é zkind(r7 )rÙ rÒ Ú real8pattern)rc s r) Ú
|
_kind_funcr» _ sK à ayEÑØ" Ü×Ñ6Ô"ØÜ × Ñ FÔ #ØØ VÑ cÑ !Ð!r( c óP d| z }|dk ry|dk ry|dk ry|dk ry |dd
|
z k ry y ) Nr® é r i r2 l r¹ l r¸ é é r r' )r ró s r) Ú_selected_int_kind_funcrÀ j sD à
|
aAØF{ØØG|ØØG|ØØG|ØØAH}ØØ r( c ó¨ | dk ry| dk ryt j « j « }|j d« r| dk ryy | dk ry| dk ryy )
|
Né r¹ r¿ r¸ )
|
Úaarch64ÚalphaÚarm64Ú loongarchÚmipsÚpowerÚppcÚriscvÚs390xÚsparcé! é r® r )ÚplatformÚmachiner¡ r )Úpr ÚradixrÐ s r) Ú_selected_real_kind_funcrÓ z sf ð 1uØØ2vØÜ× Ñ Ó ×&Ñ&Ó(GØ×ÑÐwÔxØ 7Øð
|
ð
|
RØØ
|
bØØ r( c óB t j |« }t j |« }dt fdt fdt ffD ] \ }}||vs |||< g }t | « D ]& }d| | v s d| | d v s|j |« ( t j dt j « }t j dt j « } t j dt j « }
|
|D ]ñ }d | | v rÉ| | d } t | | « r&| j « } d
|
D ] } | j | } |j d | « } | j d | « } d } d| | v rAd| | d v r7t | « }| j d| | d d z d« } t | « |k } | ss|
|
j | « sb| j d« }t |« dkD rCdj! |d d « j « j |d j « d« } t# | | « rt% | « }t& j) | « D ]i }t% | |j+ « |j- « j « j dd« « ||j+ « |j- « k dj! |« } n t/ | | « rt1 d| d« | | d D cg c]2 }|j3 d« r |j5 d« j7 « 4 c}xs d gd }t& j9 | « rd} nt: j9 | « rd} t= | |||¬« ||< tA | | « r$tC || tD « rtG || « ||< |j « }||k7 sË|| ||< ÕtI | | « t1 d |d « ô |S c c}w # t> $ r!}| ||< t1 d | d |d« Y d }~d }~ww xY w) NrI Úselected_int_kindÚselected_real_kindrn r z \bkind\s*\(\s*(?P<value>.*)\s*\)z-\bselected_int_kind\s*\(\s*(?P<value>.*)\s*\)z4\bselected_(int|real)_kind\s*\(\s*(?P<value>.*)\s*\)rq ))z.false.ÚFalse)z.true.ÚTruez
|
kind("\1")zselected_int_kind(\1)Fro rð r
|
r r r# r» zAget_parameters[TODO]: implement evaluation of complex expression r¹ r r r¸ r¹ )Údimspeczget_parameters: got "ú" on zget_parameters:parameter z does not have value?!
|
)%rÐ r» rÀ rÓ rµ r) r¾ r¿ rÀ Ú islogicalr¡ rÐ ÚsubrX rÒ r( rÛ Úisdoublerv rÙ rÚ r rý Ú iscomplexr2 r rã r¦ r rº Ú
|
param_evalrÆ r© rë r8 râ r )r0 Ú global_paramsr Úg_paramsrq ÚfuncÚ param_namesrª Úkind_reÚselected_int_kind_reÚselected_kind_rerÿ ÚreplÚ is_replacedÚ
|
orig_v_lenÚv_rþ ró r; rÙ rì Únls r) r× r× s0 Ü YY}Ó %FÜyy Ó'HØ ¤
|
Ð+Ø+Ô-DÐEØ,Ô.FÐGðKò "
|
dð xÒ Ø !HTNð "ð
|
KÜ dÓ #ò "Ø aÒ [°D¸±G¸JÑ4GÒ%GØ × Ñ qÕ !ð"ô jjÐ<¼b¿d¹dÓCGÜ ::Ø8¼"¿$¹$ó @ÐäzzØ?ÄÇÁóGÐà ó POØ $q'>ØQ AÜaÔ!ØGGIð ò )Dð
|
" 4Ð(Að )ð M¨1Ó-AØ$×(Ñ(Ð)AÀ1ÓEAð Kà a¡Ñ(ð T !W ^Ñ 4Ñ4Ü!$ Q£JØ #¨¨Q©°Ñ(?ÀÑ(GÑ"GÈÓLAô #& a£&¨:Ñ"5Ká Ø'×-Ñ-¨aÔ0Ø Bä2w {Ø GG B s¨ GÓ ,× 2Ñ 2Ó 4× <Ñ <¸RÀ¹V¿\¹\»^ÈRÓ Pô QÔ Ü!WÜ&×/Ñ/°Ó2ò HAÜ,0Ø!'') A§E¡E£GÐ,×2Ñ2Ó4×<Ñ<¸SÀ#ÓFó-HBqwwy §¡£Ñ)ðHð GGBKä4 7Ô#Üð FØFGÀSÈðLô Mð "& a¡¨Ñ!4ö5Ø Ø,, {Ô3ð {Ó3×9Ñ9Õ;ò 5ò ?à9=¸ÀñCGô ×#Ñ# AÔ&ØÜ ×$Ñ$ QÔ'Øð CÜ & q¨(°FÀGÔ Lq ô
|
QÔ ¤Z°°q± ¼3Ô%?Ü q¡ Nq ØBØQwØ # AYr
|
ä $q'NÜ Ð/°¨uÐ4LÐMÖ NðaPOðb Mùò15øô ò CØ q ÜÐ/°¨u°E¸!¸¸bÐA×BÑBûð Cús Ë67O/Í(O4Ï4 P Ï=PÐP c ó$ | dv ryt | |« S )N)z(:)ú(*)r rí )Ú _eval_scalar)Úlengthr s r) Ú _eval_lengthrð ñ s Ø Ð$Ñ$ØÜ Ó 'Ð'r( z\d+_c óX t | « r| j d« d } t | i |« } t | t « rt
|
nt | « } | S # t t t f$ r | cY S t $ r7}t d|d| dt |j « « d« Y d }~| S d }~ww xY w)Nrð r r* z" in evaluating z (available names: r± ) Ú_is_kind_numberr( rÛ rë r rÎ rÝ rÜ rÞ rÆ ro rv rw )r r rì s r) rî rî ú s ÜuÔ Ø CÓ Ñ#ð 5äUB Ó'Ø8 E¬3Ô/´S¸%Ó@ð Løô {¤IÐ .ò Ø Ü ò 5Ýât F§K¡K£MÕ 2ð4÷ 5ð 5ð Lûð 5ús ¡/A ÁB)Á*B)Á2,B$Â$B)c ó @A t | « t | « \ }}t j | d « }| d dk( r| d |vri || d < d| d v rj|d= d| d d v r]| d d d }t |« | d D ch c] }|d c}z D ]- }dD ]& }||v st |j |i « |« ||< ( / g }| d } | D ] }
|
||
|
|j |
|
« t |j « « D ] }|| vs|j |« t |t | « « } i } t j d
|
« j } t |j « « D ]4 } | |« }|s||j « |j! « } | | 6 |D
|
]U }|d t |j « « v rt || ||d « ||< d || vr¹d|| v r
|
d|| d v s¨|r|d j% « }t || j « « D ]N }|d k( r || | dk( r||| vr|| | || |< *|dk( s0|| | D ] }t || |« ||< P n%|| d v r t' dt) |« d| d d« d|| v r7d|| d v r-|| d d } t+ t- |i | « « }||| d d< d|| v r7d|| d v r-|| d d } t+ t- |i | « « }||| d d< i }d|| v r£|| d }|j1 « g || d< d\ }}}}}|D ]m }
|
|
|
dd dk( r|
|
dd j3 « dd }n|
|
dd d k( r|
|
d d j3 « dd }no|
|
dd d k( r|
|
d d j3 « dd }nP|
|
dd d!k( r|
|
d d j3 « dd }n1|
|
dd" d#k( r|
|
d"d j3 « dd }nt || |
|
« ||< |rd || vrg || d < t5 |« j7 d$« D cg c] }|j3 « c}D ]6 }|j9 d%d« }||| d vs || d j |« 8 d}|rN|j9 d&d'« }|j9 d(d)« }d#|| vr
|
|g|| d#< n|| d# j |« d}|wd || vrg || d < t; t5 |« j7 d$« D cg c] }|j3 « c}« D ]$ }||| d vs|| d j |« & d}| d!|| vrg || d!< t5 |« j7 d$« D cg c] }|j3 « c}D ]$ }||| d! vs|| d! j |« & d}p |rd|| vrýg || d< t; t5 |« j7 d$« D cg c] }|j3 « c}« D ]² } t= | | « } | d+k( rd+nd,} | | k( r| g} nt5 | d+« j7 d-« } tC | « d.k( r d,| v rd,g} d,} tC | « dk( r| d | k7 rd/| d g} tC | « d.k( rtE tF jH jJ | « \ } } | | z
|
dz }!|!jM tF jN jP ¬0« } i }"| d D ]³ }tG jR |« }#|!jU |#« s* |!jW |#« \ }
|
}|
|
|fd1}$t |
|
jY « « }%|%j[ |jY « « |%D #ch c] }#|#j^ |v r |#j^ }'}#|$t |'« f|"|< µ |"|| < || d j | « µ d!|| vr\d | v rW|| d v rO|| j d g « }(g }) ta tb td tf « || « }*ti || « rntk || d « D ]X \ }+} |j | « @@ni|*rf@jm « D ]R \ }\ },}-@Afd2At « }. A||.« ||(v sd3|| v sd || v r6|,||.vr|d4}/ |,tG jR d5| d6|+ d7« « }0|0jM tF jN jP ¬0« }0|0|| d3< |g|-z || d < d!|| vrpd5| d6|+ d8| g|| d!< n]d9}/d || vrg || d < d:|| d vr|| d j d:« |(j |« |)j d5| d6|+ d8| « || j dg « }1d;|1v sd<|1v s|1j |/rd<nd;« |1sK|1|| d< U @@jm « D ]½ \ }\ },}-|| j d g « }'|| j dg « D ]V }2|2jo d « sdjq |2j7 « « }2|'js |2d=d j7 d>« « X |'rt t |'« « || d < ||'vs|(j |« ¿ [ nstu || « red|| v r^d,|| d v r!tw || d d, | « }3|3|| d d,< n3d|| d v r)tw || d d | « }3|| d d= |3|| d d,< |)r|)|| d!< |(rt t |(« « || d < d3|| v s d|| vrg || d< d;|| d vr!d<|| d vr|| d j d;« d || vr]g || d < t | jm « « D ]+ \ }} ||| d3 « s|| d j |« - || d s|| d = ty || « s
|
>t{ || d3 | « || d3<
|
X t |j « « D ]s }|| d k( s d#|| v r || d# | d#< | d dk( s(d?| v r | d? |v rt} || || d? « ||< d@| v sP| d@ }4|4j9 dAd« }5|4|5k( }6|5j9 dBd« }4|4|5k( }7t~ d j |4« }|rºt |j dC« |j dD« « \ }8}9}}:t
|8|9« \ };}<}=|8|| d < | d? r |8|| d? d < |;r d|;v r t- |;d i | « |;d< |;|| d< |<r|<|| d< |=r|=|| dE< |6rt || dA« ||< |7sEt || dB« ||< Yt' dFt) | d@ « dG« v | d dHvr¨dI| v r t j | d | dI z « }>nt j | d « }>t |j « « D ]1 } ta t t « || « s!|>j |« 3 dJ| v ro|>js t | dJ j « « « t | dJ j « « D ]% }| dJ | D ] }||>vs|>j |« ' | d dk( r-d?| v r|>j | d? « n|>j | d « | d dKv r| d }?|?|v rd ||? v r ||? d | d < | d dLk( r(|>js t |j « « « t |j « « D ]
|
}||>vs||= |S c c}w # t $ r Y w xY w# t $ r8 t j d |z t j" « j | |< Y )w xY w# t. $ r Y Ów xY w# t. $ r Y ¥w xY wc c}w c c}w c c}w c c}w # t> t@ t f$ r t' d*| d)« Y Ðw xY w# t\ $ r&}&d}$t |!jY « « }%Y d}&~&±d}&~&ww xY wc c}#w # t. $ r Y ,w xY w# t. $ r Y "w xY w)MzH
|
Sets correct dimension information for each variable/parameter
|
r0 r1 rú rq r
|
rn r/ r± r5 z[A-Za-z][\w$]*z.*\b%s\br r4 r Ú undefinedz"analyzevars: typespec of variable z is not defined in routine r8 rp rX ro rI )NNNNNNr8 r r r r· r
|
ru r rt r¹ rs r% r z\n\nz
|
|
z\n r¹ z4analyzevars: could not parse dimension for variable r¦ r z@:@r2 Ú1)Úlanguagec ó | |z
|
|z S r, r' )r; r+ rl s r) Úsolve_vz analyzevars.<locals>.solve_v¶
|
s Ø01°A±¸©{Ð(:r( c ó| j | d g g« d D ]! }||vs|j |« ||« # y )Nr )r Úadd)rÿ r¬ Úv1Úcoeffs_and_depsÚ compute_depss r) rý z!analyzevars.<locals>.compute_depsä
|
sD ø Ø*9×*=Ñ*=¸aÀ$ÈÀÓ*LÈQÑ*Oò !? BØ')°¢~Ø(,¯©°¬ Ù(4°R¸Õ(>ñ!?r( rq Fzshape(r r7 z) == TÚinr r r r& r© r¨ ÚpureÚ recursiver9 r rr zanalyzevars: prefix (z) were not used
|
)r¤ r r r r r )rü rú rh )ErX r rÐ r rx r r) ÚKeyErrorrv rw r× rc r¾ r¿ rÒ r rý rÀ r¡ r2 rÎ r rÛ rÆ Úreverser¦ r' r( rÐ rw Ú param_parserÖ rè rX rÌ r ÚExprÚparseÚtostringÚLanguager´ Ú as_symbolr Ú linear_solveÚsymbolsr\ Ú RuntimeErrorr Úl_orÚ isintent_inÚisintent_inoutÚisintent_inplaceÚisarrayrä rK r rÛ rê r© rð Úisscalarrî r rO rÓ rÓ rà Úisintent_callbackÚ isintent_aux)Br1 r r r0 Úgenrl rª r~ Úsvarsr5 r+ r Ú dep_matchesÚ
|
name_matchrÿ ró Úln0rë Údimension_exprsrö Údimr
|
ru rt rs rï r³ Útmpr# Údim_charr rA Úd2ÚdsizeÚsolver_and_depsr; rø Ú all_symbolsrì Úv_depsÚn_depsÚn_checksÚ
|
n_is_inputrù Úsolverr¬ Úall_depsÚ is_requiredr4 Úv_attrÚaarï ÚprÚpr1ÚispureÚisrecr4 rõ r÷ r r rr Ú
|
neededvarsrq rü rý sB @@r) rx rx
|
|
sé ù ô ÔÜ 1°%Ó 8Ñ M9Ü 99U6]Ó #DØ W~Ò#¨¨f© ¸TÑ(AØ U6]ÑØ U6]ÑØ HØ v rÑ*Ñ *Ø- Ñ# JÑ/CÜY°U¸6±]Ö!C° ! F£)Ò!CÑCò BØ.ò BAØCxÜ"-¨d¯h©h°q¸"«o¸qÓ"AQñBð Bð EØ =DØ ò ð Ø GØ LLOðô $))+Ó ò Ø D=Ø LLOð ô DÔ"3°EÓ":Ó ;Fð KÜÐ -Ó.×4Ñ4JÜ $))+Ó ò KÙ qMÚ Ø!'')AEEGÐ$Að KØAð Kð ó MBØ Q44 Ó(Ó)Ñ )Ü! $ q¡'¨9°Q°q±T©?Ó;DGØ T !WÑ $Ø $ q¡'Ñ)¨j¸DÀ¹GÀJÑ<OÑ.OÙ ØA$**,CÜ ! -°Ñ"4×"9Ñ"9Ó";Ó <ò BØ
|
?¨}¸SÑ/AÀ!Ñ/DÈ Ò/SØ $Ø D¨¡GÑ+Ø)6°sÑ);¸AÑ)>D G AJØ *_Ø%2°3Ñ%7¸Ñ%:ò B Ü*5°d¸1±g¸qÓ*A Q¢ñ Bñ Bð % -Ñ'ÝÜ Q v£ ð 0ô 1à T !WÑ $ØQ Ñ/Ñ/ØGNÑ+¨EÑ2ðÜD B¨Ó /Ó0Að 23QÑ'¨Ñ.à T !WÑ $Øa Ñ0Ñ0ØGNÑ+¨FÑ3ðÜD B¨Ó /Ó0Að 34QÑ'¨Ñ/à Ø aÒ Ø7:Ñ&DØ LLNØ"$DGJÑ Ø/KÑ ,C ¨Øó + !ØRa5KÒ'Ø QR5;;=¨!¨BÐ/CØrUhÒ&Ø ekkm¨Q¨rÐ 2FØrUhÒ&Ø ekkm¨Q¨rÐ 2FØrUgÒ%Ø qrU[[]¨A¨bÐ 1EØrUf_Ø abEKKM¨1¨RÐ0Dä )¨$¨q©'°1Ó 5DGÙØ t¨A¡wÑ.Ø,.Q Ñ)Ü1?ÀÓ1G×1MÑ1MÈeÓ1TÖ U¨AaggiÒ Uò :à ii¨¨RÓ 0Ø d¨1¡g¨hÑ&7Ò7Ø G HÑ -× 4Ñ 4°SÕ 9ð :ð
|
"FÙØ <<¨°&Ó9DØ <<¨°Ó5DØ T¨!¡WÑ,Ø+/¨&Q à Q ×.Ñ.¨tÔ4Ø DØÐ%Ø t¨A¡wÑ.Ø,.Q Ñ)Ü &¼>È&Ó;Q×;WÑ;WÐX]Ó;^Ö'_°a¨¯© Ò'_Ó `ò 8Ø D¨¡G¨HÑ$5Ò5Ø G HÑ -× 4Ñ 4°QÕ 7ð8ð "FØÒ$Ø d¨1¡gÑ-Ø+-Q Ñ(Ü1?ÀÓ1F×1LÑ1LÈUÓ1SÖ T¨AaggiÒ Tò 7Ø D¨¡G¨GÑ$4Ò4Ø G GÑ ,× 3Ñ 3°AÕ 6ð7ð !EðW+ !òX {¨$¨q©'Ò1Ø')Q Ñ$Ü"Ü,:¸3Ó,?×,EÑ,EÀeÓ,LÖM qÒMóó ?3Að
|
ô (¨¨6Ó 2ð '(¨3¢hs°CHØH}Ø &Zä +¨A¨sÓ 3× 9Ñ 9¸%Ó @Ü2w !|¨¨r© Ø !UØ Ü2w !|¨¨1©°Ò(9Ø ! 2 a¡5\Ü2w !|Ü!$¤X§]¡]×%8Ñ%8¸"Ó!=BØ " R¡¨!¡ Ø !NN´H×4EÑ4E×4GÑ4GNÓ Hð +-Ø!& v¡ ò KAÜ (× 2Ñ 2°1Ó 5AØ $~~¨aÕ 0ð!GØ+0×+=Ñ+=¸aÓ+@¡D A qà56¸!ó %;ô 36°a·i±i³kÓ2B KØ$/×$6Ñ$6°q·y±y³{Ô$Cð 5@ö*7Ø/0Ø'(§v¡v°¡~ð %&§F£Fð*7 ð *7ð 6=¼dÀ6»lÐ5J °Ò 2ð-Kð: .=¨Ñ*ØGKÑ(×/Ñ/°Ö2ð?3ðB $q'Ò ! f°¢o¸!¸uÀV¹}Ò:Lð
|
!W[[ ¨2Ó.FØHð0k¬>Ü .ó0Ø04°Q±ó9JätAwÕ Ü % d¨1¡g¨kÑ&:Ó ;ó K1DAqØ&5×&9Ñ&9¸!Ó&<OØ&Ð.á Ú#ð 2A×1FÑ1FÓ1Hó 6=Ñ -A~ ¨õ ?ô
|
(+£uHÙ (¨¨HÔ 5Ø ! V¡ Ø$'¨4°©7¡NØ$,°°Q±Ñ$7ð
|
!)Ø %Ð 1°a¸xÑ6Gð /4 Ù'-¬h×.@Ñ.@Ø&,¨Q¨C¨r°!°°AÐ$6ó/8ó (9 à'+§}¡}Ü-5×->Ñ->×-@Ñ-@ð (5ó (B à/3 Q¡¨¡ ð 67°C¸$±J Q¡¨Ñ 1Ø#*°$°q±'Ñ#9ð +1°°°2°a°S¸¸a¸SÐ(Að8C D¨¡G¨GÒ$4ð /3 Ø#+°4¸±7Ñ#:Ø8: D¨¡G¨HÑ$5Ø#'¨t°A©w°xÑ/@Ñ#@Ø$(¨¡G¨HÑ$5×$<Ñ$<¸TÔ$Bà &§ ¡ ¨aÔ 0Ø (§¡Ø&,¨Q¨C¨r°!°°E¸!¸Ð$=ô!?à%)¨!¡W§[¡[°¸RÓ%@FØ$.°&Ñ$8Ø'1°VÑ';Ø &§ ¡ Ù2=¡JÀ:ô!Oã %Ø6< Q¡¨
|
Ó 3ðm6=ðn 'Ò2à1@×1FÑ1FÓ1Hò 1Ñ -A~ ¨Ø%)¨!¡W§[¡[°¸2Ó%>FØ&*¨1¡g§k¡k°*¸bÓ&Aò G Ø#%§=¡=°Õ#:Ø)+¯©°·±³Ó)< BØ$*§M¡M°"°Q°r°(·.±.ÀÓ2EÕ$Fð Gñ &Ü48¼¸V»Ó4E Q¡¨Ñ 1Ø ¨Ø &§ ¡ ¨aÕ 0ò 1ñEK1ôX $q'Ô"Ø! T¨!¡WÑ,Ød 1g nÑ 5Ñ5Ü!-¨d°1©g°nÑ.EÀcÑ.JØ.4ó"6à7=Q Ñ/°Ò4Ø $ q¡'¨.Ñ"9Ñ9Ü!-¨d°1©g°nÑ.EÀeÑ.LØ.4ó"6à G NÑ 3°EÐ :Ø7=Q Ñ/°Ñ4ÙØ#+QÑ ÙÜ$(¬¨V«Ó$5QÑ!à $q'>Ø a¡Ñ(Ø&(Q
|
Ñ#Ø $ q¡'¨*Ñ"5Ñ5Ø $ q¡'¨*Ñ"5Ñ5ØQ
|
Ñ#×*Ñ*¨:Ô6Øt AwÑ&Ø$&QÑ!Ü ×!2Ñ!2Ó!4Ó 5ò 4DAqÙa Ø Q Ñ)×0Ñ0°Õ3ð4ð AwxÒ(Ø Q Ð)ÜQÖ Ü +¨D°©G°C©L¸&Ó AQ ð[MBô^ $))+Ó ó +^Ø f Ó ØaÑ Ø $ Q¡¨¡f ØW~ Ó+ØuÑ$¨¨x© ¸DÑ)@Ü (¨¨a©°$°u¸X±Ñ2GÓ HDGØuÒ$Ø x BØ ** V¨RÓ0CØ"$¨¡)mFØ [°"Ó5BØ!# s¡]EÜ$ Q×-Ñ-¨bÓ1AÙÜ:HØ GG FO¨Q¯W©W°WÓ-=ó;?Ñ7 (¨D°%ä;HØ $ hó<0Ñ8
|
J°à.6Q
|
Ñ+ð!Ø $ XØDL U¨8¡_Ñ 5°jÑ Añ &Ø %¨Ñ 3ð!)Ü9=Ø(2°6Ñ(:¸BÀó:H J¨vÑ$6ð 7AD G NÑ 3Ù%Ø6@D G NÑ 3Ù#Ø2:D G JÑ /Ù!Ü&1°$°q±'¸6Ó&BD GÛ Ü&1°$°q±'¸;Ó&GD Gä Ø 3´D¸¸x¹ Ó4IÐ3JÐJ[Ð \ö^ðU+^ðX W~Ð VÒVØ 5Ñ Ü 5¨¡=°5¸ Ñ3FÑ#FÓGJä 5¨¡=Ó1JÜdiikÓ"ò %AØ4tÔ%¤|Ó4°T¸!±WÕ=Ø×!Ñ! !Õ$ð %ð eÑ Ø × Ñ d 5¨¡>×#6Ñ#6Ó#8Ó 9Ô :Ü% .×-Ñ-Ó/Ó0ò -Ø w ¨Ñ*ò -AØ
|
Ò*Ø"×)Ñ)¨!Õ,ñ-ð -ð >ZÒ 'Ø5Ñ Ø×!Ñ! %¨¡/Õ2à×!Ñ! %¨¡-Ô0Ø >Ð 7Ñ 7Ø=DØt| ¨D°©JÑ 6Ø"& t¡*¨XÑ"6hØ >VÒ #Ø × Ñ d 4§9¡9£;Ó /Ô 0ÜdiikÓ"ò AØ
|
Ò"ØGð ð Kùòi "Døô ò Ú ð ûô" ò KÜ!#§¡¨K¸1Ñ,=¼r¿t¹tÓ!D×!JÑ!J Að Kûô2 !ò Úðûô !ò Úðüò4 Vùò" (`ùò Uùò Nøô '¬
|
´HÐ=ò Ü ð (Ø() u¨Bð 0÷ðûôF (4ò !Gð /3 GÜ25°e·m±m³oÓ2F¦Kûð!Güò*7øôt )ò !Ú ð!ûô (1ò !)Ú$(ð!)úsÊ Á; |8à |=Æ} Ê4~Ë2~!Ð%~1Ó<~6 Õ2~;×,
|
Ø ÜA/Ý,!A@!
|
ó6A@&ô A@6ü= }
|
ý }
|
ý =~þ ~þ ~ þ ~ þ! ~.þ-~.ÿ#,ÿ+,ÿ/ A@ ÿ8A@ Á@A@ Á@& A@3Á@2A@3Á@6 AAÁAAAz\A[a-z]+[\w$]*\Zc óv | t | ||« }|S t |« dk s|ddt |« dz
|
dk7 rt d| d « |dd
|
j d « }t |« dk( r|d j d « }t |« dk( r(t |d |« }t dt |« dz « }nOt |d |« }t |d |« } t t |« t | « dz « }nt d| d« | j d« r| dd n| j d « } g }
|
| D ]! } t | ||« } |
|
j | « # t t ||
|
« « }|S # t $ r }| }t d| d| d« Y d}~|S d}~ww xY w# t $ r }t d| d| d« Y d}~ud}~ww xY w)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 "rÚ r¹ r2 r rh zparam_eval: dimension z can't be parsedr r& r r¦ z.param_eval: multidimensional array parameters z not supportedrÁ r ) rÛ rÆ r2 rX rÖ r( r rÁ r8 r r) ru Úzip) rÿ rá r rÙ rÑ rì ÚdimrangeÚboundÚlboundÚuboundÚv_evalÚitems r) rß rß sò ð& ð ;ÜQ &Ó)Að ô 7|aÒ7Ñ#5¤S¨£\°AÑ%5Ð#5Ñ6¸$Ò>ÜÐ1°'°Ð:KÐLÓMÐMØq}×"Ñ" 3Ó'HÜ
|
8}ÒàA;×$Ñ$ SÓ)ä x=AÒ Ü ¨¡ ¨VÓ4EÜ Q¤ E£
|
¨Q¡Ó/Hä ¨!¡¨fÓ5FÜ ¨!¡¨fÓ5FÜ S [¬#¨f«+¸©/Ó:HäÐIØ #9 Nð4ó 5ð 5ð LL Ô&1R¨A×4Ñ4°SÓ9AØ FØò ð >Üh¨Ó/Dð dÕð ô S6Ó "Ó#Aà HøôK ò ;ØAÜ Ð'¨ u¨E°!°°bÐ9× :Ð :Øûð ;ûô> ò >Ü Ð'¨ u¨E°$°¸Ð<× =Ñ =ûð >ús/ E( Ä1 FÅ( FÅ1F Æ FÆ F8Æ F3Æ3F8c ó d| v r`| d| j d« }| | j d« dz | j d« }t t ||« « }t || | « S | |v rt || « S |D ] }t j d|z dz t
|
j « }|j | « }|sA|j d« t || « z |j d« z } |j | « }|rF | S ) a Recursively 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
|
r6 Nr r7 r r¡ r r )
|
rÕ Úrfindr8 r r r¾ r¿ rÀ rÒ rÓ )r# r ÚdnameÚddimsr[ rÑ r` ró s r) r r Ò s ðr axà,166#;Ø!&&+ / !§'¡'¨#£,Ð/ô K vÓ.Ó/Ü6%= Ñ'Ó(Ð(Ø
|
fÜ6!9~Ð àò "AÜ::Ø$ qÑ(Ð+=Ñ=¼r¿t¹tóDð
|
|
1 AÚØGGHÓ%Üq Nñ#Ø%&§W¡W¨WÓ%5ñ6àJJqMó ð "ð r( c ó | }t j | « }|rt |« \ }}t | |d |« }d}| D ]< } | j « } | t
|
j t
|
j z vrd} || z }> |d dk( r|dz }n|dz }|} | |d v s| |d v r| dz } | |d v r | |d v r| |v r6d }
|
| t |
|
« z |v r|
|
d z }
|
| t |
|
« z |v r| t |
|
« z } |r
|
|d | < | S | |d vr|d j |i « |d | < d
|
|v r%||d
|
|d z v rt |d | d « |d | < | S ) Nr0 Úe_rð r r» Ú_er5 r r r3 r4 r ) Úanalyzeargs_re_1rÒ r rØ r¡ rc Úascii_lowercaseÚdigitsr r rx ) r+ r1 r5 Úorig_aÚ a_is_exprr r ÚatÚnar³ r~ s r) Ú expr2namerE " s© Ø FÜ$×*Ñ*¨1Ó-Ð-IÙÜ#5°eÓ#<Ñ yÜ q %¨¡-° Ó ?Ø Øò AØ AØ×.Ñ.´· ± Ñ>Ñ>ØØaBð ð
|
b6S=ØcBàdBØ Ø5=Ñ A¨¨v© Ñ$6ØCAð 5=Ò A¨¨v© Ò$6àDyØ Ø#a&jDÑ ØAAð #a&jDÒ à AJÙØ f aÑð Hð E&MÑ !Ø $ V}× 0Ñ 0°¸Ó <E&M!Ñ Ø %Ñ F¨e°KÑ.@À5È ÑCVÑ.VÑ$VÜ *¨5°©=¸Ñ+;¸ZÓ HE&M!Ñ Ø Hr( c óÒ t | « t | « \ }}d| vrg | d< g }| d D ] }t || |« }|j |« " || d< d| v r;t | d j « « D ] \ }}|D ] }|| d vs i | d |< | d D ]5 }|d |v s d| vrg | d< |d | d vs | d j |d « 7 d| v r| d | d vr i | d | d < | S )Nr5 r r0 r/ rq r3 r© )rX r rE r) rv rK )r1 r rð r5 r+ r~ Úargs1rl s r) rv rv D sG ÜÔÜ)¨%Ó0ÑM1Ø UÑØf Ø DØ 6]ò Ü a Ó %Ø Aðð E&MØ%ÑÜ U 7^× 1Ñ 1Ó 3Ó4ò *HAuØò *ØE &MÒ)Ø')E&M !Ò$ñ *ð *ð
|
6]ò 5Ø V9Ò Ø %Ñ'Ø%'kÑ"Øy kÑ 2Ò2ØkÑ"×)Ñ)¨!¨F©)Õ4ð 5ð 5ÑU 8_°E¸&±MÑ AØ)+f eHoÑ&Ø Lr( z\A\(.+?,.+?\)\Zz \A[+-]?\d+(_(?P<name>\w+)|)\Zz*\A[+-]?[\d.]+[-\d+de.]*(_(?P<name>\w+)|)\Zz
|
\A\(.*\)\Zz \A(?P<name>\w+)\s*\(.*?\)\s*\Zc óÆ t | t « rddiS t | t « rddiS t | t « rddiS t | t « r| S t t | « « )Nr4 r7 r5 r¼ )rë r8 r: r¼ ru ÚAssertionErrorrÎ )r s r) Ú_ensure_exprdictrJ g s_ Ü!SÔØIÐ&Ð&Ü!UÔØFÐ#Ð#Ü!WÔ ØIÐ&Ð&Ü!TÔØÜ
|
aÓ
|
!Ð!r( c ó | |v rt || « S | j « } t j | « rddiS t j | « }|r?d|j « v r)|j d« rt dt | « d« ddiS t j | « }|r?d|j « v r)|j d« rt dt | « d« ddiS dD ][ }t | |¬ « j d
|
|z d
|
z « D cg c] }|j « c}D ] }||v st || « c c S ] i }t j | « rt | d d ||« }ngt j | « }|rP|j d« }t |j d« ||« }|rd |v r|d = |s|d |v rt ||d « S | d dv rdddidS |st dt | « d« |S c c}w )Nr4 r¼ rq z6determineexprtype: selected kind types not supported (r± r7 r5 )ú+r¾ r rÀ r2 ri r r rn r r· r" r )r4 rp z4determineexprtype: could not determine expressions (z) type.
|
)rJ r¦ Údetermineexprtype_re_1rÒ Údetermineexprtype_re_2r! rÓ r2 rÎ Údetermineexprtype_re_3r' r( Údetermineexprtype_re_4rØ Údetermineexprtype_re_5) r% r0 Úrulesró Úoprï r» rô Úrns r) rØ rØ s s Ø t|Ü T¡
|
Ó+Ð+Ø ::<DÜ ×#Ñ# DÔ)ØIÐ&Ð&Ü ×$Ñ$ TÓ*AÙØ Q[[]Ñ " q§w¡w¨v¤Ü ØHÌÈdËÈ ÐTWÐXô ZàIÐ&Ð&Ü ×$Ñ$ TÓ*AÙØ Q[[]Ñ " q§w¡w¨v¤Ü ØHÌÈdËÈ ÐTWÐXô ZàFÐ#Ð#Ø"ò 1Ü%3°DÀÔ%C×%IÑ%IÈ#ÐPRÉ(ÐUXÉ.Ó%YÖZ !'')ÒZò 1AØDyÜ'¨¨Q©Ó0Ô0ñ 1ð1ð AÜ ×#Ñ# DÔ)Ü d 1 Rj¨$°Ó 6ä "× (Ñ (¨Ó .Ù Ø BÜ! !§'¡'¨&£/°4¸Ó?AÙZ 1_ØjMÙØa5E>Ü+¨E°"°Q±%©LÓ9Ð9Ø Aw%ÑØ '¸#¸s¸ÑDÐDÙ ÜØBÄ4ÈÃ:À,ÈiÐ Xô Zà Hùò+ [s ÄHr¹ c ó6 t | « d}t | t « rA| D ]: }|r%|d dv r |d t v rt r |d t vr*|t |||¬« z }< |S d}d}d}| d }|dk( ryg } d| v r| d }d| v r[| d }
|
| d D ]/ } t | | | « } t |
|
| « r | j | « 1 | d d k( s| rd
|
d j | « d }d} d | v r9t | d j « « D ] } | |t z | d| d | } | j dg « d d }|d k( rd|v r|j d« |r"| |t z dd j |« d|} d}d| v rt | d |t z « }d}d| v rt | d |t z « }|dk( rd}d}d| v r$d| d d }| d | vr| j | d « t | d |t z |¬« }t! | | d | |t z |¬« }
|
d}d| v r
|
|sd| d }d| v rNd}t | d j# « « D ]( \ } }| |t z d | d
|
d j |« d }* ||z }|d k( r|d k( rd}|||d|||d|| ||
|
|||d |d|}|S ) Nr
|
r1 r« rq r r r5 r0 rú r6 r& r7 r r r
|
Úcallbackúintent(z) r r r¥ r© z result (r/ r z! in r zentry r r¡ zend )rX rë rv r# r$ r rE r r) rÛ rw r r rÏ Ú use2fortranÚcommon2fortranÚ vars2fortranrK )r1 re r ri rh r¨ rq r5 Ú blocktypeÚargslr0 r+ r r~ Ú
|
intent_lstr r r© r/ ÚmessÚ entry_stmtsrù s r) r r sS ô ÔØ
|
CÜ%Ô Øò LAÙQwZÐ#=Ñ=ØV9¤ Ñ)Ø Ý 6¡´)Ñ!;Ø ØÔ(¨¨C¸lÔKÑKCð Lð
|
Ø FØ DØ DØgIØIÒ ØØ EØ ØV}Ø ØV}Øv ò AÜ!U EÓ*AÜ$ T¨!¡WÕ-Ø Qð ð >ZÒ '©5Øsxx Ð' qÐ)DØÐØUÑ"ÜeÐ .Ñ/×4Ñ4Ó6Ó7ò RAá #¬¢-²°EÐ:LÑ4MÈaÒ4Pð RÑ ð Rð 8 RÓ(©Ð+JØJÒ :°Ñ#;Ø×Ñ*Ô%Ùá ,¨c´G«mØ HH ZÕ 0±$ð 8Ðð CØ ~Ü% ,¨¬g© Ó6Ø FØ5ÑÜ h¡°´w± Ó?Ø Ð"Ò"ØØ FØ5ÑØ U 8_Ð -¨QÐ/Ø ? %Ñ 'Ø LLx Ô )Ü E &M¨3´©=À|Ô TDÜ Ø uV}e S¬7¡]À ô ODà DØ |ØuV}oÐ&Ø%ÑØ Üw ×-Ñ-Ó/Ó0ò RDAqØ (M¨#´©-¨ ¸¸q¸cÀÀ3Ç8Á8ÈAÃ;À-ÈqÐQKð RàkÑ!ØLÒ T¨^Ò%;Øá VY¡¡dªF±DÑ:JÉCÑQUÑW]Ñ_cÒehÒjsÑuyð {Cà Jr( c
|
óÄ d}t | j « « D ]A }|dk( r | | ddj | | « }$| | d| ddj | | « }C |S )Nr
|
rÈ zcommon r& zcommon /z/ )rv rw rÛ )r re ri r~ s r) rY rY ê s{ Ø
|
CÜ &++-Ó ò BØ =ØE#g c§h¡h¨v°a©yÓ&9Ð%:Ð;CàE#h q c¨¨C¯H©H°V¸A±YÓ,?Ð+@ÐACð Bð
|
Jr( c ó d}t | j « « D ] }| | d| d}| | i k( r|r |d dk( r|d d }%d| | v r | | d r| d}d| | v r]| | d rUd}t | | d j « « D ]1 }|| | d | k( r | | | }d} | | | d | | d | }d}3 |s |d dk( s©|d d }¯ |S )
|
Nr
|
zuse r& r rÊ z only:rÌ r z=>rP )r re ri ró r³ r~ s r) rX rX ô s4 Ø
|
CÜ #((*Ó ò ØcU$qc Ð#Ø q6R<Ùs2w #~Ø#2hØ Ø SVÑ A¡ v¢ØE.CØ CF?s 1v e}ØAÜ#a& -×,Ñ,Ó.Ó/ò ØAu aÑ(Ò(Ø E ! Q C.CØAà E ! Q C r¨#¨a©&°©-¸Ñ*:Ð);Ð<CØAð ò 3r7c>Øcr(Cð%ð& Jr( c ó | d }g }|D ]- } t « d| } || « s |j |« / |S # t $ r Y =w xY w)Nr
|
Ú isintent_)Úglobalsr) r )rj r³ ri r
|
rf s r) Útrue_intent_listre sg Ø
|
h-CØ
|
CØò #ð #Ü I f XÐ.Ñ/Añ vØ
|
|
6Õ"ð#ð Jøô ò Ù ð ús <¼ AÁAc ó t | « d}g }|D ] }|| d v s |j |« d| v r4| d D ], }||v r||vs |j |« t d| d« . d| v r|j | d « |s4t |j « « D ] }||vs|j |« |D ]/ }d|| v r7|| d D ], }||v sd|| v s||| d v st d| d | d
|
« . d | v rn|| d v rgt || « r | | d | }| | d | }t || « r | | d| }||v rd|| vrd} | d D ] }
|
||
|
d k( s |
|
d dk( sd} n | r´||vrt |« t d| d« Ó|| d k( r| d dk7 s| j d« rõd|| vr?d|| v rd|| d v r||v r | | d | } t || « t d| d« ;|| d } | d k( rd || v r| d || d d } i } d || v r || d } nd!|| v r|| d! } d"| v r | d" d#v r | d$| d" d } n>| d"| d" } n3d%| v r | d&| d% } d'| v r | d(| d' d } n| d } nd'| v r | d)| d' d } d*} d|| v rN|| d D cg c] }|d+vr|
|
}}|rd,|v rd-|v r|j d-« |r| d.d/j |« } d/} d0|| v r!| | d1d/j || d0 « d } d/} d2|| v r+t || « }|r| | d3d/j |« d } d/} d4|| v r!| | d5d/j || d4 « d } d/} d|| v r!| | d6d/j || d « d } d/} d7|| v rF|| d7 }|| d d8v r) t |« }d |j d/|j d }| d9| d7| } n| d9| } | | | }2 |S c c}w # t" $ r Y /w xY w):Nr
|
r0 r zvars2fortran: Confused?!: "z" is not defined in vars.
|
rª ru z;vars2fortran: Warning: cross-dependence between variables "z" and "r¹ r3 zintent(callback) z external z optional r4 r r/ rq r1 rú r z*vars2fortran: No definition for argument "rm r© rn r z(vars2fortran: No typespec for argument "rh rr r6 r7 ro rp r )r r¦ z*(rX z(len=rI z,kind=z(kind=r )r z
|
intent(in)z intent(out)r r& r r7 r
|
rW rt zcheck(zdepend(rq )r¼ r z :: )rX r) ro rê rv rw r Ú
|
isoptionalÚshowr2 r rÏ rÛ re rÛ r5 ÚimagrÆ )r1 r0 r5 re r ri Únoutr+ r# rá rl Úvardefrõ r³ rë rö r³ rÿ s r) rZ rZ s÷ ÜÔØ
|
CØ DØ ò Ø f Ò Ø KKNðð uÑ Ø|Ñ$ò RAØDyØD=ØKK NäØ1°!°Ð4OÐPõRð Rð UÑØ E*Ñ%Ô&Ù ÜdiikÓ"ò AØ}Ø Að ð ó d$Ø tAwÑ Ø!WXÑ&ò iØ9 ¨T°!©WÒ!4¸¸dÀ1¹gÀhÑ>OÒ9OÜØUÐVWÐUXÐX_Ð`aÐ_bÐbfÐgõið ið %Ñ A¨¨{Ñ);Ñ$;Ü a¡Ô)Ø cUÐ"3°A°3Ð7ØE#i¨ sÐ+CÜ$q'Ô"Ø cU )¨A¨3Ð/ØDyZ¨t°A©wÑ 6ØØDØ6]ò Ø& > a¨¡j°JÓ&>Ø DÙð ñ ØØ D=Ü JÜ Ð@ÀÀÀ4ÐHÔ IØ Ø f Ò ØW~ Ò+¨u¯y©y¸Ô/Bð
|
Ø T !WÑ $ØT !WÑ$¨°t¸A±w¸zÑ7JÑ)JØ9Ø E # i°¨sÐ3CÙÜ aMÜ Ð>¸q¸cÀÐFÔ GÙ ØaÑ$Ø VÒ
|
¨d°1©gÑ 5Ø xq a¡¨Ñ!4Ð 5°QÐ7FØØ T !WÑ $ØAw~Ñ.HØ t AwÑ &ØAw~Ñ.HØ (?Ø}
|
Ñ*Ø "8 2 h¨s¡m _°AÐ6à "8 1 X¨c¡] OÐ4Ø hÑ Ø xu X¨e¡_Ð$5Ð6FØÑ!Ø "8 6¨(°6Ñ*:Ð);¸1Ð=à "8 1 Ø xÑ Ø xv h¨vÑ&6Ð%7°qÐ9FØ Ø aÑ Ø # Aw zÑ 2ö .!Ø Ñ,ò ð .Dð .á °Ñ 4¸ È$Ñ9Nð MÔ*ÙØ "8 2 c§h¡h¨t£nÐ%5Ð6ØØ $q'Ñ !Ø x s *¨S¯X©X°d¸1±g¸kÑ6JÓ-KÐ,LÈAÐNFØAØ tAwÑ Ü" 4¨¡7Ó+CÙØ "8 A 3 g¨c¯h©h°s«m¨_¸AÐ>ØAØ d1gÑ Ø x s &¨¯©°$°q±'¸'Ñ2BÓ)CÐ(DÀAÐFFØAØ tAwÑ Ø x s '¨#¯(©(°4¸±7¸8Ñ3DÓ*EÐ)FÀaÐHFØAØ $q'>ØQ AØAwzÑ"Ð&CÑCðÜ QAØAFF8 1 Q§V¡V H¨AÐ.Að xt A 3 a¨ sÐ+Fà xt A 3Ð'FØcU6(Ð#ðId$ðJ JùòM.øô@ !ò Ùðús Ê O-Î&(O2Ï2 O>Ï=O>c ó4 t dd« t | t « t dd« g at t
|
d « }t dd« t D ]( }t d|j dd« t ||« }* t dd« t |« }t |z S )NzReading fortran codes...
|
r zPost-processing...
|
z"Applying post-processing hooks...
|
z r¹ z Post-processing (stage 2)...
|
)
|
r2 rÙ r< r rt r Úpost_processing_hooksÚ__name__Útraverserg )ÚfilesÚpostlistÚhooks r) Ú crackfortranrs s ô Ð (¨!Ô,ÜE9Ô%Ü Ð " AÔ&ØKÜ 1 Ó&HÜ Ð 1°1Ô5Ü%ò ,Ü"T]]O 2Ð&¨Ô*ÜH dÓ+ð,ô Ð ,¨aÔ0Ü(Ó#HÜ Ñ !Ð!r( c óD t | « dz }d}dt z }||z |z S )Nr¹ zE! -*- 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)r1 ÚpyfÚheaderÚfooters r) Ú crack2fortranry ® s< ô 5Ó
|
! DÑ
|
(CðFðô ñ Fð
|
C<&Ñ Ð r( c óx t | t « xr) t | « dk( xr t | d t t f« S )Nr2 r )rë ÚtuplerX r8 r )Úobjs r) Ú_is_visit_pairr} ½ s8 Ü sEÓ "ò /ÜCA ò /ä3q6¤C¬ :Ó.ð0r( c óà t | « r1| d dk( r| S || ||g|¢i |¤}|t |« sJ |S | }| \ }} nd| f}d}t | t « rEg }t | « D ]4 \ } }
|
t | |
|
f|||gz |g|¢i |¤\ } } | $|j | « 6 nPt | t « r>i }| j « D ]( \ } }
|
t | |
|
f|||gz |g|¢i |¤\ }}|$|||< * n| }||S ||fS )aí Traverse 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 rZ N)r} rë rv rä ro r) ru rK )r| ÚvisitÚparentsr© r5 ÚkwargsÚ
|
new_resultÚparentÚ
|
result_keyr[ r Ú new_indexÚnew_itemr Únew_keyÚ new_values r) ro ro à sg ô8 cÔØ q6^Ò #àJÙ3 ¨ÐA°$ÒA¸&ÑA
|
Ø Ð !Ü! *Ô-Ð -Ð-Ø Ð ØØ
|
CàØ
|
ä#tÔ Ø
|
Ü % cNò ,LE5Ü"*¨E°5¨>¸5Ø+2°f°XÑ+=¸vð#<à,0ò#<à4:ñ#<Ñ Ixð Ñ$Ø×!Ñ! (Õ+ñ ,ô
|
CÔ Ø
|
Ø ))+ò 0JCÜ!)¨3°¨,¸Ø*1°V°HÑ*<¸fð";à+/ò";à39ñ";Ñ GYð Ñ"Ø&/
|
7Ò#ñ 0ð
|
àÐØÐØ zÐ !Ð!r( c óî |d \ }}| \ }}d } |dv r|d d dk( sJ |d d }
|
n |dk( r|d d dk( sJ |d d }
|
nd
|
}
|
d
|
} |
|
0|} |
|
j « D ] \ } } t | « s | | | « } nV|d k( rQ|d d d }
|
|} |
|
j « D ]1 \ } } t | « st j d | z d z d| z | « } 3 | "| |k7 rt d| d| d| d| d d« || fS y
|
)aü Previously, 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 c óz t j d| z dz | |« }t j d| z dz | |« }|S )Nz[*]\s*\br z\b\s*[\[]\s*0\s*[\]])r¾ rÜ )Úvarnamer s r) Ú fix_usagez8character_backward_compatibility_hook.<locals>.fix_usage sB Ü{ WÑ,¨uÑ4°g¸uÓEÜuwÐ)@Ñ@Ø ó'à r( )r rt éýÿÿÿr r0 r rq r NÚ callstatementz
|
(?<![&])\br r zcharacter_bc_hook[r z ]: replaced `z` -> `z`
|
)rK Ú ischaracterr¾ rÜ r2 )r6 r r© r5 r Ú
|
parent_keyÚ parent_valuer r r Ú vars_dictr r Úvds r) Ú%character_backward_compatibility_hookr sv ð ' r{Ñ J ØJCòð Ð+Ñ+Ør{1~ Ò'Ð'Ð'ØBK N Ø Ør{1~ Ò'Ð'Ð'ØBK N à àIØÐ Ø Ø$??Ó,ò :KGRÜ2Ù % g¨yÓ 9 ñ :ð
|
Ò ØBK N 6Ñ* Ø Ø$??Ó,ò OKGRÜ2ô FFØ! GÑ+¨eÑ3°S¸7±]ÀIó O ð Oð Ð Ø Ò ô
|
Ð(¨¨ °A°c°Uð ;"Ø"' ¨¨y¨k¸ð>Ø?@ô BàYÐ Ð ð r( Ú__main__r¦ z-quietz-verboser2 z-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form.
|
z-skipemptyendsz--ignore-containsz-f77z-f90r° z-hz-showz-mr¾ zUnknown 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).
|
z Writing fortran code to file r )r )r )r& )rU r, )r
|
N)Nr
|
)r
|
)NN)r r )r¹ F)r
|
F)×Ú__doc__r rÐ rà r rÏ r¾ rc r- Úpathlibr r Ú ImportErrorr
|
r r ÚauxfuncsÚversionru r r r r r r r r r r r r½ r! r r r r r> r r r= r% r r$ r& r r# r" r r* r2 Ú _MAXCACHEr r³ rn rz rª rr rw r{ r} r¿ rÀ r r¤ r¥ rË rÒ r§ r¢ rÊ r r« rh rÙ ÚbeforethisafterÚ fortrantypesrO rß rL rM Ú groupbegins77rÌ Ú groupbegins90rÍ Ú groupendsrJ ÚendifsrI ÚmoduleproceduresrU rN r? r@ rB rC rF rG rH rA rD rE rQ rT rX rP rR rS rK ÚSr: r; rÑ r, rV Úcrackline_bind_1rÒ r< rW r' rl r r# r r r r rÙ rº r r r r r rY rì rÓ rÖ ro rp rL r9 r' r0 rÔ rà rx ry rz rV rX r[ rc rg rt ry rw rz r r r¢ r§ rª r« r± rµ r» rÀ rÓ r× rð rò rî rx r> rß r rE rv rM rN rO rP rQ rJ rØ r rY rX re rZ rm rs ry r} ro r r) rn rp Úfuncsrf Úf2Úf3Ú showblocklistÚargvrë ro rÎ r rÝ ÚOSErrorÚdetailrq rv r/ r' r( r) ú<module>r¬ sã ðñIóT Û Û Û Û Û Û Û
|
Ý ð Û ÷ $ô
|
à×"Ñ" ð ØØ Ø
|
Ø
|
Ø Ø Ø ØØ Ø
|
ð ØØ Ø ØÐ Ø Ø
|
Ø Ü 2Ð Ø Ø Ø Ø ØÐ ØØ Ø Ø ò# óL ð ØÐ Ø !ò 3AØ )¨6Ð 2ÐÒð3à ò 6AØ )¨9Ð 5ÐÒð6à Ø ð
|
ò
|
Að e)HQKØ KE Òð
|
òò,òò1ð
|
|
Ð3°R·T±TÓ:×AÑA Ø "**Ð 1°2·4±4Ó8×?Ñ?Ø "**Ð 1°2·4±4Ó8×?Ñ?Ø "**Ð 1°2·4±4Ó8×>Ñ>ò :Ð Ú8Ð ò 3ò>ð4 '+°!ó _DðF ð D ØrzzØr<¨ °tÐ<Ñ<¸b¿d¹dóDØEKðL à"
|
|
?Ø Ð4Ñ4°lÐEbÑ6bÐdhð6jñ $jØkm×koÑkoóqÐ ð "**_ð 0?ñ ?Ø@BÇÁóFØGNðOà BJJð 24ñ 4Ø57·T±Tó;Ø<CðDÐ ð ( ØØr=¨-¸Ð>Ñ>ÀÇÁóFØGNðOà ðñ ð Ør=¨-¸Ð>Ñ>ÀÇÁóFØGNðOð7 à RZZØr9 i°Ð6Ñ6¸¿¹ó>Ø?DðE
|
ð
|
àrzzØy &¨&°$Ð7Ñ7¸¿¹ó?Ø@GðH ð )Ð Ø#ØrÐ+Ð-=¸tÐDÑDÀbÇdÁdóLàðÐ ð "**ØÐ8Ñ8¸"¿$¹$ó@ØAKðLà 2::oð 18ñ 8Ø9;¿¹ó?Ø@KðLÐ à "**ØÐ8Ñ8¸"¿$¹$ó@ØAKðLà "**ØÐ8Ñ8¸"¿$¹$ó@ØAKðLà "**ØÐ8Ñ8¸"¿$¹$ó@ØAKðLà
|
|
ØÐ4Ñ4°b·d±dó<Ø=EðF àØÐ6Ñ6¸¿¹ó>Ø?HðIà 2::ØÐ:Ñ:¸B¿D¹DóBØCNðOÐ à
|
|
?ð .Qñ QØRT×RVÑRVóXØYaðb à 2::ØÐ@Ñ@À"Ç$Á$óHØITðUÐ àbjjØÐ0Ñ0°"·$±$ó8Ø9?ð@ àbjjØÐ0Ñ0°"·$±$ó8Ø9?ð@ àrzzØÐ2Ñ2°B·D±Dó:Ø;BðC àØÐ6Ñ6¸¿¹ó>Ø?HðIà
|
|
ØÐ4Ñ4°b·d±dó<Ø=EðF à RZZØÐ.Ñ.°·±ó6Ø7<ð=
|
à "**ØÐ6Ñ6¸¿¹ó>Ø?IðJà
|
|
ØÐ4Ñ4°b·d±dó<Ø=EðF ð %"** _ð 8Mñ &Mð OQ÷ OSñ OSð VX÷ VZñ VZñ OZó[ð ]oðoÐ à 2::Ø9¸2¿4¹4óAØBMðNÐ òò(ð Ð AÀ2Ç4Á4ÓHØ 2::Ð AÀ2Ç4Á4ÓHÐ Ø RZZÐ kÐmo×mqÑmqÓrÐ ó[%ò| ó$ ò& ó
|
ð@
|
|
ØKÈRÏTÉTóS àð%Ø&(§d¡dó,ð "**ð rð tv÷ txñ txóyà "**ð*Ø+-¯4©4ó1ð !bjjØ@À"Ç$Á$óHÐ à
|
|
Ø;ó= àrzzØHóJ ð $Ð$AÀ2Ç4Á4ÓHÐ ò òò ò ò u@òp ò(ð8 bjjÐEÀrÇtÁtÓL ØrzzØIÈ2Ï4É4óQ àrzzØ9¸2¿4¹4óA àð2à35·4±4ó9ð "**ð Gð IK÷ IMñ IMóNò ò "òJfòR7,óvó6 ó ó ò òóó< ó@\ò~ òD'óT*òZ$ó&!ð "**^¨R¯T©TÓ2òA ðH rzzÐ,¨b¯d©dÓ3 òò,ò4ò$"ò ó ð$ (*ó bòJ(ð "**WÓ%×+Ñ+ò ò DðN 2::Ð 1°2·4±4Ó8Ð ó; ò|Mð` ó òDð6 $Ð$6¸¿¹Ó=Ð Ø#Ð$DÀbÇdÁdÓKÐ Ø#Ø1°2·4±4ó9Ð à# M°2·4±4Ó8Ð Ø#Ð$EÀrÇtÁtÓLÐ ò "ð )+ó ( óZGóTóò0 ó zð@ Ð ò"ò" !ò 0ð "$¨Dó ?"òD9 õx × Ò Ð BÔ Cð zÓØ EØ EØ AØ
|
BØ
|
BØMØ XXab\ò 1 Ø 7Ø Ø qTS[ØAØ (]ØEØGØ *_ØGØEØ &[ÝÙØVÐXYô[à MØ "NØ Ð"Ò "Ø MØ Ð%Ò %Ø NØ &[ØIØ "NØ &[ØIØ #NØ MØ $YØBØ '\Ø MØ $YØBØ qTS[Ù o¡d¨1£g Y¨bÐ1Õ 2Ù ØBØKÙ ØBØ MÙ ð 2ÙQ Ø Qð LLOðc1 õd }Ùð ð ô ñ EÓ"HÝÙÐ/±´[Ó0AÐ/BÀ"ÐEÀqÔIÙHÓ%Ù +sÓ #ð qØ GGCL÷ áÙ Xð ðQ øð[m ò Ø Óð ûðDo ò 2Ù) F :¨RÐ0×1Ò1ûð 2ú÷" ð ús5 ªk
|
è)kê"k7ë
|
këkëk4ë k/ë/k4ë7l
|
