Sc3@`sdZddlmZmZmZddlZddlZddlZddlZddl Z ddl Z ddl Z ddl Z ddl mZddlTejadadadadadd Zd Zd adadZdagZdaigt6ad ada d a!ga"ia#da$d a%d a&gZ'ga(ga)ga*e+a,dd Z-ej.j/Z0dd Z1de_2iZ3xdD]Z4idd6e3e4d?d@dAdBdCdDdEdFg3D]"Z7e7dGe5e7j?Z@ej=dNej>jAZBej=dOej>jAZCej=dPej>jAZDej=dQej>j?ZEdRZFe-ddSZGdTdUdVZHdWZIej=eHd eIeIdXfej>dEfZJej=eHd eIdYeIdYdXfej>ZKej=eHdZd[d[dXfej>d\fZLej=eHd]d^d^dXfej>d\fZMd_ZNej=eHd eNeNdXfej>d\fZOeNd`ZPej=eHd ePePdXfej>d\fZQdaZRej=eHd eReRdbfej>dcfZSddZTej=eHdeeTeTdbfej>dffZUej=eHd dgdgdXfej>dgfZVej=eHd dhdhdXfej>difZWej=eHd djdjdXfej>djfZXej=eHd dkdkdXfej>dkfZYej=eHd dldldXfej>dlfZZej=eHd dmdmdXfej>dmfZ[ej=eHd dndndXfej>dnfZ\ej=eHd dododXfej>dofZ]ej=eHd dpdpdqfej>drfZ^ej=eHd dsdsdtfej>dsfZ_ej=eHd dududXfej>dufZ`ej=eHd dvdvdXfej>dvfZaej=eHd dwdwdXfej>dwfZbej=eHd dxdxdXfej>dxfZcej=eHd dydydXfej>dyfZdej=eHd dzdzdXfej>dzfZeej=eHd d{d{d fej>d{fZfej=eHd d|d|dXfej>d|fZgej=eHd d}d}dXfej>ejhBd~fZiej=dejhdfZjdZkej=dej>ZlddZmdZnddZodZpddZqej=dej>Zrej=dej>Zsej=dej>Ztej=dZuej=dZvej=dej>ZwdZxdZydZzdZ{dZ|ej=dej>Z}ej=dej>Z~ej=dej>Zej=dej>Zej=dej>ZdZdZdZdZddZddZddZddZdZdZe+dZd e+dZe+d dZdZdZd dZdZe+e+dZej=dej>ZdZej=dj?ZddZej=dej>ZdZdZdZdZdZdddZidZdZej=dj?ZdZdZej=dej>ZgdZdZej=dej>Zej=dej>Zej=dej>Zej=dej>Zej=dej>ZdZidZdedZd dZd dZdZd edZdZdZedkrgZgZdZdZdZdZxejdD]Zed krf neddkr dZnedkr dadanedkr dadanedkr tr e1ddndadanWedkr danBedkr dZn-edkr+ dadanedkrL dadadanedkra dZnedkrv dZnedkr dZneddkr e0deener dZeZnver dZeanaer0y!eejejeWn'ek r,Ze0deenXn ejeqQ Wt oRtoRt ree1ddneeeZere1deedeeZeedZej/eejnere-enndS(s crackfortran --- read fortran (77,90) code and extract declaration information. Copyright 1999-2004 Pearu Peterson all rights reserved, Pearu Peterson 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 -m ,--ignore-contains Functions: crackfortran, crack2fortran The following Fortran statements/constructions are supported (or will be if needed): block data,byte,call,character,common,complex,contains,data, dimension,double complex,double precision,end,external,function, implicit,integer,intent,interface,intrinsic, logical,module,optional,parameter,private,public, program,real,(sequence?),subroutine,type,use,virtual, include,pythonmodule Note: 'virtual' is mapped to 'dimension'. Note: 'implicit integer (z) static (z)' is 'implicit static (z)' (this is minor bug). Note: code after 'contains' will be ignored until its scope ends. Note: 'common' statement is extended: dimensions are moved to variable definitions Note: f2py directive: f2py is read as Note: pythonmodule is introduced to represent Python module Usage: `postlist=crackfortran(files,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'][]['parent_block'] is C B['vars'] --- dictionary of variable definitions B['sortvars'] --- dictionary of variable definitions sorted by dependence (independent first) B['name'] --- name of the block (not if B['block']=='interface') B['prefix'] --- prefix string (only if B['block']=='function') B['args'] --- list of argument names if B['block']== 'function' | 'subroutine' B['result'] --- name of the return value (only if B['block']=='function') B['implicit'] --- dictionary {'a':,'b':...} | None B['externals'] --- list of variables being external B['interfaced'] --- list of variables being external and defined B['common'] --- dictionary of common blocks (list of objects) B['commonvars'] --- list of variables used in common blocks (dimensions are moved to variable definitions) B['from'] --- string showing the 'parents' of the current block B['use'] --- dictionary of modules used in current block: {:{['only':<0|1>],['map':{:,...}]}} B['note'] --- list of LaTeX comments on the block B['f2pyenhancements'] --- optional dictionary {'threadsafe':'','fortranname':, 'callstatement':|, 'callprotoargument':, 'usercode':|, 'pymethoddef:' } B['entry'] --- dictionary {entryname:argslist,..} B['varnames'] --- list of variable names given in the order of reading the Fortran code, useful for derived types. B['saved_interface'] --- a string of scanned routine signature, defines explicit interface *** Variable definition is a dictionary D = B['vars'][] = {'typespec'[,'attrspec','kindselector','charselector','=','typename']} D['typespec'] = 'byte' | 'character' | 'complex' | 'double complex' | 'double precision' | 'integer' | 'logical' | 'real' | 'type' D['attrspec'] --- list of attributes (e.g. 'dimension()', 'external','intent(in|out|inout|hide|c|callback|cache|aligned4|aligned8|aligned16)', 'optional','required', etc) K = D['kindselector'] = {['*','kind']} (only if D['typespec'] = 'complex' | 'integer' | 'logical' | 'real' ) C = D['charselector'] = {['*','len','kind']} (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 = [[]::] = byte | character[] | complex[] | double complex | double precision | integer[] | logical[] | real[] | type() = * | ([len=][,[kind=]]) | (kind=[,len=]) = * | ([kind=]) = comma separated list of attributes. Only the following attributes are used in building up the interface: external (parameter --- affects '=' key) optional intent Other attributes are ignored. = in | out | inout = comma separated list of dimension bounds. = [[*][()] | [()]*] [// | =] [,] In addition, the following attributes are used: check,depend,note TODO: * Apply 'parameter' attribute (e.g. 'integer parameter :: i=2' 'real x(i)' -> 'real x(2)') The above may be solved by creating appropriate preprocessor program, for example. i(tdivisiontabsolute_importtprint_functionNi(t __version__(t*tfixit ticC`stj|dS(N(tpprint(totf((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytshowscC`s@ts dSts<|r)tjjtntjj|ndS(N(tverbosetquiettsyststdouttwritetfilepositiontext(tlinetflag((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytoutmesss i2sabcdefghopqrstuvwxyz$_trealttypespectijklmntintegertinttdoubletfloattchartshorttlongtvoidtcasetwhiletreturntsignedtunsignedtiftforttypedeftsizeoftuniontstructtstatictregistertnewtbreaktdotgototswitchtcontinuetelsetinlinetexterntdeletetconsttautotlentranktshapetindextslentsizet_itmaxtmintflentfshapetstringtcomplex_doublet float_doubletstdintstderrRttypetdefaultt_bncC`s0|tkr,td|t|ft|S|S(Ns&rmbadname1: Replacing "%s" with "%s". (tbadnamesterrmess(tname((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt rmbadname1s cC`sg|D]}t|^qS(N(RO(tnamest_m((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt rmbadnamescC`s0|tkr,td|t|ft|S|S(Ns+undo_rmbadname1: Replacing "%s" with "%s". (t invbadnamesRM(RN((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytundo_rmbadname1s  cC`sg|D]}t|^qS(N(RT(RPRQ((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytundo_rmbadnamescC`sS|jd}|dkrdSd||kr3dSd||krGdS||dS(Nt.iRs\t/i(trfind(RNti((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt getextensions s.*[.](for|ftn|f77|f)\Zs-[*]-\s*fortran\s*-[*]-s-[*]-\s*f90\s*-[*]-s-[*]-\s*fix\s*-[*]-s[^c*]\s*[^\s\d\t]cC`sd}t|d}|j}d}t|r<d}nt|rWd}d}nx|dkr|r|ddkr|jr|d8}|ddkrt|d s|dd !d krd}Pqn|j}qZW|j|S( s(Check if file is in free format Fortran.itriit!s iiit&(topentreadlinet _has_f_headert_has_f90_headertstript_free_f90_starttclose(tfiletresultR Rtn((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytis_free_formats$      3 c C`s|s*tttttttttf }n|gkr:dSt}d}d}d}t j d}t j dt j } t j d} t j d} t j d} |r|dd nd*\}} d ggt d D]}t |^q}datj|}x+tr3|j}|s%Pn|jrda|jad a|} dad atjjtd }ttrt|pt| rd an"ttrt| rdantrtantatdttttrdpdfn|jj dd }x.|dksJ|d dkr=Pn|d }qWts|j!|}|r|j"dd }|j"d}|d j#dkr|d+}|j!|d}|r||j"d}q||d}qqn|j$dkr d}q ntd kr|dd,kr^|d d!j#dkrRd|d}qd}q n(trt%|dkr|d }qn|d|krt&dt|n| strt%|dkr|dd k r||d }d}d}q ts| j!|}|r)|j"d}n|rZ|| j!|j"d}d}d}n5d|d}|r}|j#}n|}|}|}|dk }q d|d}|r|j#}n|}|}|}n5tdkr| rg|d!krg| j!|rg|d"}xGtrW|j}|s7t(d#Pn||}| j!|rPqqW|j)}n| j!|}|r|j"d}n|r|| j!|j"d}d}d}n'|r|j#}n|}|}|}|dk }nt*d$ttd%|j+d t| fa| j!|}|r |j"d&}tjj,|rwt-|d'|d(dq*tjj.tgt/}d}xU|D]M}tjj0||}tjj,|rd }t-|d'|d(dPqqW|s*td)t|tj1j0|fq*n |||} q W|rI|j#}n|}|}d%|j+d t| fa| j!|}|rj|j"d&}tjj,|rt-|d'|d(dqttjj.tgt/}d}xU|D]M}tjj0||}tjj,|rd }t-|d'|d(dPqqW|sttd)t|tj1j0|fqtn ||da|j2|r|dd n!|\ aaaaaaaaadS(-s Read fortran codes from files and 1) Get rid of comments, line continuations, and empty lines; lower cases. 2) Call dowithline(line) on every line. 3) Recursively call itself when statement "include ''" is met. NiRsS(?P([^"]*["][^"]*["][^"!]*|[^\']*\'[^\']*\'[^\'!]*|[^!\'"]*))!{1}(?P.*)s*\s*include\s*(\'|")(?P[^\'"]*)(\'|")s(?P.*)&\s*\Zs(\s*&|)(?P.*)s.*?'''iRi iRtfrees Reading file %s (format:%s%s) s,strictss Rtrestitf2pyRtcR\tCt#is iHsxreadfortrancode: Found non-(space,digit) char in the first column. Are you sure that this code is in fix form? line=%sis.pyfs s.Unexpected end of file when reading multiline s6Flag sourcecodeform must be either 'fix' or 'free': %ssLine #%d in %s:"%s" RNt dowithlinetistopsAreadfortrancode: could not find include file %s in %s. Ignoring. (RRs (RRlR\RmRn(3t gotnextfileRtcurrentfilenametsourcecodeformt strictf77t beginpatternR R t dolowercasetretcompiletItrangetstrt fileinputt FileInputtTrueR_t isfirstlinetfilenametostpathtsplitextt is_f_fileRat_has_fix_headerRhtbeginpattern77tbeginpattern90Rtreprt expandtabstreplacetmatchtgrouptlowerRbR9t ExceptiontNoneRMtrstript ValueErrort filelinenotisfiletreadfortrancodetdirnamet include_pathstjointpathsepRd(tffileRoRpt saveglobalstlocaldolowercasetcontt finallinetllt commentlinet includelinetcont1tcont2t mline_marktl1RQt spacedigitstfintltextR[trlt origfinallinetlctmtfnt include_dirst foundfiletinc_dirtfn1((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRsR   ,           0    "       ,   ,  s"\s*(?P%s(?=\s*(\b(%s)\b)))s\s*(?P(\b(%s)\b))s\s*(?P%s)\s*\Zsqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|bytes.*s|static|automatic|undefineds([a-z]+[\w\s(=*+-/)]*?|)tfunctiontbegins [a-z\s]*?t subroutinesprogram|block\s*datas?|module(?!\s*procedure)|python\s*module|interface|type(?!\s*\()sBend|endprogram|endblockdata|endmodule|endpythonmodule|endinterfaces[\w\s]*tends>(end\s*(if|do|where|select|while|forall))|(module\s*procedure)s[\w]*?tendiftimplicitsdimension|virtualt dimensiontexternaltoptionaltrequiredtpublictprivatetintrisicsintent|depend|note|checks \s*\(.*?\).*tintentt parameters\s*\(.*tdatatcalltentrytcallfuntcommontusetcontainstformatsKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddeftf2pyenhancementss2\s*(?P''')(?P.*?)(?P''')\s*\Zt multilinecC`scg}xMt|jdD]6}x dD]}|j|d}q)W|j|qWdj|S(Ns@,@s(),t_t,(tmarkoutercommatsplitRtappendR(targslinetaRgR[((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt _simplifyargss  s&\s*(?P\b[a-z]+[\w]*\b)\s*[=].*c C`sd|kr|tdj|p/tdj| r|xB|jdD]1}|dksgtt|t||qCWdS|dkrdaidt6aiit6a igt6a gt td[^"]*)\b%s\b\s*@\(@(?P[^@]*)@\)@.*\Ztbeforetargsscallfun %s(%s) result (%s)Rfscallfun %s(%s)s8crackline: could not resolve function call for line=%s. Rs.pyfs"crackline:%d: No pattern for line Rs>crackline: groupcounter(=%s) is nonpositive. Check the blocks.tthissGcrackline: End group %s does not match with previous Begin group %s %sRRR(<tf2pyenhancementspatternRtmultilinepatternRtAssertionErrorRt cracklinet groupcountert groupnamet groupcachet grouplistt neededmoduletskipblocksuntilt f77modulenameRRtdimensionpatterntexternalpatternt intentpatterntoptionalpatterntrequiredpatterntparameterpatternt datapatternt publicpatterntprivatepatterntintrisicpatternt endifpatternt endpatternt formatpatternRutfunctionpatterntsubroutinepatterntimplicitpatternt typespatternt commonpatternt callpatternt usepatterntcontainspatternt entrypatterntcrackline_re_1RSRwtmarkouterparenRyRRtcallfunpatternt analyzelineR RrRtendswithRtprevious_contextRRt skipemptyendst expectbeginRqtignorecontains( RtresetRtflRtpatRtre_1RNtm1tm2R((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs                    $" -            cC`sd}d}x|D]z}|dkrN|d}|dkr|d}qqn5|dkr|d}|dkr|d}qqn||}qW|S(NRit(is@(@t)s@)@((RRR Rl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs       RcC`s#d}d}d}x|D]}| s2|dkrQ|dkrQ|d}d}n| r|dkr| s{|ddkr|d}d}n^||kr|d}|dkrd}qn0||kr|dkr|d |d }qn||}qW| stt||||f|S( NRiR R is'is\t@(RR(RtcommaRR tccRl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs(   *      %cC`s"|jddjdd}|S(Ns@(@R s@)@R (R(RR[((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytunmarkouterparenscC`sp|si}n|s|S||kr)|Sx@t|jD],}|dkrt|s`||krh||||(@\(@.*?@\)@|[*][\d*]+|[*]\s*@\(@.*?@\)@|))(?P.*)\Zs\s*(?P\b[\w$]+\b)\s*(@\(@\s*(?P[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P.*)\s*@\)@))*\s*\Zs9\s*(?P\b[\w$]+\b)\s*@\(@\s*(?P.*)\s*@\)@\s*\Zs4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)sA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))sintent\s*\(.*?\bcallback\bcC`s4x-|jdgD]}tj|rdSqWdS(NRii(tgett_intentcallbackpatternR(tvdeclR((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt_is_intent_callbackscC`st|}tj|}|rU|jd|jd|jd|jdfStj|}|r|jd|jdddfSdgddfS(NRNRRftbind(RtnameargspatternRRtcallnameargspatternR(RR ((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt_resolvenameargspatterns 4"c= C`sx|jd}|dkr$dantr|dwkrt rtdkrtjjt j dd }t d |d a tdad t tj+ttd}q0 n|d krK d }d}n|| j}||d"}t|j d}t,|dkr |d }t d?d>j+|dnd}xgt|j dD]} | j^q D]j}t-j|}|sM |dkr d} qb t.|j/t d@|t|fq nt|jd} | |kr{ i|| dP}qnyt:|i|}Wn3t;t<t=fk r}t1dQ||fqnXt||| dHj|jd}"|"st dW|qnt&|"jd|"jd\}}}}t?||\}#}$}%||!dK<|#|!dX<|$|!dY<|%|!dZrp|*dj}*n|j |*|+g|/}*d}+d },qqW|,d"kr|*j}*|*jCd>r|*dj}*n|j |*|+gni}0d ttkrttd }0nd}x|D] }1g|1D]} | j^q-}1|1d d d>krn|1d d|1d k rt|1d|d_krg|- }-n|d}q"W|d}||0kri|0|D]} | j^qU}i}:x|D]}1dH|1krtjdn|1tj}"|"r|"jdij|:|"jdoj.*?)\s*(\(\s*(?P[a-z-, ]+)\s*\)\s*|)\ZsDanalyzeline: could not extract info of implicit statement part "%s" sManalyzeline: could not extract types pattern of implicit statement part "%s" RRRt-sZanalyzeline: expected "-" instead of "%s" in range list of implicit statement s^analyzeline: expected "-" instead of "%s" in range list of implicit statement (2) Rt'RWR R s>analyzeline: implied-DO list "%s" is not supported. Skipping. s=analyzeline: changing init expression of "%s" ("%s") to "%s" Rs//t_BLNK_sDanalyzeline: previously defined common block encountered. Skipping. RsT\A\s*(?P\b[\w]+\b)\s*((,(\s*\bonly\b\s*:|(?P))\s*(?P.*))|)\s*\ZRtnotonlytonlys;\A\s*(?P\b[\w]+\b)\s*=\s*>\s*(?P\b[\w]+\b)\s*\Ztlocals0analyzeline: Not local=>use pattern found in %s tmaps0analyzeline: Could not crack the use statement. Rtusercodes-analyzeline: No context for multiline block. s+analyzeline: No code implemented for line. (sbeginscallscallfunstype(sbeginscallscallfun(s interfaces block data(scallscallfun(scallscallfun(sfunctionR(scallscallfun(s dimensionsintentsoptionalsrequiredRRsprivateR(Rsprivate(soptionalsrequiredRRsprivateR(sf2pyenhancements(GRRRRRRRRtbasenameRrRRRqRRRRRwRRyR*RRRRbtremoveRRR RRORRRtcopytdeepcopyR<R"Rtcracktypespec0t updatevarsRtfindRRR9t namepatterntprintt groupdictR$RMtget_parameterstdetermineexprtypeR#t real16patterntfinditertstartRRtevalt SyntaxErrort NameErrort TypeErrorttypespattern4implicitt cracktypespecRztordtchrt startswitht isinstanceR{tappendmultiline(=RR RRtnewnameRNRRfR'txt needmodulet needinterfacetitR!ttRtselectortattrtedeclt last_nameRRYtpltchR9R taptinitexprtparamsttttvtmsgtimplRR t kindselectt charselectRR[tbegctendcR tdltilR tfctinpRlRRtjtllentcltbntolt commonkeytmmtisonlyRR8tgc((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs           !    7                0      '0  #0 ;  < $-   ! 7 $   !!   5              2    %" E   !   %-     % 2 (&             ?*    41               9  !  ,  +   !     cC`sQd|kri|dcracktypespec0: no kind/char_selector pattern found for line. R:RtlogicalRt characterRIRR.s::ii(scomplexRRsrealRstype(RRwRRyRbRt selectpatternRRRMRRRRJ(RRRdReR R8R!RY((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRHs,        s+\s*(?P\b[\w]+\b)\s*(?P.*)\s*\ZsC\s*(\(\s*(kind\s*=)?\s*(?P.*)\s*\)|[*]\s*(?P.*?))\s*\Zs3\s*(\((?P.*)\)|[*]\s*(?P.*))\s*\Zs\s*(kind\s*=\s*(?P.*?)\s*(@,@\s*len\s*=\s*(?P.*)|)|(len\s*=\s*|)(?P.*?)\s*(@,@\s*(kind\s*=\s*|)(?P.*)|))\s*\Zs\s*(@\(@\s*(?!/)\s*(?P.*?)\s*@\)@\s*[*]\s*(?P.*?)|([*]\s*(?P.*?)|)\s*(@\(@\s*(?!/)\s*(?P.*?)\s*@\)@|))\s*(=\s*(?P.*?)|(@\(@|)/\s*(?P.*?)\s*/(@\)@|)|)\s*\ZcC`s|j}t|dkr"|S|d}xmtdt|dD]R}||dkr||ddksF||ddkrqFn|||}qFW||d}|S(NiiRs ()[]{}=+-/* i(RbR9Rz(texprtexpr2RY((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt removespacess   (cC`sd}d}d}d}d}x|D]}|dkrY|d krY||}|}q%n|dkr|d kr|}idd6dd6|}n||kr|d}nA||kr|d}n(|dkr|dkr|d}q%n||}|}q%W|S( NRis't"s\iRs@_@(s\s'R(s'R((RRR Rtcc1tcbRl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytmarkinnerspacess.      c C`sd}t||\}}}|rgt|jdD]}|j^q:}g} tjd} xh|D]`} | sqnn| j| } | r| jdj } | | t | } n| j | qnW| }ngt|jdD]}|j^q}g}x{|D]s}xjgtt t |ddjdD]}|j^qGD](}|r]|j |jddq]q]WqWx|D] }tj|} | stdt|qnt| jd }i}|ttd krttd |j}d |k}|r/||d ||d||d||<||d=q>q>WxHt|jD]4}||dk rt||||[a-zA-Z]+)RRRRs@ @s@_@s;updatevars: no name pattern found for entity=%s. Skipping. RNRRsIupdatevars: attempt to change the type of "%s" ("%s") to "%s". Ignoring. RsVupdatevars: attempt to change the kindselector "%s" of "%s" ("%s") to "%s". Ignoring. RsEupdatevars:%s: attempt to change empty charselector to %r. Ignoring. sVupdatevars: attempt to change the charselector "%s" of "%s" ("%s") to "%s". Ignoring. RsMupdatevars: attempt to change the typename of "%s" ("%s") to "%s". Ignoring. RR.R9tarraytinitt2RRs-updatevars: "%s %s" is mapped to "%s %s(%s)" s dimension(%s)i Ris5updatevars:%s: attempt to change %r to %r. Ignoring. R:RRRRRRsTupdatevars: attempt to change the init expression of "%s" ("%s") to "%s". Ignoring. s?updatevars: could not crack entity declaration "%s". Ignoring. R5(scomplexsintegerslogicalsreal(RRXRRRbRwRxRRRR9RRRRRKRRRORRRFRRRMtlenarraypatternRRMR(RRdRt entitydeclRgRqRrRR_RRlRRtsteltel1R9te1tenameRftnot_has_typespecR!R td1tlktdmtdm1((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRIs.  . G$    ))" ))"        $         !"  c C`sd}d}d}|r|dkrtj|}|sQtdt|dS|j}|d|d<|d=x.t|jD]}||s||=qqWxt|jD]\}}t |||\w+)\s*\)RNs'cracktypespec: no typename found in %s s'cracktypespec: no selector used for %s (scomplexsintegerslogicalsreal(RRRRRRMRRtitemsRORtlenkindpatternRRwRyR( RRdRqRrRR!RYRR((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRXbs\         cC`s9|si}n|s|Sd|kr6|g|d<|S|rP|dj|n||dkrd|S|dkrd|dkr|dj|n|dkrd|dkr|dj|nq|dkrd|dkr|dj|nA|dkr$d|dkr$|dj|n|dj||S(NRR+t automaticRR(R(RReR ((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs*   cC`s|si}n|s|Sd|kr3||d<|SxEt|jD]1}|sb||dkrF|||d|nt|}t|}|sq>n|rt d|nxYt|jD]E\}}||kr tdt |t |fn|||W|S(Ns0get_useparameters: no module %s info used by %s RNs+get_useparameters: mapping for %s not impl.sDget_useparameters: overriding parameter %s with value from module %s( RRRRRt f90modulevarsRR#RNRMR( Rt param_mapRtusenametmappingtmvarsRlR!Rn((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pytget_useparameterss,        c C`sts |St|tr]g}x7|D]/}t|d|dd|}|j|q&W|St|td||dfd|dkrt|}n|dk r8d|kr8|d}xvt|j D]_}||}d|kr|d}d |kr1|d } | |kr.|| |d |d|kr>tj|}|d |=Pq>q>W|r|d s|d |=n| | j|=Pqq q W|d j|q|| krt| | r| ||d |.*?)\b\s*(\((?P.*?)\)|)\s*\Ztdimss@,@RNRRs dimension(%s)RsNanalyzecommon: failed to extract "[()]" from "%s" in common /%s/. t commonvars( t hascommonRRRwRRyRRRRbRRRM( RRR!tcomvarsR9RRR_Rg((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs: :)%(   cC`snt|g}xW|dD]K}||d<|ddkr|dk r]|d|kr]qn |d}|dtkr}qntr|dtkrqnt|ddd t|d |r$d|j dd|j d f}|j|}qWt|ii} |j|}x>|rd|j dd|j d f}|j|}qIWt|ii| } |j|}x>|rd|j dd |j d f}|j|}qWt|ii}|j|}x>|rNd|j dd |j d f}|j|}qWt|ii} | d | |kr| d | | kr| | |fSWnnXPqbqbWd S( Niis\w\s*\([^)]*\bs\bs(?P.*?)\bs\b(?P.*)s%s(%s)%sRR.g?g?(NNN( RRRtgetlincoef_re_1RR9RwtsearchRxRyR( R9txsetRltlen_eR_R RR teeRRtc2((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt getlincoefsV    % % % %(s \A[a-z]\w*\ZRc C`s? g}y!|jt|diiWn|j|dnXy!|jt|diiWn|j|dnXt|dtrd|d}|dkrt|d}qf|dkrd|d| f}qfd|d|f}nmt|dtrNd|d}|dkr7d|d}qfd||df}nd|d|df}y#tt|iiddfSWnnXt|d|t|d|}}d|d|dgkr2 |d|dfdkrt|d|ddddfS|d|dd}|dd|df}|d||df}|ddkr|d|kr|dkrd |d|d| f|dd | |dffS|rd |d|d|f|dd ||dffSd |d|df|dd|dfSn|ddkr|d|kr|dkrd |d |d| f|dd | |d ffS|rd |d |d|f|dd ||d ffSd |d |df|dd|d fSn|d|dkr|d|kr|d|d} | s>t|ddfS|dkrxd | |d| f|dd | | ffS|rd | |d|f|dd || ffSd | |df|dd| fSn|d|dkodknrt|d} | |kr:t| r-t d| nd| } n|dkr]d|d| f}q/ |dkrd|d| | f}q/ d|d| |f}q2 |ddkrt|d} | |krt| rt d| nd| } n|ddkrn1|ddkr$d| } nd|d| f} |dkrM| }q/ |dkrmd| | f}q/ d| |f}q2 |ddkrt|d} | |krt| rt d| nd| } n|ddkrd| } nY|ddkrd| } n<|ddkr8d|d | f} nd|d| f} |dkra| }q/ |dkrd| | f}q/ d| |f}q2 t|d} | |krt| rt d| nd| } n|ddkrd| } nY|ddkrd| } n<|ddkr<d|d | f} nd|d| f} t|d} | |krt| rt d| nd| } n|ddkrn1|ddkrd| } nd|d| f} |dkrd| | f}q2 |dkr d| | | f}q2 d| | |f}n|ddfS(Niis%s-%ss%s+%ss-(%s)s%s-(%s)s %s-(%s)+1is %s * %s - %ss +%s)/(%s)s %s * %s + %ss -%s)/(%s)s%s * %ss)/(%s)s# getarrlen:variable "%s" undefined s(%s)s%s-%s-%ss%s-%s+%sis-%ss%s*%ss+%ss+%s*%ss-%s*%ss%s%ss%s%s-%ss%s%s+%s(ii( RRR\RR{RRRt_varname_matchR( RuRtstartedltp1R8Rtd2RRRlRtc1((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt getarrlens!!   #'#  64.  860$ .,&$                             s\b[a-z][\w$]*\bcC`s||kr||jdg}d||krt|| rxJtj||dD].}||kr[||kr[|j|q[q[Wnxw|D]Q}xH|j|gpt|||D]"}||kr|j|qqWqWntdt|g}|||<|S(NRRs,_get_depend_dict: no dependence info for %s (R#tisstringt word_patterntfindallRt_get_depend_dictRR(RNRtdepstwordstwordR((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs !  cC`s=t|j}i}x|D]}t|||qW|S(N(RRR(RRPt depend_dictRg((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt_calc_depend_dicts  cC`st|}g}x;t|jD]'}||s%|j|||=q%q%Wxy|rxlt|jD]X\}}g|D]}||kr|^q}|s|j|||=ql|||.*)\s*\)s-\bselected_int_kind\s*\(\s*(?P.*)\s*\)s4\bselected_(int|real)_kind\s*\(\s*(?P.*)\s*\)Rs.false.tFalses.true.R~s kind("\1")sselected_int_kind(\1)RiR8R9RR iR is@,@sget_parameters: got "%s" on %s s2get_parameters:parameter %s does not have value?! (s.false.sFalse(s.true.sTrue("RFRRRRRRwRxRyt islogicalRRtsubt isintegerRRtisdoubleRRPRQRRRRt iscomplexRRSRRRRR\RRZRL(Rt global_paramsRltg_paramsRNtfunct param_namesRgtkind_retselected_int_kind_retselected_kind_reRntreplRmRRRotnl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRNsb   $     E " #  cC`s|dkrdSt||S(Ns(:)s(*)R(s(:)s(*)R(t _eval_scalar(tlengthRl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt _eval_lengths s\d+_cC`st|r"|jdd}nytt|i|}WnMttfk rX|Stk r}td||t|j fnX|S(NRis,"%s" in evaluating %r (available names: %s) ( t_is_kind_numberRR{RSRURTRRMRR(tvalueRlRo((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRs !c5 C`s8t|t|\}}tj|d}|ddkr`|d|kr`i||dg||d||dkrd?||dkr||djd>qqX |dPkrX | r||kr}||#kr||dj|qq||d|#||d||dkrd?||dkr||djd>nd||krg||d.*?)\bs\b(?P.*)RR.s@:@it1s1 * is/(1)R;soanalyzevars: character array "character*%s %s(%s)" is considered as "character %s(%s)"; "intent(c)" is forced. RRls'analyzevars: charselector=%r unhandled.R s.*?\bs\bRs %s%s(%s,%s)%ss %slen(%s)%ss%s%s(%s,%i)%s==%ss%slen(%s)%s>=%sRRRfR4tpuret recursiveRRs'analyzevars: prefix (%s) were not used R1Rs python modules block dataRRRRI(NNNNN(RR(smodules pythonmodules python modules block data(s subroutinesfunction(3RRRFRRRRtKeyErrorRNRRwRxRRRRRyRRRR{RStreverseRRbRRRRRRR9Rt isintent_ct isstringarrayRMRtl_ort isintent_intisintent_inouttisintent_inplaceRRRtisscalarRR"RRHRXtisintent_callbackt isintent_auxtextend(5RRRRtgenRgR!tsvarsRRRlt dep_matchest name_matchRnRtln0Rt savelindimsRetdimRRRRR_RlR8RRRutdit shape_macroRRYtnitddepstadtpdR[taaRtprtispuretisrectpr1RRdRfRqRrRt neededvarsRN((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRsj   (       + "$  %'  5   ;  5 ;    1    #(     & ,     . $ $ '$   '  )"    - %      s\A[a-z]+[\w$]*\Zc C`s|}tj| }|rt|\}}t||d|}d}xC|D];} | j} | tjtjkrd} n|| }qQW|ddkr|d}n |d}|}x1||dks||dkr|d}qWn||kr=d } x$|t| |kr)| d } qW|t| }n|rT||d|     # $"cC`st|t|\}}d|kr5g|d\}}x/|D]'}||dkri|d|[\w]+)|)\Zs+\A[+-]?[\d.]+[\d+-de.]*(_(P[\w]+)|)\Zs \A\(.*\)\Zs\A(?P\w+)\s*\(.*?\)\s*\ZcC`swt|tridd6St|tr4idd6St|trNidd6St|tra|Stt|dS(NRRRR:(R\RRR:RRR(R[((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt_ensure_exprdict s   c C`sr||krt||S|j}tj|r@idd6Stj|}|rd|jkr|jdrtdt|nidd6St j|}|rd|jkr|jdrtdt|nidd6Sx{ddd d gD]g}x^gt |d |j d |d D]}|j^q0D] }||krFt||SqFWqWi}t j|rt |d d!||}ntj|}|r(|jd}t |jd||}|rd|kr|d=n|s(|d|kr%t||dSq(n|ddkrQidd6id d 6d6S|sntdt|n|S(NR:RRNs:determineexprtype: selected kind types not supported (%s) RRt+R<RRWRRiiRis'"RRs>determineexprtype: could not determine expressions (%s) type. (RMRbtdetermineexprtype_re_1Rtdetermineexprtype_re_2RMRRRtdetermineexprtype_re_3RRtdetermineexprtype_re_4ROtdetermineexprtype_re_5( RRtrulesRtopR_R9Rctrn((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRO sH   ! ! C  s cC`s t|d}t|trxr|D]j}|rw|ddkrw|dtkrXq&ntrw|dtkrwq&qwn|t||d|}q&W|Sd}d}d}|d}|dkrdSg} d|kr|d}nd|kro|d } xD|dD]8} t| || } t| | s| j| qqW|ddksV| rod d j | }qond} d |krxCt|d j D](} d | |t | |d | f} qWn|j dg}|dkrd|kr|j dn|r.d| |t d j ||f} nd}d|krZt|d|t }nd}d|krt|d|t }n|dkrd}nd}d|krd|d}|d| kr| j|dqnt|d|t }t||d | |t d|} d}d|krF| rFd|d}nd|krd}xGt|djD]/\} }d||t | d j |f}qoW||}n|dkr|dkrd}nd|||||||| || |||||f}|S(NRRRRRNRR+RRs(%s)RRs %s%s%s %sRtcallbacks%s%sintent(%s) %sRRR2Rfs result (%s)RR-s! in %sRs%s%sentry %s(%s)s block dataR/s%%s%s%s %s%s%s %s%s%s%s%s%s%send %s %s(sfunctions subroutine(RR\RRRRRKR,RRRttabcharR#REt use2fortrantcommon2fortrant vars2fortranR(RRRRRR4RNRRtargslRRRR!t intent_lstRRRfRtmesst entry_stmtsRY((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyR s          )     # #$  7cC`syd}xlt|jD]X}|dkrNd||dj||f}qd|||dj||f}qW|S(NRR>s %s%scommon %sRs%s%scommon /%s/ %s(RRR(RRRR!((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRZ s  #'cC`sid}x\t|jD]H}d|||f}||ikrk|r|ddkr|d }qqnd||kr||drd|}nd||kr>||dr>d}xt||djD]b}|||d|krd |||f}d}qd |||||d|f}d}qWn|r|ddkr|d }qqW|S( NRs %s%suse %s,iRR@s%s only:RBRs%s%s%ss %s%s%s=>%s(RR(RRRRRlR!((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyRY s(  ! " cC`si|d}g}xR|D]J}ytd|}Wntk rJd}nX|r|j|qqW|S(NRsisintent_%s(var)i(RSRUR(RRRRRl((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyttrue_intent_list1 s    cC`st|d}g}x.|D]&}||dkr|j|qqWd|krxN|dD]?}||kr||kr|j|qq^td|q^Wnd|kr|j|dn|sx9t|jD]"}||kr|j|qqWnx|D]}d||krx`||dD]M}||kr2d||kr2|||dkr2td||fq2q2Wnd|krw||dkrwt||rd |||f}nd |||f}t||rd |||f}n||kr#d ||kr#q nd } x<|dD]0} || dkr4| ddkr4d} Pq4q4W| rwq qwn||krt|t d|q n||dkr|ddk rq nd ||krFd||kr$d||dkr$||kr d |||f}q q nt||t d|q n||d } | dkrd||krd| ||df} ni} d||kr||d} n!d||kr||d} nd| kr| dd7krd| | df} qd| | df} nsd | krmd!| | d f} d"| kr`d#| | d"f} qd$| } n#d"| krd%| | d"f} nd&} d||kr g}x2||dD]"}|d8kr|j|qqW|r d'| d(j |f} d(} q nd)||krId*| | d(j ||d)f} d(} nd+||krt ||}|rd,| | d(j |f} nd(} nd-||krd.| | d(j ||d-f} d(} nd||krd/| | d(j ||df} d(} nd0||kr||d0}||d d9krvy&t |}d3|j |jf}WqvqvXnd4| ||f} nd5| |f} d6||| f}q W|S(:s& TODO: public sub ... RRRs7vars2fortran: Confused?!: "%s" is not defined in vars. R5RsHvars2fortran: Warning: cross-dependence between variables "%s" and "%s" Rs%s%sintent(callback) %ss%s%sexternal %ss%s%soptional %sRiRRNRRis/vars2fortran: No definition for argument "%s". RRs-vars2fortran: No typespec for argument "%s". RIRs%s(%s)RRRRs%s*(%s)s%s*%sR9s %s(len=%sRs %s,kind=%s)s%s)s %s(kind=%s)Rs%s, %sRRs%s%sdimension(%s)Rs%s%sintent(%s)Rs %s%scheck(%s)s%s%sdepend(%s)RR:sdouble complexs(%s,%s)s %s :: %s=%ss%s :: %ss%s%s%s(RR(sexternal(scomplexsdouble complex(RRRMR.RRR,t isoptionalR RRR`RSRtimag(RRRRRRtnoutRR8RRtvardefRdRlReRRRn((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyR[= s        0    !$        $  $ $  cC`s^tddt|ttddgattd}tddt|}t|S(NsReading fortran codes... isPost-processing... sPost-processing (stage 2)... (RRRRRRR(tfilestpostlist((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt crackfortran s     cC`s,t|d}d}dt}|||S(Ns sE! -*- f90 -*- ! Note: the context of this file is case sensitive. sb ! This file was auto-generated with f2py (version:%s). ! See http://cens.ioc.ee/projects/f2py2e/ (Rt f2py_version(Rtpyftheadertfooter((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyt crack2fortran s t__main__Rs-quiets-verboseis-fixs?Use option -f90 before -fix if Fortran 90 code is in fix form. s-skipemptyendss--ignore-containss-f77s-f90Ris-hs-shows-mR<sUnknown option %s s IOError: %s s 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). s Writing fortran code to file %s R(t__doc__t __future__RRRRRDR|RwRRRFRRRtauxfuncstversionRhRtRsR R RXt pyffilenameRRRRvtdebugRRRRRRRRqRRrt skipfunctionsRRRRRR RHRRMRt _MAXCACHERRlRLRSRgRORRRTRURZRxRyRRRR`RaRRcRhRtbeforethisaftert fortrantypesRRWRRt groupbegins77Rt groupbegins90Rt groupendsRtendifsRRRRRRRRRRRRRRRRRRRtSRRRRRRRRR"RR(R)RPRR$R&R*RR]RHRKRRRRRRRIRXRRRRRRRRRRRRRRRRRRRRRRRRRRNRRRRRDRKRRORPRQRRRSRMROR RRZRYR`R[RgRlt__name__RetfuncsR tf2tf3t showblocklisttargvRRR^RdRtIOErrortdetailR{RfRi(((sQ/opt/xtal/ccp4-6.5-linux32/lib/python2.7/site-packages/numpy/f2py/crackfortran.pyts                        +-+++ +++++++++++++++++++++2         .     "_ " !   , e     8  A !  (F  x