Your IP : 216.73.216.213

Current Path : /opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/__pycache__/
Upload File :
Current File : //opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/__pycache__/crackfortran.cpython-35.pyc



(��^���3@s�dZddlmZmZmZddlZddlZddlZddlZddl	Z	ddl
Z
ddlZddlm
Z
ddlTe
jadadadadadd	ad
ad
adadadagad
ad
adaiad
a da!da"da#t#gia$d
a%ga&da'ga(da)da*ga+ga,ga-dd�Z.dd
d�Z/de_0iZ1xdD]Z2ddie1e2<q�WxdD]Z2ddie1e2<q�W[2iZ3iZ4x�dddddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGg3D]"Z5e5dHe3e5<e5e4e5dH<qnWdIdJ�Z6dKdL�Z7dMdN�Z8dOdP�Z9dQdR�Z:ej;dSej<�j=Z>ej;dTej<�j?Z@ej;dUej<�j?ZAej;dVej<�j?ZBej;dWej<�j=ZCdXdY�ZDeEddZd[�ZFd\d]d^ZGd_ZHej;eGd
eHeHd`fej<�dFfZIej;eGd
eHdaeHdad`fej<�ZJej;eGdbdcdcd`fej<�ddfZKej;eGdedfdfd`fej<�ddfZLdgZMej;eGd
eMeMd`fej<�ddfZNeMdhZOej;eGd
eOeOd`fej<�ddfZPdiZQej;eGd
eQeQdjfej<�dkfZRdlZSej;eGdmeSeSdjfej<�dnfZTej;eGd
dodod`fej<�dofZUej;eGd
dpdpd`fej<�dqfZVej;eGd
drdrd`fej<�drfZWej;eGd
dsdsd`fej<�dsfZXej;eGd
dtdtd`fej<�dtfZYej;eGd
dudud`fej<�dufZZej;eGd
dvdvd`fej<�dvfZ[ej;eGd
dwdwd`fej<�dwfZ\ej;eGd
dxdxdyfej<�dzfZ]ej;eGd
d{d{d|fej<�d{fZ^ej;eGd
d}d}d`fej<�d}fZ_ej;eGd
d~d~d`fej<�d~fZ`ej;eGd
ddd`fej<�dfZaej;eGd
d�d�d`fej<�d�fZbej;eGd
d�d�d`fej<�d�fZcej;eGd
d�d�d`fej<�d�fZdej;eGd
d�d�d
fej<�d�fZeej;eGd
d�d�d`fej<�d�fZfej;eGd
d�d�d`fej<ejgB�d�fZhej;d�ejg�d�fZid�d��Zjej;d�ej<�Zkdd�d��Zld�d��Zmd�d�d��Znd�d��Zodd�d��Zpej;d�ej<�Zqej;d�ej<�Zrej;d�ej<�Zsej;d��Ztej;d��Zuej;d�ej<�Zvd�d��Zwd�d��Zxd�d��Zyd�d��Zzd�d��Z{ej;d�ej<�Z|ej;d�ej<�Z}ej;d�ej<�Z~ej;d�ej<�Zej;d�ej<�Z�d�d��Z�d�d��Z�d�d��Z�d�d��Z�dd�d��Z�dd�d��Z�dd�d��Z�d�d�d��Z�d�d��Z�d�d��Z�dd�d��Z�d
dd�d��Z�dd
d�d��Z�d�d��Z�d�d��Z�d
d�d��Z�d�d��Z�ddd�d��Z�ej;d�ej<�Z�d�d��Z�ej;d��j=Z�d�d�d��Z�ej;d�ej<�Z�d�d��Z�d�d��Z�d�d��Z�d�d��Z�d�d��Z�ddd�d��Z�id�d��Z�d�d��Z�ej;d��j=Z�d�d��Z�d�d��Z�ej;d�ej<�Z�gd�d��Z�d�d��Z�ej;d�ej<�Z�ej;d�ej<�Z�ej;d�ej<�Z�ej;d�ej<�Z�ej;d�ej<�Z�d�d��Z�id�d��Z�d�d�d�d��Z�d
dd�Z�d
dd�Z�dd�Z�d
d�dd�Z�dd	�Z�d
d�Z�e�dkr�gZ�gZ�dZ�dZ�dZ�dZ�xej�dd�D]�Z�e�d
kr
n�e�dd
kr2
dZ�n�e�dkrM
dadan�e�dkrh
dadan�e�dkr�
tr�
e/dd�dadanie�dkr�
danTe�dkr�
dan?e�dkr�
dadan$e�dkr�
dadadane�dkrdZ�n�e�dkr&dZ�n�e�dkr;dZ�n�e�ddkrbe�de�e���n�e�rwdZ�e�an�e�r�dZ�e�anse�r�y!e�e��j��e�j�e��Wn9e�k
r�Z�ze�de�e���WYddZ�[�XnXn
e�j�e��q
Wtototr$e/dd�e�e�e��Z�tr�e/de�t�d�e�e��Z�e�td �Z�e�j�e��e�j��e�r�eEe��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,funcs)`
  `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'
     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.

�)�division�absolute_import�print_functionN�)�__version__)�*�fix�� �cCs�dadadadadadadadadada	ga
datgiada
dad	agaiadadadagagagagadadS)
Nrrrr	r
rz    ���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'�J/opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/crackfortran.py�reset_global_f2py_vars�s4	r)cCs:ts
dSts6|r&tjjt�tjj|�dS)N)rr�sys�stdout�writer )�line�flagr'r'r(�outmess�sr/�2zabcdefghopqrstuvwxyz$_�typespec�realZijklmn�integer�int�double�float�char�short�long�void�case�while�return�signedZunsigned�if�forZtypedef�sizeof�union�struct�static�register�new�breakZdoZgoto�switch�continue�else�inline�extern�delete�constZauto�lenZrank�shape�indexZslen�size�_i�max�minZflenZfshape�stringZcomplex_doubleZfloat_double�stdin�stderrr+�type�defaultZ_bncCs0|tkr,td|t|f�t|S|S)Nz&rmbadname1: Replacing "%s" with "%s".
)�badnames�errmess)�namer'r'r(�
rmbadname1s
r^cCsdd�|D�S)NcSsg|]}t|��qSr')r^)�.0�_mr'r'r(�
<listcomp>s	zrmbadname.<locals>.<listcomp>r')�namesr'r'r(�	rmbadnamesrccCs0|tkr,td|t|f�t|S|S)Nz+undo_rmbadname1: Replacing "%s" with "%s".
)�invbadnamesr\)r]r'r'r(�undo_rmbadname1s
recCsdd�|D�S)NcSsg|]}t|��qSr')re)r_r`r'r'r(ras	z"undo_rmbadname.<locals>.<listcomp>r')rbr'r'r(�undo_rmbadnamesrfcCse|jd�}|dkrdSd||d�kr9dSd||d�krSdS||dd�S)N�.rr�\�/r)�rfind)r]�ir'r'r(�getextension srlz.*[.](for|ftn|f77|f)\Zz-[*]-\s*fortran\s*-[*]-z-[*]-\s*f90\s*-[*]-z-[*]-\s*fix\s*-[*]-z[^c*]\s*[^\s\d\t]cCs�d}t|d�}|j�}d}t|�r<d}nt|�rTd}d}x�|dkr�|r�|ddkr�|j�r�|d8}|ddkr�t|dd��s�|dd�d
kr�d}P|j�}qWW|j�|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�close)�file�result�fr-�nr'r'r(�is_free_format1s$	
<
r�c	Cs�|s'tttttttttf	}|gkr7dSt}d}d}d}t	j
d�}t	j
dt	j�}	t	j
d�}
t	j
d�}t	j
d�}|r�|dd+�d,\}}
d
gdd�td
�D�}dat
j|�}x"|j�}|s
P|j�r�da|j�ad	a|}
dadatjjt�d	}tt�r�t|�pwt|�r�d	antt�r�t|�r�datr�tantatdtt�ttr�dp�df�|j�jdd
�}x1|dks,|d-dkrP|dd.�}q�Wts�|j|�}|r�|j d�d
}|j d�}|dd�j!�dkr�|d/}|j|dd��}|r�||j d�}n||dd�}|j"�dkr�d}q�tdkr�|dd0krO|d	d�j!�dkrCd|dd�}qwd}q�n(trwt#|�dkrw|dd�}|d|kr�t$d t|���|s�tr�t#|�dkr�|dd
kr�||d!d�}d}d}q�ts�|
j|�}|r|j d�}|rK||j|�j d�}d}d}n;d|dd�}|rt|j!�}n|}|}|}|dk	}q�d|dd�}|r�|j!�}n|}|}|}n#tdkr�|rU|d"krU|j|�rU|d#}x;|j�}|s+t%d$�P||}|j|�rPqW|j&�}|
j|�}|ry|j d�}|r�||j|�j d�}d}d}n'|r�|j!�}n|}|}|}|dk	}nt'd%tt���d&|j(�d	t|
fa|	j|�}|r|j d'�}tjj)|�rbt*|d(|d)d�qtjj+t�gt,}d}xR|D]J}tjj-||�}tjj)|�r�d	}t*|d(|d)d�Pq�W|std*t|�tj.j-|�f�n
||�|}
q�W|r.|j!�}n|}|}d&|j(�d	t|
fa|	j|�}|rI|j d'�}tjj)|�r�t*|d(|d)d�qStjj+t�gt,}d}xR|D]J}tjj-||�}tjj)|�r�d	}t*|d(|d)d�Pq�W|sStd*t|�tj.j-|�f�n
||�da|j/�|ry|dd	�n!|\	aaaaaaaaadS)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.
    NrrzS(?P<line>([^"]*["][^"]*["][^"!]*|[^\']*\'[^\']*\'[^\'!]*|[^!\'"]*))!{1}(?P<rest>.*)z*\s*include\s*(\'|")(?P<name>[^\'"]*)(\'|")z(?P<line>.*)&\s*\Zz(\s*&|)(?P<line>.*)z.*?'''rr
cSsg|]}t|��qSr')�str)r_r`r'r'r(rags	z#readfortrancode.<locals>.<listcomp>�
r�freez	Reading file %s (format:%s%s)
z,strict� z

r-�restr	�f2pyr�cro�C�#rqz     �Hzxreadfortrancode: Found non-(space,digit) char in the first column.
	Are you sure that this code is in fix form?
	line=%s�z.pyf�
z.Unexpected end of file when reading multiline
z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s"
	r]�
dowithline�istopzAreadfortrancode: could not find include file %s in %s. Ignoring.
r)rrrrz    )rr�ror�r�)0rr r!rr
�beginpatternrrr�re�compile�I�range�	fileinputZ	FileInputrvZisfirstline�filename�os�path�splitext�	is_f_filerx�_has_fix_headerr��beginpattern77�beginpattern90r/�repr�
expandtabs�replace�match�group�lowerryrO�	Exceptionr\�rstrip�
ValueErrorZ
filelineno�isfile�readfortrancode�dirnamer%�join�pathsepr{)Zffiler�r�ZsaveglobalsZlocaldolowercase�contZ	finalline�llZcommentlineZincludelineZcont1Zcont2Z
mline_mark�l1ZspacedigitsZfin�l�extrm�rlZ
origfinallineZlc�m�fn�include_dirsZ	foundfile�inc_dirZfn1r'r'r(r�Jsb
	
 		
0			"

	
#


#

r�z"\s*(?P<before>%s(?=\s*(\b(%s)\b)))z\s*(?P<this>(\b(%s)\b))z\s*(?P<after>%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|bytez.*z|static|automatic|undefinedz([a-z]+[\w\s(=*+-/)]*?|)�function�beginz	[a-z\s]*?�
subroutinezprogram|block\s*dataz?|module(?!\s*procedure)|python\s*module|interface|type(?!\s*\()zBend|endprogram|endblockdata|endmodule|endpythonmodule|endinterfacez[\w\s]*�endz>(end\s*(if|do|where|select|while|forall))|(module\s*procedure)z[\w]*?�endif�implicitzdimension|virtual�	dimension�external�optional�required�public�private�intrisiczintent|depend|note|checkz\s*\(.*?\).*�intent�	parameterz\s*\(.*�data�call�entry�callfun�common�use�contains�formatzKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddef�f2pyenhancementsz2\s*(?P<before>''')(?P<this>.*?)(?P<after>''')\s*\Z�	multilinecCscg}xMt|�jd�D]6}x dD]}|j|d�}q)W|j|�qWdj|�S)Nz@,@z(),�_�,)�markoutercomma�splitr��appendr�)Zargsline�arrmr'r'r(�
_simplifyargsns
r�z&\s*(?P<result>\b[a-z]+[\w]*\b)\s*[=].*cCs�d|kr|tdj|�p/tdj|�r|xB|jd�D]1}|dksgtt|���t||�qCWdS|dkr�datdiatiia	tgia
gt	td<it	td<dt	td<dt	td<d ad!adS|dkrId}t
r$ttkr$d
}x~t|kr�tdtt�tt�f�td�t
td	jt	t�t
tt
td	d"d<t
t=td	aq'Wt
rEttkrEt
td	jt	t�t
tt
td	d#d<t
t=td	at
td	jt	t�t
tt
td	d$d<t
t=td	ad%adS|dkrYdSd}x}ttttttttttttttttt t!t"t#t$t%t&ttgD]*}|dj|�}|r�P|d	}q�W|s�t'}dtkotknrdSd
t	tkr@x"t	td
D]}|t(krFt(|}dt	tkrm|t	tdkrmq*t)jd|t*|�t)j+�}	|	r*|j|	j,d��}
t-|	j,d��}|
r�d|||
j,d�f}nd||f}t.dj|�}|s(tdt|��dSt/|d|�dSq*Wt0d	ksmt0d	kr�t1j2�j3d�r�da4tdt�dS|d	dkr�dtko�tknr�td	attkr�dStdkr�t5dt��tdj|�}	|	rL|	j,d�ttkrLt5dt|	j,d��ttt�t6f��ttkr^d&at
td	jt	t�t
tt
td	d'd<t
t=td	at7s�d	a8n�|d	dkrdtko�tknr�td	adSda9t/||d	|�da8n�|d	dkr!nw|d	dkrdt:r;dSdtkoRtknr[dStan4dtko{tknr�dSt/||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].
    �;rNr�body�vars�blockr]rrrz(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>[^@]*)@\)@.*\Z�before�argszcallfun %s(%s) result (%s)r}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rrrrrrr);�f2pyenhancementspatternr��multilinepatternr��AssertionErrorr��	crackliner�	groupname�
groupcacherrrrr/r��dimensionpattern�externalpattern�
intentpattern�optionalpattern�requiredpattern�parameterpattern�datapattern�
publicpattern�privatepattern�intrisicpattern�endifpattern�
endpattern�
formatpatternr��functionpattern�subroutinepattern�implicitpattern�typespattern�
commonpattern�callpattern�
usepattern�containspattern�entrypattern�crackline_re_1rdr��markouterparenr�r�r��callfunpattern�analyzelinerr!r��endswithr&r�r rrrr)r-�resetr��flr.�patr��re_1r]�m1�m2r�r'r'r(r�ys

			

$-

 

	
		r�cCs�d}d}xy|D]q}|dkrK|d}|dkrz|d}qn/|dkrz|d}|dkrz|d}q||}qW|S)Nrr�(rz@(@�)z@)@r')r-r�r~r�r'r'r(r�s




r�r�cCsd}d}d}x�|D]�}|s2|dkrQ|dkrQ|d}d}n�|r�|dkr�|s{|d	dkr�|d}d}nX||kr�|d}|dkr�d}n-||kr�|dkr�|d|d}q||}qW|stt||||f���|S)
Nrrrrr�'rh�@r)r�r�)r-�commar�r~�ccr�r'r'r(r�"s(

	*
	
	%r�cCs"|jdd�jdd�}|S)Nz@(@rz@)@r)r�)r-rmr'r'r(�unmarkouterparen9srcCsg|si}|s|S||kr&|Sx:t|j��D]&}|dkrn|s]||kr_||||<q9|dkr�x�||D]}t|||�}q�Wq9|dkr�t||||�}q9|dkr�t||||�}q9|dkr|s||kr_||||<q9|dkr,q9|dkrItd
|�q9tdt|���q9W|S)Nr1�attrspec�kindselector�charselector�=�typename�noter��checkr�r�r�z"appenddecl: "%s" not implemented.
z,appenddecl: Unknown variable definition key:)rr)r�rr�r�r�)�list�keys�setattrspec�setkindselector�setcharselectorr\r�r�)�declZdecl2�force�kr�r'r'r(�
appenddecl>s6rzF\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\bcCs4x-|jdg�D]}tj|�rdSqWdS)Nrrr)�get�_intentcallbackpatternr�)Zvdeclr�r'r'r(�_is_intent_callbackjsrcCs�t|�}tj|�}|rU|jd�|jd�|jd�|jd�fStj|�}|r�|jd�|jd�ddfSdgddfS)Nr]r�r}�bind)r��nameargspatternr�r��callnameargspattern)r-rr'r'r(�_resolvenameargspatternqs4"r"c<Csr|jd�}|dkr!datr�|dkr�tr�tdkr�tjjt�j	d�d	}t
d
|�d	atdadtt<it
t<gtt<gt
td<it
td
<dt
td<|t
td<dt
td<d	a|d�kr�|j�}tjd|tj�r#d}tjd|tj�rAd}t|jd��\}}}}|dkr�|dkr�d}nd}|d�kr�t
d�||tfa|r�tdd�t|�j	d�D��}ng}d|krxd|kr|jd�q�Wt
d�d	}	d	}
|d�kr�d}
dt
tkrMdS|t
tdkredSx&ttD]}|d|krpdSqpW|t
td kr�dSdd!dd"i|}tr�td�kr�tdkr�td#ad}	|dkr�d}
tdait
t<gtt<|	r�tdkrCt
d$tt�d	�d%tt<dt
td<tt
td<dt
td<gt
td<gt
td&<gt
td <it
td
<tdait
t<gtt<|
r�tdkr�t
d'td	�dtt<dt
td<d(t
td<d)t
tddt
tddft
td<gt
td<gt
td&<gt
td <it
td
<tdait
t<gtt<|tt<|t
td<|s�d*|}|jd+�t
td,<t|�t
td<|t
td-<tdkrtt
td<nitrStd.krSd)t
tddtft
td<n0d)t
tddt
tddft
td<x7tt
tj��D]}t
t|s�t
t|=q�W|t
td<gt
td<gt
td&<gt
td <it
td
<it
td/<|dkr+gt
td0<|d�kr�|t
td#d&krht
td#d&j|�tj t
td#d
�t
td
<y0t
td
|t
td
|d1j!d2�=WnYnX|d�kr�y;t"t
td
|t
td#d
d�t
td
|<WnYnX|dkr}|r}|t
td
kr}||ks}t"t
td
|t
td
|�t
td
|<yt
td#d j|�WnYnX|d"krt#d	j|jd+�d3|�}
|
rt$|
jd�|
jd��\}}}}t%||||�|d�krnttdjt
t�ttttdd�d<tt=tdattdjt
t�ttttdd�d<tt=tdan�|d/krd	t|jd��\}}}}|dk	rn|r	td4d�t|�j	d�D��}ng}|dks@	t&t|���|t
td/|<d/|tfan
|dkr�	t$||jd��\}}}}t%||||�}|dk	rnd5|tfan�|d�krt
td
}|jd�j'�}|j(d=�}|d	kr�
|d7kr�
t)|�j(d>�d#}|d|d�d=||dd�}|j(d=�}||d�d=kr�
dt
tkr�
t
d?|jd�|d|�f�|d@j*t
td�}|d	kr�
d	}d}n*|d|�j'�}||d#d�}t|�j	d�}t+|�dkrn|d	}t
dAd@j*|dd���d}xmdBd�t|�j	d�D�D]I}t,j|�}|s�|d�kr�d}qt-|j.��t
dC|t|�f�q�nt|jd��}||kr"i||<|d6krA||jd�}|d7kr
|jd�|}t/j|�r
|t
tdkr

tdkr�dDt
td#dkr�t
dE�|t
tdkr
t
dF|t
tdf�t
tdj|�q
t0dG|�nt0dH|�|d�kr*
|}d1||krR
||d1j|�n|g||d1<|d2kr�
t
tddkr�
t
dI�q�|t
tdkr�
q�d&t
tkr�
gt
td&<t
td&j|�|}q�W|t
td
<|dk	rnd5|tfan^|dJkr�t
td
}|jd�j'�dd��}d}xwt|�j	d�D]`}y&dKd�|j	dL�D�\}}Wnt
dM||f�weYnXt1|�}t|�}||kr�i||<dL||kr%||dL|kr%t
dN|||dL|f�t2||�}
|
r|
j3dO�dPkr�t|�}xat4j5|�D]P}t||j6�|j7��j�j8dQdR��||j6�|j7��<qkWdj*|�}nC|
j3dO�dSkr|dd�j�j8dQdR�j8d@dT�}yt9|i|�}WnEt:t;t<fk
rq}zt0dU||f�weWYdd}~XnXt|�||dL<d1||kr�||d1jdJ�ndJg||d1<|}qeW|t
td
<|dk	rnd5|tfany|dVkr�|jd�j'�j�dWkr3dt
tdV<qn|jd�rndVt
tkrct
tdV}ni}|dkr�t
dX�i}x"t|jd��j	d�D]}i} tjdY|tj�}|s�t
dZ|�q�t=j|jd��}!|!st
d[|�q�t$|!jd�|!jd��\}}}}t>||�\}"}#}$|| dO<|"| d\<|#| d]<|$| d^<x+t| j��D]}| |s�| |=q�Wx�t|jd��j	d�D]�}%d_|%kry&d`d�|%j	d_�D�\}&}'Wq/t
da|%�w�Yq/Xn|%j'�}&}'t+|&�t+|'�koRdknsht
db|%�q�x7t?t@|&�t@|'�d�D]}(| |tA|(�<q�Wq�Wq�W|t
tdV<n�|dckr�g}d})d}*d	}+d},d	}-x|jd�D]}.|-s9|.ddkr|,},|.dekr9|,r9|+d}+q�|.dfkrR|-d}-n|.dgkrh|-d}-|+d	kr�|)|.})q�|+dkr�|*|.}*q�|+d#kr�|)j'�})|)jBd@�r�|)dd�j'�})|j|)|*g�|.})d}*d	}+q�W|+d#krP|)j'�})|)jBd@�r=|)dd�j'�})|j|)|*g�i}/d
t
tkrtt
td
}/d}x�|D]�}0dhd�|0D�}0|0d	d	d@kr�|0d	dd�|0d	<|0d	d	dfkr�t
di|0d	�q�d	}d	}1t+|0d�}2xbtdjd�t|0d	�j	d�D��D]4}|d	dfkr_t
di|�q8d	},xP||2kr�|,s�|0d|d@kr�|0d|ddkr�|,},|d}qhW|d}||/kr�i|/|<dL|/|kr@|/|dL|0d|1|d�kr@t
dk||/|dL|0d|1|d�f�|0d|1|d�|/|dL<|}1|}q8Wq�W|/t
td
<|dk	rnd5|tfan�|dlkru|jd�j'�}|d	deks�dm|}g}3d	}+d}4d}5x�|D]�}.|.dekr|+d}+q�|+d.krf|4j'�}4|4s=dn}4|3j|4|5g�|+d#}+d}4d}5|+d#r}|4|.}4q�|5|.}5q�W|4j'�}4|4s�dn}4|3j|4|5g�i}6dlt
tkr�t
tdl}6xx|3D]p}.|.d	|6krg|6|.d	<xIdod�t|.d�j	d�D�D]!}|r,|6|.d	j|�q,Wq�W|6t
tdl<dl|4tfan�|dpkr3tjdq|jd�tj�}|r|j.�}7dpt
tkr�it
tdp<|jd�}it
tdp|<d	}8dr|7kr0|7drdk	r0ds|7kr7|7dsdkr7d}8|8t
tdp|dt<dud�|7drj	d@�D�}i}9x�|D]�}0dL|0kr�tjdv|0tj�}!|!r�|!jdp�j'�|9|!jdw�j'�<q�t
dxt|0��n
|0|9|0<|9t
tdp|dy<qzWq0qnt-|j.��t
dz�n;|d�kr�d{t
tkr]it
td{<t
td{}:|jd�d|kr�d||:kr�tC|:d|tD�r�|:d|g|:d|<|:d|j|jd��qn|jd�|:|jd�<n�|dkrHtdkrtrt
d}�dSt};tEt
|;tdd#�|jd��n&tdkrnt-|j.��t
d~�dS)�Nr�r�r�r�r�rYrrgrzBanalyzeline: no group yet. Creating program group with name "%s".
�programr�r�r�r]Zfromsky�fromzblock\s*data�
block datazpython\s*modulez
python module�after�_BLOCK_DATA_r�	interfacez2analyzeline: No name/args pattern found for line.
cSsg|]}|j��qSr')ry)r_�xr'r'r(ra�s	zanalyzeline.<locals>.<listcomp>z@,@z<analyzeline: argument list is malformed (missing argument).
r�r�r�r�rrz&analyzeline: Creating module block %s
�moduler�zDanalyzeline: Creating additional interface block (groupcounter=%s).
�unknown_interfacez%s:%sZunknown_r��prefixr}�r��varnamesrr�r
cSsg|]}|j��qSr')ry)r_r)r'r'r(ra5s	�variabler�r�r�r�r�r�r�z::z@)@z'All arguments will have attribute %s%s
r�zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r.
cSsg|]}|j��qSr')ry)r_r)r'r'r(ra[s	zEanalyzeline: no name pattern found in %s statement for %s. Skipping.
�__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 listz(analyzeline: ignoring program arguments
r�cSsg|]}|j��qSr')ry)r_r)r'r'r(ra�s	rzManalyzeline: could not extract name,expr in parameter statement "%s" of "%s"
zGanalyzeline: Overwriting the value of parameter "%s" ("%s") with "%s".
r1r2�d�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
rr�-cSsg|]}|j��qSr')ry)r_r)r'r'r(ra�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�rrirrcSsg|]}|j��qSr')ry)r_r)r'r'r(ras	z>analyzeline: implied-DO list "%s" is not supported. Skipping.
cSsg|]}|j��qSr')ry)r_r)r'r'r(ra$s	z=analyzeline: changing init expression of "%s" ("%s") to "%s"
r�z//�_BLNK_cSsg|]}|j��qSr')ry)r_r)r'r'r(ra_s	r�zT\A\s*(?P<name>\b[\w]+\b)\s*((,(\s*\bonly\b\s*:|(?P<notonly>))\s*(?P<list>.*))|)\s*\ZrZnotonly�onlycSsg|]}|j��qSr')ry)r_r)r'r'r(rars	z;\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�Zusercodez-analyzeline: No context for multiline block.
z+analyzeline: No code implemented for line.
)r�r�r�rY)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�r�r)r�)Fr�r&rrrr�r��basenamer!r�r/rr�r�rr�r�r�r�r"rcr��removerrrr�r^rrr��copy�deepcopyrQrr��cracktypespec0�
updatevarsr�ry�findr�r�rO�namepattern�print�	groupdictrr\�get_parameters�determineexprtyper�
real16pattern�finditer�startr�r��eval�SyntaxError�	NameError�	TypeError�typespattern4implicit�
cracktypespecr��ord�chr�
startswith�
isinstancer��appendmultiline)<r�r;r-r�Znewnamer]r�r}rZ
needmoduleZ
needinterface�itr�tr1�selector�attr�edecl�	last_namer�rk�pl�chr2rZapZinitexpr�params�tt�v�msg�implrr�
kindselect�
charselectrrmZbegcZendc�o�dlZilr~�fcZinpr�r�r��jZllen�clZbnZolZ	commonkey�mmZisonlyr�r1�gcr'r'r(r�|s�



!	









-




$-!80$*

!!*&!	
)	


&
%K"
!%*




%&(&






3*

7+ 






- 
%

!


r�cCsKd|kri|d<|d}||kr6g||<||j|�dS)NZf2pymultilines)r�)r�Zcontext_name�mlr1r'r'r(rS�s


rScCs;d}d}tjd|tj�r-d}n3tjd|tj�rNd}n|j�j�}tjt|��}|s�td�dS|j�}x.t	|j
��D]}t||�||<q�W|dkr�|d}|d
}|jd�}|dkr+|d|�j�}||dd�}||||fS)Nzdouble\s*complexzdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line.
r3r3�logicalr2�	characterrYr�r&z::rrr)r3r3rkr2rlrY)
r�r�r�ryr��
selectpatternr�r/rCrrrr@)r1r�rVrWrr1rrkr'r'r(r>�s.		

r>z+\s*(?P<name>\b[\w]+\b)\s*(?P<after>.*)\s*\ZzC\s*(\(\s*(kind\s*=)?\s*(?P<kind>.*)\s*\)|[*]\s*(?P<kind2>.*?))\s*\Zz3\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*\ZcCs�|j�}t|�dkr"|S|d}xjtdt|�d�D]O}||dkr�||ddksF||ddkr�qF|||}qFW||d}|S)Nrrr
z()[]{}=+-/* r)ryrOr�)�expr�expr2rkr'r'r(�removespaces�s
 rpcCs�d}d}d}d}x�|D]�}|dkrP|d	krP||}|}q|dkrn|d
krn|}||kr�|d}n>||kr�|d}n%|dkr�|dkr�|d}q||}|}qW|S)Nrrrrh�"rr
z@_@)rhrrq)rrqr')r-r�r~r
�cbr�r'r'r(�markinnerspaces�s*






rsc	CsId}t||�\}}}|r�dd�t|�jd�D�}g}tjd�}	xh|D]`}
|
sqqb|	j|
�}|r�|jd�j�}||
t|�d�}
|j	|
�qbW|}dd�t|�jd�D�}
g}xl|
D]d}x[dd�tt
t|��dd	�jd
�D�D]%}|r6|j	|jdd	��q6Wq�Wx�|D]�}t
j|�}|s�tdt|��qjt|jd
��}i}|ttdkrZttd|j�}d|k}|r||d<n2|r4||dkr4td||d|f�d|krVtj|�|d<n�|r�x�t|j��D]s}||dkr�|||d|kr�td|||d|||f�qotj||�|d|<qoWd|kr"|r"|r||d<q�td||f�n�|r�x�t|j��D]s}||dkr�|||d|kr�td|||d|||f�q;tj||�|d|<q;Wd|kr�||d<n2|r�|d|kr�td||d|f�d|krtj|�|d<q�|r�x�|D]'}
|
|dkr,|dj	|
�q,WnVtj|�|d<tj|�|d<tj|�|d<||d<tj|�|d<|jd�r�tjt|jd���}|r�|j�}xHdddgD]7}||ddk	r�||d||<||d=q�WxHt|j��D]4}||dk	rzt||�||<qM||=qMWd|krd|kr|ddkr�|d|d<|d=nB|dd|d|d<|d=td |||||df�d|kr�d!|d}d|ks8|drH|g|d<nk|dj	|�xW|dD]K}|dd"�d#krd||krd|dd0=td%|||f�PqdWd|kr[|d1krd|ks�|dr�i|d<|d|dd*<nZ|d+kr[d|ks$|dr.i|d<d|dkrI|dd=|d|dd*<d|kr�d,|kr�|d,|dkr�td-||d,|df�q�|d|d,<ntd.||jd��x+t|j��D]}||s�||=q�W|ttd|<d/ttkr;ttd/j	|�|}qjW|S)2NcSsg|]}|j��qSr')ry)r_r)r'r'r(ra�s	zupdatevars.<locals>.<listcomp>z@,@z(?P<start>[a-zA-Z]+)rHcSsg|]}|j��qSr')ry)r_r)r'r'r(ras	cSsg|]}|j��qSr')ry)r_r)r'r'r(ra
s	r	r
z@ @z@_@z;updatevars: no name pattern found for entity=%s. Skipping.
r]r�r1zIupdatevars: 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.
rzEupdatevars:%s: attempt to change empty charselector to %r. Ignoring.
zVupdatevars: attempt to change the charselector "%s" of "%s" ("%s") to "%s". Ignoring.
rzMupdatevars: attempt to change the typename of "%s" ("%s") to "%s". Ignoring.
rr&rO�array�init�2rr�z-updatevars: "%s %s" is mapped to "%s %s(%s)"
z
dimension(%s)�	r�rz5updatevars:%s: attempt to change %r to %r. Ignoring.
r3r3rkr2rrlrzTupdatevars: attempt to change the init expression of "%s" ("%s") to "%s". Ignoring.
z?updatevars: could not crack entity declaration "%s". Ignoring.
r.r)r3r3rkr2)rNr�r�r�r�r�r�r�rOr�rprsr�rAr/r�r^r�rr<rrr\�lenarraypatternr�rCr)r1rVrZ
entitydeclrYrarbrr�r�r�r��s�elZel1r2�e1ZenamerXZnot_has_typespecrr�d1�lk�dmZdm1r'r'r(r?�s"
"
;!

)#
)#



"

!

r?c	Cs�d}d}d}|r�|dkr�tj|�}|sQtdt|��dS|j�}|d|d<|d=x+t|j��D]}||s�||=q�Wx�t|j��D]\}}t|�||<q�Wn�|dkrt	j|�}|std	t|��dS|j�}|d
|d<|d
=|dr�t
jt|d��}|j�}xMdd
gD]?}||dr�||d||<||||<||d=qlW|d=x+t|j��D]}||s�||=q�Wx�t|j��D]\}}t|�||<q�Wnk|dkrqtjd|tj
�}|rV|jd�}q�tdt||��ntdt|��|||fS)Nr3r3rkr2z4cracktypespec: no kindselector pattern found for %s
Zkind2rrlz4cracktypespec: no charselector pattern found for %s
Zcharlen�lenkindrO�kindrvrYz\s*\(\s*(?P<name>\w+)\s*\)r]z'cracktypespec: no typename found in %s
z'cracktypespec: no selector used for %s
)r3r3rkr2)r
r�r/r�rCrr�itemsr^r�lenkindpatternr�r�r�r�)	r1rVrarbrrrkrr}r'r'r(rN�sf


rNcCs3|si}|s|Sd|kr3|g|d<|S|rJ|dj|�||dkr^|S|dkr�d|dkr�|dj|�n�|dkr�d|dkr�|dj|�nq|dkr�d|dkr�|dj|�nA|dkrd|dkr|dj|�n|dj|�|S)NrrD�	automaticr�r�)r�)rrWrr'r'r(r�s*
rcCsy|si}|s|Sd|kr0||d<|SxBt|j��D].}|s_||dkrC|||d|<qCW|S)Nr
)rr)r�selrrr'r'r(r�s
rcCsy|si}|s|Sd|kr0||d<|SxBt|j��D].}|s_||dkrC|||d|<qCW|S)Nr)rr)rr�rrr'r'r(r�s
r�unknowncCsd|kr|dS|S)Nr]r')r�r�r'r'r(�getblockname�sr�c
Cs+yd|d|dfaWnYnXdS)Nz
In: %s:%s
r$r])r )r�r'r'r(�setmesstext�sr�cCsCi}d|kr"t|d�}d|kr?|j|d�|S)N�parent_blockr�)�get_usedict�update)r��usedictr'r'r(r�sr�c	Cs|dkri}t|�}|s(|Sx�t|j��D]�\}}|j�}|tkrtd||jd�f�q;t|}t|�}|s�q;|r�td|�xVt|j��D]B\}}||kr�tdt	|�t	|�f�|||<q�Wq;W|S)Nz0get_useparameters: no module %s info used by %s
r]z+get_useparameters: mapping for %s not impl.zDget_useparameters: overriding parameter %s with value from module %s)
r�rr�r�rr/rrDr\r�)	r��	param_mapr�Zusename�mapping�mvarsr\rr^r'r'r(�get_useparameters
s.
r�cCs{ts
|St|t�r]g}x7|D]/}t|d|dd|�}|j|�q&W|St|�td||dfd�|dkr�t|�}|dk	r)d|kr)|d}xjt|j��D]V}||}d|kr�|d}d	|kr�|d	}	|	|kr�||	|d	<q�Wg}
x;|d
D]/}t|d|dd|�}|
j|�q:W|
|d
<|S)N�tabrpr�z%sBlock: %s
r]rr�r
r�r�)	rrRr�
postcrack2r�r�r/r�r)r�r�r��ret�gr�r�varr��valZnew_body�br'r'r(r�+s8






r�cCsQt|t�r�g}g}xg|D]_}t|�t|d|d�}d|krtd|dkrt|j|�q"|j|�q"W||St|�t|t�r�d|kr�tdt|���d|kr|ddkrtd||dfd	�t	|�}t
|�}t|�|d
<t|d
�|d<d|kr]|dr]|d}t
||d|�|d
<g}d|kr�|d}x<t|j��D]}d|kr�|j|�q�Wni}d}	d|kr�|d}	d|kr=|dr=g}
d|kr|d}
tj|d
�}|	rE|	d}nd}||kr�d}
x$d||
f|kr�|
d}
q`Wd||
f}ddd
gd
id|	di}x$|dD]}||
kr�g}d}x�|d
D]�}|d}|ddkr�d}
xS|d
D]G}|
d}
d|kr|d|krtj|�}|d
|
=PqW|r�|d
s�|d
|=|
|
j|�=Pq�W|d
j|�q�||kr�t||�r�|||d
|<q�W|d
s�|d
r=|
|d<ddd
|gd
id|d|di}i||<tj|�|rM||d<|S)zi
    TODO:
          function return values
          determine expression types if in argument list
    r�rpr]r0r�z0postcrack: Expected block dictionary instead of r+z%sBlock: %s
rr�Zsortvarsr�r�r�rr�r�Z__user__routinesZunknown__user__routinesrz%s_%ir(Z_user_interfacez
python modulerr)rRrr��	postcrackr��dictr�r�r/�analyzeargs�
analyzecommon�analyzevars�sortvarnames�analyzebodyrr<rQZ
isexternalr)r�r�r�ZgretZuretr�Z
userisdefinedZuseblockrr]r�r�Zmnamerkr(r2Zedefrfr�ZbbZmblockr'r'r(r�Os�











	"


r�cCsXg}g}xUt|j��D]A}d||krS||drS|j|�q|j|�qWt|�}d}x�|rS|d}d}x3|dd�D]!}|||dkr�d}Pq�W|r!|dd�|g}|d}||krPtddj|�d�||}Pqy|j|�|dd�}t|�}d}qyW|S)N�dependrrzTsortvarnames: failed to compute dependencies because of cyclic dependencies between z, r�)rrr�rOr\r�)r�Zindep�depr^rrkr�wr'r'r(r��s8	




r�cCs�t|�s|Sg}x�t|dj��D]�}g}x|d|D]o}tjd|tj�}|r�g}|jd�r�dd�t|jd��jd�D�}t	|jd�j
��}||dkr9d	|d|kr|d|d	jd
dj|��qtd
dj|�g|d|d	<n;|rfd	d
dj|�gi|d|<ni|d|<||kr�|j|�n|}t
d||f�|j|�qHW||d|<q-Wd
|kr�||d
<n|d
||d
<|S)Nr�z2\A\s*\b(?P<name>.*?)\b\s*(\((?P<dims>.*?)\)|)\s*\Z�dimscSsg|]}|j��qSr')ry)r_r)r'r'r(ra�s	z!analyzecommon.<locals>.<listcomp>z@,@r]r�rz
dimension(%s)r�zNanalyzecommon: failed to extract "<name>[(<dims>)]" from "%s" in common /%s/.
�
commonvars)Z	hascommonrrr�r�r�r�r�r�r^ryr�r�r\)r�r�rZcomvarsr2r�r�rr'r'r(r��sB	"%'
r�cCs[t|�g}xD|dD]8}||d<|ddkr�|dk	r]|d|kr]qn
|d}|dtkrzqtr�|dtkr�qt|ddd�|d
<n|}t||d|d�}|ddkr�|dr�d|kr�q|djd	d�dkr$tj|�q|ddkrF|dt|d<|j|�qW|S)Nr�r�r�r�r�r]r�r�r
r��as_interfaceTZsaved_interfacer�rpr(r�r�pythonmoduler*r�)r�r�z      z
      )	r�r#r$�crack2fortrangenr�r�rr�r)r�r�r�r�r�Zas_r'r'r(r��s2


r�cCs�t|�t}i}d|kr�|ddkr_d}tdkr�tdt|d��nixft|dj��D]N}|d|jd�dkr�|d|||<qv|d|d||<qvW||fS)	Nr�rz6buildimplicitrules: no implicit rules for routine %s.
r]r1rDr�)rDr�)r��defaultimplicitrulesrr/r�rrr)r��
implicitrules�	attrrulesrr'r'r(�buildimplicitruless
r�cCsNt|||�}t|�td�td�gkr:|Std|��dS)Nrgzr=%r)rIrYr�)r2r�r�rmr'r'r(�myeval1s$r�z\A\b\w+\b\ZcCs�y)tt|ii��}d|dfSWnYnXtj|�rPdd|fSt|�}xC|D];}t|�|kr~qctjd|d|�r�qctjd|dtj�}|j|�}|rcy�|j|�}x>|rd|j	d�d|j	d	�f}|j|�}q�Wt|ii�}	|j|�}x>|r�d|j	d�d|j	d	�f}|j|�}qDWt|ii�|	}
|j|�}x>|r�d|j	d�d
|j	d	�f}|j|�}q�Wt|ii�}|j|�}x>|rId|j	d�d|j	d	�f}|j|�}qWt|ii�}|
d
|	|kr�|
d|	|kr�|
|	|fSWnYnXPqcWdS)
Nrrz\w\s*\([^)]*\bz\bz(?P<before>.*?)\bz\b(?P<after>.*)z%s(%s)%sr�r&g�?g�?)NNN)
r4r��getlincoef_re_1r�rOr��searchr�r�r�)r2Zxsetr�Zlen_er)rr�r�eer�r��c2r'r'r(�
getlincoef:s^

	"	"	"	"(r�z\A[a-z]\w*\Zrc
Cs	g}y!|jt|dii��Wn|j|d�YnXy!|jt|dii��Wn|j|d�YnXt|dt�r�d|d}|dkr�t|d�}qh|dkr�d|d|f}qhd|d|f}nmt|dt�rPd|d}|dkr9d|d}qhd||df}nd|d|df}y#tt|ii��ddfSWnYnXt|d|�t|d|�}}d|d|dgkr	|d|dfdkrt|d|dd�ddfS|d|dd}|dd|df}|d||df}|ddkr|d|kr|dkr�d	|d|d|f|dd
||dffS|r�d|d|d|f|dd||dffSd
|d|df|dd|dfS|ddkr�|d|kr�|dkr�d	|d|d|f|dd
||dffS|r�d|d|d|f|dd||dffSd
|d|df|dd|dfS|d|dkr�|d|kr�|d|d}	|	s;t|�ddfS|dkrud	|	|d|f|dd
||	ffS|r�d|	|d|f|dd||	ffSd
|	|df|dd|	fS|d|dko�dknr�t|d�}
|
|kr.t|
�r$td|
�d|
}
|dkrQd|d|
f}q	|dkrxd|d|
|f}q	d|d|
|f}ny|ddkrnt|d�}||kr�t|�r�td|�d|}|ddkr�n1|ddkrd|}nd|d|f}|dkr;|}q	|dkr[d||f}q	d||f}n�|ddkr|t|d�}||kr�t|�r�td|�d|}|ddkr�d|}nY|ddkr�d|}n<|ddkr d|d|f}nd|d|f}|dkrI|}q	|dkrid||f}q	d||f}n�t|d�}||kr�t|�r�td|�d|}|ddkr�d|}nY|ddkr�d|}n<|ddkrd|d|f}nd|d|f}t|d�}||krrt|�rhtd|�d|}|ddkr�n1|ddkr�d|}nd|d|f}|dkr�d||f}n6|dkr�d|||f}nd|||f}|ddfS) Nrrz%s-%sz%s+%sz-(%s)z%s-(%s)z	%s-(%s)+1rrz%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+%sz-%sz%s*%sz+%sz+%s*%sz-%s*%sz%s%sz%s%s-%sz%s%s+%s)rrrrrr)	r�r�rRr4r�r�r��_varname_matchr/)
rdr��starZedl�p1r1r|�d2r�r�r�r�Zc1r'r'r(�	getarrlenps�!!#'# 64+ 86-$.,#$


	


	




r�z\b[a-z][\w$]*\bcCs||kr�||jdg�}d||kr�t||�r�xDtj||d�D]+}||kr[||kr[|j|�q[Wx}|dd�D]N}xE|j|g�p�t|||�D]}||kr�|j|�q�Wq�Wntdt|��g}|||<|S)Nr�rz,_get_depend_dict: no dependence info for %s
)r�isstring�word_pattern�findallr��_get_depend_dictr/r�)r]r��deps�words�wordr�r'r'r(r�	s!
r�cCs=t|j��}i}x|D]}t|||�qW|S)N)rrr�)r�rb�depend_dictrr'r'r(�_calc_depend_dict	s

r�cs�t���g}x8t�j��D]$}�|s%|j|��|=q%Wxm�r�x`t�j��D]L\}}�fdd�|D�}|s�|j|��|=qi|�|<qiWqPW�fdd�|D�S)z
    cs"g|]}|�kr|�qSr'r')r_r)r�r'r(ra/	s	z$get_sorted_names.<locals>.<listcomp>cs"g|]}|�kr|�qSr'r')r_r])r�r'r(ra5	s	)r�rrr�r�)r�rbr]�lstZnew_lstr')r�r�r(�get_sorted_names$	s

	

r�cCsR|ddkr |dd�}tj|�r3dStj|�rFdSd|dS)	Nrz'"r�r	zkind(rr)rFr��real8pattern)rVr'r'r(�
_kind_func8	sr�cCs^d|}|d
krdS|dkr*dS|dkr:dS|d
krJdS|dkrZdSdS)Nr�rrr�r�� r	�?��illl	rr')rmr�r'r'r(�_selected_int_kind_funcC	s
r�cCs�|dkrdS|dkr dStj�j�}|jd�sP|jd�rc|dkr�dSn |dkrsd	S|dkr�dSdS)N�r	r�r��power�ppc64��r�rr)�platform�machiner�rQ)�prm�radixr�r'r'r(�_selected_real_kind_funcS	sr�cCs*tj|�}tj|�}xEdtfdtfdtfgD]"\}}||kr@|||<q@Wg}xEt|�D]7}d||kryd||dkry|j|�qyWtjdtj�}tjdtj�}	tjdtj�}
x0|D](}d	||kr||d	}t	||�r`|j
�}x#ddgD]}|j|�}qGW|jd|�}|	jd|�}d}
d||kr�d||dkr�t
|�}|jd||ddd�}t
|�|k}
|
sY|
j|�sY|jd�}t
|�dkrYdj|dd��j
�j|d j
�d�}t||�r�t|�}xatj|�D]P}t||j�|j��j
�jdd��||j�|j��<q�Wdj|�}nOt||�r:|ddkr:|d!dkr:t|dd"��jd�}yt|||�||<WnItk
r�}z)|||<td|t|�f�WYdd}~XnXt||�r�t||t�r�t ||�||<|j
�}||kr"||||<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�.false.�False�.true.�Truez
kind("\1")zselected_int_kind(\1)Fr
r�rrr1r2rrrz@,@zget_parameters: got "%s" on %s
z2get_parameters:parameter %s does not have value?!
)r�r�)r�r�rrrr)"r<r�r�r�r�r�r�r�r�Z	islogicalr�r��subrOr�r�r�ZisdoublerrFrGrHr�Z	iscomplexr�rIr�r/r�r�rRr4rPrB)r�Z
global_paramsr\Zg_paramsr]�funcZparam_namesrZkind_reZselected_int_kind_reZselected_kind_rer^�replZis_replacedZ
orig_v_lenZv_r]r�r�r_�nlr'r'r(rDf	sz	$

"5
K 
-#rDcCs|dkrdSt||�S)N�(:)�(*)r)r�r�r)�_eval_scalar)�lengthr\r'r'r(�_eval_length�	sr�z\d+_cCs�t|�r|jd�d}ytt|i|��}Wncttfk
rY|SYnHtk
r�}z(td||t|j	��f�WYdd}~XnX|S)Nr�rz,"%s" in evaluating %r (available names: %s)
)
�_is_kind_numberr�r�rIrKrJr�r\rr)�valuer\r_r'r'r(r��	s0r�c6Cs�t|�t|�\}}tj|d�}|ddkr]|d|kr]i||d<d|dkr�|d=d|ddkr�|ddd}xTt|j��D]@}x7ddgD])}||kr�t|||�||<q�Wq�Wg}|d	}x<|D]4}	y||	|j|	�Wqtk
r;YqXqWx3t|j��D]}||krS|j|�qSWt|t	|��}
i}t
jd
�j}x�t|j��D]u}
||
�}|r�|
|j
�|j��}y||Wq�tk
r*t
jd|
t
j�j||<Yq�Xq�Wx[|D]S}|dt|j��krwt||||d�||<d
||kr�d||ko�d||dks�|rm|dj�}x�t||j��D]�}|d
kr|||dkrq�|||kr*||||||<q�|dkr�x-|||D]}t|||�||<qEWq�Wn.||d	kr�tdt|�|df�d||kr
d||dkr
||dd}ytt|i|
��}WnYnX|||dd<d||kryd||dkry||dd}ytt|i|
��}WnYnX|||dd<i}d||kr}
||d}|j�g||d<dS\}}}}}xO|D]G}	|	dd�dkr|	dd�j�ddT�}n�|	dd�dkrI|	dd�j�ddU�}n�|	dd�dkr�|	dd�j�ddV�}n�|	dd�dkr�|	dd�j�ddW�}nP|	dd�dkr�|	dd�j�ddX�}nt|||	�||<|r�d||kr/g||d<xedd �t|�jd!�D�D]A}|jd"d�}|||dkrR||dj|�qRWd}|r|jd#d$�}|jd%d&�}d||kr�|g||d<n||dj|�d}|dk	r�d||kr0g||d<xYtd'd �t|�jd!�D��D]/}|||dkrY||dj|�qYWd}|dk	r�d||kr�g||d<xSd(d �t|�jd!�D�D]/}|||dkr�||dj|�q�Wd}q�W|r}
d||kr}
g||d<x:td)d �t|�jd!�D��D]}d*}|d+kr�d+}||
kr�t|
|�}x�t|
j��D]x}t
jd,|d-t
j�}|j|�}xC|r-	|jd.�t|
|�|jd/�}|j|�}q�Wq�W||krJ	|g}nt|d+�jd0�}t|�d1kr�	d*|kr�	d*g}d*}t|�dkr�	|d|kr�	d2|dg}t|�d1krd
t|t|dj���\}}
}|dd�d3kr"
|dd�}|rN
|dYd�d4krN
|ddZ�}|
rd
|
|f||<||dj|�qiWd||kr�t||�r�
d5} nd5} t||�r�d||kr�||d}d*|kr�|d*}t d6||d7j!||d�|d7j!||d|g�f�||dj|�||d=d||krtg||d<d8||dkr�||djd8�nt d9|�d||krld	|krl||d	krld||k}!|!r�g||d<g||d<d||kryd[}"t||d�}#x�||dD]-}g}$d}%d}&||kr�||kr�d:||d}&}%||d}nQxN|d	D]B}'|'|kr�q�t
jd;|'d<|t
j�r�|$j|'�q�W||kr�
d||krd
xY||dD]I}(|(dd�dkr
|$|(dd�j�dd\�jd7�7}$q
Wd||kr�
|$||d}$|"d}"||krd||krd=||kr|||dkrt"t#t$t%�||�r|g||d<|#dkr-d>|&| ||"|%f||d=<nd?|&||%f||d=<dr�d||kr�|#dkr�d@|&| ||"|%|fg||d<n!dA|&||%|fg||d<d||kr�dBg||d<dB||dkrrdC||dkrr||djdB�qE|d]krE|!rE||krX||$krr||dj|�qE||d|$||d<qEWn�t&||�r3d2})d||kr3d*||dkr�t'||dd*|
�})|)||dd*<nPd||dkr3t'||dd|
�})||dd=|)||dd*<||dsL||d=|!rl||drl||d=d=||kr6d||kr�g||d<dB||dkr�dC||dkr�||djdB�d||krZg||d<xIt|j(��D]5\}
}|||d=�r||dj|
�qW||dsZ||d=t)||�r6t*||d=|
�||d=<q6Wx)t|j��D]}||dkr�d||kr�||d|d<|ddkr�dD|kr#|dD|kr#t+||||dD�||<dE|kr�|dE}*d}+d},|*jdFd�}-|*|-k}+|-jdGd�}*|*|-k},t,dj|*�}|r�t-|jdH�|jd/��\}.}/}}0t.|.|/�\}1}2}3|.||d
<|1r8d|1kr*yt|1di|
�|1d<WnYnX|1||d<|2rL|2||d<|3r`|3||dI<|+r}t||dF�||<|,r�t||dG�||<q�tdJt|dE��q�W|dd^kr�dO|kr�tj|d	|dO�}4ntj|d	�}4x@t|j��D],}t"t/t0�||�r|4j|�qWdP|kr�|4j1t|dPj���xPt|dPj��D]8}x/|dP|D]}||4kr�|4j|�q�Wq�W|ddkrdD|kr�|4j|dD�n|4j|d�|dd_krN|d}5|5|krNd||5krN||5d|d<|ddRkrw|4j1t|j���x-t|j��D]}||4kr�||=q�W|S)`Nr�r�r�r]rrr�r�r�z\w[\w\d_$]*z.*\b%s\brr1r�Z	undefinedzCanalyzevars: typespec of variable %s is not defined in routine %s.
rrOr
r�rwr�rr�r�r�rqrr	rcSsg|]}|j��qSr')ry)r_r)r'r'r(ra8
s	zanalyzevars.<locals>.<listcomp>z@,@r
z\n\nz

z\n r�cSsg|]}|j��qSr')ry)r_r)r'r'r(raI
s	cSsg|]}|j��qSr')ry)r_r)r'r'r(raP
s	cSsg|]}|j��qSr')ry)r_r)r'r'r(raV
s	r�:z(?P<before>.*?)\bz\b(?P<after>.*)r�r&z@:@rr�1z1 * z/(1)rPzoanalyzevars: character array "character*%s %s(%s)" is considered as "character %s(%s)"; "intent(c)" is forced.
r�r�z'analyzevars: charselector=%r unhandled.rz.*?\bz\brz
%s%s(%s,%s)%sz%slen(%s)%sz%s%s(%s,%i)%s==%sz%slen(%s)%s>=%sr�r�r}r,Zpure�	recursiver�rz'analyzevars: prefix (%s) were not used
r*r��
python module�
block datar�r�r�rY)NNNNNrrrrr���r�rr)rr�)r*r�r�r�)r�r�)2r�r�r<rrrr��KeyErrorrDr�r�r�r�rHr�r�r�r/r�r�rI�reverseryr�r�r�rcr�rOr�Z
isintent_cZ
isstringarrayr\r�Zl_orZisintent_inZisintent_inoutZisintent_inplacer�r�r�Zisscalarr�rr�r>rN�isintent_callbackZisintent_aux�extend)6r�r�r�r��genrrZsvarsr�r�r\Zdep_matchesZ
name_matchr^r�Zln0r�ZsavelindimsrWZdimr�r�rrr��tmpr1r�r�rrd�diZshape_macror.rkZniZddeps�ad�pdrmZaar�ZprZispureZisrecZpr1r1rVrXrarbrZ
neededvarsr]r'r'r(r��	s~
 


	
)
$ "

#####)/)
/	*	#(	
&, 1
$!'!!		#


*
r�z\A[a-z]+[\w$]*\ZcCs�|}tj|�}|r�t|�\}}t||d|�}d}x@|D]8}	|	j�}	|	tjtjkrd}	||	}qQW|ddkr�|d}n
|d}|}x.||dks�||dkr�|d}q�W||kr4d}
x$|t|
�|kr#|
d}
qW|t|
�}|rK||d|<n�||dkr�||dkr�|d||d|<ni|d|<d	|kr�||d	|d
kr�t	|d|d�|d|<|S)
Nr�Ze_r�rr2�_er�rmr�r�r�r)
�analyzeargs_re_1r�r�rEr�rV�ascii_lowercase�digitsr�r)r�r�r�Zorig_aZ	a_is_exprr�r�ZatZnar�rr'r'r(�	expr2name4s>


#$r�cCsrt|�t|�\}}d|kr2g|d<g}x1|dD]%}t|||�}|j|�qCW||d<d|kr�xSt|dj��D];\}}x,|D]$}||dkr�i|d|<q�Wq�Wxa|dD]U}|d|kr�d|krg|d<|d|dkr�|dj|d�q�Wd|krn|d|dkrni|d|d<|S)Nr�r�r�r�r]r�r})r�r�r�r�rr�)r�r�r�r�r�rZargs1r�r'r'r(r�Ys.


#

 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*\ZcCstt|t�rddiSt|t�r2ddiSt|t�rKddiSt|t�r^|Stt|���dS)Nr1r3r2r3)rRr4r6r3r�r�r�)rmr'r'r(�_ensure_exprdict{s


r�cCsQ||krt||�S|j�}tj|�r?ddiStj|�}|r�d|j�kr�|jd�r�tdt|��ddiSt	j|�}|r�d|j�kr�|jd�r�tdt|��ddiSxoddd	d
gD][}xRdd�t
|d
|�jd|d�D�D] }||kr1t||�Sq1Wq�Wi}tj|�r�t
|dd�||�}n�tj|�}|r
|jd�}t
|jd�||�}|r�d|kr�|d=|s
|d|kr
t||d�S|ddkr3dddd	d	iiS|sMtdt|��|S)Nr1r3r]z:determineexprtype: selected kind types not supported (%s)
r3r2�+r5rricSsg|]}|j��qSr')ry)r_r)r'r'r(ra�s	z%determineexprtype.<locals>.<listcomp>r	rrrrz'"rlrz>determineexprtype: could not determine expressions (%s) type.
r)r�ry�determineexprtype_re_1r��determineexprtype_re_2rCr�r/r��determineexprtype_re_3r�r��determineexprtype_re_4rE�determineexprtype_re_5)rnr��rulesr��opr2rUZrnr'r'r(rE�sN
!
!
7rEr�FcCs�t|�d}t|t�r�xi|D]a}|rn|ddkrn|dtkrUq&trn|dtkrnq&|t||d|�}q&W|Sd}d}d}|d}|dkr�dSg}	d|kr�|d}d|krZ|d	}
xA|dD]5}t|||	�}t|
|�s�|	j|�q�W|ddksG|	rZd
dj	|	�}d}d|kr�x@t|dj
��D](}
d
||t|
|d|
f}q�W|jdg�dd�}|dkr�d|kr�|j
d�|rd||tdj	|�|f}d}d|krBt|d|t�}d}d|krkt|d|t�}|dkr}d}d}d|kr�d|d}|d|	kr�|	j|d�t|d|t�}t||d	|	|td|�}
d}d|kr|rd|d}d|kr�d}xGt|dj��D]/\}
}d||t|
dj	|�f}qHW||}|dkr�|dkr�d}d||||||||||
|||||f}|S)Nrr�r�r�r]r�r#r�r�z(%s)r�r�z	%s%s%s %sr��callbackz%s%sintent(%s) %sr�r�r+r}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�r�)r�rRrr#r$r�r�r�r�r�rrrr;�use2fortran�common2fortran�vars2fortranr�)r�r�r�r�r�r,r]r�Z	blocktypeZargslr�r�r�rZ
intent_lstr�r�r}r�ZmessZentry_stmtsrkr'r'r(r��s�




#

 #$
4r�cCsyd}xlt|j��D]X}|dkrNd||dj||�f}qd|||dj||�f}qW|S)Nrr6z
%s%scommon %sr�z%s%scommon /%s/ %s)rrr�)r�r�r�rr'r'r(r�s#'rcCsfd}xYt|j��D]E}d|||f}||ikrk|r|ddkr|dd�}qd||kr�||dr�d|}d||kr8||dr8d}x~t||dj��D]b}|||d|krd	|||f}d}q�d
|||||d|f}d}q�W|r|d
dkr|dd�}qW|S)Nrz%s%suse %s,rr�r7z%s only:r9r
z%s%s%sz
%s%s%s=>%srrrr)rr)r�r�r�r�r�rr'r'r(r	s(
!	"
rcCsg|d}g}xP|D]H}ytd|�}Wntk
rKd}YnX|r|j|�qW|S)Nr�zisintent_%s(var)r)rIrKr�)r�r�r�r�r�r'r'r(�true_intent_list!s


rcCs[t|�d}g}x+|D]#}||dkr|j|�qWd|kr�xH|dD]<}||kr�||kr�|j|�q[td|�q[Wd|kr�|j|d�|s�x3t|j��D]}||kr�|j|�q�Wx`|D]X}d||krnxZ||dD]J}||kr d||kr |||dkr td||f�q Wd|krM||dkrMt||�r�d	|||f}d
|||f}t||�r�d|||f}||krd||krq�d
}	x9|dD]-}
||
dkr|
ddkrd}	PqW|	rMq�||krtt|�t	d|�q�||dkr�|ddkr�q�d||kr
d||kr�d||dkr�||kr�d
|||f}q�t||�t	d|�q�||d}|dkrOd||krOd|||df}i}d||krv||d}nd||kr�||d}d|kr�|dd7kr�d||df}qNd||df}npd |kr.d!||d f}d"|kr!d#||d"f}qNd$|}n d"|krNd%||d"f}d&}
d||kr�g}x/||dD]}|d8kry|j|�qyW|r�d'|d(j
|�f}d(}
d)||kr�d*||
d(j
||d)�f}d(}
d+||krCt||�}|r=d,||
d(j
|�f}d(}
d-||kr}d.||
d(j
||d-�f}d(}
d||kr�d/||
d(j
||d�f}d(}
d0||kr0||d0}||dd9kry&t|�}d3|j
|jf}WnYnXd4|||f}nd5||f}d6|||f}q�W|S):z&
    TODO:
    public sub
    ...
    rr�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 %sr1rr�r]r�r�rz/vars2fortran: No definition for argument "%s".
rr�z-vars2fortran: No typespec for argument "%s".
rYrz%s(%s)r
rrr�z%s*(%s)z%s*%srOz	%s(len=%sr�z%s,kind=%s)z%s)z%s(kind=%s)r
z%s, %sr�r�z%s%sdimension(%s)r�z%s%sintent(%s)rz
%s%scheck(%s)z%s%sdepend(%s)rr3�double complexz(%s,%s)z%s :: %s=%sz%s :: %sz%s%s%s)rr�)r�)r3r)r�r�r\r�rrr�Z
isoptional�showr/r�rrIr2�imag)r�r�r�r�r�r��noutr�r1r�r�ZvardefrVr�rWr�r�r^r'r'r(r.s�


0 
!$
!$!rcCs^tdd�t|t�tdd�gattd�}tdd�t|�}t|S)NzReading fortran codes...
rzPost-processing...
zPost-processing (stage 2)...
)r/r�r�rr�rr�)�files�postlistr'r'r(�crackfortran�s



r
cCs,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�headerZfooterr'r'r(�
crack2fortran�s
r�__main__r�z-quietz-verboserrz-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form.
z-skipemptyendsz--ignore-containsz-f77z-f90r�z-hz-showz-mr5zUnknown option %s
zIOError: %s
a  Warning: You have specifyied 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�)��__doc__�
__future__rrrr*rVr�r�r�r<r�rrZauxfuncs�versionrr
rrrrrrrrrrr�r!rrr rr�rrr�r%rr$r&rr#r"rr)r/�	_MAXCACHEr�r�r[rdrr^rcrerfrlr�r�r�r�r�rwrxr�rzr�rr�ZbeforethisafterZfortrantypesr�rMr�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�rrrmr r!rFr�rrr"r�rSr>rAr
rr�rxrprsr?rNrrrr�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�rDr�r�r�r�r�r�r�r�r�r�r�r�r�rEr�rrrrr
r�__name__r�funcsr~�f2Zf3Z
showblocklist�argvr�r\r�rur{r��IOErrorZdetailr�r	rr,r'r'r'r(�<module>�sJ
	
&
	


�%	$	"	"%%%%%	"%%%%%%	"%%%%%%%%%#�		��%
�9		$`"+"3�Y�]%-K

|

			
										*