Файловый менеджер - Редактировать - /home/digitalm/venv/lib/python3.7/site-packages/numpy/f2py/__pycache__/crackfortran.cpython-37.pyc
Назад
B �5�g� � @ s d Z ddlZddlZddlZddlZddlZddlZddlZddlZddl m Z ddl T e j a dadadadadadadadadadag adadadai a da da da da t g ia!da"g a#d a$g a%da&d a'g a(g a)g a*d d � Z+d�d d �Z,de_-i Z.xdD ]Z/ddie.e/< q�W xdD ]Z/ddie.e/< �qW [/i Z0i Z1x&dD ] Z2e2d e0e2< e2e1e2d < �q8W dd� Z3dd� Z4dd� Z5d d � Z6d d � Z7e�8d ej9�j:Z;e�8d!ej9�j<Z=e�8d"ej9�j<Z>e�8d#ej9�j<Z?e�8d$ej9�j:Z@d%d&� ZAeBdfd'd(�ZCd)ZDd*ZEe�8eDdeEeEd+f ej9�d,fZFe�8eDdeEd- eEd- d+f ej9�ZGe�8eDd. ej9�d/fZHe�8eDd0 ej9�d/fZId1ZJe�8eDdeJeJd+f ej9�d/fZKeJd2 d3 ZLe�8eDdeLeLd+f ej9�d/fZMd4ZNe�8eDdeNeNd5f ej9�d6fZOd7ZPe�8eDd8ePePd5f ej9�d9fZQe�8eDd: ej9�d;fZRe�8eDd< ej9�d=fZSe�8eDd> ej9�d?fZTe�8eDd@ ej9�dAfZUe�8eDdB ej9�dCfZVe�8eDdD ej9�dEfZWe�8eDdF ej9�dGfZXe�8eDdH ej9�dIfZYe�8eDdJ ej9�dKfZZe�8eDdL ej9�dMfZ[e�8eDdN ej9�dOfZ\e�8eDdP ej9�dQfZ]e�8eDdR ej9�dSfZ^e�8eDdT ej9�dUfZ_e�8eDdV ej9�dWfZ`e�8eDdX ej9�dYfZae�8eDdZ ej9�d[fZbe�8eDd\ ej9�d]fZce�8eDd^ ej9ejdB �d_fZee�8d`ejd�dafZfdbdc� Zgddde� Zhe�8dfej9�Zid�dgdh�Zjdidj� Zkd�dldm�Zldndo� Zmd�dpdq�Zne�8drej9�Zoe�8dsej9�Zpe�8dtej9�Zqe�8du�Zre�8dv�Zse�8dwej9�Ztdxdy� Zudzd{� Zvd|d}� Zwd~d� Zxd�d�� Zye�8d�ej9�Zze�8d�ej9�Z{e�8d�ej9�Z|e�8d�ej9�Z}e�8d�ej9�Z~d�d�� Zd�d�� Z�d�d�� Z�d�d�� Z��d d�d��Z��dd�d��Z��dd�d��Z��dd�d��Z�d�d�� Z�d�d�� Z��dd�d��Z��dd�d��Z��dd�d��Z�d�d�� Z�d�d�� Z��dd�d��Z�d�d�� Z��dd�d��Z�e�8d�ej9�Z�d�d�� Z�e�8d��j:Z��d d�d��Z�e�8d�ej9�Z�d�d�� Z�d�d�� Z�d�d�� Z�d�d�� Z�d�d�� Z��d d�d��Z�i fd�d��Z�d�dÄ Z�e�8dġj:Z�d�dƄ Z�d�dȄ Z�e�8d�ej9�Z�g fd�d˄Z�d�d̈́ Z�e�8d�ej9�Z�e�8d�ej9�Z�e�8d�ej9�Z�e�8d�ej9�Z�e�8d�ej9�Z�d�dԄ Z�i fd�dքZ��d d�dڄZ��d d�d܄Z��d d�dބZ�d�d� Z��dd�d�Z�d�d� Z�d�d� Z�e�d�k� r g Z�g Z�dZ�dZ�dZ�dZ��x�ej�dd� D �]�Z�e�dk�r �q�e�d d�k�r"dZ��q�e�d�k�r8dada�q�e�d�k�rNd�ada�q�e�d�k�rtt�rhe,d�d� dada�q�e�d�k�r�da�q�e�d�k�r�dan�e�d�k�r�dadan�e�d�k�r�dad�adan�e�d�k�r�dZ�n�e�d�k�r�dZ�n�e�d�k�r�dZ�n�e�d d�k� re�d�e�e�� � n�e�� r"dZ�e�anre�� r2dZ�e�anbe�� r�ye�e����� e���e�� W n4 e�k � r� Z� ze�d�e�e�� � W ddZ�[�X Y nX n e���e�� �q�W t� s�t� r�t� s�e,d�d� e�e��Z�t� r�e,d�e�t� d� e�eÃZ�e�td���Z�e���eġ W dQ R X e�� r eBeà dS ( a crackfortran --- read fortran (77,90) code and extract declaration information. Copyright 1999-2004 Pearu Peterson all rights reserved, Pearu Peterson <pearu@ioc.ee> 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. $Date: 2005/09/27 07:13:49 $ Pearu Peterson 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']} (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']) (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� )� __version__)�*�fixz � ���c C sp da dadadadadadadadada g a da t g ia da dadag ai adadadag ag ag ag ad ad S )Nr r r z 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� r" r" �M/home/digitalm-up/venv/lib/python3.7/site-packages/numpy/f2py/crackfortran.py�reset_global_f2py_vars� s4 r$ c C s, t sd S ts(|r tj�t� tj�| � d S )N)r r �sys�stdout�writer )�line�flagr" r" r# �outmess� s r* �2 zabcdefghopqrstuvwxyz$_�typespec�realZijklmn�integer)3�int�double�float�char�short�long�void�case�while�return�signedZunsigned�if�forZtypedefZsizeof�union�struct�static�register�new�break�doZgoto�switch�continue�else�inlineZextern�delete�const�auto�lenZrank�shape�index�slen�sizeZ_i�max�minZflenZfshape�stringZcomplex_doubleZ float_double�stdin�stderrr& �type�defaultZ_bnc C s( | t kr$td| t | f � t | S | S )Nz&rmbadname1: Replacing "%s" with "%s". )�badnames�errmess)�namer" r" r# � rmbadname1 s rY c C s dd� | D �S )Nc S s g | ] }t |��qS r" )rY )�.0�_mr" r" r# � <listcomp> s z rmbadname.<locals>.<listcomp>r" )�namesr" r" r# � rmbadname s r^ c C s( | t kr$td| t | f � t | S | S )Nz+undo_rmbadname1: Replacing "%s" with "%s". )� invbadnamesrW )rX r" r" r# �undo_rmbadname1 s r` c C s dd� | D �S )Nc S s g | ] }t |��qS r" )r` )rZ r[ r" r" r# r\ s z"undo_rmbadname.<locals>.<listcomp>r" )r] r" r" r# �undo_rmbadname s ra c C sN | � d�}|dkrdS d| |d � kr*dS d| |d � kr>dS | |d d � S )N�.r r �\�/r )�rfind)rX �ir" r" r# � getextension! s rg z.*\.(for|ftn|f77|f)\Zz-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*]\s*[^\s\d\t]c C s� d}t | d���}|�� }d}t|�r*d}nt|�r:d}d}xf|dkr�|r�|d dkr�|�� r�|d8 }|d dkr�t|dd� �s�|d d � d kr�d}P |�� }q<W W dQ R X |S ) z(Check if file is in free format Fortran.r �r� r �!� N� ���r �&)�open�readline� _has_f_header�_has_f90_header�strip�_free_f90_start)�file�result�fr( �nr" r" r# �is_free_format2 s" ,ry c C sJ |st ttttttttf }| g kr&dS t}d}d}d}t � dt j �}t � d�} t � d�} t � d�} |rp|dd� d \}} d gd d � t d �D � } dat �| �}�x�|�� }|s�P |�� �rTda|�� ada |} dadatj�t�d }tt��r t|��s t|��s dantt��r"t|��s"dat�r.tantatdt t�tt�rJd�pLdf � |� � � dd �}x,|dk�s�|d dk�r�P |dd� }�qfW t�s�t |d�\}}|d 7 }|dd� � � dk�r�t |d |dd� d�\}}|�!� dk�rtdk�r�q�d}q�tdk�rr|d dk�rJ|dd� � � dk�rBd |dd� }nd}q�n t�rjt"|�d k�rj|dd � }|d | k�r�t#d t |� ��|�r�t�r�t"|�dk�r�|d d k�s�||d d� }d}d}n�t�sD| �$|�}|�r�|�%d �}|�r|| �$|��%d � }d}d}n,d |dd� }|�r.|� � }n|}|}|}|dk }n,d |dd� }|�rd|� � }n|}|}|}n�tdk�rB|�s�|d!k�r�| �$|��r�|d" }x4|�� }|�s�t&d#� P || }| �$|��r�P �q�W |�'� }| �$|�}|�r�|�%d �}|�r || �$|��%d � }d}d}n |�r,|� � }n|}|}|}|dk }nt(d$t t� ��d%|�)� d t| f a|�$|�}|�r|�%d&�}tj�*|��r�t+||dd'� nxtj�,t�gt- }d}x>|D ]6}tj�.||�}tj�*|��r�d}t+||dd'� P �q�W |�s"td(t |�tj/�.|�f � n||� |} q�W |�r:|� � }n|}|}d%|�)� d t| f a|�$|�}|�r |�%d&�}tj�*|��r�t+||dd'� nxtj�,t�gt- }d}x>|D ]6}tj�.||�}tj�*|��r�d}t+||dd'� P �q�W |�std(t |�tj/�.|�f � n||� da|�0� |�r0|dd� n|\ a aaaaaaaadS ))z� 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 � c S s g | ] }t |��qS r" )�str)rZ r[ r" r" r# r\ g s z#readfortrancode.<locals>.<listcomp>� r r r �freez Reading file %s (format:%s%s) z,strict� z rj rl z!f2pyz )r �crj �C�#Zf2pyz �H zxreadfortrancode: Found non-(space,digit) char in the first column. Are you sure that this code is in fix form? line=%s� r( z.pyf� z.Unexpected end of file when reading multiline z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s" rX )� dowithline�istopzAreadfortrancode: could not find include file %s in %s. Ignoring. )1r r r r r � beginpatternr r r �re�compile�I�range� fileinputZ FileInputrp Z isfirstline�filename�os�path�splitext� is_f_filerr �_has_fix_headerry �beginpattern77�beginpattern90r* �repr� expandtabs�replace�split_by_unquoted�lowerrs rJ � Exception�match�grouprW �rstrip� ValueErrorZ filelineno�isfile�readfortrancode�dirnamer �join�pathsep�close) Zffiler� r� Z saveglobalsZlocaldolowercase�contZ finalline�llZ includelineZcont1Zcont2Z mline_mark�l1Z spacedigitsZfin�l�ext�rl�_Z origfinallinerh �lc�m�fn� include_dirsZ foundfile�inc_dirZfn1r" r" r# r� J sV ( r� 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,=(*)]*\))|bytez.*rT z|static|automatic|undefined)z([a-z]+[\w\s(=*+-/)]*?|)�functionr� z.*�begin)z [a-z\s]*?� subroutiner� z.*zprogram|block\s*dataz@|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|z type(?!\s*\()z\end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface|endsubroutine|endfunctionz[\w\s]*�endza(end\s*(if|do|where|select|while|forall|associate|block|critical|enum|team))|(module\s*procedure)z[\w]*?�endif)r �implicitr� z.*r� )r zdimension|virtualzdimension|virtualz.*� dimension)r �externalr� z.*r� )r �optionalr� z.*r� )r �requiredr� z.*r� )r �publicr� z.*r� )r �privater� z.*r� )r � intrinsicr� z.*r� )r zintent|depend|note|checkzintent|depend|note|checkz \s*\(.*?\).*�intent)r � parameterr� z\s*\(.*r� )r �datar� z.*r� )r �callr� z.*r� )r �entryr� z.*r� )r �callfunr� z.*r� )r �commonr� z.*r� )r �user� z.*r� )r �containsr� r r� )r �formatr� z.*r� )r zKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefzKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefz.*�f2pyenhancementsz2\s*(?P<before>''')(?P<this>.*?)(?P<after>''')\s*\Z� multilinec C sv t d�t |�@ rtd��t�djd�t�|��d�t�|��ddd��}|�| �}|rn|�� }|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('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*"))Z not_quotedr2 � single_quotedZ double_quoted�before�afterr )�set�AssertionErrorr� r� r� �escaper� � groupdict)r( � charactersrh r� �dr" r" r# r� s s r� c C sJ g }x:t | ��d�D ](}xdD ]}|�|d�}q W |�|� qW d�|�S )Nz@,@z(),r� �,)�markoutercomma�splitr� �appendr� )Zargsline�arx rh r" r" r# � _simplifyargs� s r� z"\s*(?P<result>\b[a-z]+\w*\b)\s*=.*c C s� t | d�\}}|r�td �| �s�td �| �s�|dksBtt|���t | d�\} }x(|rxt| |� t |dd� d�\} }qRW t| |� dS |dk r�datdiati ia tg ia g t t d< i t t d< dt t d< dt t d < d a d a dS |dk�rd}t �r t tk�r d }xlt|k�rvtd tt�tt�f � td � t td �t t � t t t td d d< t t= td a�q W t �rt tk�rt td �t t � t t t td d d< t t= td at td �t t � t t t td d d< t t= td ad a dS | dk�rdS d}x^ttttttttttttt t t t t t!t"t#t$t%t&ttgD ]$}|d �| �}|�rlP |d }�qRW |�s�t'} dt k�r�tk�r�n ndS dt t k�r�x�t t d D ]�} | t(k�r�t(| } dt t k�r�| t t d k�r��q�t)�d| t*| �t)j+�} | �r�| �| �,d��} t-| �,d��} | �rRd| | | �,d�f } n d| | f } t.d �| �}|�s�tdt| � � dS t/|d| � dS �q�W t0dk�s�t0dk�r�t1�2� �3d��r�da4tdt � dS |d dk�r�dt k�r�tk �rn ntd at tk�rdS tdk�r*t5dt ��t d �| �} | �rv| �,d �tt k�svt5d t| �,d ��ttt �t6f ��t tk�r�d a t td �t t � t t t td d d< t t= td at7�s�da8n�|d d k�r dt k�r�tk�rn n td adS da9t/||d | � da8n~|d d k�r,nn|d d k�rjt:�rDdS dt k�r\tk�rdn ndS ta n0dt k�r�tk�r�n ndS t/||d | � dS )!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�blockrX r � z(crackline: groupcounter=%s groupname=%s 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 %s(%s) result (%s)rv zcallfun %s(%s)z8crackline: could not resolve function call for line=%s. r� z.pyfz"crackline:%d: No pattern for line r� z>crackline: groupcounter(=%s) is nonpositive. Check the blocks.�thiszGcrackline: End group %s does not match with previous Begin group %s %sr� r� r� );r� �f2pyenhancementspatternr� �multilinepatternr� r� � crackliner � groupname� groupcacher r r r r* r� �dimensionpattern�externalpattern� intentpattern�optionalpattern�requiredpattern�parameterpattern� datapattern� publicpattern�privatepattern�intrinsicpattern� endifpattern� endpattern� formatpatternr� �functionpattern�subroutinepattern�implicitpattern� typespattern� commonpattern� callpattern� usepattern�containspattern� entrypattern�crackline_re_1r_ r� �markouterparenr� r� r� �callfunpattern� analyzeliner r r� �endswithr! r� r r r r r )r( �resetr� Z has_semicolonZsemicolon_line�flr) �patr� �re_1rX �m1�m2r� r" r" r# r� � s $ r� c C sh d}d}xZ| D ]R}|dkr6|d }|dkrX|d }qn"|dkrX|d }|dkrX|d }q|| }qW |S )Nr r �(r z@(@�)z@)@r" )r( r� rw r r" r" r# r� . s r� r� c C s� d}d}t | |d �\}}||7 }x�|r�|d |krN|dkrN|d| d 7 }n6||d 7 }|d dkrp|d7 }n|d dkr�|d8 }t |dd � |d �\}}||7 }q$W |r�tt|| |f���|S )Nr r z()�@r r r )r� r� r� )r( �commar� rw r� r� r" r" r# r� @ s r� c C s | � dd�� dd�}|S )Nz@(@r z@)@r )r� )r( rh r" r" r# �unmarkouterparenS s r c C s | si } |s| S | |kr | S x�t |�� �D ]�}|dkrP|sB|| kr�|| | |< q*|dkrxx�|| D ]}t| ||�} qbW q*|dkr�t| || |�} q*|dkr�t| || |�} q*|dkr�|s�|| kr�|| | |< q*|dkr�q*|dkr�td| � q*td t|� ��q*W | S ) Nr, �attrspec� kindselector� charselector)�=�typename�note)r� �checkr� r� r� z"appenddecl: "%s" not implemented. z,appenddecl: Unknown variable definition key:)�list�keys� setattrspec�setkindselector�setcharselectorrW r� r{ )�declZdecl2�force�kr� r" r" r# � appenddeclX s6 r zD\s*(?P<this>(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P<after>.*)\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*\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 C s( x"| � dg �D ]}t�|�rdS qW dS )Nr r r )�get�_intentcallbackpatternr� )Zvdeclr� r" r" r# �_is_intent_callback� s r c C sl t | �} t�| �}|r:|�d�|�d�|�d�|�d�fS t�| �}|r`|�d�|�d�d d fS d g d d fS )NrX r� rv �bind)r� �nameargspatternr� r� �callnameargspattern)r( r r" r" r# �_resolvenameargspattern� s $ r# c < C s� | � d�}|dkrd atr�|dkr�ts�tdk r�tj�t�� d�d }t d| � da td adt t< i t t< g tt< g t t d < i t t d < dt t d < |t t d < d t t d< da|dk�r�|�� }t�d|tj�r�d}n,t�d|tj�r�d}nt�d|tj��rd}t| � d��\}}}}|d k�rN|dk�r8d}nd}|dk�rNt d� ||tfa|�r|tdd � t|�� d �D ��}ng }d|k�r�xd|k�r�|�d� �q�W t d � d} d} |d k�r6d} d t t k�r�d S |t t d k�r�d S x$tt D ]} | d |k�r�d S �q�W |t t d! k�r(d S d"d#d �| }t�rjtd$k�rjtdk�rjtd% ad} |d&k�rjd} td ai t t< g tt< | �rtdk�r�t d'tt� d� d(t t< dt t d < tt t d < dt t d< g t t d < g t t d)< g t t d!< i t t d < td ai t t< g tt< | �r�tdk�r6t d*t d� d+t t< d+t t d < d,t t d < d-t td d t td d f t t d< g t t d < g t t d)< g t t d!< i t t d < td ai t t< g tt< |t t< |t t d < |�s�d.|�d/d0� }| � d1�t t d2< t |�t t d < |t t d3< tdk�r:tt t d< n^t�rltd4k�rld-t td d tf t t d< n,d-t td d t td d f t t d< x2t t t � � �D ] } t t | �s�t t | = �q�W |t t d < g t t d < g t t d)< g t t d!< i t t d < i t t d5< |d6k�r*g t t d7< |d k�r�|t td% d) k�r`t td% d) � |� t �!t td% d �t t d < y,t t d | t t d | d8 �"d9�= W n t#k �r� Y nX |d:k�r�y6t$t t d | t td% d d �t t d |< W n t#k �r Y nX |d;k�rt|�rt|t t d k�rt||k�stt$t t d | t t d | �t t d |< yt td% d! � |� W n t#k �r� Y nX |d#k�r�t%d �| � d1�d/ | �} | �r�t&| � d�| � d��\}}}}t'||||� |d k�r|ttd � t t � tt ttd d$ d < tt= td attd � t t � tt ttd d$ d < tt= td a�n�|d5k�r t| � d��\}}}}|d k �r||�r�td<d � t|�� d �D ��}ng }|d k�s�t(t|���|t t d5 |< d5|tfa�nr|d6k�rRt&|| � d��\}}}}t'||||�}|d k �r|d=|tfa�n*|d>k� r�t t d }| � d��)� }|�*d?�}|dk � r(|d@k� r(t+|��*dA�d% }|d |d � d? ||d d � }|�*d?�}||d � d?k� r(d t t k� r(t dB| � d�|d |� f � |dC�,t t d � }|dk � r<d}d}n |d |� �)� }||d% d � }t|�� d �}t-|�dk� r�|d }t dDdC�,|dd � � � d }�xdEd � t|�� d �D �D �]�}t.�|�}|� s|dFk� r�d} n$t/| �0� � t dG|t|�f � � q�nt |� d ��} | |k� r&i || < |dHk� r>||� d� }|d@k� r�| � d�| }t1�|�� r�| t t d k� r�tdk� r�dIt td% d k� r�t dJ� | t t d k� r�t dK| t t d f � t t d � | � n t2dL| � n t2dM| � |dNk� r|}d8|| k� r$|| d8 � |� n|g|| d8< |d9k� r�t t d dk� rZt dO� � q�| t t d k� rp� q�d)t t k� r�g t t d)< t t d) � | � | }� q�W |t t d < |d k �r|d=|tfa� n�|dPk�r"t t d }| � d��)� dd$� }d }�x t|�� d �D �]�}y dQd � |� dR�D �\} }W n* t#k � rX t dS||f � � w Y nX t3|�}t | �} | |k� r|i || < dR|| k� r�|| dR |k� s�t dT| || dR |f � t4||�} | � rd| �5dU�dVk� r4t |�} xHt6�7|�D ]:} t || �8� | �9� � �� �dWdX��| | �8� | �9� �< � q�W d�,| �}n0| �5dU�dYk� rd|dd � �� �dWdX��dCdZ�}yt:|i |�} W n> t;t<t=fk � r� } zt2d[|| f � � w W d d } ~ X Y nX t| �|| dR< d8|| k� r�|| d8 � dP� ndPg|| d8< | }� q W |t t d < |d k �r|d=|tfa� nZ|d\k�rl| � d��)� �� d]k�rTd t t d\< �q|| � d��r|d\t t k�r|t t d\ } ni } | d k�r�t d^� i } �x�t| � d��� d �D �]�}i } t�d_|tj�}|�s�t d`| � �q�t>�|� d��}!|!�st da| � �q�t&|!� d�|!� d��\}}}}t?||�\}"}#}$|| dU< |"| db< |#| dc< |$| dd< x&t | � � �D ]} | | �s`| | = �q`W x�t|� d��� d �D ]�}%de|%k�r�y dfd � |%� de�D �\}&}'W n& t#k �r� t dg|% � �w�Y nX n |%�)� }&}'t-|&�t-|'� k�rdk�s"n t dh|% � �q�x,t@tA|&�tA|'�d �D ]}(| | tB|(�< �q:W �q�W �q�W | t t d\< �n|dik�r�g }d})d}*d}+d},d}-x�| � d�D ]�}.|-�s�|.djk�r�|, },|.dkk�r�|,�r�|+d }+�q�|.dlk�r�|-d }-n|.dmk�r�|-d }-|+dk�r |)|. })n\|+dk�r |*|. }*nH|+d%k�r�|)�)� })|)�CdC��rL|)dd � �)� })|� |)|*g� |.})d}*d}+�q�W |+d%k�r�|)�)� })|)�CdC��r�|)dd � �)� })|� |)|*g� i }/d t t k�r�t t d }/d }�x�|D �]�}0dnd � |0D �}0|0d d dCk�r |0d dd � |0d< |0d d dlk�r2t do|0d � �q�d}d}1t-|0d �}2�x0tdpd � t|0d �� d �D ��D �] } | d dlk�r�t do| � �qjd},xH||2k �r�|,�s�|0d | dCk�s�|0d | djk�r�|, },|d }�q�W |d }| |/k�r�i |/| < dR|/| k�rP|/| dR |0d |1|d � k�sPt dq| |/| dR |0d |1|d � f � |0d |1|d � |/| dR< |}1| }�qjW �q�W |/t t d < |d k �r|d=|tfa�n�|drk�r | � d��)� }|d dkk�s�ds| }g }3d}+d}4d}5xz|D ]r}.|.dkk�r|+d }+�q�|+d4k�r<|4�)� }4|4�s dt}4|3� |4|5g� |+d% }+d}4d}5|+d% �rP|4|. }4n|5|. }5�q�W |4�)� }4|4�spdt}4|3� |4|5g� i }6drt t k�r�t t dr }6xh|3D ]`}.|.d |6k�r�g |6|.d < x>dud � t|.d �� d �D �D ] }|�r�|6|.d � |� �q�W �q�W |6t t dr< dr|4tfa�n\|dvk�r�t�dw| � d�tj�}|�rj|�0� }7dvt t k�rhi t t dv< |� d �}i t t dv |< d}8dx|7k�r~|7dx d k �r~dy|7k�r�|7dy d k�r�d}8|8t t dv | dz< d{d � |7dx � dC�D �}i }9x||D ]r}0dR|0k�rDt�d||0tj�}!|!�r2|!� dv��)� |9|!� d}��)� < nt d~t|0� � n|0|9|0< |9t t dv | d< �q�W n nt/| �0� � t d�� n�|d�k�rd�t t k�r�i t t d�< t t d� }:| � d�d�k�r�d�|:k�r�tD|:d� tE��r�|:d� g|:d�< |:d� � | � d�� n| � d�|:| � d�< nh|dk�r^td k�r:t�r6t d�� d S t};tFt |; td d%� | � d�� n tdk�r|t/| �0� � t d�� d S )�Nr� r� )r� r� r� rT r rb r zBanalyzeline: no group yet. Creating program group with name "%s". �programr� r� r� rX Zfromsky�from)r� r� r� z block\s*dataz block datazpython\s*modulez python modulezabstract\s*interfacezabstract interfacer� � _BLOCK_DATA_r )� interfacez block datazabstract interfacez2analyzeline: No name/args pattern found for line. c S s g | ] }|� � �qS r" )rs )rZ �xr" r" r# r\ � s z analyzeline.<locals>.<listcomp>z@,@z<analyzeline: argument list is malformed (missing argument). )r� r� r� r� r� r� r r� )r' zabstract interfacez&analyzeline: Creating module block %s �moduler� zDanalyzeline: Creating additional interface block (groupcounter=%s). r' �unknown_interfacez%s:%sZunknown_rz r� r� �prefixrv � r� rT �varnamesr r� )r� r� r� c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ Q s �variable)r� r� r� r� r� r� r� r� z::r� z@)@z'All arguments will have attribute %s%s r� zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r. c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ w s )r� r� zEanalyzeline: no name pattern found in %s statement for %s. Skipping. r� �__user__z8analyzeline: missing __user__ module (could be nothing) z;analyzeline: appending intent(callback) %s to %s arguments z+analyzeline: intent(callback) %s is ignoredz<analyzeline: intent(callback) %s is already in argument list)r� r� r� r� r� r� z(analyzeline: ignoring program arguments r� c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s r zManalyzeline: could not extract name,expr in parameter statement "%s" of "%s" zGanalyzeline: Overwriting the value of parameter "%s" ("%s") with "%s". r, r- r� �e�complexz+1j*(z1analyzeline: Failed to evaluate %r. Ignoring: %s r� �nonez<analyzeline: Overwriting earlier "implicit none" statement. z9\s*(?P<this>.*?)\s*(\(\s*(?P<after>[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" r r r �-c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ s zZanalyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement z^analyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement (2) r� �'rd r r c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ 6 s z>analyzeline: implied-DO list "%s" is not supported. Skipping. c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ @ s z=analyzeline: changing init expression of "%s" ("%s") to "%s" r� z//�_BLNK_c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ { s r� zR\A\s*(?P<name>\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P<notonly>))\s*(?P<list>.*))|)\s*\Zr Znotonly�onlyc S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s z7\A\s*(?P<local>\b\w+\b)\s*=\s*>\s*(?P<use>\b\w+\b)\s*\Z�localz0analyzeline: Not local=>use pattern found in %s �mapz0analyzeline: Could not crack the use statement. )r� r� Zusercodez-analyzeline: No context for multiline block. z+analyzeline: No code implemented for line. )Gr� r! r r r r� r� �basenamer r� r* r r� r� r r� r� r� r� r# r^ r� �remover r r r� r� rY r r r� �copy�deepcopyrL r� r r� �cracktypespec0� updatevarsr� rs �findr� r� rJ � namepattern�printr� r rW �get_parameters�determineexprtyper � real16pattern�finditer�startr� �eval� SyntaxError� NameError� TypeError�typespattern4implicit� cracktypespecr� �ord�chr� startswith� isinstancer{ �appendmultiline)<r� r6 r( r� ZnewnamerX r� rv r Z needmoduleZ needinterface�itr �tr, �selector�attr�edecl� last_namer� rf �pl�chr0 r ZapZinitexpr�params�tt�v�msg�implr r � kindselect� charselectr rh ZbegcZendc�o�dl�ilrw �fcZinpr r� r� �jZllen�clZbn�olZ commonkey�mmZisonlyr� r� �gcr" r" r# r � s� * * 4 , $ " 8 " * $ 0& " r c C s: d| kri | d< | d }||kr(g ||< || � |� d S )NZf2pymultilines)r� )r� Z context_name�mlr� r" r" r# rQ � s rQ c C s� d }d }t �d| t j�r d} n"t �d| t j�r4d} n | �� �� } t�t|��}|s^td� d S |�� }x$t |� � �D ]}t || �||< qtW | dkr�|d }|d }|� d �}|d kr�|d |� �� }||d d � }| |||fS ) Nzdouble\s*complexzdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line. )r1 r. �logicalr- � characterrT r� r� z::r r� ) r� r� r� rs r� � selectpatternr� r* r� r r r r? )r, r� rT rU r r� r rf r" r" r# r= � s. 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>.*)|))\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 C s� | � � } t| �dkr| S | d }xTtdt| �d �D ]>}| | dkrf| |d dks4| |d dkrfq4|| | }q4W || d }|S )Nr r rz z ()[]{}=+-/* r )rs rJ r� )�exprZexpr2rf r" r" r# � removespaces� s ro c C s� d}d}d}d}x�| D ]�}|dkr8|dkr8|| }|}q|dkrL|dkrL|}||kr^|d }n,||krp|d }n|dkr�|dkr�|d }q|| }|}qW |S ) Nr r r4 rc )rc r4 �")r4 rp r rz z@_@r" )r( r� rw �cc�cbr r" r" r# �markinnerspaces� s* rs c C s d }t | |�\}}}|r�dd� t|��d�D �}g }t�d�} xL|D ]D} | sNqD| �| �} | r~| �d��� } | | t| �d � } |� | � qDW |}dd� t|��d�D �} g }xP| D ]H}xBdd� tt t |��dd ��d �D �D ]}|r�|� |� d d�� q�W q�W �x|D �]�}t �|�} | �s0td t|� � �qt| �d ��}i }|tt d k�rvtt d | �� }d|k}|�r�| |d< n*| �r�| |d k�s�td||d | f � d|k�r�t�|�|d< nz|�r>xrt|�� �D ]b}||d k�r"|| |d | k�s"td|||d | || f � nt�|| �|d |< �q�W d|k�rp|�rp|�r^||d< ntd||f � nz|�r�xrt|�� �D ]b}||d k�r�|| |d | k�s�td|||d | || f � nt�|| �|d |< �q�W d|k�r�||d< n*|�r(|d |k�s(td||d |f � d|k�rBt�|�|d< n2|�r�xl|D ]"} | |d k�rN|d � | � �qNW n@t�| �|d< t�|�|d< t�|�|d< ||d< t�|�|d< d|�d��p�g k�r |tt d k�r dtt k�r�g tt d< tt d � |� | �d ��r�t�t| �d ���}|�r�|�� }x:d D ]2}||d d k �r>||d ||< ||d = �q>W x<t|�� �D ],}|| d k �r�t|| �||< n||= �q�W d |k�r d |k�r |d d!k�r�|d |d < |d = n8|d d" |d |d < |d = td#| || ||d f � d |k�r�d$|d }d|k�sJ|d �sV|g|d< n\|d � |� xL|d D ]@}|d d%� d&k�rn||k�rn|d d'= td(|||f � P �qnW d |k�rB| d)k�r�d|k�s�|d �s�i |d< |d |d d*< nN| d+k�rBd|k�s|d �si |d< d |d k�r2|d d = |d |d d*< d,|k�r�d-|k�r�|d- |d, k�s�td.||d- |d, f � n |d, |d-< ntd/|| �d � � x&t|�� �D ]}|| �s�||= �q�W |tt d |< d0tt k�r tt d0 � |� |}�qW |S )1Nc S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ s z updatevars.<locals>.<listcomp>z@,@z(?P<start>[a-zA-Z]+)rF c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ # s c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ & s rz )r z@ @z@_@z;updatevars: no name pattern found for entity=%s. Skipping. rX r� r, zIupdatevars: attempt to change the type of "%s" ("%s") to "%s". Ignoring. r zVupdatevars: attempt to change the kindselector "%s" of "%s" ("%s") to "%s". Ignoring. r zEupdatevars:%s: attempt to change empty charselector to %r. Ignoring. zVupdatevars: attempt to change the charselector "%s" of "%s" ("%s") to "%s". Ignoring. r zMupdatevars: attempt to change the typename of "%s" ("%s") to "%s". Ignoring. r r� r� r� r� )rJ �array�init�2rJ rt r r� z-updatevars: "%s %s" is mapped to "%s %s(%s)" z dimension(%s)� r� r z5updatevars:%s: attempt to change %r to %r. Ignoring. )r1 r. rk r- r rl ru r zTupdatevars: attempt to change the init expression of "%s" ("%s") to "%s". Ignoring. z?updatevars: could not crack entity declaration "%s". Ignoring. r- ) rL r� r� r� r� r� r� r� rJ r� ro rs r� r@ r* r� rY r� r r; r r rW r �lenarraypatternr� r� r )r, rT r Z entitydeclrW r_ r` r r� r r� r� �s�elZel1r0 �e1ZenamerV Znot_has_typespecr r �d1�lk�dmZdm1r" r" r# r> s * $ $ ( r> c C s d }d }d }|�r�| dkr�t �|�}|s<tdt|� � d S |�� }|d |d< |d= x"t|�� �D ]}|| sd||= qdW x$t|�� �D ]\}}t|�||< q�W �nX| dk�r�t �|�}|s�tdt|� � d S |�� }|d |d< |d= |d �rRt �t |d ��}|�� }xBd D ]:}||d �r6||d ||< || ||< ||d = �qW |d= x&t|�� �D ]}|| �sf||= �qfW xzt|�� �D ]\}}t|�||< �q�W nR| d k�r�t �d |t j �}|�r�|�d �}ntdt| | � � ntdt|� � |||fS )N)r1 r. rk r- z4cracktypespec: no kindselector pattern found for %s Zkind2r rl z4cracktypespec: no charselector pattern found for %s Zcharlen�lenkind)rJ �kindrv rT z\s*\(\s*(?P<name>\w+)\s*\)rX z'cracktypespec: no typename found in %s z'cracktypespec: no selector used for %s )r r� r* r� r� r r �itemsrY r �lenkindpatternr� r� r� r� ) r, rT r_ r` r r rf r r} r" r" r# rL � sf rL c C s� | si } |s| S d| kr&|g| d< | S |r8| d � |� || d krH| S |dkrld| d krl| d � |� nz|dkr�d| d kr�| d � |� nV|dkr�d| d kr�| d � |� n2|dkr�d| d kr�| d � |� n| d � |� | S )Nr r> � automaticr� r� )r� )r rU r r" r" r# r � s. r c C s^ | si } |s| S d| kr$|| d< | S x4t |�� �D ]$}|sF|| d kr2|| | d |< q2W | S )Nr )r r )r �selr r r" r" r# r � s r c C s^ | si } |s| S d| kr$|| d< | S x4t |�� �D ]$}|sF|| d kr2|| | d |< q2W | S )Nr )r r )r r� r r r" r" r# r s r �unknownc C s d| kr| d S |S )NrX r" )r� r� r" r" r# � getblockname s r� c C s2 yd| d | d f a W n tk r, Y nX d S )Nz In: %s:%s r% rX )r r� )r� r" r" r# � setmesstext s r� c C s2 i }d| krt | d �}d| kr.|�| d � |S )N� parent_blockr� )� get_usedict�update)r� �usedictr" r" r# r� & s r� c C s� |d kr i }t | �}|s |S x�t|�� �D ]�\}}|�� }|tkrZtd|| �d�f � q*t| }t|�}|spq*|r�td| � x@t|�� �D ]0\}}||kr�tdt |�t |�f � |||< q�W q*W |S )Nz0get_useparameters: no module %s info used by %s rX z+get_useparameters: mapping for %s not impl.zDget_useparameters: overriding parameter %s with value from module %s) r� r r� r� r r* r rB rW r� ) r� � param_mapr� Zusename�mapping�mvarsrZ r r\ r" r" r# �get_useparameters/ s. r� c s� t s| S t| t�r*� �fdd�| D �}|S t| � td�| d f d� � d krXt| �� � d k r�d| kr�| d }xPt|�� �D ]@}|| }d|kr~|d }d|kr~|d }|� kr~� | |d< q~W � �fd d�| d D �} | | d < | S ) Nc s g | ]}t |�d � d��qS )rk )�tabr� )� postcrack2)rZ �g)r� r� r" r# r\ S s z postcrack2.<locals>.<listcomp>z %sBlock: %s rX r r� r r� c s g | ]}t |�d � d��qS )rk )r� r� )r� )rZ �b)r� r� r" r# r\ f s r� )r rP r r� r* r� r ) r� r� r� �retr� rx �varr� �valZnew_bodyr" )r� r� r# r� M s0 r� c C sd t | t�rjg }g }xN| D ]F}t|� t||d d�}d|krTd|d krT|�|� q|�|� qW || S t| � t | t�s�d| kr�tdt| � ��d| kr�| d dks�td|| d f d � t | �} t | �} t | �| d < t | d �| d < d | k�r| d �r| d }t | ||d�| d < g }d| k�r\| d }x0t|�� �D ]}d|k�r<|�|� �q<W ni }d} d| k�rv| d } d| k�rR| d �rRg } d| k�r�| d } t�| d �} | �r�| d } nd} | |k�r�d} x d| | f |k�r�| d } �q�W d| | f } dg i | d d�}x�| d D ]�}|| k�r�g }d}x�| d D ]�}|d }|d dk�r:d} xH|d D ]<}| d } d|k�rb|d |k�rbt�|�}|d | = P �qbW |�r:|d �s�| d |= | | �|�= P �q:W |d �|� n(|| k�rt| | ��s| | |d |< �qW |d �s"|d �rR| | d< d|gi | | d d�}i || < t�|� |�r`|| d< | S ) zi TODO: function return values determine expression types if in argument list rk )r� rX r/ r� z0postcrack: Expected block dictionary instead of r* z %sBlock: %s r r� Zsortvarsr� r� r� r r� r� Z__user__routinesZunknown__user__routinesr z%s_%ir' Z_user_interface)r� r� r� rX r z python module)r� r� r� rX r� )rP r r� � postcrackr� �dictr� r{ r* � analyzeargs� analyzecommon� analyzevars� sortvarnames� analyzebodyr r; rL Z isexternalr )r� r� r� ZgretZuretr� Z userisdefinedZuseblockr rX r� r� Zmnamerf r' r0 Zedefre r� ZbbZmblockr" r" r# r� m s� r� c C s g }g }xBt | �� �D ]2}d| | kr>| | d r>|�|� q|�|� qW t|�}d}x�|�r|d }d}x*|dd � D ]}|| | d krzd}P qzW |r�|dd � |g }|d }||kr�tdd�|� d � || }P qZ|�|� |dd � }t|�}d}qZW |S )N�dependr r zTsortvarnames: failed to compute dependencies because of cyclic dependencies between z, r� )r r r� rJ rW r� )r� Zindep�depr\ rx rf r �wr" r" r# r� � s8 r� c C s� t | �s | S g }�xXt| d �� �D �]B}g }�x*| d | D �]}t�d|tj�}|�r:g }|�d�r�dd� t|�d���d�D �}t |�d�� � �}|| d kr�d | d | kr�| d | d � d d � |� � n d d � |� g| d | d < n0|�rd d d � |� gi| d |< n i | d |< ||k�rN|� |� n|}t d ||f � |� |� q>W || d |< q$W d | k�r�|| d < n| d | | d < | S )Nr� z2\A\s*\b(?P<name>.*?)\b\s*(\((?P<dims>.*?)\)|)\s*\Z�dimsc S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s z!analyzecommon.<locals>.<listcomp>z@,@rX r� r z dimension(%s)r� zNanalyzecommon: failed to extract "<name>[(<dims>)]" from "%s" in common /%s/. � commonvars)Z hascommonr r r� r� r� r� r� r� rY rs r� r� rW )r� r� r Zcomvarsr0 r� r� rx r" r" r# r� � sB r� c C s t | � g }x�| d D ]�}| |d< |d dkr�|d k rF|d |krFqn|d }|d tkr\qtrn|d tkrnqt|ddd �|d < n|}t|||d d �}|d d kr�|d s�d|kr�q|d �dd�dkr�t�|� q|d dkr�|d t|d < |�|� qW |S )Nr� r� r� )r� r� rX r� z T)� as_interfaceZsaved_interfacerk )r� )r' zabstract interfacer� rz r � pythonmoduler) r� ) r� r r �crack2fortrangenr� r� r r� r )r� r� r� r� r� Zas_r" r" r# r� s2 r� c C s� t | � t}i }d| kr�| d d krFd }tdkr�tdt| d � � nVxTt| d �� �D ]@}| d | �d�dkr�| d | ||< qX| d | d ||< qXW ||fS )Nr� r z6buildimplicitrules: no implicit rules for routine %s. rX r, )r> r� )r� �defaultimplicitrulesr r* r� r r r )r� � implicitrules� attrrulesr r" r" r# �buildimplicitrules< s r� c C s0 t | ||�}t|�ttgkr |S td| ��dS )z2 Like `eval` but returns only integers and floats zr=%rN)rG rT r/ r1 r� )r0 r� r� rh r" r" r# �myevalO s r� z \A\b\w+\b\Zc C s yt t| i i ��}d|dfS tk r. Y nX t�| �rDdd| fS t| �}�x�|D �]�}t|�|krhqTt�d| d | �r~qTt�d| d tj �}|�| �}|rT�yP|�| �}x,|r�d|� d �d|� d �f }|�|�}q�W t|i i �} |�| �}x.|�r"d|� d �d|� d �f }|�|�}q�W t|i i �| } |�| �}x0|�rnd|� d �d |� d �f }|�|�}�q@W t|i i �}|�| �}x0|�r�d|� d �d |� d �f }|�|�}�q�W t|i i �} | d | |k�r�| d | | k�r�| | |fS W n tk �r Y nX P qTW d S )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*\([^)]*\bz\bz(?P<before>.*?)\bz\b(?P<after>.*)z%s(%s)%sr� r� g �?g �?)NNN) r/ r� r� �getlincoef_re_1r� rJ r� �searchr� r� r� ) r0 Zxsetr Zlen_er( r r� r �eer� r� �c2r" r" r# � getlincoefY s^ $r� z \A[a-z]\w*\Zr c C s� g }y|� t| d i i �� W n" tk r@ |� | d � Y nX y|� t| d i i �� W n" tk r~ |� | d � Y nX t|d t�r�d|d }|dkr�t| d �}n,|dk r�d| d | f }nd| d |f }nZt|d t��r$d|d }|dk�rd| d }nd|| d f }nd| d | d f }ytt|i i ��ddfS tk �rd Y nX t| d |�t| d |� }}d|d |d gk�r�|d |d fd k�r�t|d |d d �ddfS |d |d d }|d d|d f}|d ||d f}|d dk�r�|d |k�r�|dk �r\d |d |d | f |d d | |d f fS |�r�d |d |d |f |d d||d f fS d|d |d f |d d|d fS |d dk�rn|d |k�rn|dk �rd |d |d | f |d d | |d f fS |�rDd |d |d |f |d d||d f fS d|d |d f |d d|d fS |d |d k�r,|d |k�r,|d |d } | �s�t|�ddfS |dk �r�d | |d | f |d d | | f fS |�rd | |d |f |d d|| f fS d| |d f |d d| fS |d |d k�rLdk�r�n n�t|d �} | |k�r�t| ��r|t d| � d| } |dk�r�d|d | f }n2|dk �r�d|d | | f }nd|d | |f }�n�|d dk�r�t|d �} | |k�rt| ��rt d| � d| } |d dk�r(n(|d dk�r@d| } nd|d | f } |dk�r`| }n&|dk �rzd| | f }n d| |f }�n"|d dk�rht|d �} | |k�r�t| ��r�t d| � d| } |d dk�r�d| } nJ|d dk�r�d| } n2|d dk �r d|d | f } nd|d | f } |dk�r>| }n&|dk �rXd| | f }n d| |f }�nDt|d �} | |k�r�t| ��r�t d| � d| } |d dk�r�d| } nJ|d dk�r�d| } n2|d dk �r�d|d | f } nd|d | f } t|d �} | |k�r2t| ��r*t d| � d| } |d dk�rBn(|d dk�rZd| } nd|d | f } |dk�r�d| | f }n*|dk �r�d | | | f }nd | | |f }|ddfS ) aX Parameters ---------- dl : sequence of two str objects dimensions of the array args : Iterable[str] symbols used in the expression star : Any unused Returns ------- expr : str Some numeric expression as a string arg : Optional[str] If understood, the argument from `args` present in `expr` expr2 : Optional[str] If understood, an expression fragment that should be used as ``"(%s%s".format(something, expr2)``. Examples -------- >>> getarrlen(['10*x + 20', '40*x'], {'x'}) ('30 * x - 19', 'x', '+19)/(30)') >>> getarrlen(['1', '10*x + 20'], {'x'}) ('10 * x + 20', 'x', '-20)/(10)') >>> getarrlen(['10*x + 20', '1'], {'x'}) ('-10 * x - 18', 'x', '+18)/(-10)') >>> getarrlen(['20', '1'], {'x'}) ('-18', None, None) r r z%s-%sz%s+%sz-(%s)z%s-(%s)z %s-(%s)+1N)r r r� z %s * %s - %sz +%s)/(%s)z %s * %s + %sz -%s)/(%s)z%s * %sz)/(%s)z# getarrlen:variable "%s" undefined z(%s)z%s-%s-%sz%s-%s+%sr z-%sz%s*%sz+%sz+%s*%sz-%s*%sz%s%sz%s%s-%sz%s%s+%s) r� r� r� rP r/ r{ r� r� �_varname_matchr* ) rb r� �starZedl�p1r� r| Zd2r� r� r r� �c1r" r" r# � getarrlen� s� 0,& 40* ($ $ r� z\b[a-z][\w$]*\bc C s� | |kr�|| � dg �}d|| krft|| �sfx4t�|| d �D ] }||krD||krD|�|� qDW x^|d d � D ]8}x2|� |g �p�t|||�D ]}||kr�|�|� q�W qtW ntdt| � � g }||| < |S )Nr� r z,_get_depend_dict: no dependence info for %s )r �isstring� word_pattern�findallr� �_get_depend_dictr* r� )rX r� �deps�words�wordr� r" r" r# r� Z s r� c C s. t | �� �}i }x|D ]}t|| |� qW |S )N)r r r� )r� r] � depend_dictrx r" r" r# �_calc_depend_dictn s r� c s� t ��� g }x,t� �� �D ] }� | s|�|� � |= qW xR� r�xHt� �� �D ]8\}}� fdd�|D �}|s~|�|� � |= qN|� |< qNW q<W �fdd�|D �S )z c s g | ]}|� kr|�qS r" r" )rZ rx )r� r" r# r\ � s z$get_sorted_names.<locals>.<listcomp>c s g | ]}|� kr|�qS r" r" )rZ rX )r� r" r# r\ � s )r� r r r� r� )r� r] rX �lstZnew_lstr" )r� r� r# �get_sorted_namesv s r� c C s@ | d dkr| dd� } t �| �r&dS t�| �r4dS d| d S ) Nr z'"r r � � zkind(r )rD r� � real8pattern)rQ r" r" r# � _kind_func� s r� c C sL d| }|dkrdS |dkr dS |dkr,dS |dkr8d S |dd krHd S d S ) Nr| � r i r� l r� l r� � � r r" )rh r� r" r" r# �_selected_int_kind_func� s r� c C sX | dk r dS | dk rdS t �� �� }|�d�r<| dkrTdS n| dk rHdS | dkrTdS d S ) N� r� r� r� )�aarch64�power�ppcZriscv�s390xZsparc� � r| r )�platform�machiner� rO )�prh �radixr� r" r" r# �_selected_real_kind_func� s r� c C s4 t � |�}t � |�}x2dtfdtfdtfgD ]\}}||kr,|||< q,W g }x6t| �D ]*}d| | krVd| | d krV|�|� qVW t�dtj�}t�dtj�} t�dtj�} �x~|D �]t}d | | k�r| | d } t | | ��r| � � } xd D ]} | j | � } q�W |� d | �} | � d | �} d } d| | k�rpd| | d k�rpt | �}| � d| | d d d�} t | �|k } | �s�| �| ��s�| �d�}t |�dk�r�d�|d d� �� � � |d � � d�} t| | ��r,t| �}xHt�| �D ]:}t| |�� |�� � � � � dd��||�� |�� �< �q�W d�|�} n@t| | ��rl| d dk�rl| d dk�rlt| dd� ��d�}yt| ||�||< W n@ tk �r� } z | ||< td|t | �f � W d d }~X Y nX t | | ��r�t || t ��r�t || �||< |� � }||k�r,|| ||< q�t!| | � tdt |� � q�W |S )Nr� Zselected_int_kindZselected_real_kindr 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*\)r ))z.false.�False)z.true.�Truez kind("\1")zselected_int_kind(\1)Fr r� r r r r� r0 r r r z@,@z get_parameters: got "%s" on %s z2get_parameters:parameter %s does not have value?! )"r; r� r� r� r� r� r� r� r� Z islogicalr� r� �subrJ r� r� r� Zisdoubler rD rE rF r� Z iscomplexr� rG r� r* r� r� rP r/ rN rA )r� Z global_paramsrZ Zg_paramsrX �funcZ param_namesrx Zkind_reZselected_int_kind_reZselected_kind_rer\ �replZ is_replacedZ orig_v_lenZv_r[ r� r� r] �nlr" r" r# rB � sv & 8 & rB c C s | dkr dS t | |�S )N)z(:)z(*)r z(*))� _eval_scalar)�lengthrZ r" r" r# � _eval_length s r� z\d+_c C s� t | �r| �d�d } ytt| i |��} W nT tttfk rD | S tk r~ } z td|| t |� � �f � W d d }~X Y nX | S )Nr� r z,"%s" in evaluating %r (available names: %s) ) �_is_kind_numberr� r{ rG rI rH rJ r� rW r r )�valuerZ r] r" r" r# r� s (r� c 6 C s t | � t| �\}}t�| d �}| d dkrF| d |krFi || d < d| d kr�|d= d| d d kr�| d d d }x<t|�� �D ],}x&dD ] }||kr�t|| |�||< q�W q�W g }| d }x8|D ]0} y|| |�| � W q� tk r� Y q�X q�W x*t|�� �D ]}||k�r |�|� �q W t|t | ��} i } t � d �j } xtt|�� �D ]d} | | �}|�rT| |� � |�� � }y | | W n. tk �r� t � d | t j�j | |< Y nX �qTW � x�|D � ]�}|d t|�� �k�r�t|| ||d �||< d || k�r�d|| k�r(d || d k�s�|�r�|d �� }x�t|| �� �D ]~}|d k�rp|| | dk�rp�qL||| k�r�|| | || |< n4|dk�rLx(|| | D ]}t|| |�||< �q�W �qLW n&|| d k�r�tdt|�| d f � d|| k�rbd|| d k�rb|| d d }ytt|i | ��}W n tk �rP Y nX ||| d d< d|| k�r�d|| d k�r�|| d d }ytt|i | ��}W n tk �r� Y nX ||| d d< i }d|| k�r�|| d }|�� g || d< d\}}}}}�x�|D �]�} | d d� dk�rH| dd � �� dd� }n�| d d� dk�rt| dd � �� dd� }n�| d d� dk�r�| dd � �� dd� }nj| d d � d k�r�| d d � �� dd� }n>| d d � d k�r�| d d � �� dd� }nt|| | �||< |�r�d|| k�r*g || d< xRd d!� t|��d"�D �D ]6}|�d#d�}||| d k�rD|| d �|� �qDW d }|�r�|�d$d%�}|�d&d'�}d || k�r�|g|| d < n|| d �|� d }|d k �rHd|| k�r�g || d< xJtd(d!� t|��d"�D ��D ]*}||| d k�r|| d �|� �qW d }|d k �rd || k�rlg || d < xFd)d!� t|��d"�D �D ]*}||| d k�r�|| d �|� �q�W d }�qW |�r�d|| k�r�g || d< �x�td*d!� t|��d"�D ��D �]�}d+}|d,k�rd,}|| k�r,t| | �}xnt| �� �D ]^} t � d-| d. t j�} | � |�}x6|�r�|� d/�t| | � |� d0� }| � |�}�q`W �q:W ||k�r�|g} nt|d,��d1�} t | �d2k�r�d+| k�r�d+g} d+}t | �dk�r| d |k�sd3| d g} t | �d2k�r�t | t| d �� ��\}} } |d d � d4k�rP|d d � }| �rt| d5d � d6k�rt| d d5� } | �r�| | f||< || d �|� �q�W d|| k� r�t || ��r�d7} nd7} t || �� r�d|| k� r�|| d }d+|k� r�|d+ }t!d8||d9�"|| d �|d9�"|| d |g �f � || d �|� || d= d|| k� rlg || d< d:|| d k� r�|| d �d:� n t!d;| � d || k� r�d| k� r�|| d k� r�d|| k}!|!� r�g || d< g || d < d|| k� r�d}"t || d �}#�xX|| d D �]�}g }$d}%d}&||k� r�||k� rfd<|| d }&}%|| d }nFxD| d D ]8}'|'|k� r�� qpt � d=|' d> |t j�� rp|$�|'� � qpW ||k� r.d|| k� rxJ|| d D ]:}(|(d d� dk� r�|$|(dd � �� dd� �d9�7 }$� q�W d|| k� r.|$|| d }$|"d }"||k� rtd|| k� rtd?|| k� rt||| d k� rtt#t$t%t&�|| �� rt|g|| d< |#dk� r�d@|&| ||"|%f || d?< ndA|&||%f || d?< d || k� r |#dk� rdB|&| ||"|%|f g|| d < ndC|&||%|f g|| d < d|| k� r<dDg|| d< dD|| d k� r�dE|| d k� r�|| d �dD� nP|dFk� r |!� r ||k� r�||$k� r�|| d �|� n|| d |$ || d< � q W n�t'|| �� rld3})d|| k� rld+|| d k� r&t(|| d d+ | �})|)|| d d+< nFd|| d k� rlt(|| d d | �})|| d d= |)|| d d+< || d � s�|| d = |!� r�|| d � s�|| d= d?|| k�r�d|| k� r�g || d< dD|| d k�r dE|| d k�r || d �dD� d|| k�rrg || d< x>t| �)� �D ].\} }||| d? ��r(|| d �| � �q(W || d �sr|| d= t*|| ��r�t+|| d? | �|| d?< �q�W �x�t|�� �D �]�}|| d k�r�d || k�r�|| d | d < | d dk�r�dG| k�r"| dG |k�r"t,|| || dG �||< dH| k�r�| dH }*d }+d},|*�dId�}-|*|-k }+|-�dJd�}*|*|-k },t-d � |*�}|�rXt.|� dK�|� d0��\}.}/}}0t/|.|/�\}1}2}3|.|| d < |1�rd|1k�r�yt|1d i | �|1d< W n tk �r� Y nX |1|| d< |2�r|2|| d< |3�r&|3|| dL< |+�r>t|| dI�||< |,�rlt|| dJ�||< ntdMt| dH � � �q�W | d dNk�r dO| k�r�t�| d | dO �}4nt�| d �}4x4t|�� �D ]$}t#t0t1�|| ��r�|4�|� �q�W dP| k�rN|4�2t| dP �� �� xFt| dP �� �D ]2}x*| dP | D ]}||4k�r*|4�|� �q*W �qW | d dk�r�dG| k�rv|4�| dG � n|4�| d � | d dQk�r�| d }5|5|k�r�d||5 k�r�||5 d | d< | d dRk�r�|4�2t|�� �� x&t|�� �D ]}||4k�r�||= �q�W |S )SNr� r� r� rX r r )r� r� r� z[A-Za-z][\w$]*z.*\b%s\br r, r� Z undefinedzCanalyzevars: typespec of variable %s is not defined in routine %s. r rJ r r� )NNNNNrw r� r r r� r� r� rl r r� r c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s z analyzevars.<locals>.<listcomp>z@,@rz z\n\nz z\n r� c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s r �:z(?P<before>.*?)\bz\b(?P<after>.*)r� r� z@:@r� �1z1 * ���z/(1)rK zoanalyzevars: character array "character*%s %s(%s)" is considered as "character %s(%s)"; "intent(c)" is forced. r� r z'analyzevars: charselector=%r unhandled.r z.*?\bz\br z %s%s(%s,%s)%sz %slen(%s)%sz%s%s(%s,%i)%s==%sz%slen(%s)%s>=%sr� r� )r r� rv r+ Zpure� recursiver� r z'analyzevars: prefix (%s) were not used )r) r� z python modulez block datar� r� )r� r� rT )3r� r� r; r r r r� �KeyErrorrB r� r� r� r� rF r� r� r� r* r� r{ rG r� �reversers r� r� r� r^ r� rJ r� Z isintent_cZ isstringarrayrW r� Zl_orZ isintent_inZisintent_inoutZisintent_inplacer� r� r� Zisscalarr� r r� r= rL �isintent_callbackZ isintent_aux�extend)6r� r� r� r� �genrx r Zsvarsr� r� rZ Z dep_matchesZ name_matchr\ r� Zln0r� Z savelindimsrU �dimr� r� r r r �tmpr� r� r� r rb ZdiZ shape_macror) rf �niZddeps�ad�pdrh Zaar� �prZispureZisrecZpr1r, rT rV r_ r` r Z neededvarsrX r" r" r# r� ' s~ $ " & & ( r� z\A[a-z]+[\w$]*\Zc C sr | }t �| � }|r�t|�\}}t| |d |�}d}x0| D ](} | �� } | tjtj krZd} || }q:W |d dkr||d }n|d }|} x$| |d ks�| |d kr�| d } q�W | |kr�d } x | t| � |kr�| d } q�W | t| � } |r�||d | < nx| |d k�r4||d k�r(|d | |d | < n i |d | < d |k�rn||d |d k�rnt |d | d �|d | < | S ) Nr� Ze_r� r r0 �_er� rh r r� r� r� ) �analyzeargs_re_1r� r� rC r� rQ �ascii_lowercase�digitsr{ r ) r� r� r� Zorig_aZ a_is_exprr� r� �at�nar r r" r" r# � expr2name� s> r� c C s$ t | � t| �\}}d| kr$g | d< g }x&| d D ]}t|| |�}|�|� q2W || d< d| kr�xBt| d �� �D ].\}}x$|D ] }|| d kr�i | d |< q�W qrW xN| d D ]B}|d |kr�d| kr�g | d< |d | d kr�| d �|d � q�W d| k�r | d | d k�r i | d | d < | S )Nr� r� r� r� rX r� rv )r� r� r� r� r r� )r� r� r� r� r� r Zargs1r� r" r" r# r� � s. r� 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 C sT t | t�rddiS t | t�r$ddiS t | t�r6ddiS t | t�rD| S tt| ���d S )Nr, r. r- r1 )rP r/ r1 r1 r� r� r� )rh r" r" r# �_ensure_exprdict� s r� c C s� | |krt || �S | �� } t�| �r.ddiS t�| �}|rjd|�� krb|�d�rbtdt| � � ddiS t �| �}|r�d|�� kr�|�d�r�tdt| � � ddiS xNdD ]F}x@dd � t | |d �� d | d �D �D ]}||kr�t || �S q�W q�W i }t �| ��r t | d d � ||�}nft�| �}|�r�|�d�}t |�d�||�}|�r^d|k�r^|d= |�s�|d |k�r�t ||d �S | d dk�r�dddid�S |�s�tdt| � � |S )Nr, r1 rX z:determineexprtype: selected kind types not supported (%s) r. r- )�+r3 r rd c S s g | ] }|� � �qS r" )rs )rZ r( r" r" r# r\ � s z%determineexprtype.<locals>.<listcomp>)r r r r r r z'"rl r )r, r z>determineexprtype: could not determine expressions (%s) type. )r� rs �determineexprtype_re_1r� �determineexprtype_re_2r� r� r* r� �determineexprtype_re_3r� r� �determineexprtype_re_4rC �determineexprtype_re_5)rn r� �rulesr� �opr0 rS Zrnr" r" r# rC � sN * rC r� Fc C s t | � d}t| t�rjxN| D ]F}|rP|d dkrP|d tkr>q trP|d tkrPq |t|||d� }q W |S d}d}d}| d }|dkr�dS g } d| kr�| d }d| k�r| d } x2| d D ]&} t| | | �} t| | �s�| �| � q�W | d d ks�| �rd d � | � }d} d | k�rJx6t| d � � �D ]"} d | |t | | d | f } �q$W | � dg �d d � }|d k�r|d|k�r||� d� |�r�d| |t d � |�|f } d}d| k�r�t| d |t �}d}d| k�r�t| d |t �}|dk�r�d}d}d| k�r d| d }| d | k�r | �| d � t| d |t |d�}t| | d | |t |d�} d}d| k�rp|�spd| d }d| k�r�d}x8t| d �� �D ]$\} }d||t | d � |�f }�q�W || }|dk�r�|d k�r�d}d |||||||| || |||||f }|S ) Nr r� )r� r� rX )r� r$ r� r� r� z(%s)r� r� z %s%s%s %sr� �callbackz%s%sintent(%s) %sr� r� r* rv z result (%s)r� r% z! in %sr� z%s%sentry %s(%s)z block datar& z%%s%s%s %s%s%s %s%s%s%s%s%s%send %s %s)r� rP r r r r� r� r� r� r� r r r r: � use2fortran�common2fortran� vars2fortranr� )r� r� r� r� r� r+ rX r� Z blocktypeZargslr� r� r� r Z intent_lstr� r� rv r� ZmessZ entry_stmtsrf r" r" r# r� s� $r� c C sZ d}xPt | �� �D ]@}|dkr8d||d�| | �f }qd|||d�| | �f }qW |S )Nr r5 z %s%scommon %sr� z%s%scommon /%s/ %s)r r r� )r� r� r� r r" r" r# r Q s r c C s d}�x t | �� �D ]�}d|||f }| | i krP|r|d dkr|d d� }qd| | krp| | d rpd| }d| | kr�| | d r�d}xdt | | d �� �D ]L}|| | d | kr�d |||f }d}q�d |||| | d | f }d}q�W |r|d dkr|d d� }qW |S ) Nr z %s%suse %s,r r� r6 z%s only:r8 rz z%s%s%sz %s%s%s=>%s)r r )r� r� r� r� r r r" r" r# r� [ s( r� c C sX | d }g }xF|D ]>}yt � d| }W n tk r< Y qX || �r|�|� qW |S )Nr� z isintent_%s)�globalsr� r� )r� r� r� r� rw r" r" r# �true_intent_lists s r c C s t | � d}g }x"|D ]}|| d kr|�|� qW d| krvx8| d D ],}||krf||krr|�|� qFtd| � qFW d| kr�|�| d � |s�x&t|�� �D ]}||kr�|�|� q�W �x`|D �]V}d|| k�r xH|| d D ]8}||kr�d|| kr�||| d kr�td||f � q�W d| k�r�|| d k�r�t|| ��rRd |||f }d |||f }t|| ��r|d |||f }||k�r�d || k�r�q�d } x4| d D ](} || d k�r�| d dk�r�d} P �q�W | �r�q�||k�r�t|� t d| � q�|| d k�r | d dks�| � d��r q�d || k�r�d|| k�rfd|| d k�rf||kr�d |||f }q�t|| � t d| � q�|| d } | dk�r�d|| k�r�d| || d f } i } d|| k�r�|| d } nd || k�r�|| d } d | k�r.| d d k�r d | | d f } nd | | d f } nZd!| k�rnd"| | d! f } d#| k�rdd$| | d# f } nd%| } nd#| k�r�d&| | d# f } d'} d|| k�r�d(d)� || d D �}|�r�d*| d+� |�f } d+} d,|| k�r�d-| | d+� || d, �f } d+} d.|| k�r2t || �}|�r.d/| | d+� |�f } d+} d0|| k�r`d1| | d+� || d0 �f } d+} d|| k�r�d2| | d+� || d �f } d+} d3|| k�r�|| d3 }|| d d4k�r�y t |�}d5|j|jf }W n tk �r� Y nX d6| ||f } n d7| |f } d8||| f }q�W |S )9z& TODO: public sub ... r r� r� z7vars2fortran: Confused?!: "%s" is not defined in vars. r- r� zHvars2fortran: Warning: cross-dependence between variables "%s" and "%s" r� z%s%sintent(callback) %sz%s%sexternal %sz%s%soptional %sr, r r� rX r� r� r z/vars2fortran: No definition for argument "%s". rv r r� z-vars2fortran: No typespec for argument "%s". rT r z%s(%s)r r r )r r� z%s*(%s)z%s*%srJ z %s(len=%sr� z %s,kind=%s)z%s)z %s(kind=%s)rz c S s g | ]}|d kr|�qS ))r� r" )rZ r� r" r" r# r\ � s z vars2fortran.<locals>.<listcomp>z%s, %sr� r� z%s%sdimension(%s)r� z%s%sintent(%s)r z %s%scheck(%s)z%s%sdepend(%s)r )r1 zdouble complexz(%s,%s)z %s :: %s=%sz%s :: %sz%s%s%s)r� r� rW r� r r r� Z isoptional�showr* r r� r rG r- �imagr� )r� r� r� r� r� r� Znoutr� r� r� r� ZvardefrT r rU r� r\ r" r" r# r � s� $ r c C sH t dd� t| t� t dd� g attd �}t dd� t|�}t| S )NzReading fortran codes... r zPost-processing... z Post-processing (stage 2)... )r* r� r� r r� r r� )�files�postlistr" r" r# � crackfortran s r c C s$ t | �d }d}dt }|| | S )Nr� zE! -*- f90 -*- ! Note: the context of this file is case sensitive. zb ! This file was auto-generated with f2py (version:%s). ! See http://cens.ioc.ee/projects/f2py2e/ )r� � f2py_version)r� �pyf�header�footerr" r" r# � crack2fortran s r �__main__r� z-quietz-verboser� z-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form. z-skipemptyendsz--ignore-containsz-f77z-f90r} z-hz-showz-mr3 zUnknown option %s z IOError: %s 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� )r )r )r )r )r� )N)r N)Nr )r )NN)r )r r )r� F)r )r )r F)��__doc__�ior% rQ r� r� r� r; r� r r Zauxfuncs�versionr 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$ r* � _MAXCACHEr� r rV r_ rx rY r^ r` ra rg r� r� r� r� r� rq rr r� rt ry r r� ZbeforethisafterZ fortrantypesr� rK r� r� Z groupbegins77r� Z groupbegins90r� Z groupendsr� Zendifsr� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� �Sr� r� r� r� r� r� r� r� r r rm r! r" rD r� r r r# r rQ r= r@ r r r� rx ro rs r> rL 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� rB r� r� r� r� r� r� r� r� r� r� r� r� r� rC r� r r� r r r r �__name__r �funcsrw �f2Zf3Z showblocklist�argvr� rW r� ro r� r� �IOError�detailr{ r r r' r" r" r" r# �<module>� sF & ` ) 9 `"+ " G 5 Y ^ % - K $
| ver. 1.4 |
Github
|
.
| PHP 8.3.23 | Генерация страницы: 0.03 |
proxy
|
phpinfo
|
Настройка