elif re.match(r'^ *MPTYPE', line):
mptype = re.sub(r'^ *MPTYPE *= *', '', line)
elif re.match(r'^ *TLEVEL', line):
tlevel = re.sub(r'^ *TLEVEL *= *', '', line)
elif re.match(r'^ *CPPINTF', line):
cppintf = re.sub(r'^ *CPPINTF *= *', '', line)
elif re.match(r'^ *DDF90MOD', line):
ddf90mod = re.sub(r'^ *DDF90MOD *= *', '', line)
elif re.match(r'^ *MPF90MOD', line):
mpf90mod = re.sub(r'^ *MPF90MOD *= *', '', line)
ddf90mod = re.sub(r'^~', os.getenv("HOME"), re.sub(r'\/*$', '/', ddf90mod))
mpf90mod = re.sub(r'^~', os.getenv("HOME"), re.sub(r'\/*$', '/', mpf90mod))
avh_pc.prnt(sys.argv[0] + ': creating source file...')
sourcef = avh_pc_olo.full(srcdir, dpkind, qpkind, kindmod, ddtype, qdtype,
mptype, tlevel, cppintf)
if len(sys.argv) > 1:
if sys.argv[1] == 'source':
sys.exit()
elif sys.argv[1] == 'dynamic':
avh_pc.prnt(sys.argv[0] + ': compiling source file...')
subprocess.call(
[fc, '-O', '-fPIC', '-c', 'avh_olo.f90', '-o', 'avh_olo.o'])
avh_pc.prnt(sys.argv[0] + ': building dynamic library...')
subprocess.call([fc, '-shared', '-o', 'libavh_olo.so', 'avh_olo.o'])
sys.exit()
elif sys.argv[1] != 'static':
avh_pc.prnt('ERROR in ' + sys.argv[0] +
': don\'t know how to create ' + sys.argv[1])
sys.exit()
elif re.match(r'^ *QPKIND' ,line): qpkind = re.sub(r'^ *QPKIND *= *' ,'',line)
elif re.match(r'^ *KINDMOD' ,line): kindmod = re.sub(r'^ *KINDMOD *= *' ,'',line)
elif re.match(r'^ *DDTYPE' ,line): ddtype = re.sub(r'^ *DDTYPE *= *' ,'',line)
elif re.match(r'^ *QDTYPE' ,line): qdtype = re.sub(r'^ *QDTYPE *= *' ,'',line)
elif re.match(r'^ *MPTYPE' ,line): mptype = re.sub(r'^ *MPTYPE *= *' ,'',line)
elif re.match(r'^ *TLEVEL' ,line): tlevel = re.sub(r'^ *TLEVEL *= *' ,'',line)
elif re.match(r'^ *CPPINTF' ,line): cppintf = re.sub(r'^ *CPPINTF *= *' ,'',line)
elif re.match(r'^ *DDF90MOD',line): ddf90mod = re.sub(r'^ *DDF90MOD *= *','',line)
elif re.match(r'^ *MPF90MOD',line): mpf90mod = re.sub(r'^ *MPF90MOD *= *','',line)
ddf90mod = re.sub(r'^~',os.getenv("HOME"),re.sub(r'\/*$','/',ddf90mod))
mpf90mod = re.sub(r'^~',os.getenv("HOME"),re.sub(r'\/*$','/',mpf90mod))
avh_pc.prnt(sys.argv[0]+': creating source file...')
sourcef = avh_pc_olo.full( srcdir ,dpkind,qpkind,kindmod
,ddtype,qdtype,mptype
,tlevel,cppintf )
if len(sys.argv) > 1:
if sys.argv[1] == 'source':
sys.exit()
elif sys.argv[1] == 'dynamic':
avh_pc.prnt(sys.argv[0]+': compiling source file...')
subprocess.call([fc,'-O','-fPIC','-c','avh_olo.f90','-o','avh_olo.o'])
avh_pc.prnt(sys.argv[0]+': building dynamic library...')
subprocess.call([fc,'-shared','-o','libavh_olo.so','avh_olo.o'])
sys.exit()
elif sys.argv[1] != 'static':
avh_pc.prnt('ERROR in '+sys.argv[0]+': don\'t know how to create '+sys.argv[1])
sys.exit()