t70 d Z g dZddlZddlZddlZddlmZ ddlmZ ddl m
Z
ddl m Z m
Z
mZmZmZ ddlmZmZ dd lmZmZ dd
lmZ dd lmZmZm Z m Z m Z dd l m Z dd
lm!Z! ddl"m#Z# e$Z%g dZ& G d de' Z(d Z)d Z*d Z+ G d de Z,dZ-da.da/d Z0 d*dZ1d+d Z2 d*d Z3 e4 a5 d,d Z6d-d Z7d Z8 ej9 d!ej: j; Z< ej9 d"ej: j; Z= ej9 d#ej: j; Z> ej9 d$ej: j? Z@d% ZAd& ZB ej9 d'ej: ZCd( ZDeEd)k r e7 dS dS ).a numpy.distutils.fcompiler
Contains FCompiler, an abstract base class that defines the interface
for the numpy.distutils Fortran compiler abstraction model.
Terminology:
To be consistent, where the term 'executable' is used, it means the single
file, like 'gcc', that is executed, and should be a string. In contrast,
'command' means the entire command line, like ['gcc', '-c', 'file.c'], and
should be a list.
But note that FCompiler.executables is actually a dictionary of commands.
) FCompiler
new_fcompilershow_fcompilersdummy_fortran_file N)Path)get_python_lib) FancyGetopt)DistutilsModuleErrorDistutilsExecError CompileError LinkErrorDistutilsPlatformError) split_quoted strtobool) CCompilergen_lib_options)log) is_string all_strings is_sequencemake_temp_fileget_shared_lib_extensionfind_executable) _shell_utils )EnvironmentConfig).for.ftn.f77.fc e Zd ZdS )CompilerNotFoundN)__name__
__module__ __qualname__ v/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/distutils/fcompiler/__init__.pyr# r# - s Dr( r# c B t | rt | S | S N)r r ss r) flaglistr. 0 s! || A r( c \ t | rt | S t | S r+ )r r boolr, s r) str2boolr1 6 s' || || 77Nr( c > t | ot | S r+ )r r )seqs r) is_sequence_of_stringsr4 ; s s 0 C 0 00r( c
e Zd ZdZ eddddedfdddedfdddedfdddedf Z edd
d d d
dddd Z edGi ddddddedfdddd edfd d d d edfd!d"ddedfd#d$d%d#edfd&d'ddedfd(d)ddedfd*d+d,d*edfd-d.ddedfd/d0ddedfdd1d2d3edfd4d5ddedfd6d7ddedfd8d9d:d;edfdd?edfd@dAd>d?edfdBdCdDdEedfZ dddddddddFZ
ddgZ dZ dGZ
dZg ZddHgdgdgddIgddJgdgdBdKgddLZdZdMZdNZdNZdZdOZg Zg dPZdQZ e ZdRZ dSZ dTZ dUZ i Z g dLZ!dZ"g Z#g Z$dV Z%dW Z&dX Z'dY Z( e(dZ Z) e(d[ Z* e(d\ Z+ e(d] Z, e(d< Z- e(d@ Z. e(d^ Z/ e(d_ Z0d` Z1da Z2db Z3dc Z4dd Z5de Z6df Z7dg Z8dh Z9di Z:dj Z;dk Zdn Z?do Z@dp ZAe?xZBZCe@xZDZEeAxZFZGdq ZHdr ZIddsgfdtZJdduZKdv ZLdw ZMdx ZNdy ZOdz ZP dd{ZQd| ZRd} ZSd~ ZTdS )r a0 Abstract base class to define the interface that must be implemented
by real Fortran compiler classes.
Methods that subclasses may redefine:
update_executables(), find_executables(), get_version()
get_flags(), get_flags_opt(), get_flags_arch(), get_flags_debug()
get_flags_f77(), get_flags_opt_f77(), get_flags_arch_f77(),
get_flags_debug_f77(), get_flags_f90(), get_flags_opt_f90(),
get_flags_arch_f90(), get_flags_debug_f90(),
get_flags_fix(), get_flags_linker_so()
DON'T call these methods (except get_version) after
constructing a compiler instance or inside any other method.
All methods, except update_executables() and find_executables(),
may call the get_version() method.
After constructing a compiler instance, always call customize(dist=None)
method that finalizes compiler construction and makes the following
attributes available:
compiler_f77
compiler_f90
compiler_fix
linker_so
archiver
ranlib
libraries
library_dirs
config_fcNnooptFnoarchdebugverbose)distutils_sectionr7 r8 r9 r: )zexe.compiler_f77F77f77execNF)zexe.compiler_f90F90f90execNF)zexe.compiler_fixr> r? NF)zexe.version_cmdNNNF)z
exe.linker_soLDSHAREDldsharedNF)zexe.linker_exeLDldNF)NARarNF)NRANLIBranlibNF) r; compiler_f77 compiler_f90 compiler_fix version_cmd linker_so
linker_exearchiverrG r; f77z flags.f77F77FLAGSf77flagsTf90z flags.f90F90FLAGSf90flagsfreez
flags.free FREEFLAGS freeflagsfixz flags.fixoptz flags.optFOPTopt_f77z
flags.opt_f77opt_f90z
flags.opt_f90archz
flags.archFARCHarch_f77zflags.arch_f77arch_f90zflags.arch_f90z flags.debugFDEBUGfdebug debug_f77zflags.debug_f77 debug_f90zflags.debug_f90flagszself.get_flagsFFLAGSfflagsrL zflags.linker_soLDFLAGSldflagsrM zflags.linker_exerE zflags.arARFLAGSarflags)r! r .Fr r .f90.F90.f95r' z-vz-fixedz-sharedz-cr)rK rH rI rJ rL rM rN rG z-cz-o z-I) r r r r! rm ro rl rn z.FORz.oz.azlib%s%sz%s%s c t j | g|R i | | j | j | _ | j | j | _ | j | j | _ | j | _ | j D ]}|| j vr
d | j |< d| _
d S )NF) r __init__distutils_varsclone_environment_hook command_vars flag_vars executablescopy_executable_keys_is_customised)selfargskwes r) rr zFCompiler.__init__ s 4-$---"--- " 1 7 78N O O - 3 3D4J K K --d.DEE +0022& + +A(((&* # $r( c | | j }|j | j |j |j |_ |j |j |_ |j |j |_ |j
|_ |S r+ ) __new__ __class____dict__updaters rt ru rv rw rx ry )r| objs r) __copy__zFCompiler.__copy__ s ll4>** DM*** / 5 5c6K L L +11#2GHH
++C,ABB
/..00
r( c * | S r+ )r r| s r) ry zFCompiler.copy s }} r( c . fd}t | S )Nc 0 | j sJ | j S r+ )r{ rx )r| keys r) fgetz)FCompiler._command_property..fget s & & &&#C( (r( )r )property)r r s ` r) _command_propertyzFCompiler._command_property s/ ) ) ) ) ) T""""r( rK rH rI rJ rN rG c 2 | || d S r+ ) set_commandr| r values r) set_executablezFCompiler.set_executable s e$$$$$r( c f | D ]\ }}| || d S r+ )itemsr )r| r~ kvs r) set_commandszFCompiler.set_commands
s@ HHJJ # #DAq Q " " " " # #r( c || j vr t d|d| j j t | rt | }|#t
|dd s J ||f || j |< d S )Nzunknown executable 'z ' for class r )rz
ValueErrorr r$ r r r4 rx r s r) r zFCompiler.set_command s d+++ *dn--/0 0
0 U ( ''E} 6uQRRy A A}}C<}}A % r( c j sJ j fd fd}d fd } j } |d }|s7 |d }|rt j d|z nEt d|z |d| }|st j d
|z |d | |d ||
|d||
|d||
|d |d dS )a3 Go through the self.executables dictionary, and attempt to
find and assign appropriate executables.
Executable names are looked for in the environment (environment
variables, the distutils.cfg, and command line), the 0th-element of
the command list, and the self.possible_executables list.
Also, if the 0th element is "" or "", the Fortran 77
or the Fortran 90 compiler executable is used, unless overridden
by an environment setting.
Subclasses should call this if overridden.
c R | v r| S t | }|x| < |< |S r+ r )exefc_exe exe_caches r) cached_find_executablez:FCompiler.find_executables..cached_find_executable- s= i ~%$S))F17 7IcNYv .Mr( c p |0t | s#t | d|dj j d S d S )Nz value z is invalid in class )r4 r r r$ )namer r| s r) verify_command_formz7FCompiler.find_executables..verify_command_form3 sS )?)F)F TT555$."9"9;< < < ! r( Nc j | d }|sd S t j | }|s
||g j z }n |g j z }t }g }|D ]D}|dk r|}n|dk r|}|r||v r| | | | E|D ]} | }
|
r |
|d< |
c S | d d S )Nzzr ) rx getgetattrrv possible_executablessetaddappendr )
exe_keyrO rR cmdexe_from_environ possiblesseenunique_possiblesr r r r r| s
r) set_exez+FCompiler.find_executables..set_exe8 s9 "&&w55C
t 't'8' B B #
K #J)B B - .1J J 55D !
+
+<<AA'\\A AII ''****'
"
"//44 " #CF!MMM"
Wd + + +4r( rI rH z %s: no Fortran 90 compiler foundz%s: f90 nor f77)rR z %s: no Fortran 77 compiler foundrJ rL )rO rR rM rK rN rG NN)r{
_exe_cache
compiler_typer warnr# )r| r r ctyperR rO r r s ` @@r) find_executableszFCompiler.find_executables s """"O < < < < <
@ "gn%%
-'.))C
B;eCDDDD&'85'@AAA'.c222C
E;eCDDD GN , , , , #.... #3////
3C0000
r( c dS )aq Called at the beginning of customisation. Subclasses should
override this if they need to set up the executables dictionary.
Note that self.find_executables() is run afterwards, so the
self.executables dictionary values can contain or as
the command, which will be replaced by the found F77 or F90
compiler.
Nr' r s r) update_executablesz FCompiler.update_executablesl s
r( c g | j z S )z+List of flags common to all compiler types.) pic_flagsr s r) get_flagszFCompiler.get_flagsw s DN""r( c T | j |d }|g S |dd S )Nr )rx r )r| r r s r) _get_command_flagsz FCompiler._get_command_flags{ s1 ""3-- ;I122wr( c , | d S )z"List of Fortran 77 specific flags.rH r r s r)
get_flags_f77zFCompiler.get_flags_f77 &&~666r( c , | d S )z"List of Fortran 90 specific flags.rI r r s r)
get_flags_f90zFCompiler.get_flags_f90 r r( c g S )z.List of Fortran 90 free format specific flags.r' r s r) get_flags_freezFCompiler.get_flags_free r( c , | d S )z/List of Fortran 90 fixed format specific flags.rJ r r s r)
get_flags_fixzFCompiler.get_flags_fix r r( c , | d S )z/List of linker flags to build a shared library.rL r r s r) get_flags_linker_soz FCompiler.get_flags_linker_so s &&{333r( c , | d S )z,List of linker flags to build an executable.rM r r s r) get_flags_linker_exez FCompiler.get_flags_linker_exe s &&|444r( c , | d S )zList of archiver flags. rN r r s r) get_flags_arzFCompiler.get_flags_ar s &&z222r( c g S )z0List of architecture independent compiler flags.r' r s r)
get_flags_optzFCompiler.get_flags_opt r r( c g S )z.List of architecture dependent compiler flags.r' r s r) get_flags_archzFCompiler.get_flags_arch r r( c g S )z=List of compiler flags to compile with debugging information.r' r s r) get_flags_debugzFCompiler.get_flags_debug r r( c | j dd S )zList of compiler libraries.N) librariesr s r)
get_librarieszFCompiler.get_libraries s ~aaa r( c | j dd S )z%List of compiler library directories.N) library_dirsr s r) get_library_dirszFCompiler.get_library_dirs s ##r( r c f | j sJ t j | || }|t |S )N)force ok_status)r{ r get_versionr# )r| r r versions r) r zFCompiler.get_version s> """"'EYOOO ?"$$ $r( c t j d j j z d _ j | j | j |
j dd } j d| } j dd } j j j j
g g g }g r+t j j j r7t j j j j j } j j r.t j j j z g g g }}} fd} |s | d| |s | d | |r | d| j j |z |z |z }
r z |
z
r |z z |
z r z |
z j } | r j j } t2 j d
r_t9 d }
t: j |
dd }t: j |
dd }|g| z d|z gz } t2 j d r^ddl m!} |d }t: j |d }t: j |d }|g| z d|z gz } | | z j" }|r% j j" } ||z j j# }|r& j j$ } |g|z % & ' ( dS ) a Customize Fortran compiler.
This method gets Fortran compiler specific information from
(i) class definition, (ii) environment, (iii) distutils config
files, and (iv) command line (later overrides earlier).
This method should be always called after constructing a
compiler instance. But not in __init__ because Distribution
instance is needed for (iii) and (iv).
z customize %sTr7 Fr8 r9 c 4 | t
j | t
d| z }dfd
fd ffD ]L\ }}}| d|}|r=|t
d|z ur(| t
j | Md S )N
get_flags_rO rR _)extendr rw )tagre this_getr cflagvartrO rQ rR rT rX fixflagsr| s r) r z&FCompiler.customize..get_flags s LL 55 6 6 6 t\C%788H&+S(%;&+S(%;&+S(%;%=
?
? a #ssDD) ?|a7G)H)HHHNN74>1#=#=>>>
?
?r( rY r] )rH )rI )rJ aixr ) standard_libconfig ld_so_aixz
python.expz-bI:os400r )get_config_varLIBPL)rL )rM )rN N))r infor r$ r{ rs use_distributionrv rw r r r rH rI r NativeParsersplitrO rR rU rJ rX re r rL sysplatform
startswithr ospathjoindistutils.sysconfigr rM rN rE set_library_dirsr
set_librariesr ) r| distr7 r8 r9 rW oflagsaflagsdflagsr rg rL linker_so_flags
python_libr
python_expr
python_configrM linker_exe_flagsrE rk rO rQ rR rT rX r s ` @@@@@@r) customizezFCompiler.customize s 4>#:;<<< " ,,T222 **4000 ''--- !!!
#''77$((599#''77 , , * +11#66C~)H , +11#66C~)H +I , 5 +11#66C~)H4H!#R ? ? ? ? ? ? ? ? ? ? ? * IeV $ $ $
* &&))) ' Igv & & & %.7&@ @ 3x<+> ? ? ? J 3y=+A&+H I I I @ 3x<+> ? ? ? N
C "n 6O|&&u--
J + ; ; ;
GLLX{ K K W\\*h M M
&K) 3vj7H6I I |&&w//
J>>>>>> .w 7 7
GLL D D W\\- F F
&K) 3vj7H6I I /(A B B B_
F #~ 8 4D)D E E E
'
5n'G tG| 4 4 4 d 3 3 5 5666 4--//00000r( c g }t | j g dz D ]J}t | | r8t | | }| |ddt
| z f K| t | }| d| j
j z D ],}|dd dk r
d|dd z }t | -dS )z0Print out the attributes of a compiler instance.)r r r
object_switchcompile_switchNz= z%s instance properties: z --z )
listrx keyshasattrr r reprsortr
generate_helpr r$ print)r| propsr r pretty_printerls r) dump_propertieszFCompiler.dump_properties, s
(--//004 4 44 8 8C tS!!
8D#&& c4d1gg 6777
$U++ --.G15 1H/J K K A!uf}}1QRR5L !HHHH r( c i }t | j t v r1t | s"d}| j } t
| }| j pg }
nvt | r4d}| j } | t d| j j d| | j
pg }
n3d}| j } | t d| j j d| | j
pg }
| j d d k r | j |g} n | j |z g} | j sJ | j |g} |
r5t% j d
|d d d d |
| | j g }
|
r*t% j d
d |
z | |z |
z | z | z |z |
z }t. j | d |z d|} | || dS # t $ r$}t7 | }t9 | dd}~ww xY w)z Compile 'src' to product 'obj'.z:f77z:f90Nzf90 not supported by z needed for z:fixz f90 (fixed) not supported by zextra r z
options: z%using compile options from source: %rr z: )display) r suffixlower FORTRAN_COMMON_FIXED_EXTENSIONShas_f90_headerrH get_f77flagsextra_f77_compile_argsis_free_formatrI r r r$ extra_f90_compile_argsrJ r stripr r r r r r r r basenamespawnstrr )r| r srcextcc_argsextra_postargspp_opts src_flagsflavorcompilerextra_compile_argso_argss_args extra_flagscommandr r msgs r) _compilezFCompiler._compile@ s 99 ! ! # #'F F F!#&& GF(H$S))I!%! >@P QRRRRt 5 ; ; = =>N NOOOO ;?OP Q Q Q 3T^5L M M M % 1&' 3
I
I)C)CQQ GHHHH
I
6+F G G G 7 9P Q Q Qr( c d|z S )Nz-lr' )r| libs r) library_optionzFCompiler.library_option czr( c d|z S )Nz-Lr' )r| dirs r) library_dir_optionz FCompiler.library_dir_option rC r( c | || \ }}| ||| \ }}}t | ||| }t | r!t j || }n|t d | || rU| j d dk r | j
|g}n | j
|z g}t | j r || j gz }n
|| j z }||z |z }| rdg|d d< |
r|
|d d< | r| | |
t j | |t j k r| j d d }n| j d d }||z } | | d S # t( $ r$}t+ | }t- | d d }~ww xY wt/ j d| d S )Nz%'output_dir' must be a string or Noner r z-gr zskipping %s (up-to-date))_fix_object_args
_fix_lib_argsr r r r r TypeError
_need_linklibrary_switchr% objectsr mkpathdirnamer
EXECUTABLErM rL r' r r( r
r r9 )r| target_descrM output_filename
output_dirr r runtime_library_dirsexport_symbolsr9
extra_preargsr,
build_temp target_langlib_optsr2 ld_argslinkerr5 r r6 s r) linkzFCompiler.link sF
# 3 3GZ H H y,8L M M 6 >tvv
9;; r( c dS )zc
Check if the given C compiler can link objects produced by
this compiler.
Tr' )r| ccompilers r) can_ccompiler_linkz FCompiler.can_ccompiler_link s
tr( c t )a
Convert a set of object files that are not compatible with the default
linker, to a file that is compatible.
Parameters
----------
objects : list
List of object files to include.
output_dir : str
Output directory to place generated object files.
extra_dll_dir : str
Output directory to place extra DLL files that need to be
included on Windows.
Returns
-------
converted_objects : list of str
List of converted object files.
Note that the number of output files is not necessarily
the same as inputs.
)NotImplementedError)r| rM rS
extra_dll_dirs r) wrap_unlinkable_objectsz!FCompiler.wrap_unlinkable_objects s . "###r( r+ )
NNNNNr NNNN)Ur$ r% r& __doc__r r1 rs rv r. rw language_maplanguage_orderr compiler_aliasesversion_patternr rx suggested_f90_compilerr r rL r9 r: r src_extensions
obj_extensionr shared_lib_extensionstatic_lib_extensionstatic_lib_formatshared_lib_format
exe_extensionr rz
c_compilerr" r$ rr r ry r rK rH rI rJ rL rM rN rG r r r r r r r r r r r r r r r r r get_flags_opt_f77get_flags_opt_f90get_flags_arch_f77get_flags_arch_f90get_flags_debug_f77get_flags_debug_f90r r r r r r7 r? rB rF r\ ru re ri r' r( r) r r > sP P '&%tWh6h%8tWh6y(E: N %$%JJJBJ@28
L "! %+J
HdCC J
HdCC k;$GG
D$%88 FE8T::
#D$%@@ #D$%@@ gvx?? %dD(EBB %dD(EBB (HdCC 'dHeDD 'dHeDD "8XxFF ' 9hMM!" ))Y$OO#$ )Y$
?
?%I* ! ! ! ! ! ! L U^N
MO t} )Y' g5M
K "NM N
!IYYYNM3355 ! MJ" " " J $ $ $ # # #
$#M22K$$^44L$$^44L$$^44L!!+..I""<00J ,,H
x
(
(F% % %# # #& & & M M M^
# # # 7 7 77 7 7 7 7 74 4 45 5 53 3 3 -:9).<<+0??-! ! !$ $ $ !&! s1 s1 s1 s1j (1. 1. 1.f $ :>599=?C -C -C -C -C^ , $ $ $ $ $r( r )
)win32)
gnuintelvabsoftcompaqvintelevgnu95g95intelvemintelemflang)zcygwin.*)r r r r r r r )zlinux.*)armr intellaheypgnvr nagvastcompaqinteler r r pathf95nagforfujitsu)zdarwin.*) r r r r ibmr r r r )zsunos.*)sunr r r )zirix.*)mipsr r )zaix.*)r r r )posixr r )ntr )mac)r r r c ddl m } t dS t j t j t d }i ai a | | D ] }t j t j | \ }}d|z }t | t j | }t |d r|j D ]}t || }|j ||j f}|t |j < |j D ]H} | t v r3t' d| d|j d t | d
j |t | < IdS ) zcCache all the FCompiler classes found in modules in the
numpy.distutils.fcompiler package.
r )globNz*.pyznumpy.distutils.fcompiler. compilerszalias z defined for both z and r )r fcompiler_classr r r rO __file__fcompiler_aliasessplitextr&
__import__r modulesr r r r descriptionrm r r$ )
r pysfname module_namer* modulecnameklassdescaliass
r) load_all_fcompiler_classesr s "
',,rwx00&
9
9COc 4 4 7++BG,<,>>,=e,DQ,G,P,P*R S S S 04%e,, 44 4r( Fc r ddl m} |d }| D ] }d } t ||| } | | | }|rl| j ed }| j }
|
rZt j d|d|
d t ||
| } | | | }||
}|r#| j t d | j
j z nE# t $ r t j
d
| Y n$t $ r t j
d | Y nw xY w||c S "d S ) Nr )get_distributionT)always)platr0 rw zTrying z compiler as suggested by z compiler for f90 support.z2%s does not support compiling f90 codes, skipping.zH_find_existing_fcompiler: compiler_type='%s' raised DistutilsModuleErrorz6_find_existing_fcompiler: compiler_type='%s' not found)numpy.distutils.corer r r r rI ro r r r r r$ r
r9 r# ) compiler_typesosnamer
requiref90rw r r r r r new_compilers r) _find_existing_fcompilerr # s 655555 4 ( ( (D' ! !
_ 8m)35 5 5A
KK
A
5an 4 7 5HH@ @ @?""/>x/H, U , , & & &/@/J, U , ,G$N .99C7XXo 2 2 4 4557 7C
m,,,tuWgUCCCH$H Or( c J | ddl m} ddlm} | } t j t j d | _ dgt j dd z | _
| j
d n# t $ r Y nw xY w|| j
d< | | g }g }g }t st# t% }|D ]&}d}t' j d t+ || j } | | | }nW# t2 t4 f$ rC}
t' j d
|d t' j t9 |
Y d}
~
nd}
~
ww xY w|-| d |z dt | d
f | | d |z dt | d
d|z z f (t? tA t ! tA | z
}d |D }|" |" |" tG | } | $ d tG | } | $ d |r$tG | } | $ d tK d dS )zbPrint list of available compilers (used by the "--help-fcompiler"
option to "config_fc").
Nr ) Distribution)r6 r6 r z--help-fcompiler)r0 r: zshow_fcompilers: z
not found
fcompiler= z (%s)c @ g | ]}d |z dt | d f S )r Nr )r ).0fcs r)
z#show_fcompilers.. s= , , , ""_dOB,?,BC , , ,r( zFortran compilers found:z5Compilers available for this platform, but not found:z)Compilers not available on this platform:z>For compiler details, run 'config_fc --verbose' setup command.)&distutils.distr 'numpy.distutils.command.config_compilerr6 r r r& r argv script_name script_argsremover cmdclassparse_config_filesparse_command_liner r r r
set_verbosityr r: r r r
r# r9 r r r r r r r r
print_helpr ) r r r6 r compilers_na compilers_niplatform_compilersr0 r r r r s r) r r s| |//////EEEEEE|~~ 7++CHQK88 '=38ABB<7 # #$6 7 7 7 7 D %.
k" !!! !!!ILL %"$$$:<<& K K " x FFFA
KK
AA$&67 IIC D D D Id1gg
9 h!6 -h 7 :!<
=
=
=
=
l8 3T -h 7 :Wq[ H J
K
K
K
K O 0 0 2 233c:L6M6MMNNL, , *, , ,L NN ++N 8999 ..N 9 : : : O$\22!!"MNNN
JKKKKKs* +B
BB
?E
F! 9F F!c t d \ } }| d | |d d S )Nr! )r z# subroutine dummy()
end
r )r writeclose)for s r) r r sD T***HBHH
4555HHJJJ 9r( z-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*!]\s*[^\s\d\t]c d}t | d 5 }| }d}t | st | rd}nt | rd}d}|dk ry|rw| }|rE|d dk r9|dz }|d dk rt
|dd s|d
d d k rd}n | }|dk r|wddd n # 1 swxY w Y |S ) z(Check if file is in free format Fortran.r latin1encodingi' r ! Nr^ r &)openreadline
_has_f_header_has_fix_header_has_f90_headerrstrip_free_f90_start)fileresultflinens r) r# r# sS F
dX & & & !zz|| /$"7"7 AA
T
"
" AFccdc;;==D
Q QGTMMod2A2h&?&?MDIsNN F::<\w+)\s*\)\s*=\s*(?P.*)c ~ i }t | d 5 }d}|D ]}|dz
}|dk r n~t | }|s,| d }| d }t | ||< ddd n # 1 swxY w Y |S ) z
Search the first 20 lines of fortran 77 code for line pattern
`CF77FLAGS()=`
Return a dictionary {:}.
r r r r fcnamerg N)r _f77flags_rer groupr% r )r) re r ir mr rg s r) r! r! s
E
cH % % % 1
1 1D
FAttUU ""4((A hWWX&&,,..FWWX&&,,..F ( 0 0E&MM 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Ls BB22B69B6__main__)NNFNr )NNr r r FNr+ )Frj __all__r r r pathlibr r r distutils.fancy_getoptr distutils.errorsr
r r r
r distutils.utilr r numpy.distutils.ccompilerr r numpy.distutilsr numpy.distutils.misc_utilr r r r r numpy.distutils.exec_commandr r environmentr type
__metaclass__r Exceptionr# r. r1 r4 r r r r r r r r r r r r r compileIsearchr r r r r r# r r r! r$ r' r( r) r s ! ! !
. . . . . . . . . . . .I I I I I I I I I I I I I I 2 2 2 2 2 2 2 2 @ @ @ @ @ @ @ @ - - - - - - - - - - - - - - 8 8 8 8 8 8 ( ( ( ( ( ( * * * * * *
#A"@"@ y
1 1 1o
$ o
$ o
$ o
$ o
$ o
$ o
$ o
$f & 4 4 4: 48(-(,# # # #J
#
#
#
# BG%)
CEE " #
% % % %N9L 9L 9L 9Lx
3RT::A
"* 12488? "* 12488? "* 2BD99? .: : :
rzZ\^\`aa * zO r(