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()