mirror of https://gitlab.com/scemama/irpf90.git
Website branch clean
This commit is contained in:
parent
7e275a5512
commit
9351d38eff
|
|
@ -1,11 +0,0 @@
|
|||
packages/.rpmmacros
|
||||
packages/*.tar.gz
|
||||
packages/*.rpm
|
||||
packages/sourceforge.sh
|
||||
packages/version
|
||||
src/*.pyc
|
||||
src/*.pyo
|
||||
irpf90.make
|
||||
irpf90_entities
|
||||
IRPF90_temp
|
||||
IRPF90_man
|
||||
518
Irpf90.xpm
518
Irpf90.xpm
|
|
@ -1,518 +0,0 @@
|
|||
/* XPM */
|
||||
static char *Irpf__[] = {
|
||||
/* columns rows colors chars-per-pixel */
|
||||
"256 256 256 2",
|
||||
" c #000000",
|
||||
". c #0B0000",
|
||||
"X c #020B0C",
|
||||
"o c #150000",
|
||||
"O c #1B0101",
|
||||
"+ c #041213",
|
||||
"@ c #161719",
|
||||
"# c #240000",
|
||||
"$ c #2C0000",
|
||||
"% c #360101",
|
||||
"& c #3C1F1F",
|
||||
"* c #0A1E21",
|
||||
"= c #12272B",
|
||||
"- c #142629",
|
||||
"; c #1C3136",
|
||||
": c #162A2D",
|
||||
"> c #3E2121",
|
||||
", c #28373B",
|
||||
"< c #2C2F32",
|
||||
"1 c #440101",
|
||||
"2 c #4D0101",
|
||||
"3 c #510000",
|
||||
"4 c #5B0000",
|
||||
"5 c #421F1F",
|
||||
"6 c #6A0000",
|
||||
"7 c #640000",
|
||||
"8 c #740000",
|
||||
"9 c #7B0000",
|
||||
"0 c #462525",
|
||||
"q c #482727",
|
||||
"w c #4B2A2A",
|
||||
"e c #562D2D",
|
||||
"r c #592F2F",
|
||||
"t c #512726",
|
||||
"y c #5C3232",
|
||||
"u c #503131",
|
||||
"i c #4E3333",
|
||||
"p c #623535",
|
||||
"a c #653A3A",
|
||||
"s c #693D3D",
|
||||
"d c #633738",
|
||||
"f c #713E3E",
|
||||
"g c #323D41",
|
||||
"h c #693F40",
|
||||
"j c #3E5158",
|
||||
"k c #3E5057",
|
||||
"l c #374348",
|
||||
"z c #46545B",
|
||||
"x c #4E4F54",
|
||||
"c c #6D4444",
|
||||
"v c #6B4849",
|
||||
"b c #7E4545",
|
||||
"n c #724B4B",
|
||||
"m c #734646",
|
||||
"M c #765152",
|
||||
"N c #795454",
|
||||
"B c #7D5A5A",
|
||||
"V c #785758",
|
||||
"C c #744F50",
|
||||
"Z c #4C5D66",
|
||||
"A c #475961",
|
||||
"S c #565F66",
|
||||
"D c #59656E",
|
||||
"F c #656E76",
|
||||
"G c #6B6F76",
|
||||
"H c #850000",
|
||||
"J c #8B0101",
|
||||
"K c #930303",
|
||||
"L c #9A0405",
|
||||
"P c #A40101",
|
||||
"I c #AB0000",
|
||||
"U c #B60000",
|
||||
"Y c #BB0000",
|
||||
"T c #C50000",
|
||||
"R c #CA0000",
|
||||
"E c #D20000",
|
||||
"W c #DA0000",
|
||||
"Q c #E30000",
|
||||
"! c #824646",
|
||||
"~ c #874949",
|
||||
"^ c #8C4C4C",
|
||||
"/ c #8C4747",
|
||||
"( c #914E4E",
|
||||
") c #994E4E",
|
||||
"_ c #825D5D",
|
||||
"` c #865454",
|
||||
"' c #965151",
|
||||
"] c #9D5555",
|
||||
"[ c #9C5B5B",
|
||||
"{ c #945C5C",
|
||||
"} c #98504F",
|
||||
"| c #A25756",
|
||||
" . c #A55B5B",
|
||||
".. c #A85E5E",
|
||||
"X. c #A45857",
|
||||
"o. c #8A5F60",
|
||||
"O. c #856465",
|
||||
"+. c #896667",
|
||||
"@. c #8B6A6B",
|
||||
"#. c #866769",
|
||||
"$. c #9B6667",
|
||||
"%. c #8D7273",
|
||||
"&. c #927474",
|
||||
"*. c #967B7C",
|
||||
"=. c #9A7E7E",
|
||||
"-. c #987578",
|
||||
";. c #936E71",
|
||||
":. c #A66262",
|
||||
">. c #AB6565",
|
||||
",. c #A66A6B",
|
||||
"<. c #AD6A6A",
|
||||
"1. c #A56768",
|
||||
"2. c #B06F6F",
|
||||
"3. c #B16565",
|
||||
"4. c #A86F71",
|
||||
"5. c #AD7172",
|
||||
"6. c #A5767A",
|
||||
"7. c #A7777A",
|
||||
"8. c #B27373",
|
||||
"9. c #B67B7B",
|
||||
"0. c #B97E7E",
|
||||
"q. c #B47777",
|
||||
"w. c #A46060",
|
||||
"e. c #657683",
|
||||
"r. c #6B7984",
|
||||
"t. c #687985",
|
||||
"y. c #747C85",
|
||||
"u. c #977E81",
|
||||
"i. c #A67C80",
|
||||
"p. c #A97E81",
|
||||
"a. c #B77F81",
|
||||
"s. c #78838C",
|
||||
"d. c #7D8B98",
|
||||
"f. c #9C8182",
|
||||
"g. c #9D878A",
|
||||
"h. c #979096",
|
||||
"j. c #A38B8C",
|
||||
"k. c #A68587",
|
||||
"l. c #BB8383",
|
||||
"z. c #BE8A8B",
|
||||
"x. c #B68182",
|
||||
"c. c #A48E92",
|
||||
"v. c #BB8E91",
|
||||
"b. c #A49195",
|
||||
"n. c #AB9596",
|
||||
"m. c #AA9699",
|
||||
"M. c #AD999A",
|
||||
"N. c #A79799",
|
||||
"B. c #B19B9B",
|
||||
"V. c #BC959A",
|
||||
"C. c #909CA6",
|
||||
"Z. c #AE9EA2",
|
||||
"A. c #BC9CA2",
|
||||
"S. c #96A5B4",
|
||||
"D. c #97A2AC",
|
||||
"F. c #B4A2A4",
|
||||
"G. c #BCABAC",
|
||||
"H. c #B7A6A9",
|
||||
"J. c #BCAEB2",
|
||||
"K. c #B7ACB1",
|
||||
"L. c #BEB1B4",
|
||||
"P. c #BEB5B9",
|
||||
"I. c #A7AFB7",
|
||||
"U. c #C18D8D",
|
||||
"Y. c #C18786",
|
||||
"T. c #C49494",
|
||||
"R. c #C5999A",
|
||||
"E. c #C99E9E",
|
||||
"W. c #C1979A",
|
||||
"Q. c #C49EA2",
|
||||
"!. c #C8A7A9",
|
||||
"~. c #C7ADB2",
|
||||
"^. c #C4B3B4",
|
||||
"/. c #CCB5BA",
|
||||
"(. c #C4B9BC",
|
||||
"). c #CBBBBC",
|
||||
"_. c #C7B3B8",
|
||||
"`. c #D1B6B9",
|
||||
"'. c #D5B9BA",
|
||||
"]. c #D6B7B8",
|
||||
"[. c #D1ADAE",
|
||||
"{. c #9FB1C4",
|
||||
"}. c #A5B5C5",
|
||||
"|. c #ADBED1",
|
||||
" X c #B4BFC9",
|
||||
".X c #C7BDC2",
|
||||
"XX c #D5BEC2",
|
||||
"oX c #BAC3CF",
|
||||
"OX c #B6C4D3",
|
||||
"+X c #AEC3D8",
|
||||
"@X c #B6D0E7",
|
||||
"#X c #BAD1E7",
|
||||
"$X c #BAD1E8",
|
||||
"%X c #B7CEE4",
|
||||
"&X c #CCC1C3",
|
||||
"*X c #CCC5CA",
|
||||
"=X c #CBC6CB",
|
||||
"-X c #D2C4C5",
|
||||
";X c #D2C5CB",
|
||||
":X c #D4CACB",
|
||||
">X c #D9CDCD",
|
||||
",X c #DBC3C4",
|
||||
"<X c #C9CBD5",
|
||||
"1X c #D3CDD3",
|
||||
"2X c #D6CDD5",
|
||||
"3X c #DCD3D3",
|
||||
"4X c #D6D4DB",
|
||||
"5X c #DAD5DC",
|
||||
"6X c #DCDADE",
|
||||
"7X c #D4D1D6",
|
||||
"8X c #C5D1DC",
|
||||
"9X c #E3DCDD",
|
||||
"0X c #E4D5D7",
|
||||
"qX c #E1CCCD",
|
||||
"wX c #C8D8E6",
|
||||
"eX c #D5D9E4",
|
||||
"rX c #DCDCE3",
|
||||
"tX c #D8D9E4",
|
||||
"yX c #C4DDF4",
|
||||
"uX c #E2DEE3",
|
||||
"iX c #DDE1EA",
|
||||
"pX c #CAE5FE",
|
||||
"aX c #CEE8FF",
|
||||
"sX c #CAE2F7",
|
||||
"dX c #DCE9F7",
|
||||
"fX c #D1E7FC",
|
||||
"gX c #D4EAFF",
|
||||
"hX c #DBEEFF",
|
||||
"jX c #D9E5F2",
|
||||
"kX c #DEF1FF",
|
||||
"lX c #DDFBFF",
|
||||
"zX c #D5F1FF",
|
||||
"xX c #E6E1E2",
|
||||
"cX c #EAE4E5",
|
||||
"vX c #E3E5EC",
|
||||
"bX c #E6E8EE",
|
||||
"nX c #ECEAEC",
|
||||
"mX c #ECE6E9",
|
||||
"MX c #F2EDED",
|
||||
"NX c #F0E6E6",
|
||||
"BX c #E5EBF3",
|
||||
"VX c #EBEEF4",
|
||||
"CX c #E1EFFE",
|
||||
"ZX c #E4EBF5",
|
||||
"AX c #ECF1F6",
|
||||
"SX c #E4F2FF",
|
||||
"DX c #ECF5FF",
|
||||
"FX c #E3FCFF",
|
||||
"GX c #EDFBFF",
|
||||
"HX c #F4F3F4",
|
||||
"JX c #F8F6F6",
|
||||
"KX c #F0F7FE",
|
||||
"LX c #F4F9FF",
|
||||
"PX c #FDFEFF",
|
||||
"IX c #FAF7F9",
|
||||
"UX c #F2EFF1",
|
||||
/* pixels */
|
||||
"pXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXpXyXpXpXpXpXpXpXpXpXpXaXaXaXaXaXaXaXaXaXpXpXpXpXyXpXyXpXpXaXaXaXaXaXaXaXzXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXgXaXaXaXzXpXaXpXpXpXaXpXpXaXpXpXaXpXpXpXfXgXgXaXzXgXgXzXgXgXzXgXgXzXgXzXgXgXzXgXzXgXgXzXgXzXgXgXfXfXfXfXgXfXgXaXgXgXaXgXaXgXgXzXzXkXzXkXzXhXkXhXzXhXzXhXkXzXkXzXkXkXhXzXzXhXkXzXkXzXkXkXkXzXkXkXkXzXhXgXgXhXhXgXhXhXgXhXhXgXhXhXhXkXSXkXkXSXkXzXkXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXCXhXkXhXCXhXhXSXkXhXkXkXSXSXFXSXSXFXSXSXkXSXkXhXSXCXSXhXSXhXSXCXSXCXSXhXSXSXSXSXSXSXSXSXSXSXCXSXSXSX",
|
||||
"pXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXe.s.e.e.e.e.e.e.e.t.d.zXpXpXpXpXpXpXyXD e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.e.F FXzXfXpXpXpXpXpXpXpXfXfXpXaXaXzXF e.e.e.r.e.e.e.e.e.t.e.t.e.e.r.r.e.e.r.e.e.r.r.e.F FXFXhXzXfXgXfXfXgXgXaXgXfXgXgXzXd.r.r.t.t.r.e.e.r.r.r.r.e.e.r.e.r.r.e.r.r.r.r.r.r.r.r.r.r.r.r.r.r.G }.zXhXgXhXgXhXhXgXgXhXhXkXFXGXLXG r.r.r.r.S.PXGXkXkXhXhXhXhXhXhXhXhXCXCXhXCXhXCXhXhXCXhXSXhXhXkXzXSXLXFXF r.y.y.r.s.PXLXSXSXkXSXhXCXCXCXSXkXSXhXSXCXSXSXSXCXSXhXSXSXSXSXCXSXSXSXSX",
|
||||
"pXpXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXlXX % 3 3 3 3 2 3 3 1 * lXpXpXpXpXpXpX@X 3 3 3 3 1 2 3 3 3 3 1 3 3 3 3 3 2 2 3 3 3 3 2 3 3 3 3 4 g +XzXfXfXpXpXpXaXpXaXaXpXpXFX 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 e.C.LXaXgXgXaXgXgXgXgXaXfXFX- 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 O r.kXhXhXgXgXhXhXhXhXzXPXG l 4 3 3 $ s.S.FXhXhXhXhXhXhXhXCXhXhXkXhXhXkXCXhXhXhXSXkXPXh.G 4 3 3 2 s.jXFXSXSXSXkXSXhXSXCXSXSXCXSXSXCXSXCXSXSXkXSXSXSXSXSXSXSX",
|
||||
"pXpXpXpXpXyXpXpXpXyXpXyXpXpXpXpXyXpXpXpXyXpXpXpXpXlX U Y Y Y Y U U U L = lXpXpXpXpXpXyX@XX R Y Y Y Y U Y Y U T U Y Y Y Y Y U U Y Y Y T U Y Y Y Y Y R H O , +XaXaXaXaXpXfXpXpXaXaXlX R Y Y Y Y Y Y U Y Y U T U Y Y Y Y Y Y U Y U T Y T R 4 % FXgXfXgXgXfXaXgXgXgXFX= P U U T Y Y Y Y Y Y Y Y U T Y Y U T Y Y Y T Y Y Y Y Y Y Y Y Y T 2 y.kXgXhXhXhXhXgXgXPXs. 3 H R R Y Y U T T E 3 $ G LXkXhXhXhXCXhXhXhXhXhXhXSXhXhXhXkXSXGXD. % 4 E R Y Y U T T T 3 x jXSXSXhXSXSXkXSXSXhXSXkXSXSXSXSXkXCXSXSXSXSXSXCXSXSX",
|
||||
"yXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXpXpXpXpXpX#X T U U U U U U U U U U U U Y U U U U U U U U U U U U U U U Y R J o #XpXpXaXpXaXpXaXpXfXFX T U U U U U U U U Y U U U U U U U U U U U U U U U U Y Y U d.FXfXgXfXgXgXgXgXGX- L U U U U U U U U U U U U U U Y U U U U U U U U U Y U U U U U Y 2 t.hXhXhXgXhXgXkXwX 3 E Y Y U U U U U Y U U Y R 4 S.FXSXhXhXhXhXSXhXhXhXhXCXCXhXhXkXS % U Y Y U U U U U U U Y Y R 8 . S IXkXSXkXSXCXkXSXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXSX",
|
||||
"pXpXpXpXyXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXyXpXpXpXlX U U U U U U U U L = lXpXpXpXpXpXpX#X R U U U U U U Y U U U U U U U U U Y U Y U U U U U U U U U U U U R . GXaXaXfXaXfXpXpXaXFX T U U U U U U U U U U Y U Y U U U U U Y U U U U U U U U U R 1 d.FXgXfXfXfXfXgXFX: L U U U Y U U U U U U U U U U U U U Y U U Y U U U U U U U U U Y 2 y.kXgXhXgXhXhXwX . W Y U U U U U U U U U U U U U Y E % S.GXhXkXhXhXhXhXhXSXCXhXhXdXGX 7 R U U U Y U U U U U U U U U U R 8 S PXkXSXCXkXSXSXCXSXhXSXCXSXSXSXSXSXSXSXSXSXSXSX",
|
||||
"pXyXpXpXpXpXpXpXpXpXyXpXpXpXyXpXpXyXpXpXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXpXpX@X T U Y U U Y U U U U Y U U U U Y U U U U U U U U U U U U U U U U U W , zXfXpXaXpXfXaXaXFX T U U U U U U U U U U U U U U U Y U U U U U U U U U U U U U R 2 fXfXgXgXgXgXgXFX= L U U U U U U U U U U U U U U U U Y U U U U U U U U U U U U U Y 2 y.kXgXhXhXhXwX . E U U U Y U U U Y U U U U U U U U U R % S.FXkXCXhXhXkXhXhXhXSXCXCX T U U U U U U U U U U U U U U U U U T 6 z GXCXSXSXSXkXSXSXCXSXSXCXSXSXSXSXSXSXSXSXSXSX",
|
||||
"pXpXpXpXpXpXyXpXyXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXlX U U U U U U U I K = zXpXpXpXpXpXpX#X T U U U U U U U U Y U U U U U U U U U U U U U U U U U U U U U U U U J +XaXaXfXpXaXpXaXFX Y U U U U Y U U U U U U U U U U U U U U U U U U U U U U U U U E kXfXgXgXgXhXFX= L I U U U U U U U U U U Y U U U U U U U U U U Y U U U U U U U T 2 y.kXhXhXzXOX o R U U U U U U U U U U U U U U U U U U U R % D.SXhXkXhXSXhXSXhXhXFXy. T U U U U U Y U U U U U Y U U U U U U U T 8 SXhXSXSXZXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSX",
|
||||
"pXyXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXyXpX@X T U U U U U U U U U U Y U U U U U U U U U U U U U U U U U U U U U U R o , kXpXfXaXpXfXaXFX T U U U U U U U U U U U Y U U U U U U U U U U U U U U U U U U U U d.FXgXgXgXgXGX: L U U U U U U U U U U U U U U U U U U Y U U U U U Y U U U U U T 3 r.kXhXhXGX, o E U U U U U U U U U Y R R U U U U U U U U U E % + GXCXhXhXhXCXhXhXdXwX 4 T U U U U U U U U U R R U Y U U U U U U U T PXSXSXSXSXSXCXSXSXSXSXCXSXSXSXSXDXCXSXDXSX",
|
||||
"pXpXpXyXpXpXpXyXpXpXpXyXyXpXpXyXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXpXpXpXpXpX#X T U U U U U U T 9 6 6 6 7 7 6 6 6 6 6 6 6 6 E R R U U U U U U U U U U J FXfXpXaXpXfXaXFX T U U U U U U U L 6 6 6 6 6 6 6 6 6 6 H E R U U U U U U U U U U T 2 zXfXgXgXgXFX= L U U U U U U U U 7 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 # s.kXhXhX8X J U U U U U U U T P 7 % O 8 J R U U U U U U U I D.SXSXSXhXhXSXkXPXX o W U U U U U U U T 7 7 8 8 T U U U U U U U T I.hXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSX",
|
||||
"yXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXlX U U U U U U U U K = lXpXpXpXpXpXpX#X T U U U U U U T o l Z Z A Z Z A Z Z Z Z Z 8 R U U U U U U U U R +XaXaXaXaXaXaXFX T U U U U U U U 8 * D Z Z Z Z Z Z Z g 7 T U U U U U U U U U I #XaXgXgXgXFX: L U U U U U U U U D Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z S Z Z S.hXhXFX, O R U U U U U U R % + D S S , O K Y U U U U U T % + FXCXhXCXhXkXdXwX I U U U U U U U T D D S S 3 T U U U U U U T % PXSXSXZXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSX",
|
||||
"yXpXyXpXpXyXpXpXyXpXpXpXyXpXpXyXpXpXpXpXpXyXpXpXpXlX U U U U U U U U K = zXpXpXpXyXpXpX#X T U U U U U U T o |.gXzXzXzXzXzXzXzXzXzXzXzXzXFXz % R U U Y U U U U T o F gXaXpXaXaXaXFX T U U U U U U U 8 z FXzXkXzXkXlXzXkXzXFXGXD 9 T U U U U U U U R . d.gXgXgXgXFX= L U U U U U U U U LXFXFXSXFXSXFXSXSXFXSXFXSXFXSXFXSXFXSXFXFXFXSXkXgXhXOX J U U U U U U U 8 D.LXGXSXFXGXOX< T U U U U U U I D.FXCXhXkXSXLX o R U U U U U U Y hXGXLXFXPXy. 3 Y U U U U U U T C.kXSXSXSXSXSXCXCXAXSXDXDXSXSXSXDXSXSXDX",
|
||||
"pXpXyXpXpXpXpXyXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXzX U U U U U U U U L = lXpXpXpXyXpXpX@X T U U U U Y U T o {.sXpXpXpXpXpXpXpXpXaXpXpXpXpXlXC. 6 U U U U U U U Y 3 t.gXaXpXfXaXpXFX T U U U U U U U 8 j lXfXaXaXfXaXgXfXgXfXfXkXFXx T U U U U U U U U 2 * FXgXgXgXGX: L I U U U U U U U GXgXhXgXgXhXgXgXgXhXhXgXhXgXhXgXgXhXgXhXhXhXhXgXhXkXF o R U U U U U U P x GXzXhXhXkXhXSXPX o T U U U U U T % , LXCXhXkXhXdX U U U U U U U T 8 hXhXSXSXkXhXPXy. U U U U U U U T % D GXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSX",
|
||||
"pXpXpXpXyXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXpXpXpXpXpX@X T U U U U U U T o }.sXpXpXaXpXpXpXpXpXpXpXaXpXpXpXlXZ 8 U U U U U U U Y 3 t.gXaXaXaXaXfXFX T U U U U U U U 8 k kXfXfXgXgXgXfXgXfXgXgXfXfXyX 9 Y U U U U U U U P = FXgXgXgXFX- L U U U U U U U U GXzXhXgXhXgXgXhXhXgXgXhXhXhXgXhXhXhXhXhXgXgXhXhXhXFXl 4 Y U U U U U U 8 + LXhXhXhXzXhXhXhXhXwX T U U U U U U J dXhXkXhXhXoX U U U U U U U R o S GXZXhXSXCXSXSXGX J U U U U U U Y 6 PXSXSXCXSXSXSXSXSXSXSXSXSXDXSXSXSXDXSX",
|
||||
"pXyXpXyXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXpXpXpXpXyX@X T U U U U U U T o {.pXpXpXpXpXpXpXaXpXaXaXpXpXpXpXzXA 1 Y U U U U U U Y 3 t.gXpXaXaXaXfXFX T U U U U U U U 8 j lXaXgXaXfXfXaXgXgXfXfXgXfXFXx o R U U U U U U U L * FXgXgXgXGX= L U U U U U U U U GXgXgXgXzXhXgXhXgXhXhXgXhXhXhXhXhXgXgXhXhXhXhXhXzXGX H Y U Y U U U R S GXhXhXhXhXSXhXhXzXPX % T U U U U U R GXzXSXSXSXs.o R U U U U U U P %XdXSXhXSXSXkXSXLX, 7 U U U U U U U T dXSXSXSXSXSXSXDXSXSXSXDXSXSXSXSXSXSXSX",
|
||||
"yXpXpXpXpXyXpXpXpXyXpXyXpXpXpXyXpXpX$XpXpXpXpXpXpXlX U U U U U U U U K = lXpXpXpXpXpXpX@X T U U U U U U T o {.sXpXpXpXpXpXaXpXpXaXpXpXaXpXpXaXh. R U U U U U U Y 3 t.zXaXaXaXfXaXFX T U U U U U U U 8 j kXgXfXfXaXgXgXfXgXgXgXfXfXsXOXo R U U U U U U I P * FXhXgXgXGX- L U U U U U U U U GXhXgXhXgXhXgXgXhXgXgXhXgXgXhXgXgXhXhXhXgXhXhXhXhXGX R U U U U U U R LXzXhXhXCXhXhXhXhXZXhXI.# T U U U U U R < LXkXSXLX 3 T U U U U U U I + LXSXSXSXSXhXSXSXGXG X R U U U U U U Y C.SXSXSXSXSXDXSXSXSXSXSXSXDXSXSXSXDXSX",
|
||||
"pXpXpXyXpXpXpXyXpXpXyXyXpXpXpXpXpXyXpXpXpXpXpXpXpXlX U U U U U U U U K = lXpXyXpXpXpXpX@X T U U Y U U U R o {.sXpXpXaXpXfXpXaXpXaXpXaXpXpXpXfX+X R U U U Y U U Y 3 e.gXaXaXaXaXfXFX T U U U U U U U 9 k kXgXfXgXfXaXgXaXgXfXgXaXgXsX}. U U U U U U U U P * FXgXgXgXFX= L U U U U U U U U FXzXhXgXhXgXhXhXgXgXhXhXgXgXhXgXhXhXgXhXhXgXhXhXhXGX T U U U U U U E GXhXhXhXhXhXkXhXhXhXkXD.. T U U U U U U L ; LXkXSXLXX U U U U U U U U 9 + PXSXSXhXSXCXSXSXSXFX U U U U U U U T % D.SXDXSXSXSXSXSXSXDXSXAXSXSXSXDXDXSXSX",
|
||||
"yXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXyXyXpXpXlX U U U U U U U U L = zXpXpXpXpXpXpX@X R U U U U U U T o }.sXpXpXpXpXpXpXpXaXpXaXpXaXfXaXzXz O T U U U U U U U 4 e.gXfXaXfXaXfXFX T U U U Y U U U 8 k lXgXaXgXgXgXfXgXgXaXgXgXfXfX}. I U U U U U U U L * FXgXgXhXGX= L U U U U U U U U LXgXgXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXGX T U U U U U U 7 FXhXSXhXhXhXhXhXSXkXhXOX U U U U U U U K , LXkXkXkX I U U U U U U R . x GXSXCXCXSXSXSXSXSXSX H U U U U U U T % D GXSXSXSXDXSXSXSXSXSXSXSXSXDXSXSXSXDX",
|
||||
"pXpXyXyXpXpXpXpXyXpXpXpXpXpXpXyXpXpXpXpXpXyXpXpXpXlX U U U U U U U I L = lXpXpXpXpXpXpX@X T U U U U U U R o {.pXpXpXpXaXpXpXfXpXfXpXpXpXaXaXzX, 9 U U U U U U U E F zXaXaXaXfXgXFX T U U U U U U U 8 k zXfXfXgXaXgXgXaXgXgXgXgXaXaX}.o R U U U U U U U L * FXhXgXgXFX: L I U U U U U U U GXzXhXgXzXhXhXzXgXzXhXzXhXzXdXgXzXhXhXzXhXhXhXhXzXLX R U U U U U U 7 GXkXhXhXhXSXkXkXhXkXhXPX U U U U U U U J jXCXdXoX U U U U U U U T wXdXSXkXSXSXSXhXSXSXLXl J U U U U U U Y 7 PXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXDXSX",
|
||||
"pXpXpXpXpXpXpXyXpXpXpXyXyXpXpXpXpXyXpXpXpXpXpXpXpXlX U U U U U U U I J = lXpXpXpXpXpXpX@X T U U U U U U T o {.yXpXpXaXpXpXpXaXpXaXaXaXpXfXaX%X J U U U U U U Y 3 FXaXaXfXfXaXaXFX T U U U U U U U 8 z lXgXgXaXgXgXfXgXgXgXgXgXgXzXs.O T U U U U U U U P * FXhXgXgXGX= L U U U U U U U U PXGXLXGXGXGXGXLXGXLXGXGXLXGXGXLXGXGXLXLXSXhXgXzXkXGX T U U U U U U R GXkXkXhXhXhXZXhXhXhXhXD. U U U U U U U R gXSXhXoX. R U U U U U U R <XhXkXSXSXCXSXSXkXSXFXg J U U U U U U U T PXSXDXSXSXSXSXDXSXDXDXSXDXSXSXSXDXSX",
|
||||
"pXyXpXpXyXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U K = lXpXpXpXpXpXpX@X R U U U U U U R o }.yXpXpXpXpXpXpXsXsXpXsXFXFXFXS. o T U U U U U U R $ s.fXaXaXaXaXaXfXFX T U U U U U U U 8 k lXfXgXgXfXfXaXgXgXgXgXgXfXfX 3 T U U U U U U U 8 - FXgXhXgXGX: L U U U U U U U U s.kXhXhXhXGX T U U U U U U R GXhXhXhXkXhXSXhXSXhXdX X# T U U U U U U R dXhXhXoX. T U U U U U U R 8XdXZXSXSXSXSXSXSXSXLX, J U U U U U U U Y PXSXSXSXSXSXSXDXSXSXDXSXDXSXDXDXSXDX",
|
||||
"yXpXpXyXpXpXpXyXyXpXpXyXpXpXpXyXpXpXyXpXyXpXpXyXpXlX U U U U U U U U L = lXpXpXpXpXpXpX@X T U U U U U U R O y.S.C.S.S.S.D.C.S.S.S.S. % R U U U U U U Y 4 S.gXaXaXfXfXfXfXFX T U U U U U U U 8 k kXgXgXgXgXgXgXgXgXgXgXfXGXy. T U U U U U U U R x SXgXgXgXFX= L U U U U U U U U Y Y Y Y Y Y Y Y Y Y Y Y Y U Y Y Y Y U T 2 s.SXgXhXzXLX E U U U U U U R 8XSXhXhXhXhXhXhXhXCXLX $ T U U U U U U R dXhXhXoX. R U U U U U U R . 8XZXkXSXhXSXCXSXSXSXLX, L U U U U U U U Y PXSXSXSXDXSXSXSXDXSXSXSXSXSXSXSXDXSX",
|
||||
"pXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXyXpXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXpXpX#X T U U U Y U U T 3 $ O # # # # # # # # # # $ R U Y R U U U U U U U I F zXfXgXaXaXaXfXgXFX T U U U U U U U 8 j kXfXgXgXfXgXfXaXFXGXLX}. 3 Y U U U U U U U U sXsXhXzXhXLX= L I U U U U U U Y U U U U U U U U U U U U U U U U U U U T 1 s.kXhXhXkXGX 4 Y U U U U U T O , GXCXhXhXkXSXhXhXhXFX Y U U U U U U U T dXSXdXoX. R U Y U U U U I OXhXhXSXSXSXSXCXSXSXLX< . R U U U U U U Y PXSXSXSXSXSXSXSXSXSXSXDXSXDXDXSXSXSX",
|
||||
"pXpXpXyXpXpXyXpXpXpXyXpXyXpXpXpXpXpXpXpXpXyXpXpXpXlX U U U U U U U U L = zXpXpXpXpXpXpX@X T U U U U U U U Y T T T T T T T T T T T T T U U U U U U U U U T I X lXaXgXaXfXfXgXfXfXFX T U U U U U U U 9 , }.S.S.S.S.S.S.}. # U T U U U U U U U U 8 sXgXgXgXgXFX: L U U U U U U U U U U U U U U U U U U U U U U U U U U U Y 1 s.kXhXhXhXSXr.4 Y U U U U U U J wXkXkXhXZXhXkXCXPX T U U U U U U U T dXSXdXoX. R U U U U U U P + LXSXSXSXSXSXSXSXSXkXSXSX R U U U U U U Y PXSXDXSXDXSXSXDXDXSXSXSXDXSXSXSXDXDX",
|
||||
"yXyXpXpXpXyXpXpXyXpXyXpXyXpXpXyXyXpXpXyXpXpXpXpXpXpXX P U U U U U U I L : lXpXpXpXpXpXpX@X T U U U U U U U U U U U U U U U U Y U U U U U U U U U U U T I % X GXfXaXfXaXaXfXaXaXaXFX T U U U U U U U J # # # O # # O # O # U U U T U U U U U U U U U Y S GXgXgXgXhXGX= L U U U U U U U U U U U U U U U U U U U U U Y U U U U U T 1 s.SXCXhXzXSXD R U U U U U U R . wXGXdXhXhXdXgXF T U U U U U U U U R dXSXdXoX. R U U U U U U I + PXSXSXSXSXSXCXCXSXSXSXZX R U U U U U Y Y PXSXSXSXSXSXSXSXSXDXDXSXSXSXDXSXDXSX",
|
||||
"pXpXpXyXyXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXyXpXpXyXyXpXX I U U U U U U U L = lXpXpXpXpXpXpX@X R U Y U U Y U U U U U U U U U U U U U U U U U U U U U U Y 2 : C.lXaXfXaXaXfXfXaXgXgXfXFX T U U U U U U U U T T T T T T T T T R U U U U U U U U U U U U U 8 hXfXhXgXgXhXGX: L U U U U U U U U U U U U U U U U U U U U U U U Y U U U Y 1 s.kXhXhXkXkXLX I U U U U U U U E o x XwXI.oX 7 Y U U U U U U U U R dXSXdXoX. R U U U Y U U P + LXSXSXSXSXSXSXSXSXSXSXhX R U U U Y U U Y PXDXDXSXDXSXDXDXSXSXDXSXDXSXSXDXSXDX",
|
||||
"pXpXpXpXpXpXpXpXyXpXpXpXyXpXpXyXpXyXpXyXpXpXpXpXpXlXX U U U U U U U U L = lXpXpXpXpXpXpX@X R U U U U U Y U U U U U U U U U U U U U U U U U U U U U U 6 +XkXfXgXaXgXaXaXaXgXfXgXFX T U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U R z FXhXhXgXgXgXGX= L U U U U U U U U U U U U U U U U U U U U U U U U U U U Y 1 s.SXhXhXhXhXGX@ $ R U U U U U U U T 9 # O # Y T U U U U U U U U U T dXkXhXoX. R Y U U U U U P + LXkXkXSXSXSXSXSXSXSXSXkX R U U U U U U Y PXSXSXSXSXDXSXSXDXSXSXDXSXDXSXDXDXSX",
|
||||
"yXpXpXyXyXpXpXyXpXpXpXyXpXpXpXpXpXpXpXpXyXpXpXpXpXlX U U U U U U U U K = lXpXpXpXpXpXpX#X T U U U U U U U U U U U U U U Y U U U U U U U U Y U U U U T T # S lXfXfXfXgXgXfXaXfXgXFX T U U U U Y U U U U U U U U U U U U U U U U U U U U U U U U T X kXgXgXgXgXhXgXGX= L I U U U U U U U R R R R R R R R R R R R R R R R R R R E 2 s.kXzXhXhXhXSXS. 7 U U U U U Y U U U T Y U U R T U U U U U U U Y U U U R dXkXhXoX. T U U U U U U P + LXSXSXSXCXSXSXSXSXSXSXZX R U U U U U Y T PXSXDXSXDXSXSXDXSXSXDXSXDXSXDXSXDXDX",
|
||||
"pXpXyXpXpXpXpXpXpXpXpXyXpXpXyXpXpXpXpXpXpXyXpXyXpXlX U U U U U U U U L = lXpXpXaXpXpXpX@X T U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U R 6 S zXgXfXaXfXgXfXaXgXFX T U U U U U U U U U U U U U U U U U U U U U U U U U U U U T . fXhXhXgXhXgXgXgXGX= L U U U U U U U U y.SXhXhXhXhXhXGXF U U U U U U U U U U U U U U U U U U U U U U U U U U R dXkXhXoX. R U U U U U U P + LXSXSXSXSXSXSXSXSXSXSXSX R U U U U U U Y PXDXSXSXDXSXSXDXSXDXSXDXSXDXSXDXDXSX",
|
||||
"pXyXpXpXpXyXpXpXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXpXaX@X R U U U U U U U K K J J K K K K K J K J H R T U U U U U U U U U R 6 sXaXaXaXfXaXgXgXfXFX T U U U U U U U U U U U U U U U U U U U U U U U U U U E L X fXzXgXgXgXgXhXzXhXGX= L U U U U U U U U GXgXdXgXgXfXgXdXgXdXgXfXhXdXdXgXdXdXgXdXhXhXhXhXhXSXhXkXFX U U U U U U U U U U U U U U U U P J U U U U U U U R dXkXhXoX. R U U U U U U P X GXSXSXSXSXSXSXSXSXSXSXLX R U U U U U U Y PXSXSXDXDXSXSXDXDXSXDXSXDXSXDXSXDXDX",
|
||||
"pXpXpXpXpXpXpXpXpXpXyXyXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXfXpX@X T U U U Y U U R o : ; ; ; ; ; ; ; ; ; , 4 U U U U U U U U U R F zXfXgXfXaXgXgXgXFX T U U U Y U U U U U U U U U U U I U I U U U U I U R L O - jXhXgXgXhXhXgXhXhXgXGX= L U U U U U U U U GXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXCXhXhXhXPX U U U U U U U U U U U U U U R 4 Y U U U U U U T dXSXdXoX. T U U U U U U U oXdXSXSXSXSXSXSXSXSXPXl R U U U U Y U Y PXSXDXSXSXDXDXSXSXDXSXDXSXDXDXSXSXDX",
|
||||
"yXpXyXpXpXyXpXyXyXpXpXpXyXpXyXpXpXyXpXyXpXyXyXpXpXlX U U U U U U U U L = lXpXpXpXaXpXpX#X R U U U U U U T o +XlXlXlXFXFXlXFXlXlXFXsXfXe. X T U U U U U U U Y 4 Z zXgXaXgXfXaXfXgXFX T U U U U U U U I K K K K K K K L K K K L K K K 8 X @ wXFXgXhXhXhXgXgXhXgXgXhXGX= L I U U U U U U U GXgXhXhXdXhXhXhXgXhXhXhXhXhXhXhXkXhXhXhXhXhXhXkXhXhXhXkXzXhXPX K R U U U U U U U U U U T . U U U U U U U Y dXSXZXoX. R U U Y U Y U R 8XSXSXSXSXSXSXSXSXSXLX, J U U U U U U U Y PXSXSXDXSXSXSXDXSXSXDXSXDXDXSXDXSXDX",
|
||||
"pXpXpXpXpXpXpXyXpXyXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXpXfXaXpXaX@X T U U U U U U R o }.sXpXpXfXaXfXaXaXpXfXfXpXlXkX R U U U U U U T 6 FXgXfXaXfXgXgXgXFX T U U U U U U U 6 + ; ; ; ; ; ; ; ; ; ; ; ; ; , , x SXFXhXgXgXgXhXgXgXhXgXhXgXhXGX= L U U U U U U U U GXzXhXhXhXhXhXzXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXkXhXkXCXhXCXhXPX< X K R R T I U U R U 7 LX Y U U U U U U H kXkXZXoX. T U U U Y U U R 8XZXSXSXSXSXSXSXSXSXLX, K U U U U U U U Y PXDXSXSXDXSXDXSXDXSXDXSXSXDXDXDXSXDX",
|
||||
"yXyXpXyXpXyXpXpXpXpXpXyXpXpXpXpXpXpXpXyXpXpXpXpXpXlX U U U U U U U I L = lXpXpXpXpXpXpX#X T U U U U U U T o }.sXpXaXfXpXfXaXfXfXaXaXaXfXfXkX T U U U U U U U R FXgXgXgXgXaXfXgXFX T U U U U U U U 8 A PXFXFXGXFXGXGXFXGXGXFXGXFXFXFXFXgXgXgXgXhXgXgXhXgXgXhXgXhXgXGX= L U U U U U U U U LXhXhXhXhXhXgXhXhXhXhXhXhXhXkXhXhXhXhXhXCXhXCXhXhXCXCXhXkXhXhXhXLXSX< 1 L L 7 G GXFX U U U U U U U K , PXSXhXoX T U U U U U U R <XZXSXSXSXSXSXSXSXSXPX, J U U U U U U U P PXSXSXDXSXDXSXDXSXDXDXDXDXDXSXDXSXDX",
|
||||
"pXpXpXpXyXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXaXaXpXpXpX@X R U U U U U U T o }.sXfXaXfXfXaXaXaXaXaXaXaXaXfXzX Y U U U U U U U R FXfXgXfXgXfXfXgXFX T U U U U U U U 8 z FXfXfXgXgXgXfXzXgXgXgXgXgXgXgXhXhXgXgXhXgXhXgXhXgXhXgXgXgXhXLX= L U U U U U U U U LXzXhXhXgXhXhXhXhXhXhXhXhXhXCXhXhXhXkXhXCXhXhXhXhXhXhXhXhXhXhXkXkXdXIXjXjXC.- ; : ; F SXkXGXkXD. Y U U U U U U 8 , LXSXZX8X P U U U U U U R . S.SXSXSXSXSXSXSXDXSXPX, J U U U U U U T # @ PXDXSXSXSXDXDXSXDXSXSXSXDXSXSXDXDXDX",
|
||||
"yXpXpXyXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L : lXpXpXpXpXfXaX#X T U U U U U U T o {.pXfXaXpXpXfXfXpXaXfXaXfXaXaXlX 6 U U U U U U U T FXgXaXaXgXgXgXgXGX T U U U U U U U 8 k lXgXzXdXgXgXgXgXgXgXgXhXgXhXgXgXgXgXhXgXhXgXhXgXhXgXhXhXgXhXFX= L U U U U U U U U GXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXhXCXhXhXCXSXhXSXSXhXCXkXkXkXzXkXSXPXLXLXLXGXkXkXSXdX}.$ T U U U U U R S LXkXSXPX+ I U U U U U U T % PXSXAXSXSXDXSXSXSXLX: J U U U U U U T # I.SXDXDXDXSXDXSXDXSXDXDXDXSXDXDXDXSXDX",
|
||||
"pXpXpXpXpXpXpXyXpXpXpXyXpXpXpXpXyXpXyXpXpXpXpXpXpXlX U U U U U U U U L = lXaXpXpXaXpXpX#X T U U U U U U R o }.aXpXpXaXfXaXfXaXaXaXaXfXaXaXzXZ 8 U U U Y U U U T FXgXgXgXfXgXgXgXFX T U U U U U U U 8 k FXgXfXgXgXgXgXgXhXgXgXgXgXgXhXgXgXhXgXgXhXgXgXhXgXgXhXgXhXgXGX= L U U U U U U U U LXzXhXzXhXhXhXhXhXhXhXhXhXhXhXhXhXSXhXhXhXCXhXkXSXkXkXLXLXGXLXLXLXGXLXLXGXhXSXhXSXSXZXkXSXkXLX. $ T U U U U U Y FXCXSXSXLX+ K Y U U Y U U U U + PXSXSXCXSXSXSXSXDXdX K U U U U U U T # D.AXDXDXSXSXDXDXSXDXSXSXDXDXDXDXDXDXSX",
|
||||
"yXpXpXyXyXpXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U I L = lXaXpXpXaXpXaX#X T U Y U U U U R o }.sXaXfXaXfXaXaXaXgXfXaXaXaXaXlXA 8 U U U U U U U T FXfXfXgXaXgXfXgXFX T U U U U U U U 8 k SXgXgXgXgXzXgXgXgXgXdXgXgXhXgXgXhXgXhXgXgXhXgXhXhXhXgXhXgXhXGX: L I U U U U U U U GXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXkXhXhXhXhXhXkXzXLX + + + + + + + + G GXhXSXkXkXkXCXSXCXSX U U U U U U U H SXSXSXSXLX< . R U U U U U U P 8XSXSXDXSXDXCXSXFX8X R U U U U U U Y I.SXSXDXSXDXDXSXDXDXDXDXDXSXSXSXDXDXDX",
|
||||
"pXpXpXpXpXpXpXpXyXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U I L = FXpXaXpXpXaXaX#X T U U U U U U R o }.sXfXaXfXaXaXaXfXaXfXaXfXfXaXlXz 8 U U U U U Y U T FXgXaXgXgXgXgXgXFX T U U U U U U U 8 k FXgXgXgXgXgXhXgXhXgXgXgXgXhXgXhXhXgXgXhXhXgXzXhXhXhXhXhXgXgXGX- L U U U U U U U U GXkXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXSXhXCXCXhXSXSXhXkXLX U I P I I I I 4 FXSXhXSXkXhXkXkXSXs. Y U U U U U U 9 l LXSXSXSXdXeX T U U U U U U T . I.SXSXDXSXSXCXSXPX< O T U U U U U U P PXSXDXDXSXDXSXDXDXSXSXDXSXDXDXDXSXDXSX",
|
||||
"pXyXpXpXpXyXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXaXpXaXpXaXaX$X T U U U U Y U R o }.aXpXaXaXfXfXaXfXaXfXfXfXfXfXzXA 6 U U U U U U U T FXaXgXfXgXgXgXgXFX T U U U U U U U 8 z FXgXgXgXgXhXgXgXgXgXhXgXhXgXgXhXgXgXhXgXgXhXgXhXgXgXgXhXhXhXGX: L U U U U U U U U X LXhXgXhXhXhXhXhXhXhXkXhXCXhXCXhXZXzXhXhXkXhXhXhXhXhXLX T U U U U U U T SXkXSXkXSXSXSXdXPX 3 T U U U U U R x LXSXSXSXkX8X U U U U U U U R $ GXSXSXSXSXDXGXwX K U U U U U U R $ @ PXDXSXSXDXSXDXSXDXDXDXDXDXSXDXDXDXDXDX",
|
||||
"yXpXyXpXyXpXpXyXpXpXyXpXyXpXpXpXyXpXpXpXpXpXpXpXpXlX U U U U U U U U L = lXpXaXaXpXaXaX#X T U U U U U U R o {.sXfXaXaXfXaXgXaXaXaXfXgXaXaXzXz 8 U U U U U U U T FXgXgXaXgXgXgXgXFX T U U U U Y U U 9 z kXgXgXhXgXgXhXgXgXgXgXgXhXgXgXgXhXgXhXgXhXgXhXhXgXhXgXhXhXhXGX= L U U U U U U U U LXzXkXhXhXhXhXCXhXhXhXhXhXkXhXhXhXkXzXZXhXhXhXSXSXhXLX R U U U U U U R SXzXhXkXhXkXPX R U U U U U U L GXSXSXSXSXSXPX $ R U U U U U U U I.IXdXdXCXDXeX o Y U U U U U U T I.SXSXDXSXSXDXSXSXDXDXDXSXDXSXDXDXDXDXDX",
|
||||
"yXpXpXpXpXpXpXpXpXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = FXaXpXaXpXaXpX#X R U U U U U U T o }.pXfXaXfXaXfXaXaXaXgXfXfXgXfXlXz 8 U U U U U U U T FXgXgXfXaXgXfXgXFX T U U U U U U Y 8 k FXgXhXgXgXgXgXgXhXgXhXzXgXhXhXgXgXhXgXhXgXhXgXgXhXhXhXhXgXhXGX= L U U U U U U U U LXkXhXhXhXhXhXhXhXhXhXkXhXhXCXhXhXhXCXhXkXSXhXhXhXkXLX 6 Y U U U U U U R eX8XOX8Xh. Y U U U U U U R O - LXSXSXkXSXSXSXI. I U U U U U U R % < iX8X8X8X o R U U U U U U T 1 IXDXDXSXDXDXDXDXDXSXDXSXDXDXDXGXSXDXSXDX",
|
||||
"pXyXpXpXpXyXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXaXlX U U U U U U U I L = lXaXpXpXaXaXpX#X T U U U U U U T o }.aXpXfXfXgXaXfXaXaXfXaXfXaXaXlXA 8 U U Y U U U U T LXgXgXgXaXgXgXgXFX T U U U U U U U 8 k FXfXgXgXgXhXgXgXdXgXhXgXhXgXgXhXhXgXhXgXhXgXhXhXgXgXhXgXhXhXGX: L I U U U U U U U LXzXhXhXhXhXhXhXhXCXhXhXCXhXkXCXCXhXhXCXhXSXCXhXSXhXSXS R U U U U U U U R . . 1 Y Y U U U U U U L wXSXSXSXSXSXSXSXGX+ L Y U U U U U U T K . O R U U U U U U U E O C.DXSXSXDXDXSXDXSXDXSXDXDXSXDXSXSXSXDXDXDX",
|
||||
"pXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L = FXpXaXaXaXpXaX#X R U U U U U U R o }.sXfXfXfXaXfXfXfXaXaXgXaXfXfXkXz 8 U U U U U U U T h.zXgXgXfXgXgXgXGX T U U U U U U U 8 z FXgXgXhXgXgXhXgXgXhXgXgXgXhXhXgXhXzXgXhXgXhXhXgXhXhXgXhXhXzXGX= L U U U U U U U U LXhXhXhXhXkXhXhXhXhXkXZXhXhXhXhXhXSXkXCXhXhXhXSXhXSXSXSX 8 Y U Y U U U U U T T U L I R Y U U U U U U U Y O @ LXSXSXSXSXSXSXSXLX@ T U U U U U U U U R T L P T T U U U U U U U T 3 I.SXDXDXSXDXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDX",
|
||||
"pXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXFX U U U U U U U U K : lXpXaXpXpXpXfX$X T U U U U U U R o }.aXaXaXfXaXfXgXaXaXfXaXgXfXaXlXz 8 U U U U U U U Y 1 F zXgXgXgXgXgXgXGX T U U U U U U U 8 k SXgXgXgXgXgXhXgXgXhXhXgXhXgXgXhXhXgXhXgXhXhXgXhXhXhXhXhXgXhXLX= L U U U U U U U U LXzXkXkXhXhXCXhXCXhXhXhXkXhXhXSXhXhXhXSXSXhXkXhXSXhXkXSXS U U U U U U U U U U U U U U U U U U U U U T 9 eXFXSXSXSXSXSXSXSXZXPX $ T U U U U U U U U U U U U U U U U U U U U T h.FXSXSXSXDXSXGXDXSXDXDXSXDXDXDXDXDXDXDXDXDX",
|
||||
"pXyXpXpXpXyXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXlX U U U U U U U U L : lXaXpXfXfXaXfX$X T U U U Y U U R o }.sXaXfXaXfXaXfXaXaXgXgXfXgXgXkXz 7 U U U U U U U U 4 fXFXgXgXgXgXgXFX T U U U U U U U 8 z FXgXhXgXhXgXgXgXhXgXgXhXgXgXhXgXgXhXgXhXgXhXhXhXgXgXhXhXhXhXGX: L U U U U U U U U LXkXhXhXhXhXkXhXkXhXkXCXhXhXCXhXhXSXhXhXhXhXhXSXhXkXkXSXdX 1 R U U U U U U U U U U U U U U U U U U Y J z LXSXSXSXSXSXSXSXSXSXSXI. L Y U U U U U U U U U U U U U U U U U U E 1 GXDXSXDXDXSXDXSXSXDXSXDXDXDXSXDXSXDXDXDXDXDX",
|
||||
"yXpXpXyXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXFX U U U U U U U U L = FXpXaXaXpXfXpX#X R U U U U U U T o {.aXaXgXaXaXgXfXfXfXfXaXaXgXaXkXD E U U U U U U U R h.zXgXgXgXgXFX T U U U U U U U 8 k FXgXhXgXhXgXgXhXgXhXhXgXhXhXgXhXhXgXgXhXhXgXhXgXhXhXhXhXgXhXGX= L U U U U U U U U LXzXSXhXhXCXCXhXhXSXhXhXSXhXCXhXSXhXSXhXhXSXkXhXSXhXhXSXkXC. 4 Y U U U U U U U U U U U U U U U U R J , PXSXSXSXSXSXSXSXSXSXDXDXLX- . P T U U U U U U U U U U U U U U U U E % C.DXDXDXDXSXAXDXDXDXDXDXDXDXSXDXDXDXDXDXDXSXDX",
|
||||
"pXpXpXpXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXFX T R R T R T T T P = lXaXaXpXfXaXaX$X W R R R R R T W O I.aXfXfXfXaXfXaXgXaXgXfXgXgXfXfXFX J R R T R R R R T Q 2 e.aXgXgXgXgXGX W T R T R R R T H z FXgXgXgXgXgXhXgXgXhXgXhXgXgXhXgXhXhXhXgXhXhXhXhXhXhXgXhXhXhXGX: P T R R R R T R T LXhXhXhXhXhXhXhXhXhXhXCXhXCXhXCXhXhXSXhXCXCXhXSXhXSXhXSXkXLXG U R U U U U U U U U U U U U Y R # . , PXkXSXSXSXSXSXSXSXSXSXSXSXSXPX@ $ W Y U U U U U U U U U U U U R U o C.LXDXFXSXDXDXDXSXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDX",
|
||||
"yXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXaXaXpXpXpXpXaXFX . . . . . . . @ FXpXaXaXfXaXpX%X o . . . . . . o {.sXfXaXfXfXgXaXfXaXgXaXfXgXfXgXlX, . . . . . . . . F kXgXgXgXgXFX . . . . . . l FXgXgXhXgXgXgXgXhXgXhXgXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXLX@ . . . . . . . . LXkXhXCXhXhXhXhXhXhXCXkXhXSXhXCXkXZXCXhXSXhXSXkXSXCXhXhXCXSXDXFX. o U T Y U U U U U U Y R T 9 oXLXSXDXCXSXSXSXAXSXSXSXSXSXSXDXZXGXI. K T R U U U U U U U T R Y 1 . eXGXDXDXDXSXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDX",
|
||||
"pXpXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXaXpXpXfX|.|.|.+X|.|.|.|.|.+X+XgXpXaXaXpXaXaXsX|.|.|.|.|.|.|.|.|.|.yXaXfXfXaXgXaXaXgXgXfXgXaXgXgXaXgX%X|.|.OX|.oXOX|.OX|.OXOX$XgXgXgXgXgXkX XOX|.OXOXOXOX XOX X#XhXgXgXhXhXgXhXhXhXgXgXhXhXgXhXgXhXgXhXgXhXgXhXhXhXgXhXhXhXhXkXOXOXOXOXoXOXOXoXOXOXOXSXzXhXhXhXSXhXkXCXhXhXCXhXhXhXSXkXkXhXkXhXSXSXhXhXCXSXSXSXhXCXhXPX8X. o 4 U I I I I I 9 o x dXkXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXjX< o K I I I I I U 1 O h.GXZXDXDXSXSXDXDXDXSXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDX",
|
||||
"pXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXpXaXpXaXpXaXpXsXsXsXsXsXsXsXsXsXsXsXaXaXaXpXfXaXaXaXsXsXpXaXsXsXaXsXsXfXfXfXfXgXaXaXgXfXgXgXgXgXfXaXgXgXgXgXsXfXfXfXfXfXsXsXaXfXfXgXgXgXgXgXgXgXfXfXfXfXjXfXfXfXfXfXdXhXgXgXgXhXhXgXhXdXgXzXhXgXhXgXhXhXhXgXhXhXhXzXhXhXhXgXhXhXzXhXdXhXdXgXdXdXdXgXdXdXdXkXhXhXkXkXhXCXhXhXkXhXCXSXhXSXhXkXhXhXhXhXSXhXSXCXkXCXSXkXhXSXhXSXdXPXOXy. X X X X X X X x 8XwXIXhXSXSXSXSXSXSXDXSXSXSXSXSXSXSXSXSXDXSXDXZXPX8XwX< X X X X X X X C. XGXDXSXDXSXDXDXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDX",
|
||||
"pXpXyXpXpXpXpXpXpXpXpXpXpXpXpXpXaXpXaXpXpXaXpXpXpXpXpXpXaXpXaXpXaXpXaXaXaXpXpXaXaXfXfXaXaXfXfXfXpXfXfXfXfXfXfXgXfXfXfXgXgXaXaXgXgXfXfXfXgXfXfXgXgXfXgXgXgXgXgXgXgXfXgXgXgXgXgXfXgXgXgXgXdXfXgXgXdXhXgXgXhXgXgXgXhXhXzXzXzXkXkXzXkXzXkXlXkXkXzXkXzXkXkXzXzXkXkXkXkXkXzXSXzXlXkXkXkXkXzXSXSXkXlXzXkXkXhXkXhXhXSXhXkXhXSXhXhXCXhXCXhXSXSXSXSXkXkXZXCXSXCXSXCXSXSXSXkXSXSXdXFXLXPXLXLXPXLXPXPXGXdXdXSXSXSXSXSXSXSXSXCXSXSXSXSXSXDXSXDXSXSXSXSXSXSXSXBXPXPXPXPXPXPXPXPXPXDXSXDXSXDXSXSXDXSXDXDXDXDXDXSXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDX",
|
||||
"pXpXpXpXpXpXpXpXaXaXaXaXzXaXaXaXfXfXfXaXaXaXaXgXgXaXfXgXaXgXgXgXfXfXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXgXzXgXgXgXhXgXhXhXgXdXgXhXgXhXgXhXgXgXgXhXhXzXhXhXhXhXhXgXzXhXhXhXhXhXhXhXhXhXhXhXkXhX<X!.V.W.V.V.V.V.R.V.V.R.V.V.R.!.E.!.Q.Q.Q.Q.Q.A.!.E.!.E.V.W.W.R.W.W.V.V.V.V.T./.eXFXSXSXSXSXSXSXSXSXSXSXSXZXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXSXSXSXDXDXDXSXSXDXSXDXDXDXSXDXSXFXDXDXDXSXDXSXDXDXSXDXSXKXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXGXDXDXDXKXGXKXGXLXDXDXDXLXDXLXLXGXDXKXKXKXKXLXKXKXLXDXLXKXKXLX",
|
||||
"pXpXpXpXpXzXpXzXaXaXaXaXpXaXaXaXaXfXaXgXaXgXaXfXaXgXaXgXfXaXaXgXgXfXfXgXgXfXgXfXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXhXhXgXhXgXhXgXgXhXgXhXgXhXgXhXhXgXhXhXhXgXgXhXhXhXhXhXhXhXhXgXhXhXhXhXzXhXhXhXzX2Xz.q.>.3.2.8.8.2.8.8.q.q.q.9.0.0.9.9.0.x.0.0.0.0.0.9.q.0.9.9.9.q.q.2.q.8.8.2.3.2.5.x.!.dXSXSXSXSXSXCXhXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXDXSXSXSXSXSXDXSXDXSXSXSXDXSXDXSXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXDXAXDXDXLXKXDXDXDXLXDXLXDXDXLXDXKXKXGXKXLXGXKXLXDX",
|
||||
"pXpXpXpXpXpXpXpXfXpXaXaXaXaXaXaXaXaXfXaXfXfXgXaXgXgXaXfXgXfXgXfXaXgXgXgXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXhXgXhXgXgXhXgXhXgXgXgXgXgXhXhXgXhXgXhXgXhXgXhXhXhXhXgXhXgXhXgXhXgXhXhXhXhXhXgXhXhXhXhXhXhXhX/.8.>.1.9.Y.T.R.T.T.T.R.T.T.R.T.R.T.T.T.R.T.T.T.R.R.T.T.T.T.T.T.W.T.T.T.T.T.T.T.U.0.2.1.>.z.iXSXkXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXSXSXDXSXDXSXSXSXSXDXSXSXSXSXDXSXDXSXDXDXDXSXDXDXDXSXSXDXSXDXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXKXKXDXKXDXDXKXDXLXLXDXDXLXDXKXDXDXGXKXKXKXKXDXLXDXKXLXGXKX",
|
||||
"pXpXpXpXzXpXzXpXaXaXaXaXaXaXaXaXaXaXgXaXgXfXaXfXaXfXgXaXgXaXgXaXfXgXgXfXfXgXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXhXhXgXgXgXgXgXhXgXhXzXhXhXgXhXgXhXhXhXhXhXhXhXdXhXhXhXhXhXhXhXhXhXgXkX.X1.>.<.l.E.E.E.E.R.E.R.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.!.!.E.T.9.1.:.z.jXSXZXSXSXSXkXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXSXDXSXSXSXSXSXDXDXSXSXDXSXDXDXSXDXSXDXSXSXSXDXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXSXDXDXDXDXSXDXDXGXDXKXDXDXDXDXDXDXDXDXKXDXGXDXDXKXKXDXGXKXKXLXKXDXKXKXLXLXDXLXKXLXKXKX",
|
||||
"aXpXaXfXaXfXaXaXaXaXaXfXfXfXfXgXgXaXaXaXaXfXaXfXfXaXgXfXaXgXgXaXgXgXgXaXgXfXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXhXgXgXgXgXhXgXgXhXgXhXgXhXgXgXhXgXhXhXgXgXhXhXgXgXhXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXgXhX7Xq...2.T.Q.E.Y.0.0.9.9.0.0.0.0.0.0.x.l.l.l.l.l.l.l.l.Y.l.l.l.l.x.x.0.0.0.9.0.q.0.0.x.U.Q.E.l.>.>.V.CXSXCXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXSXSXSXSXDXDXSXDXDXSXDXSXDXSXSXDXDXSXDXDXSXDXDXDXSXDXDXDXSXDXDXSXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXKXDXDXKXDXKXDXLXDXDXGXKXKXKXDXDXKXLXKXDXLXDXLXLXLXDXDXLXLX",
|
||||
"pXaXaXfXfXpXaXaXaXaXfXaXaXaXaXaXfXaXaXgXaXgXgXfXgXaXgXaXgXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXhXhXgXgXhXgXgXgXhXgXhXhXgXhXgXhXgXhXgXhXhXhXgXgXhXhXhXhXhXhXdXgXhXhXhXhXhXhXhXCXjXA...<.Y.!.U.9.2.<.2.2.<.8.8.8.8.8.8.8.9.x.9.0.0.0.0.9.9.0.0.q.0.9.8.8.8.8.8.8.2.2.<.2.8.a.T.Q.0.:.2.2XSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXSXSXSXSXSXSXSXDXDXSXSXSXSXSXSXSXSXDXSXDXDXSXSXDXDXSXDXDXSXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXKXKXDXKXDXKXDXDXKXDXLXKXDXDXKXLXLXKXKXGXDXLXDXLXDXDXLXLXLXKXGX",
|
||||
"fXfXaXpXaXaXaXfXaXaXaXfXaXaXaXfXaXfXgXfXfXaXgXaXaXgXgXgXfXgXaXgXgXgXgXfXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXhXgXhXhXgXgXhXgXhXgXhXhXhXhXgXgXhXhXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXhXhXzX1X<.>.x.E.Y.<.<.2.2.2.<.8.8.8.8.8.q.8.9.0.9.9.0.0.0.0.0.0.0.0.0.0.q.q.q.8.8.8.8.2.2.2.8.2.3.8.U.R.<.3.v.CXSXCXSXSXSXSXDXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXDXDXSXSXDXSXSXSXSXDXSXDXSXSXDXSXDXDXDXDXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXLXDXKXGXDXKXDXDXKXGXKXDXDXKXGXKXLXGXKXDXLXGXKXKXKXKXLXDXDXLXKXLXKXKXLX",
|
||||
"aXaXaXaXaXfXaXaXfXaXfXfXaXgXfXfXgXaXaXaXfXgXaXgXfXaXfXfXgXfXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXzXgXgXgXhXgXhXgXhXhXgXgXgXhXgXgXhXgXhXgXgXhXgXhXgXhXhXgXhXgXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXkX_...2.U.U.3.>.<.<.8.8.<.8.8.q.8.8.8.q.q.9.0.0.0.0.0.0.0.9.0.q.0.9.8.q.q.8.8.8.8.2.2.8.<.<.<.3.8.R.x.:.q.ZXSXSXSXSXSXCXSXSXSXDXSXSXSXCXDXSXSXDXSXSXSXDXDXDXSXSXDXSXDXSXDXDXDXDXSXDXSXDXDXSXSXDXSXDXDXSXDXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXKXDXDXKXKXKXDXDXKXDXKXDXLXDXLXDXKXKXLXKXLXLXLXKXKXKXLXKX",
|
||||
"aXfXfXfXaXaXfXfXfXaXgXaXfXgXaXfXaXaXgXgXaXgXaXfXgXgXgXgXaXgXgXgXfXgXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXhXhXhXgXhXhXhXhXhXgXgXhXgXhXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhX!...9.T.2.>.<.<.<.2.2.2.2.2.8.q.8.8.q.8.9.0.9.0.9.0.9.9.0.9.0.0.q.q.q.q.8.q.8.2.2.2.2.2.<.<.>.>.0.T.:.2.tXSXSXSXSXSXSXSXSXSXSXSXSXDXCXSXDXDXSXDXSXSXSXSXSXDXSXDXSXDXDXSXDXSXDXSXSXDXSXDXDXDXDXDXSXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXKXKXKXDXDXKXDXGXKXDXDXLXDXLXKXDXLXDXDXKXKXKXDXKXLXKXLXDXDXLXLXLXKXKX",
|
||||
"aXpXaXaXaXfXaXfXaXaXaXfXfXfXaXgXgXfXaXfXgXfXgXgXgXfXgXaXgXfXgXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXhXgXhXgXgXhXhXgXhXhXhXgXgXhXhXgXhXgXhXhXgXgXhXgXhXhXhXhXhXhXhXhXhXhXzXhXgXhXhXhXhXhXhXhXCXhXhXhXdXA.:.9.l.>.3.,.3.<.2.2.8.<.8.8.8.8.q.8.q.q.q.0.0.9.9.9.9.0.0.9.q.q.q.5.8.8.8.8.2.2.2.2.2.<.3.<.>.<.U.2.2.tXSXSXSXSXSXSXSXSXSXSXSXSXDXSXCXDXDXSXSXCXDXDXDXSXDXSXSXSXSXSXSXDXSXDXDXDXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXKXDXDXKXDXDXDXKXDXKXKXKXDXKXLXDXKXDXLXKXKXKXLXGXDXKXLXLXGXKXLXLXLXKXKXLXLXLX",
|
||||
"aXfXfXaXaXfXaXaXfXfXgXaXaXaXaXfXaXfXaXgXaXgXfXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXhXgXhXgXhXgXhXgXhXhXgXgXhXhXhXhXgXhXgXhXgXhXhXhXhXhXgXhXhXhXhXhXhXhXhXdXA.>.q.8.>.1.<.<.<.2.8.2.2.2.8.q.8.8.8.8.8.q.q.q.0.0.0.0.0.q.q.5.q.q.8.8.q.8.2.2.2.8.2.2.3.1.<.>.<.q.8.2.5XSXSXSXSXSXSXDXSXDXSXSXDXSXSXDXSXSXDXCXDXSXSXSXSXSXSXDXDXDXDXSXSXDXDXDXSXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXSXKXDXDXDXGXDXDXDXDXGXKXDXDXDXDXDXDXDXLXDXKXDXLXDXKXKXDXKXDXLXGXKXKXKXKXDXLXLXLXDXLXDXDXLXKXLXLXKXLXDX",
|
||||
"aXaXaXfXfXaXfXaXaXgXfXaXgXgXaXgXgXaXgXfXgXfXaXgXaXgXfXgXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXhXhXgXgXgXgXhXhXgXgXgXgXhXhXgXhXhXhXgXhXgXhXgXhXgXhXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXdXA.>.q.<.1.3.<.,.3.<.2.2.2.2.2.8.q.8.8.q.8.q.q.q.q.9.q.q.q.q.q.q.q.8.8.8.8.8.2.2.8.2.2.3.<.<.<.>.>.2.8.<.tXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXSXDXSXDXDXSXSXDXDXDXSXDXSXDXDXSXDXSXDXDXDXSXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXDXDXKXKXGXKXDXLXDXDXGXDXDXLXDXLXDXLXKXDXKXKXGXKXLXLXDXLXDXLXLXKXLXKXKXLXLXLXLX",
|
||||
"pXfXgXaXaXaXfXfXfXaXgXaXfXaXfXgXaXaXgXaXaXgXaXgXgXaXgXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXhXgXhXgXgXgXhXgXgXgXhXgXhXgXhXgXhXhXgXhXgXgXhXhXgXhXhXhXhXhXhXgXhXhXhXgXhXhXhXhXhXhXhXCXhXCXhXhXhXhXdXA...2.3.>.>.3.<.1.,.2.8.2.2.2.8.8.8.8.8.8.8.q.q.8.q.q.8.q.9.8.8.8.8.8.q.8.2.2.2.2.2.2.3.<.<.<.1.>.<.2.<.tXCXDXSXSXSXSXSXSXDXSXSXSXSXSXSXSXDXSXSXSXSXDXSXDXDXSXDXSXSXDXDXSXDXSXSXDXDXDXDXDXDXDXDXDXDXSXDXDXDXDXKXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXDXKXDXDXDXKXDXDXKXLXLXGXKXDXLXLXDXLXDXLXKXLXDXLXKXDXLXKXLXKXLXKXLXLXKXLXLX",
|
||||
"aXfXfXfXaXaXaXgXfXaXaXgXaXgXaXgXfXgXfXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXgXgXgXgXgXgXgXgXhXhXgXhXgXgXhXhXgXgXhXhXgXhXgXhXhXhXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXdXA...3.>.1.>.1.<.<.3.2.2.2.2.2.2.8.q.8.8.8.q.8.8.q.q.8.q.q.8.q.8.8.8.8.8.2.<.8.2.2.2.2.1.<.>.>.>.3.>.>.<.5XCXDXSXSXSXSXDXSXSXSXDXSXDXDXSXDXSXDXSXDXSXSXDXSXSXDXSXDXDXDXSXDXDXDXDXDXSXSXDXSXDXSXSXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXKXDXDXDXLXDXDXKXDXKXDXKXLXDXDXLXKXDXDXDXKXDXKXKXDXLXDXLXDXKXDXLXKXLXLXLXLXKXLXKXLXLXKXLXLXLX",
|
||||
"fXaXfXaXgXaXaXaXaXgXaXgXgXfXgXfXgXgXgXgXfXgXgXgXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXhXhXgXgXgXgXgXhXgXgXhXgXhXgXgXhXgXhXgXhXhXhXgXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXdXA. .>.>.>.<.>.>.<.1.<.2.2.2.2.2.2.8.8.q.8.8.8.8.8.8.q.8.8.8.8.8.8.9.8.2.2.8.<.2.2.<.<.<.>.>.>.>.3.>.:.1.tXDXSXSXSXSXDXSXSXSXSXDXSXSXSXSXSXSXDXSXDXDXSXSXDXDXSXSXDXSXDXSXDXSXDXSXDXDXDXDXDXDXSXDXDXDXDXKXSXDXDXDXDXDXDXDXDXDXKXKXDXKXDXDXDXKXDXDXLXKXDXDXLXDXKXKXKXDXKXKXDXKXDXKXKXLXKXKXKXLXLXLXDXLXDXKXLXKXLXLXKXKXLXLXKX",
|
||||
"fXaXfXaXaXfXaXgXaXgXfXaXaXfXgXaXfXaXgXfXgXaXgXaXgXfXgXaXgXgXgXgXgXgXgXgXgXgXhXgXgXgXhXgXgXgXhXhXgXgXgXgXhXhXgXhXgXhXhXhXgXhXgXhXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXZXhXCXhXhXhXdXA. .>.>.>.>.>.3.1.<.3.<.2.2.2.2.2.2.8.8.8.8.8.q.8.8.8.8.8.8.8.9.8.2.2.2.2.2.8.2.2.1.3.<.<.>.<.>.>.>...<.tXSXSXSXSXSXSXSXDXDXSXSXSXSXDXDXSXDXSXSXDXSXDXDXSXSXDXDXSXDXSXDXSXSXDXDXDXSXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXKXDXKXDXGXDXDXDXKXGXDXKXGXDXKXLXDXKXLXKXKXKXGXLXGXKXLXDXDXLXLXLXKXLXLXKXLXLXGXLXLXLXLX",
|
||||
"fXaXfXaXaXaXgXaXgXaXgXgXfXaXgXgXaXgXgXaXgXgXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXhXgXhXgXhXgXgXgXhXgXhXhXgXhXgXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXCXhXhXhXkXCXhXdXA. ...>.1.>.3.>.>.<.>.,.2.2.2.2.2.2.2.2.8.8.8.q.8.q.8.8.q.8.8.8.2.2.2.2.2.2.2.2.<.>.<.<.>.>.>.>.>.>...1.5XSXSXDXCXSXSXSXSXSXSXSXDXSXSXSXSXSXDXSXDXSXDXSXSXDXDXSXDXDXDXSXDXDXDXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXKXDXKXDXKXKXDXKXDXLXDXKXLXKXKXKXDXLXDXKXGXGXAXLXLXLXLXDXLXLXLXDXKXLXLXLXLXLXLXLX",
|
||||
"fXaXgXaXfXgXfXaXfXaXaXfXgXgXaXfXgXgXgXaXaXgXgXgXfXgXgXgXgXgXgXgXgXhXgXgXgXgXgXhXgXhXgXhXhXgXgXhXhXgXhXhXhXgXhXgXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXgXhXhXgXhXhXhXgXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXhXhXdXQ. .:.:.>.<.1.>.<.1.<.3.,.<.2.2.2.2.2.2.2.2.2.2.8.2.8.2.2.8.2.2.2.2.2.2.2.2.2.<.<.<.<.>.>.>.>.>.<.....<.tXDXCXDXSXDXSXDXSXSXAXSXSXDXSXDXDXDXSXSXSXDXSXDXDXSXDXSXDXSXDXDXDXDXSXSXDXDXDXDXDXDXSXKXSXDXDXDXDXDXDXKXDXDXGXDXKXDXDXDXKXKXDXLXKXDXKXDXKXGXDXLXKXDXDXLXKXDXGXKXKXLXKXLXKXKXLXLXLXDXLXLXDXLXKXLXLXLXLXKXLXLXKXLXLX",
|
||||
"aXgXfXgXgXaXfXgXaXgXfXaXgXaXaXgXaXgXgXgXgXfXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXhXhXgXhXgXgXhXgXhXhXgXgXhXgXhXgXhXgXhXhXhXhXhXhXhXhXgXCXhXgXhXhXhXhXhXhXhXhXhXhXkXhXhXhXhXCXhXhXCXdXA. .....:.>.>.3.>.3.1.<.3.<.<.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.8.2.2.2.2.<.>.<.<.>.>.>.>.>.>.:.....>.5XSXSXSXSXSXSXSXDXDXSXDXSXSXDXSXDXDXSXDXSXDXSXSXSXDXDXDXDXSXDXSXDXDXDXDXDXDXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDXKXDXDXDXKXDXDXDXDXKXKXDXDXKXDXDXKXKXKXDXLXGXDXKXKXDXLXDXKXKXLXDXKXLXLXKXLXLXKXLXKXLXKXKXLXKXKXLXKXLXKXLX",
|
||||
"fXaXaXfXaXgXfXaXgXaXgXgXgXfXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXhXgXgXgXdXgXgXgXgXgXhXgXhXgXhXgXhXhXgXhXhXgXgXhXhXhXgXhXgXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXhXhXhXSXkXhXCXCXhXdXQ.X.....:.>.>.>.1.>.3.1.2.>.<.3.2.2.2.2.2.8.2.2.2.2.2.2.8.2.2.2.2.2.2.2.2.1.1.3.<.<.>.>.>.>.3.:.:.:. .<.5XSXDXSXSXSXDXSXSXSXSXDXSXSXDXSXDXSXDXSXDXDXSXDXDXSXSXDXSXDXDXDXDXSXDXSXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXDXDXDXKXDXKXDXKXDXGXDXGXKXGXKXKXKXDXDXKXDXKXLXDXLXLXDXLXGXKXLXKXLXKXKXKXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLX",
|
||||
"aXfXgXaXaXaXaXgXgXaXgXfXaXgXfXfXgXgXgXfXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXhXgXgXgXhXhXgXhXgXgXhXgXhXgXgXhXgXgXhXhXhXhXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXSXhXhXkXhXhXCXhXkXhXhXhXhXkXCXhXhXA.X.......>.>.>.>.>.>.>.>.<.<.>.<.<.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.<.3.1.<.<.1.>.>.<.>.3.>.:..... .1.tXSXSXSXDXSXSXDXSXDXSXSXSXSXSXSXDXSXDXSXSXDXSXSXGXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXGXDXDXGXDXDXDXDXDXDXDXDXDXDXDXKXDXGXDXKXDXKXDXLXDXLXDXKXDXLXDXKXKXKXKXKXDXLXGXKXDXLXLXDXLXKXGXKXLXKXLXKXLXKXLXKXLXKXLXLXLXLXLXLXLX",
|
||||
"gXaXaXgXgXgXfXfXfXgXgXgXgXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXhXgXgXgXhXgXhXgXhXgXhXhXhXhXgXhXhXhXhXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXCXhXhXkXhXSXhXhXhXCXdXW. .......:...>.>.>.<.>.>.3.,.<.>.<.<.<.2.2.2.8.2.8.2.8.2.2.2.2.2.<.<.3.,.<.<.3.>.1.3.>.>.>.:...:.....<.5XSXSXSXSXSXDXSXSXSXSXDXSXDXDXSXDXDXSXDXDXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXKXDXKXDXKXDXDXKXDXKXDXKXDXKXKXKXDXLXKXKXKXKXGXLXKXKXKXLXKXKXDXLXLXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLX",
|
||||
"fXaXfXfXfXfXgXgXgXaXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXzXgXgXhXhXgXhXhXgXhXhXgXgXgXhXhXgXgXhXgXhXgXhXgXhXhXgXhXdXgXgXhXhXhXhXhXhXhXgXhXhXCXgXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXkXZXhXCXSXhXCXhXdXA.X.............<.>.>.<.>.>.3.,.2.,.<.<.>.<.<.<.2.2.<.<.2.2.2.,.<.>.<.,.<.1.3.>.1.>.>.<.3.:...........<.5XDXAXSXSXSXSXDXSXDXSXDXDXDXSXSXAXSXDXDXSXSXSXDXDXDXDXDXDXSXDXDXDXDXAXDXDXDXDXDXSXDXDXDXDXDXDXKXDXDXDXKXLXDXLXDXDXDXDXDXLXKXDXKXKXGXKXKXDXLXDXKXDXDXLXKXKXLXDXLXDXDXLXLXLXLXLXDXLXLXKXLXKXLXLXLXLXLXLXLXLXPXLXLXLX",
|
||||
"aXaXgXgXaXgXaXgXfXgXgXfXgXgXaXgXgXfXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXhXgXgXgXhXgXgXhXgXhXgXhXgXgXhXhXgXhXhXhXgXhXgXhXgXhXhXCXgXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXSXhXhXSXhXhXCXhXCXhXhXCXdXQ. .........w.:...>.>.>.>.>.>.>.>.>.<.<.<.<.<.3.>.<.<.<.<.3.3.3.,.<.,.<.3.3.1.3.>.3.1.:.:...:.........3.tXSXSXDXDXDXSXSXDXSXDXSXDXSXSXDXDXDXSXDXDXDXDXDXSXSXDXDXSXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXDXDXKXLXDXDXDXKXKXGXDXDXKXGXLXDXKXKXGXKXDXLXKXLXDXLXLXLXKXLXKXKXLXLXLXKXLXKXLXLXKXLXLXLXLXKXLXKXLXLXLX",
|
||||
"gXaXfXgXaXgXaXfXgXgXaXgXfXgXgXfXgXgXgXgXgXgXgXgXgXhXgXgXgXgXhXgXgXgXgXgXgXgXhXgXgXgXgXhXgXhXhXgXhXgXhXhXgXhXgXhXhXhXhXhXgXhXgXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXCXhXhXSXhXhXhXCXhXhXhXkXhXCXkXhXSXhXhXCXdXV.| ..w.......w...:.>.>.>.>.3.>.>.>.>.>.<.<.<.<.<.<.>.<.>.<.<.<.<.>.3.>.1.>.>.>.3.>.:...w........... .1.5XDXSXSXSXSXDXDXSXDXSXSXSXDXSXDXDXSXDXSXSXDXDXDXDXDXSXDXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXGXDXDXDXKXKXDXDXLXDXKXLXDXLXKXKXKXKXLXKXLXDXLXKXKXKXLXKXLXLXLXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLX",
|
||||
"gXfXaXgXgXfXgXaXfXaXgXgXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXhXgXgXhXgXgXgXhXhXgXgXhXgXhXgXhXgXhXhXgXhXhXhXgXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXhXhXkXhXCXhXCXCXhXCXhXCXhXCXCXhXhXV.| ...........w...:.>.>.<.1.>.<.>.>.>.>.>.>.<.>.<.>.1.<.>.<.>.>.>.>.>.3.>.1.1.>.>.:.w..... .......X.>.tXSXSXDXSXDXSXSXDXSXDXDXDXSXDXDXSXDXDXDXDXSXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXKXDXLXDXKXDXDXDXDXKXLXDXKXDXLXLXDXKXKXDXLXDXGXKXKXKXLXDXKXLXDXLXLXKXLXKXKXKXLXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXKXPX",
|
||||
"gXgXgXfXaXgXfXgXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXgXgXhXhXgXgXhXhXgXgXgXgXhXhXgXhXhXgXgXhXgXhXgXgXhXgXhXgXhXhXgXCXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXkXhXhXhXhXCXhXhXhXhXCXhXCXCXjXA.] | .... .........:...:.>.3.>.>.<.<.>.>.>.>.>.>.1.>.>.>.>.>.1.:.>.3.1.>.3.<.:.:................. .X.>.5XSXDXDXSXSXDXDXSXDXSXDXSXSXDXSXSXSXDXDXSXDXDXDXDXSXGXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXKXKXDXLXDXKXGXDXLXLXDXKXKXLXDXLXKXKXGXKXLXDXDXLXKXLXLXLXLXGXLXKXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLX",
|
||||
"aXfXaXgXgXgXgXgXgXgXaXgXgXgXgXgXfXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXhXgXgXgXgXhXgXhXgXgXhXhXgXhXgXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXkXhXhXCXCXCXhXkXkXhXSXSXhXSXCXCXdXW.| | | ....w.........:...:.:.>.>.>.3.1.>.>.<.>.>.>.>.>.3.>.>.<.3.1.>.<.>...>.:...:.......w..... .X.X.:.5XDXSXSXDXSXSXSXDXSXDXSXDXDXSXDXDXDXSXDXDXDXSXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXDXDXLXDXKXDXDXKXGXDXKXDXDXLXDXDXLXDXKXKXGXKXKXKXKXLXKXLXLXKXLXLXDXDXLXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLX",
|
||||
"gXfXgXaXfXgXgXgXgXgXgXgXgXgXgXgXgXzXgXgXgXgXhXgXgXgXgXgXhXhXgXgXhXgXgXhXgXgXgXhXgXhXgXhXhXgXgXgXgXhXhXgXhXgXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXCXhXhXhXhXCXhXhXhXSXhXSXhXhXhXSXSXhXdXW.| | X.X. .....................1.>.1.>.>.>.3.>.>.>.<.>.<.>.<.>.>.>.>.>.:.:.:................. . . .| ..tXSXDXSXSXDXSXDXSXDXDXSXDXSXDXSXDXSXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXKXDXLXDXGXKXDXKXKXLXDXLXKXLXDXKXKXLXDXLXLXLXLXKXLXKXLXLXDXLXLXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLX",
|
||||
"gXfXaXgXgXgXaXfXgXfXgXgXgXgXgXfXgXfXgXgXgXgXgXgXhXgXgXgXgXgXgXhXgXgXhXgXgXhXhXgXgXhXhXgXgXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXSXkXCXCXhXhXSXhXhXkXhXCXSXCXhXhXSXhXV.| X.| X. . . ...............:.......>.1.>.1.3.>.3.1.3.3.>.>.:.>.>.:....................... . .| | | >.5XDXSXSXDXSXSXDXSXSXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXSXDXDXGXSXDXDXDXDXDXDXDXKXDXKXGXDXDXDXDXDXDXKXKXDXKXKXGXDXKXDXDXKXDXKXGXLXKXGXDXLXLXDXDXLXLXDXLXKXKXLXLXKXKXLXLXLXGXLXKXLXKXLXLXLXPXLXLXLXLXLXLXLXLXPXLXPX",
|
||||
"gXfXgXgXgXgXgXgXgXfXgXfXgXgXgXhXgXgXgXgXgXgXhXgXgXgXhXhXhXgXgXgXhXgXgXhXhXgXhXgXgXgXgXhXgXhXhXhXhXhXhXgXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXSXhXhXkXSXhXhXhXhXCXkXhXSXhXSXhXCXhXCXkXCXCXdXA.| X.X.X. .X. .............................:.1.:.1.:.:.:.>.:.:............... .........X. .| | ] | | ..tXSXDXDXSXSXDXDXSXSXDXSXDXSXDXDXSXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXLXDXKXKXDXKXGXKXDXGXKXDXLXDXLXKXKXDXKXKXDXDXKXLXKXDXLXKXLXLXDXLXKXLXKXLXKXLXKXLXKXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXPXIXLXLXIXLXLX",
|
||||
"gXgXaXgXgXaXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXgXgXhXgXhXhXhXhXgXhXgXhXgXhXgXhXgXhXhXhXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXkXhXkXhXhXhXCXhXhXhXSXhXSXhXhXhXCXhXSXCXCXkXCXhXCXdXV.| | X.X.] X.X. . . ......... .....................:.......:.....:..... ............. .| | | . . .| >.tXDXSXSXDXDXDXSXDXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXKXDXKXDXDXKXDXKXDXKXGXKXKXKXLXKXKXDXLXKXKXLXDXKXLXLXKXKXLXKXLXLXKXKXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLX",
|
||||
"gXgXgXaXgXgXfXgXgXgXgXgXfXgXgXgXgXgXgXhXgXgXgXgXgXhXgXhXgXgXhXgXhXgXhXgXgXhXgXhXhXgXhXgXhXgXhXhXgXhXhXgXhXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXkXhXhXhXCXhXhXhXhXhXSXhXhXSXhXCXkXkXCXkXCXhXCXhXhXV.] .X.X. .| | | . . ....... ..... ............................... ............. . . .X.X.X. .| X.X.>.5XSXDXDXSXDXDXDXSXSXDXDXSXDXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXGXDXDXDXDXKXKXDXKXDXDXDXLXDXDXLXDXLXDXKXDXLXKXKXLXDXKXKXLXKXLXDXDXLXKXLXDXLXLXGXKXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXPXLXLXPXLX",
|
||||
"aXgXgXfXfXgXgXgXgXgXgXgXhXgXgXgXhXgXgXgXgXgXgXhXgXgXgXgXhXgXhXgXgXhXgXhXgXgXhXgXhXgXhXgXhXhXgXhXhXhXhXhXhXzXhXhXhXhXhXhXkXhXhXhXhXhXhXhXhXkXhXCXhXhXhXhXSXhXkXhXCXhXSXhXhXkXSXhXSXkXkXZXCXkXCXCXCXSXZXV.] | | X.X. .X.| .| . . .w.....w....................... ................... . .X.X.X.] | .| .X.| ..eXSXDXSXDXDXSXDXSXSXDXDXSXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXKXGXDXDXKXDXLXKXDXDXLXGXDXLXDXLXDXLXKXLXDXDXLXKXGXKXLXKXLXLXKXLXKXLXLXLXKXLXKXLXLXLXLXLXLXLXIXLXLXLXLXLXIXLXLXLXLXLXLXLXLXLXLX",
|
||||
"gXfXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXhXgXhXgXhXgXgXgXgXhXgXgXhXgXzXhXgXhXhXgXhXgXhXgXhXhXgXhXhXhXhXgXgXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXCXkXCXhXkXhXhXhXCXCXCXkXCXCXhXCXSXhXkXCXSXkXCXhXhXV.) | | X. .| X. .| | | .X. .w. ....................................... . . .| .| | . . .X. .X.] ] :.4XDXSXDXSXSXSXDXDXDXDXSXDXDXSXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXKXDXDXKXGXDXDXLXDXLXLXDXKXDXLXKXDXLXLXDXDXLXLXLXDXLXLXLXLXLXKXLXLXLXKXLXLXLXLXLXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXPXLX",
|
||||
"gXgXgXgXgXgXfXgXgXgXgXgXgXgXgXgXgXgXhXgXgXgXgXgXgXgXgXgXhXgXhXgXgXhXgXhXgXhXhXgXgXhXhXhXgXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXCXCXhXhXhXhXCXCXSXhXkXhXhXSXhXCXhXSXhXSXhXCXSXhXCXCXZXV.) ] [ | | .| .| .| | .| | . ... .w....................... . . . . .| .| | .| .| X. .] X.] ] :.5XSXDXSXDXAXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXKXDXDXDXDXDXKXDXKXDXKXDXLXDXDXDXLXDXKXKXKXDXDXDXKXKXKXKXKXKXKXLXKXKXDXLXKXLXKXLXDXLXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXLXPXLX",
|
||||
"gXaXgXgXgXgXgXgXfXgXgXgXgXhXhXgXgXgXgXhXgXgXgXgXhXgXgXhXgXgXhXhXgXhXgXhXhXgXhXhXhXgXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXCXhXhXhXCXSXhXhXSXhXCXhXSXhXhXhXhXCXkXhXSXhXSXhXSXhXSXSXSXhXdXV.] ] ] | | | . .| | | .| | | X. .| .X......... .....X.......| X. .X.| | | | . .| X. . .] | ] ] ] :.4XSXDXSXDXSXDXDXDXDXDXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXDXAXDXDXGXDXGXKXDXDXKXLXLXDXDXLXGXKXKXLXLXKXDXLXLXDXLXGXLXKXKXLXDXKXLXKXKXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXLXPXLXLXLXLXPX",
|
||||
"gXfXgXgXgXgXgXgXhXgXgXgXgXgXgXgXdXhXgXgXhXgXhXhXhXgXgXhXgXhXgXgXhXgXhXgXgXhXgXhXgXhXhXhXgXgXhXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXCXhXhXhXhXSXhXhXhXhXhXSXSXCXkXCXSXkXSXhXSXhXSXCXhXhXSXdXV.) ] ] ] ] ] | | . .| | X. .X.| | | | | | .| | | | ..| X.X.| X.| | | | . .| | | .X.| | ] ] ] | ] ..5XDXSXDXDXDXDXFXSXSXSXDXSXDXDXDXSXDXDXDXDXDXSXKXDXDXDXDXDXDXKXGXDXDXDXKXDXLXDXKXKXKXDXKXKXDXLXDXDXLXDXKXKXDXLXDXKXLXLXLXDXLXDXKXKXLXKXLXLXLXKXLXLXLXLXKXLXLXLXLXLXLXKXLXLXIXLXLXPXLXLXPXLXLXPXLXLXLXLXLXLXLXPXLXLX",
|
||||
"gXgXgXgXgXgXgXgXgXgXgXgXgXhXgXgXfXgXgXgXgXgXgXgXgXgXhXgXhXgXhXgXgXhXgXhXhXhXgXdXhXhXgXhXzXhXhXhXhXhXhXhXgXhXhXhXhXhXhXkXhXhXhXkXhXhXhXhXhXkXCXhXhXkXhXhXhXhXSXSXCXhXSXhXCXkXkXCXCXCXkXhXkXSXSXhXCXSXCXA.) ] ] ] ] ] ] ] | | . .| | | . . . .| | | | | | | | | X.] | | X... . .| | | . .| | | ] | ] ] ] ] w.rXDXSXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXGXDXDXDXKXDXLXDXKXDXDXKXLXDXDXLXLXDXDXGXLXDXLXDXKXLXLXKXLXKXKXLXLXGXLXLXGXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXPXLXLXPXLXPXLX",
|
||||
"gXgXgXgXgXgXgXgXzXgXgXgXgXgXgXgXzXgXhXgXhXgXgXgXhXgXgXhXgXhXgXhXgXhXhXzXhXgXzXhXhXgXhXhXhXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXSXhXhXCXhXhXhXCXCXhXCXkXhXCXhXhXhXSXhXSXhXCXhXSXhXSXCXSXCXhXSXSXkXSXSX/.) ] ] ] ] | | ] ] ] | | . . .| | | X. .| . .| | | ..| | . .X.X.| | | .X. .| | ] ] ] ] ] ] ] ] ' ,.SXSXDXSXDXDXDXDXSXAXDXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXKXDXDXDXKXGXDXDXKXDXDXLXDXDXKXDXGXDXLXKXKXDXKXKXKXKXKXLXLXGXLXKXLXLXKXKXLXLXLXDXLXIXKXGXLXKXLXKXLXLXKXLXLXIXLXLXLXLXLXLXLXPXLXPXLXLXLXLXLXLXLXLXPXLXLXLXPX",
|
||||
"fXdXgXgXgXgXgXgXgXgXgXgXgXhXgXgXhXgXhXgXhXgXhXdXgXhXhXhXhXgXhXhXhXgXhXdXgXhXgXdXhXhXhXhXgXhXhXdXhXkXhXzXhXhXhXhXhXhXhXkXhXhXhXhXhXhXhXhXSXhXCXhXhXkXhXhXhXkXSXhXSXhXCXhXSXhXCXCXkXSXkXkXSXSXhXSXCXCXSX4X4.' ' ] ] ] ] ] ] ] ] ] | | | . .| . .| X. . . . .X.X. .X.X. . .| .| ] | | ] ] ] ] ] [ ] ] ] ' ] V.DXDXDXDXDXSXGXAXDXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXGXDXAXDXDXDXDXDXKXKXDXDXDXKXLXKXKXLXDXKXKXKXKXDXLXGXDXLXDXLXAXLXKXKXDXLXDXLXKXLXDXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXPXLXLXLXLXPXPXLXLXLXPXLXPXLXLX",
|
||||
"gXgXgXgXgXgXgXgXgXgXdXgXdXgXgXgXgXgXgXgXgXgXgXhXhXgXgXgXgXhXhXgXgXhXhXgXhXhXzXhXhXgXhXgXhXhXhXhXhXdXhXhXhXhXhXhXhXkXhXdXhXhXhXCXCXhXhXSXhXhXhXSXSXhXZXkXCXCXhXCXhXSXkXSXhXSXSXhXhXhXSXZXhXSXkXZXCXSXSXCXH.( ' ] ] ] ] ] ] | | ] ] ] ] | | | | | | . .| X.X. .X.X. .X.X.| | | | ] ] ] ] ] | | ] ] ] ] ' } $.iXSXAXSXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXAXDXDXDXDXDXDXDXDXGXDXKXDXKXKXDXDXAXKXDXDXDXDXDXDXKXKXLXAXGXKXKXKXLXDXGXKXLXLXLXLXLXKXKXLXKXKXLXLXKXLXLXKXDXLXIXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXLXLXLXLXIXLXLXPXLXPXLXPXLXLXPX",
|
||||
"gXgXgXgXhXzXgXgXgXhXhXzXgXgXgXhXzXgXhXgXhXgXhXgXgXgXgXhXhXgXgXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXCXhXkXhXhXkXhXhXhXCXSXhXCXhXhXkXkXkXSXhXSXhXCXSXCXSXSXkXhXSXSXkXCXCXCXSXjXp.( ' ' ] ] ] ] ] ] | | ] ] ] ] ] ] | | | | | | | | | X.X.] ] ] ] ] ] ] | [ ] ] ] ] ] ] ' ] ' ' ^.DXDXDXSXDXSXSXDXDXSXAXGXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXKXDXDXDXDXKXDXLXGXDXLXKXDXLXDXLXGXGXGXKXKXKXKXKXLXKXLXKXKXDXKXLXLXKXLXLXLXKXLXDXLXLXLXLXLXLXKXLXLXLXLXIXLXKXLXLXLXLXPXLXLXLXIXPXLXLXLXPXLXLXLXLXLXIXPXPXLX",
|
||||
"gXgXgXgXgXgXgXgXgXgXgXgXgXgXgXgXhXfXdXhXgXhXgXhXgXhXhXgXgXhXhXgXhXgXhXhXhXgXgXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXkXhXkXhXhXhXCXhXkXZXCXkXhXhXkXSXSXhXSXZXhXSXCXCXkXhXSXCXhXSXSXkXSXSXCXSXCXCXCX5X4.' ' ' ] ' ' ] ] ] ] ] ] | ] | ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] | ] | ] ] ] ] ] ' ] ] ' ' } ' V.DXDXSXDXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXKXGXDXKXDXDXKXDXKXGXDXLXDXKXLXDXKXKXKXDXKXLXKXKXLXDXLXKXLXKXLXLXGXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXPXLXLXLXLXLXLXPXLXLXLXPXLXLXLXPXPXLXLXLXPXLX",
|
||||
"gXgXgXgXgXgXgXgXgXgXgXgXgXgXhXgXhXgXhXgXhXgXhXgXhXgXhXhXgXhXhXhXhXgXhXhXgXhXhXgXCXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXCXhXhXhXhXhXCXCXkXCXhXhXhXSXhXSXkXSXhXSXSXCXhXCXSXhXSXhXSXSXkXCXkXCXSXSXkXCXSXCXSXSXCXSXSXeXv.' ( ' ' ' ' ] ' ' ] ] ] | ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ' ' ' ' ' ( ,.~.DXDXSXSXGXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXKXDXDXKXDXGXKXDXKXDXDXDXLXDXLXLXDXDXGXDXLXLXDXLXKXLXDXLXKXLXKXKXKXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXPXLXLXLXLXPXLXLXLXPXLXLXLXPXIXLXLX",
|
||||
"gXgXgXgXgXgXgXhXhXgXhXgXgXhXgXgXgXgXgXgXhXgXgXhXgXhXhXgXhXgXgXhXhXhXgXhXhXhXhXhXgXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXCXhXSXkXhXhXhXhXkXCXkXhXCXhXhXhXSXhXhXkXSXCXhXSXhXCXkXCXSXCXSXSXhXSXCXCXSXSXkXSXSXSXhXSXdX~.k.,.[ [ [ [ [ [ | ] ] ] ] | ] | ] ] | | ] ] | ] ] X.] ] ] ] ] ] [ [ [ [ [ [ w.7.v.1XDXSXDXDXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXDXKXDXDXDXLXDXLXDXDXDXKXKXDXLXKXKXDXKXDXKXKXLXKXLXGXLXDXLXLXLXKXLXLXKXLXLXLXKXKXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXLXPXLXPXLXLXPXLXIXPXPXLXLXPXPXPX",
|
||||
"gXgXgXhXgXhXgXgXgXgXgXgXgXgXhXgXhXdXhXgXhXgXhXgXhXgXgXhXgXhXgXhXhXgXhXgXhXgXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXkXSXhXCXhXhXSXhXSXCXSXhXSXSXSXhXhXSXhXSXkXSXSXCXkXSXSXkXSXSXSXkXSXSXZX*X_._._._._.G.4.] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] [ v._._._._._..XrXGXSXDXSXDXDXDXDXDXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXKXDXDXLXDXDXDXDXLXLXDXKXLXDXKXLXGXKXKXLXDXKXDXKXKXLXDXDXLXLXDXKXLXKXLXKXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXPXLXPXLXLXLXPXPXLXLXPXPXPXPXLXLXLX",
|
||||
"gXgXgXgXgXgXhXgXgXhXgXhXhXgXhXgXgXhXgXhXgXhXgXhXgXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXkXhXhXhXhXhXhXSXhXhXSXhXhXhXSXCXSXhXCXhXhXSXSXhXCXSXhXCXhXSXSXhXhXSXSXSXSXSXSXCXhXSXSXSXSXSXCXCXSXSXSXSXSXSXSXFXSXSXDXSXdXa.( ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ..XGXDXDXDXDXGXDXDXSXDXDXDXSXSXDXDXSXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXLXDXKXDXLXLXDXDXDXKXDXLXDXKXKXGXKXKXLXKXLXKXLXLXKXGXLXLXLXLXLXLXKXLXKXKXLXLXLXLXLXLXIXLXLXLXLXLXLXLXPXLXLXLXLXLXPXLXLXPXLXLXLXLXPXLXPXLXLXLXLXLXLXLXPXLXPX",
|
||||
"gXgXgXhXgXgXgXhXgXgXgXhXhXgXhXgXgXgXhXgXgXhXgXgXhXhXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXhXhXhXCXhXhXkXhXhXhXSXSXhXhXCXCXCXhXSXSXhXSXhXCXhXSXkXCXSXhXSXkXSXSXkXCXCXhXSXSXSXSXSXSXkXkXSXSXSXSXSXSXSXSXSXSXSXSXSXrXp.' ' ' ' ' ' ' ' ' ' ' ) ' ' ' ' ' ' ' ' ' ) [ .XCXDXDXSXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXAXLXDXKXDXDXKXGXKXDXKXDXKXDXLXDXDXDXLXDXLXLXDXKXDXKXDXKXKXLXDXLXKXLXDXLXLXLXLXKXKXLXDXLXLXKXLXLXLXKXLXLXLXLXLXLXLXLXPXLXLXLXLXPXLXLXLXPXLXLXPXLXPXLXPXLXPXLXLXLXPXPXLXPXLXPXLXPXPX",
|
||||
"gXhXgXgXgXgXgXgXhXhXgXgXgXgXhXgXhXgXgXhXhXgXhXhXhXgXgXhXhXhXgXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXCXhXCXhXCXhXSXhXSXCXhXSXhXCXhXCXkXSXhXkXSXhXhXCXSXSXCXkXSXSXCXSXkXSXSXkXSXSXkXSXCXhXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXuXp.' ' ' ' ' } ' ' ' ' ' ' ) ' ' ' ) ' ' ' ' ' [ _.DXSXSXDXDXDXDXSXSXDXSXDXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXLXKXDXLXDXDXKXLXKXKXLXKXGXKXLXLXDXKXLXLXDXKXDXLXKXLXLXLXLXLXLXKXLXLXLXLXLXIXLXLXLXIXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXLXPXLXPXLXPXLXPXLXLXLXPXLXLX",
|
||||
"gXgXhXhXzXhXgXhXgXgXgXhXgXhXgXhXhXhXgXhXhXhXhXhXgXgXhXhXgXhXgXhXhXhXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXSXhXhXSXhXhXhXhXSXhXkXhXCXCXhXSXhXSXCXCXhXSXkXhXhXSXkXCXSXkXCXSXSXSXSXkXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXrXk.} ' ' ' } ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' [ (.DXSXDXDXDXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXDXLXDXDXDXKXDXKXGXKXKXGXKXGXKXDXKXLXDXGXKXLXKXKXLXLXDXKXLXKXKXLXKXLXLXKXLXKXLXLXGXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXPXLXPXLXPXLXLXLXPXLXPXLXPXLXLXPXLXIXPXPX",
|
||||
"gXgXgXgXhXgXgXgXgXhXhXgXhXgXgXhXgXhXgXhXgXgXgXhXhXhXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXSXCXhXSXhXhXhXCXhXhXSXSXhXhXSXhXSXSXkXSXkXSXkXSXkXSXkXSXSXSXkXSXSXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXFXSXSXSXDXSXuXk.( } ' ' } } ' ' ' ' ' ' ' ' ' ' ' ' ' ' ) ( [ ).DXDXGXSXDXDXDXGXDXSXDXGXDXDXDXDXDXDXDXDXGXDXDXLXDXDXGXDXDXDXGXDXDXKXGXDXKXLXGXLXDXKXGXKXDXKXDXLXLXKXDXLXKXLXDXKXKXKXKXKXLXKXKXGXLXLXLXKXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXLXLXLXPXLXLXLXLXPXPXLXLXPXIXLXPXLXPXLXPXPXPXLX",
|
||||
"hXgXgXgXgXhXgXhXgXhXgXgXgXgXhXgXhXgXzXhXdXgXgXhXgXhXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXkXhXCXhXhXhXhXhXkXhXhXhXhXkXCXhXCXCXhXCXkXhXeXeXeXeXeXeXeXeXeXeX6XeXeX4XeXeX4XeXeXeXeX6XeXtXtXtXtXeXeX6XeXtXeX6XtXrXtXtXtXrXtXiX=X6.( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ] H.rXrXrXrXrXrXrX6XiX6XrXrXrXrXrXrXrXxXrXrXuXrXuXuXiXuX6XiXuXuXiXrXuXuXuXuXrXuXuXuXuXrXxXDXLXGXKXDXLXLXKXLXDXDXLXLXLXDXLXKXLXLXKXLXKXKXLXKXLXKXLXLXKXLXLXLXLXLXPXLXIXLXLXLXLXPXLXLXLXPXLXPXLXLXPXPXLXLXLXLXPXLXPXLXLXPXPXLXPXLXPXLXIXLXPXPXLXPX",
|
||||
"gXgXhXgXhXgXgXhXhXgXhXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXCXhXCXhXSXhXhXSXSXCXhXCXSXhXhXSXdX=XA.i.6.6.6.6.6.-.6.6.6.6.6.=.6.6.6.6.6.6.6.6.7.6.6.6.7.6.6.6.7.6.6.6.7.6.6.6.6.6.6.6.6.4.{ ^ ^ / ( ^ ( ( ^ ( ( ^ ( ^ ^ ( ( ( / ^ ^ ( / ( $.7.i.6.6.6.7.6.7.7.7.7.6.6.7.7.7.6.6.6.7.7.7.7.7.7.7.7.7.7.7.7.7.6.7.6.7.7.7.7.7.7.7.7.!.-XAXLXDXLXDXKXKXLXKXLXDXKXLXLXDXDXLXLXKXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXLXPXLXPXLXLXLXPXLXPXLXPXPXLXLXPXLXPX",
|
||||
"gXgXgXhXgXgXgXgXgXhXgXhXgXhXhXgXhXgXhXhXgXgXhXzXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXSXhXSXhXCXhXhXhXhXSXhXhXCXSX4Xn.' ^ ] w.$.1.1.1.:.1.1.:.:.1.1.,.1.1.1.1.1.$.$.:.1.1.1.1.1.1.1.$.1.1.1.,.1.1.1.:.1.1.1.$.1.1.,.,.,.1.,.,.1.,.1.1.1.1.,.,.,.,.1.1.,.,.,.,.,.1.1.1.1.:.1.,.1.1.1.1.1.1.1.1.,.1.1.:.:.1.,.1.$.:.1.1.1.$.:.,.:.1.1.1.1.1.1.1.1.1.1.w.] / / V.5XLXDXLXKXKXDXLXDXKXLXKXLXDXLXKXKXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXPXLXPXLXLXPXLXLXLXLXPXLXPXPXLXLXLXPXLXPXPXPXPXPXLX",
|
||||
"gXhXgXhXgXhXhXgXhXgXhXgXhXhXgXhXgXhXgXgXhXhXhXgXhXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXSXhXhXkXhXhXhXSXhXhXhXhXhXCXSXhXkXhXSXhXSX<X$./ [ 2.9.0.a.a.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.a.a.x.x.a.x.x.x.x.x.x.a.a.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.x.a.x.0.9.,.[ / ,.3XGXLXGXLXKXKXLXLXDXLXLXLXLXLXKXLXKXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXIXPXLXLXLXLXLXPXLXPXLXPXPXLXPXLXPXLXPXPXLXPXLXPXLXLXPXPX",
|
||||
"gXgXgXhXhXgXgXhXgXhXhXgXgXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXkXhXhXhXhXkXhXhXhXCXhXSXhXhXhXSXSXhXhXSXhXhXkXeX,.( w.9.0.1.] ( ~ ~ ^ ~ / / / ~ / / ~ / / / / / / / / / / / ~ / / / / / / / / / ~ / / / / / / ~ ~ / / / ~ / ~ / / / / / / / / / / / / / / ~ / / / / / / / ~ ~ / / / / ~ ~ / / / / ^ ~ ~ / / / / / / / / / ~ ~ / / / / ~ / / / / / ( ] >.0.q.>.^ $.vXLXKXLXDXLXKXKXLXKXKXLXKXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXPXLXLXLXPXLXLXLXPXLXPXLXPXLXLXPXLXLXLXIXLXPXLXLXLXPXPXLXLXIXLXPXPXPXPXLX",
|
||||
"gXhXhXgXgXhXhXgXgXgXhXgXhXgXgXhXhXhXgXhXhXgXhXhXzXhXhXgXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXhXhXCXkXCXhXCXhXCXhXSXhXhXhXSXhXSXSXSXn./ >.a.>.( / ^ ( ( ( ( ^ ( ( ( ( ( ( ( ( ( ( ( ( ^ ( ( ( ( ( ( ^ ^ ^ ( ( ( ( ( ( ( ( ( ^ ( ^ ( ( ( ( ( ( ( ( ( ( ( ^ ( ( ' ^ ' ( ' ( ( ( ( ' ^ ' ^ ( ( ( ( ( ( ^ ^ ( ( ( ( ( ( ( ^ ( ( ( ( ^ ( ( ( ( ( ( ( ( ( ^ ^ ( ( ( ( ( ( ( ^ ( ^ ^ ~ 1.l.:./ V.AXLXDXLXKXLXLXKXLXKXLXDXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXKXPXLXIXLXLXLXLXPXLXLXLXPXPXLXLXLXPXLXPXLXLXPXPXLXPXLXLXPXPXLXLXPXPXPXPXPXLXPXPXPX",
|
||||
"hXgXgXhXgXgXgXhXhXhXhXhXgXhXhXgXhXgXhXgXgXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXCXCXhXhXkXhXhXhXhXhXSXhXkXSXhXSXhXkXhXkX=Xo.] q.w.^ ^ ( ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ( ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ~ ( ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ( ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ | a.] ^ rXLXKXLXLXGXKXKXKXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXIXLXPXLXLXLXPXLXPXPXLXPXLXPXPXPXLXPXPXLXLXPXPXLXLXPXLXPX",
|
||||
"gXgXhXgXhXhXgXgXhXgXgXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXkXhXhXCXhXhXSXSXhXhXSXhXhXSXhXCXkXkXSXA.( 5.w./ ^ ( ^ ^ ( ( ^ ( ( ( ( ( ( ( ( ( ^ ( ` ( ( ( ( ( ` ( ( ( ( ( ( ( ^ ` ( ( ( ( ( ( ( ^ ( ( ( ( ( ( ( ( ( ( ( ( ( ( ^ ( ` ( ' ( ( ^ ^ ' ^ ' ^ ( ' ^ ( ^ ^ ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ` ( ( ( ( ( ( ( ( ( ( ( ( ` ( ( ( ^ ( ( ( ^ ^ ^ 1.2.' ~.DXLXLXDXLXKXLXLXLXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXPXLXPXLXLXLXLXLXLXLXLXPXPXLXLXPXLXLXPXLXPXLXPXLXPXLXPXPXLXPXLXPXPXPXLXPX",
|
||||
"gXhXgXgXhXhXgXhXgXhXgXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXCXhXhXhXCXhXkXhXhXhXkXhXSXhXSXkXhXSXhXCXCXSXhXhXSXk.] :.] ^ ( ( ( ^ ^ ( ^ ( ^ ^ ^ ( ^ ( ' ^ ^ ^ ( ^ ^ ^ ( ^ ( ^ ^ ^ ( ^ ( ^ ` ^ ( ^ ^ ( ^ ( ^ ( ^ ( ^ ( ^ ( ^ ^ ( ^ ^ ( ( ( ( ^ ^ ( ^ ( ^ ( ( ^ ( ^ ^ ( ^ ^ ^ ^ ( ^ ` ^ ( ^ ^ ( ^ ( ^ ( ^ ( ^ ( ^ ^ ^ ^ ( ^ ( ^ ^ ^ ( ^ ( ^ ( ^ ( ^ ^ ( ^ ^ ^ ^ ( ( ^ 9.] j.AXLXKXLXKXKXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXIXPXLXLXLXLXPXLXPXIXLXPXLXIXLXPXPXPXLXPXLXPXPXPXLXPXLXPXPX",
|
||||
"hXgXhXhXgXhXhXgXhXhXhXgXhXhXhXhXgXhXhXgXhXgXgXhXhXhXhXhXhXzXhXhXhXhXhXhXkXhXhXhXhXCXhXCXhXCXSXhXhXCXhXhXhXhXCXhXCXkXSXhXCXSXdX6.:.[ ~ ~ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ :.] $.VXLXLXLXLXLXLXLXLXKXLXKXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXPXPXLXPXLXPXLXLXPXLXLXLXPXLXLXPXPXLXLXPXLXPXPXLXPXLXPXPXLXPXLXLXPXLXPXLXPXPXPXLXPX",
|
||||
"gXhXgXgXhXgXgXhXhXgXhXgXgXhXgXgXhXgXhXhXhXhXzXhXhXgXhXhXhXhXkXhXhXhXhXhXhXhXhXCXkXhXhXhXCXhXCXCXSXhXSXSXCXCXCXCXhXSXSXCXSXSXjX6. .] ~ ( ( ^ ^ ( ( ^ ^ ( ( ^ ` ' ^ ( ^ ( ( ( ^ ' ^ ( ( ( ^ ( ^ ( ( ^ ( ^ ( ( ( ^ ( ^ ^ ` ^ ^ ( ( ^ ( ^ ( ( ^ ( ^ ( ^ ^ ' ( ( ( ^ ( ^ ( ^ ^ ^ ^ ( ( ^ ( ( ( ^ ^ ( ( ( ( ^ ( ^ ( ^ ^ ( ^ ` ^ ( ( ^ ` ( ^ ( ^ ( ^ ( ( ^ ^ ( ^ ^ ( ( ( ^ ( ` ( ^ ^ ^ ^ ) [ 4.VXLXKXKXKXGXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXLXLXPXPXLXPXLXLXPXPXLXPXLXLXPXLXPXPXLXPXLXLXPXLXPXLXPXPXPXPXPXPXPXPXPX",
|
||||
"hXgXhXgXhXhXhXgXhXgXhXhXhXhXhXhXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXhXCXhXhXhXhXCXhXkXhXkXhXhXkXhXhXhXhXkXkXCXkXhXkXhXSXjX-.' ( ~ ( ^ ^ ^ ^ ^ ^ ^ ( ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ' 4.VXLXLXKXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXPXLXLXLXPXLXLXLXLXPXPXLXPXLXLXPXPXPXLXPXPXPXPXPXLXPXLXPXLXPXLXPX",
|
||||
"hXgXhXhXgXgXgXhXgXhXhXgXgXhXhXgXhXgXhXhXhXhXhXhXhXhXkXhXhXhXhXhXhXhXhXhXkXhXhXhXhXhXSXSXhXCXkXhXhXhXhXSXSXhXSXhXSXhXCXCXCXCXjX6.^ ^ ^ ~ ~ ~ ^ ~ ~ ^ ~ ~ ^ ~ ~ ^ ^ ~ ~ ~ ~ ~ ~ ^ ~ ~ ^ ~ ^ ~ ~ ~ ~ ~ ~ ^ ~ ~ ^ ~ ~ ~ ^ ^ ^ ~ ~ ~ ^ ~ ~ ~ ~ ^ ~ ~ ^ ~ ~ ~ ~ ~ ^ ~ ~ ^ ~ ^ ~ ^ ~ ~ ~ ~ ~ ^ ~ ^ ~ ~ ~ ^ ~ ~ ^ ~ ~ ~ ~ ^ ^ ~ ^ ~ ^ ~ ~ ^ ~ ~ ~ ~ ~ ^ ^ ~ ~ ~ ^ ~ ~ ~ ~ ~ ~ ^ ~ ~ ^ ^ ~ ~ ( 4.VXLXLXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXIXLXLXIXPXPXLXPXLXLXPXLXPXLXLXLXPXPXLXLXLXPXLXPXLXLXPXLXLXLXPXPXPXLXPXPXLXPXPXPXPXPXLXPXPX",
|
||||
"gXhXgXgXhXhXgXhXhXgXhXhXhXdXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXCXCXhXkXhXCXkXCXhXSXhXhXkXCXhXSXSXSXhXCXhXSXhXSXhXSXSXhXCXCXjX-.~ ~ ^ ^ ^ ^ ^ ^ ~ ~ ( ~ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ~ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ~ ^ ^ ^ ~ ^ ^ ^ ~ ^ ^ ~ ^ ^ ^ ^ ~ ^ ^ ~ ;.VXLXLXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXLXLXLXPXPXLXPXLXPXPXLXPXPXPXLXLXPXLXPXPXLXPXLXPXLXPXPXPXPX",
|
||||
"hXgXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXhXkXhXhXhXhXhXCXhXhXkXhXCXCXhXhXhXhXSXCXhXkXCXhXCXhXSXCXSXhXCXCXCXCXCXjX6.~ ^ ^ ^ ~ ~ ^ ^ ` ~ ^ ^ ^ ^ ( ^ ^ ~ ^ ^ ^ ^ ~ ~ ~ ~ ^ ~ ~ ^ ~ ~ ^ ~ ~ ~ ^ ~ ~ ^ ~ ^ ^ ~ ~ ^ ~ ^ ~ ^ ~ ^ ~ ~ ^ ~ ~ ^ ~ ~ ^ ~ ~ ~ ~ ~ ^ ~ ^ ~ ^ ^ ^ ~ ^ ~ ^ ^ ~ ~ ^ ^ ~ ^ ~ ^ ~ ^ ~ ^ ^ ~ ^ ^ ~ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ` ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 4.VXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXLXPXLXLXLXPXLXPXPXPXLXLXPXPXLXLXPXLXPXLXPXPXLXPXLXLXPXLXPXLXLXPXPXPXPXPXPXPXLXPXPXPXPXLXPX",
|
||||
"gXhXhXgXhXhXhXgXhXgXhXhXgXhXhXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXSXhXhXCXkXSXhXhXhXSXCXhXCXCXkXhXSXhXSXCXCXSXhXSXiX-.~ ^ ^ ^ ^ ` ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ ^ ^ ~ { ;.i.p.k.6.i.i.i.i.i.i.i.i.i.i.i.i.i.i.6.6.k.6.k.7.i.i.i.i.i.i.i.i.i.k.i.i.p.i.i.p.i.i.p.i.i.k.i.i.i.7.p.i.i.k.7.k.7.k.i.i.i.i.i.i.i.p.i.i.i.i.i.i.i.i.7.k.7.7.k.,.{ ~ ~ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ~ ^ ^ -.VXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXLXLXLXIXLXPXLXLXLXPXLXPXLXPXLXPXLXPXPXPXPXIXLXPXPXPXLXLXPXLXPXPXPXPXPXLXPXPXPX",
|
||||
"hXgXhXgXhXhXgXhXgXhXgXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXkXSXhXSXhXhXSXhXhXSXhXSXhXhXhXSXhXhXCXkXCXkXhXCXSXSXCXCXSXCXSXSXjX6.~ ~ ~ ^ ^ ^ ~ ~ ^ ~ ~ ^ ~ ~ ~ ^ ^ ~ { p..XjXGXGXGXGXFXDXGXGXGXGXFXFXGXGXGXGXGXGXGXGXFXLXGXGXGXGXGXGXGXGXGXGXGXFXLXFXLXGXGXGXGXGXLXGXGXGXGXGXGXLXLXLXGXLXGXLXLXLXLXLXLXLXGXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXbX).k.{ ! ^ ~ ~ ^ ~ ^ ^ ~ ^ ~ ^ ~ ^ ~ ^ ~ ^ ;.VXPXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXIXLXLXPXLXLXLXLXLXPXLXLXLXPXLXPXLXPXLXLXPXLXLXPXLXLXPXIXPXPXLXPXPXPXPXPXPXPXPXLXLXPXPXPXPXLX",
|
||||
"hXhXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXkXhXhXCXhXhXhXhXhXhXCXhXhXkXhXCXhXhXkXSXhXkXCXhXSXhXCXSXCXkXhXkXCXhXSXCXCXjX6.~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ o.J.SXDXSXSXCXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXDXSXSXDXSXSXSXDXSXSXDXDXDXSXDXDXDXDXDXDXDXDXDXGXDXDXGXDXDXGXDXDXGXDXDXGXDXDXGXDXDXGXDXGXDXGXGXGXKXGXGXLXDXFXLXGXGXLXDXGXLXGXGXLXLX/.$.~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 4.VXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXPXLXLXPXPXLXLXPXLXPXLXPXLXLXPXPXPXPXPXPXPXLXPXPXPXLXLXLXLXPXLXPXPXPXPXPXPXPXPX",
|
||||
"gXhXgXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXCXhXCXhXhXhXSXhXhXCXSXhXSXkXhXSXhXhXSXhXSXhXCXCXSXSXSXSXCXCXjX-.~ ^ ~ ~ ~ ~ ^ ~ ~ ^ ~ ~ ~ / ~ / { <XDXSXSXDXSXSXSXSXSXSXSXSXDXSXDXSXDXSXSXDXDXSXSXDXSXDXDXDXDXSXSXSXSXDXSXDXDXDXDXSXDXSXDXSXSXDXDXDXDXDXDXSXDXGXDXDXDXDXGXDXDXDXGXDXDXGXDXKXKXDXAXDXKXDXDXDXGXKXDXLXLXDXLXKXKXDXLX5X{ ~ ^ ~ ~ ~ ~ ^ ~ ~ ^ ~ ^ ~ ~ ~ ~ ;.VXLXLXLXIXLXLXLXLXLXLXLXLXLXLXIXLXLXLXLXPXLXPXLXLXLXPXLXLXLXPXLXLXPXLXPXLXLXLXPXPXPXPXPXPXLXLXPXLXLXPXPXPXPXPXPXPXIXPXPXPXPXPXPXLXPXPXPX",
|
||||
"hXhXgXhXhXhXgXhXhXhXgXhXhXhXhXhXhXhXhXhXkXhXhXhXhXhXCXhXhXCXhXhXkXhXhXSXSXhXhXCXSXhXCXkXhXCXCXhXSXSXCXSXhXkXSXCXhXhXSXhXCXCXjX6.~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ^ J.DXSXSXSXSXSXSXSXSXDXSXAXSXSXSXSXSXSXDXSXDXSXDXDXSXDXSXSXSXDXDXDXDXDXSXDXSXDXSXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXGXGXDXLXLXLXDXKXDXLXDXLXKXGXKXLXLXLX-X^ ~ ~ ~ ^ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ,.VXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXLXLXLXPXLXIXLXLXPXLXLXPXLXLXPXPXPXPXLXLXLXPXLXLXPXPXLXPXPXPXLXPXLXPXPXPXPXPXPXPXLXPXPXPXPXPXPX",
|
||||
"gXhXgXhXhXgXgXhXhXhXhXgXhXhXhXhXhXhXhXhXhXhXkXhXhXCXhXhXhXCXhXhXhXCXhXSXhXkXhXhXhXSXSXhXkXCXkXCXCXSXhXSXhXSXCXCXSXSXSXSXSXSXdX-.! ! b b ! ! ! ! ! ! b ! ! ! ! k.CXSXSXSXSXDXSXSXDXSXSXDXSXSXSXDXDXSXSXSXDXSXSXSXSXSXDXSXDXSXSXDXDXSXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXLXDXKXDXKXKXDXKXDXKXDXLXDXLXKXDXLXDXKXKXGXKXGXLXLX6.! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ;.AXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXLXLXLXLXLXLXPXLXPXLXLXLXPXLXLXLXLXLXPXLXLXPXPXLXPXPXPXPXLXPXPXPXPXPXLXPXPXPXLXPXLXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXZXhXhXhXhXhXhXhXhXSXkXhXSXhXCXhXhXhXhXCXSXhXkXhXhXSXhXCXSXhXCXhXSXCXkXCXCXjXeX7X2X2X4X4X;X4.^ ' ' ' ` ' ( ' ` ' ( ' ( ( ( H.uX2X2X4XtXZXSXSXSXSXSXDXSXDXSXDXSXDXDXSXDXSXDXSXDXDXSXDXDXDXDXSXDXDXDXDXDXDXSXDXDXSXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXDXDXDXDXKXKXDXLXDXKXDXKXDXLXDXDXLXDXLXVXuX0X0X0X5X9X^.' ( ( ` ' ' ` ' ` ' ` ' ( ' ( ,.0X0X0X0X0XuXmXLXKXPXLXPXLXPXLXLXPXLXLXLXLXLXLXPXPXPXLXLXPXLXLXPXLXPXPXPXPXPXPXLXPXPXPXLXPXLXLXPXPXPXLXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXgXhXhXhXhXhXhXhXhXkXhXhXhXhXhXhXhXhXCXSXhXhXhXhXCXhXhXCXhXkXSXCXSXhXSXCXhXCXhXCXCXSXhXSXSXhXkXCXdX=Xv.<.2.2.2.2.8.8.q.x.l.l.l.Y.Y.l.Y.Y.Y.l.0.x.0.0.q.2.<.2.3.9.~.rXCXSXSXDXSXSXAXSXSXSXSXDXSXSXSXDXSXSXDXSXSXSXSXGXDXSXDXSXSXSXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXGXAXDXDXDXDXDXDXDXDXDXKXDXGXDXKXKXDXKXGXDXLXKXKXDXLXDXLXKXKXLXuX!.a.>.2.3.2.2.q.0.0.x.l.l.l.Y.Y.Y.Y.Y.l.0.0.0.9.8.<.2.2.<.2.T.qXHXLXLXLXLXLXIXLXLXLXLXPXLXPXLXPXLXLXLXPXPXLXPXLXPXLXLXIXPXLXPXPXPXLXLXPXPXPXLXPXLXPXLXPXPXLXPXLXPXPXPXLXPXPXPXPXPXPXPXPX",
|
||||
"gXhXgXhXhXhXhXhXgXhXhXhXdXzXhXhXhXhXhXhXkXhXhXhXhXhXCXhXCXhXSXhXhXCXCXhXCXhXCXhXhXSXSXkXSXkXhXSXkXhXSXSXZX!.<.<.a.U.U.U.v.T.T.T.T.T.T.T.T.R.T.R.T.T.T.T.T.T.T.U.U.T.U.z.q.:.a.2XDXSXSXSXSXDXSXSXDXSXSXDXDXSXDXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXGXDXDXDXGXDXKXDXKXDXDXKXDXDXDXLXDXKXDXDXKXDXDXGXLXDXLXDXKXKX5Xq.3.q.z.U.T.T.Y.T.T.T.T.T.T.T.T.T.T.T.T.T.T.T.T.T.T.U.U.T.z.9.<.>.[.HXLXLXPXLXLXPXLXLXPXLXLXPXLXLXLXPXLXPXLXLXIXPXLXLXPXPXLXPXLXIXPXPXLXPXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPX",
|
||||
"hXgXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXhXSXhXCXhXhXhXhXhXkXhXhXhXCXhXkXhXkXCXhXCXCXCXSXhXkXCXCXkXSXCXkXSXkXSX^.3.q.T.E.T.R.R.R.T.T.T.R.R.R.R.R.R.R.T.R.R.R.R.R.T.T.T.R.T.T.E.R.0.>.9.5XFXSXDXSXSXDXSXDXSXSXDXDXSXDXSXDXSXSXDXDXSXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXKXDXDXDXKXDXKXDXKXKXDXLXKXDXLXDXKXKXDXLXKXLXuX2.2.U.Q.R.T.T.T.R.R.R.R.T.R.R.R.R.R.R.R.T.T.R.R.R.T.R.T.T.T.E.E.U.2.>.'.LXLXPXLXLXPXLXLXLXPXLXLXPXPXLXLXLXPXIXLXLXPXLXPXLXPXPXLXPXPXLXIXLXPXPXPXLXPXLXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXhXhXCXhXhXhXhXhXhXhXhXhXkXhXhXSXhXhXkXSXhXhXhXSXhXhXSXkXkXhXSXSXhXkXkXSXhXhXSXkXSX1X5.q.R.T.x.8.<.3.2.8.8.8.8.q.q.q.9.9.9.9.9.9.9.8.8.8.8.8.<.<.2.0.U.!.l...V.ZXDXSXDXDXSXSXSXDXSXSXSXDXSXDXSXDXDXDXSXDXDXDXDXDXSXDXDXSXDXSXDXSXDXDXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXKXDXKXKXDXLXDXDXKXDXKXKXDXKXLXDXLXDXLXKXa.3.T.E.a.q.2.2.<.8.8.8.8.8.q.9.9.9.9.9.9.0.0.q.8.8.2.8.8.<.2.q.Y.R.T.<.>.mXLXLXLXLXLXLXPXLXLXLXIXLXLXLXPXPXLXLXPXPXLXIXPXPXLXLXPXLXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXgXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXhXCXSXhXCXhXhXCXCXkXSXhXSXhXCXCXhXSXCXCXhXSXhXSXCXSXSXSXkXCXSXv.<.T.z.<.3.2.2.2.8.8.8.q.8.0.0.0.0.0.0.0.0.0.0.q.q.q.8.q.8.8.2.<.<.l.T.q.3.;XFXSXSXDXAXSXDXSXSXDXDXSXDXSXDXSXDXSXDXDXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXLXDXKXDXDXDXDXDXGXKXDXDXKXDXKXDXDXDXLXDXKXKXLXGXuX>.a.T.8.>.2.2.2.2.8.8.8.q.8.0.0.0.0.0.0.0.0.0.9.q.q.8.8.8.2.2.2.>.8.T.l.<.[.KXPXPXLXLXPXLXPXLXLXPXPXLXPXLXLXPXPXLXLXPXLXPXLXPXPXLXPXPXPXLXPXPXLXPXPXLXLXPXPXPXPXPXPXPXLXPXPXPXPXLXPXPXPXPXPXPX",
|
||||
"hXhXhXgXhXhXhXhXhXhXhXhXhXhXhXhXSXhXhXCXhXhXhXhXhXSXCXhXCXhXhXkXCXCXCXhXkXhXSXhXSXhXSXhXSXhXCXCXCXSXZXx.x.l.2.1.1.2.2.2.8.8.8.8.8.9.9.9.0.0.0.0.9.9.0.9.8.8.8.8.8.<.8.<.3.>.l.z.:.~.DXDXSXSXDXSXSXDXDXDXSXDXDXSXDXDXSXDXDXSXDXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXDXDXKXLXGXKXDXDXDXLXKXGXKXDXLXKXGXKXLXLXKXDX`.2.R.2.3.<.<.2.2.2.8.8.8.8.q.9.0.9.9.0.0.9.0.0.q.q.8.8.8.2.2.2.8.<.>.q.T.<.0.MXLXLXLXPXLXLXPXLXPXLXLXPXLXPXPXLXLXPXLXPXPXLXPXLXLXPXPXLXPXPXPXLXPXPXPXPXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXkXhXhXhXCXhXhXhXhXhXhXSXhXCXhXSXhXhXSXhXSXCXhXSXhXSXhXSXkXCXhXSXhXSXCXSXhXkXSXkXeXq.Y.8.>.3.<.2.2.2.2.8.q.8.8.q.9.0.9.0.9.0.9.0.q.q.8.8.q.8.<.2.2.<.>.>.8.0.2.!.DXSXSXDXDXDXDXSXDXSXDXSXDXDXSXSXDXDXSXDXDXSXDXSXDXDXSXDXDXDXDXDXDXSXDXDXDXDXKXDXDXDXDXDXDXDXDXLXDXLXDXGXDXLXKXDXKXDXKXDXKXLXKXKXDXLXDXDXLXAX~.8.a.>.>.<.<.2.2.2.8.8.8.8.q.q.9.0.0.0.0.9.0.9.8.q.8.8.q.5.2.2.2.<.<.:.U.q.3.nXLXPXPXLXLXLXPXLXLXPXLXLXLXPXLXPXPXLXPXLXPXLXPXPXLXPXPXLXPXPXLXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXgXhXhXhXhXhXhXhXhXhXhXhXhXkXhXkXSXhXCXhXhXhXCXhXhXkXhXkXhXkXSXhXhXhXSXhXCXkXSXhXhXSXhXSXSXSXSXSX*X5.8.2.>.>.<.<.2.2.<.8.8.8.8.8.8.q.9.x.9.0.0.q.q.8.q.8.8.2.2.8.8.<.<.<.>.q.2.!.GXDXSXDXSXSXDXSXSXDXSXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXKXGXDXDXDXDXKXKXDXDXKXKXKXDXKXKXDXKXLXDXLXDXKXLXLXDX!.q.8.3.>.<.>.2.2.2.2.8.8.8.q.8.q.9.9.9.9.9.9.8.q.8.8.q.8.2.2.2.<.<.<.>.8.q.>.cXLXLXLXLXPXLXLXPXPXLXLXPXPXLXPXLXLXPXLXPXPXPXLXPXPXPXLXPXLXPXPXPXPXLXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXzXhXhXhXhXhXhXCXCXhXhXhXhXhXhXhXhXhXhXkXCXhXSXhXCXhXSXhXCXhXhXSXSXSXhXSXSXhXhXSXSXkXSXkXSXhXCXSX;X5.2.<.>.3.,.3.2.8.2.2.8.q.8.8.q.8.8.9.q.q.q.8.8.8.8.8.2.2.2.2.<.<.1.>.>.2.1.!.SXDXDXSXSXDXSXDXDXSXDXSXDXSXSXDXDXDXDXDXSXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXKXDXLXKXDXDXKXDXDXDXLXDXKXKXKXKXGXGXKXLXLXLXLXLXAX!.q.>.>.>.<.<.<.2.2.2.8.8.8.8.q.q.8.q.q.q.q.8.8.q.8.8.8.2.2.2.2.>.>.<.>.>.8.:.cXPXLXLXPXLXPXLXPXLXPXLXPXLXPXLXPXPXPXLXPXIXLXPXLXPXLXPXPXPXLXPXLXPXPXLXPXPXLXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXkXhXhXhXhXhXhXkXSXhXhXSXhXCXhXkXkXhXCXhXSXhXhXSXkXCXhXSXhXCXSXhXSXSXhXSXCXhXSXSXSXSXSX;X5.<.,.>.>.<.<.<.2.2.2.2.8.8.8.8.8.q.8.8.8.q.q.8.8.8.8.8.2.2.2.<.<.<.>.>.<.:.!.GXSXSXSXDXDXDXSXDXDXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXDXDXKXDXDXDXLXDXKXDXKXLXKXLXDXKXGXGXKXKXKXKXKXDXLXDXDXLXKX!.2.>.>.>.<.<.>.2.8.2.2.8.8.q.8.8.q.8.q.8.q.8.8.8.8.8.2.2.2.2.2.<.<.>.>.>.<.:.cXLXPXLXPXLXLXPXLXLXIXPXLXPXLXPXLXLXPXPXLXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXCXCXhXhXhXCXhXhXhXkXhXhXSXhXhXCXCXhXCXSXhXSXhXhXSXhXSXSXhXSXkXSXhXhXSXkXSXkXCXSXCXSXSX;X5.>.1.>.>.>.<.<.<.2.2.2.8.q.8.8.8.8.8.8.q.8.8.8.8.8.8.2.2.2.2.<.3.>.>.>.,...!.SXSXDXDXDXSXDXSXDXDXSXSXDXDXDXSXDXDXDXSXSXDXDXDXSXDXDXDXDXDXDXDXDXDXKXDXDXKXKXDXKXDXKXDXDXKXDXDXKXDXDXGXKXKXKXKXKXGXKXGXKXDXKXKXLXDXLXLXDXKX!.>.>.>.>.>.<.<.<.2.2.2.2.8.8.8.8.q.8.8.8.8.q.8.8.q.2.2.2.2.2.3.<.<.>.>.>.:...cXPXLXLXLXPXLXLXPXPXLXPXLXPXLXLXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXkXhXkXhXhXCXkXZXCXhXhXkXSXhXkXhXhXCXhXSXCXkXhXSXhXSXhXSXSXCXSXCXSXCXhXSXCXSXSXSX;X5...>.1.3.>.<.<.<.2.2.2.<.2.8.8.8.8.8.q.8.8.8.8.8.2.2.2.2.<.<.<.<.>.>.3.>. .!.GXSXDXSXSXDXDXDXSXDXDXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXKXDXDXKXKXDXKXKXDXLXLXDXKXDXDXKXDXKXKXKXLXKXDXLXKXKXLXKXLXAX!.....>.>.<.>.<.>.<.2.2.2.2.2.8.8.8.8.8.8.8.8.8.8.2.2.2.2.8.<.,.<.>.>.>.>.....mXPXLXPXLXLXPXPXLXLXPXLXPXLXPXPXLXLXLXPXPXPXPXLXPXIXLXPXLXPXLXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXSXhXhXhXhXhXkXhXhXkXhXCXhXkXhXSXhXhXCXkXhXSXSXhXSXhXSXCXhXSXSXkXSXSXSXSXCXhXSXSX*X8...>.>.3.>.>.<.<.<.<.2.2.8.2.<.8.8.8.8.8.8.8.2.2.2.2.2.<.<.1.<.1.>.>.>.:. .!.DXDXSXDXSXSXSXDXDXDXSXDXDXDXDXDXDXSXDXSXDXDXSXDXDXDXDXDXDXDXDXGXDXLXDXKXDXDXGXDXDXDXGXDXLXDXKXGXLXDXLXDXKXKXKXKXDXKXDXLXLXGXLXLXDXKXDXLXLXKX!.>...<.>.>.<.<.<.<.2.2.2.2.2.2.2.8.8.8.q.8.8.2.2.2.2.2.2.<.,.<.>.>.>.<.:.:...mXLXPXLXPXLXPXLXPXPXLXLXPXPXPXLXIXPXLXPXLXPXLXPXLXLXPXPXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXCXhXhXhXhXSXhXhXkXhXkXSXhXkXCXhXCXhXSXSXSXCXSXSXhXhXSXCXSXhXCXkXSXCXSXhXhXSXCXSXSXkXSX;X5.....>.1.>.>.>.<.<.<.2.2.2.2.2.2.8.2.2.2.<.2.2.2.2.2.2.3.<.3.3.>.>.>.>.:.X.!.GXDXDXSXDXDXDXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXLXKXDXDXDXDXDXLXDXDXLXDXKXLXKXLXDXLXKXDXLXDXLXLXGXLXLXKXKX!.......>.>.>.>.>.<.<.>.2.2.8.2.2.2.2.2.<.8.<.2.2.2.2.2.<.3.<.<.>.>.>.>.:... .mXPXLXPXLXPXLXPXLXLXPXPXLXPXLXPXPXPXPXPXLXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXkXhXhXhXhXhXhXhXCXhXhXCXkXCXkXhXSXCXhXhXSXhXCXkXSXhXhXhXSXCXhXhXSXSXhXSXkXCXCXSXSXhXSXSXSXhXSXSXSXXX5. ...:.>.3.1.>.<.<.<.<.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.<.<.,.3.>.>.>.>..... .!.DXSXDXSXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXKXDXKXGXDXDXDXDXDXKXDXLXDXLXDXLXDXLXDXLXDXKXDXLXDXLXLXDXLXKXDXLXKXKXLXDXLXKX~.......>.>.>.>.>.<.<.>.<.2.2.2.2.2.2.2.2.2.<.8.2.2.2.3.,.<.<.>.>.1.3.:.w.....mXPXLXPXLXLXLXPXPXPXLXPXPXPXLXPXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXCXhXCXhXhXCXhXhXCXhXhXhXhXhXkXhXCXhXSXhXkXkXCXCXhXSXSXhXSXSXSXhXSXSXCXSXCXSXhXSXSXSXhXSXSXSXSXSX;X5. .....:.>.>.>.>.1.3.1.<.>.2.2.2.2.2.2.2.2.2.2.2.<.,.3.,.3.>.>.>.>.>.w...X.!.GXSXSXDXDXDXSXSXDXDXSXDXDXSXSXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXKXDXDXDXDXDXLXKXDXKXDXDXDXLXDXKXDXKXDXLXDXKXGXLXDXDXLXKXKXGXKXLXKXLXLXKXLXLXHX!.......>.>.>.>.>.>.>.<.<.>.<.2.2.2.2.8.2.2.8.2.<.3.<.<.1.3.>.>.3.>.:.:.......xXLXPXLXPXLXPXPXLXLXPXPXLXPXPXLXLXLXLXLXPXPXLXPXPXLXPXLXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXCXCXhXSXhXkXCXhXCXhXCXSXhXkXhXhXSXhXCXCXhXCXhXhXSXhXSXkXCXhXSXSXhXSXkXSXhXSXSXSXSXSXSXSXSXSXSX*X8.......w.:.>.>.1.3.1.<.3.<.<.3.>.<.<.3.<.<.<.<.<.3.,.>.>.>.>.>.>.:.w... .X.!.GXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXGXDXDXDXDXDXDXDXDXDXDXDXDXLXKXLXKXDXDXKXLXDXLXDXKXLXKXKXKXKXLXDXLXKXLXKXLXLXKXLXLXLXAX!...........>.>.>.>.>.>.<.<.>.<.3.<.<.<.<.<.<.1.<.1.<.1.3.>.>.>.>.:...:.......mXPXLXPXLXPXLXLXPXLXPXPXLXLXPXPXPXLXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXhXhXSXhXCXhXhXCXCXCXCXhXSXCXhXSXCXkXCXCXkXCXCXSXCXSXCXCXkXSXSXSXCXCXSXSXhXSXkXSXSXSX;X4. .........1.3.3.1.3.1.>.>.<.<.<.<.<.<.<.<.,.3.,.3.>.>.>.<.>.>.>.........X.!.GXSXDXSXDXSXSXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXKXKXKXDXKXKXDXDXDXGXDXLXKXDXLXDXLXDXGXKXKXKXLXDXLXKXLXDXLXKXKXKXGXLXLXKXQ.........:.:.>.>.>.<.>.>.>.<.<.3.<.<.<.<.<.<.3.<.<.3.>.>.>.<.>.:.:......... .mXPXPXLXPXLXPXPXLXPXLXPXPXPXLXLXPXPXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXhXhXhXhXhXCXhXSXhXhXkXkXCXkXhXCXCXhXCXhXSXCXSXhXSXhXSXkXhXCXSXCXSXSXSXhXSXhXSXSXkXSXSXSXSXSXSX;X<...w.w.....w.:.>.>.>.>.3.>.>.>.<.<.<.<.<.>.>.>.>.>.>.>.>.>.....:.........| Q.GXSXDXSXDXDXDXSXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXDXKXGXDXDXLXLXDXDXKXKXKXKXDXDXKXLXDXLXGXKXKXLXDXLXLXDXLXKXKXLXLXLXKX!...........:...>.>.>.>.>.>.>.<.<.>.<.<.<.<.<.>.>.>.>.>.>.>.>.:.............| mXLXPXLXPXLXPXPXPXLXPXPXLXPXPXPXLXPXPXLXPXLXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXhXhXCXkXCXSXhXhXCXhXCXSXhXCXhXCXkXCXkXCXCXCXkXkXCXhXCXSXSXCXSXSXhXSXhXSXhXSXSXSXSXCXSXCXSXSXCXSXSX;X<.] ...... .......:.>.1.>.>.>.>.>.>.>.>.>.>.>.>.>.<.>.>.>.:.w.:......... .] Q.GXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXDXLXKXGXDXKXKXDXKXDXLXDXDXKXLXKXKXDXLXKXLXDXLXLXDXLXLXLXKXLXLXKXKXLXLXLXKXLXKXKXQ. .X.............:.>.>.>.>.>.>.>.>.1.>.>.>.>.>.>.<.>.>.>.>...............| | cXPXPXPXLXLXPXLXPXLXPXPXLXPXLXPXPXPXLXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXhXCXhXhXhXhXCXhXhXhXkXCXhXSXSXhXSXCXSXhXSXSXCXkXSXhXSXhXhXSXSXSXCXSXCXSXSXSXSXSXSXSXCXSXSXSXSXSX;X<.X.| ..........w.:...>.>.>.>.>.>.>.>.>.>.>.>.>.>.>.>.>............... .| ) !.GXSXDXDXDXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXLXDXKXDXDXKXKXDXKXDXDXKXKXKXLXGXDXKXDXLXDXLXKXLXLXDXLXKXDXLXLXKXLXLXLXLXLXKXLXLXLXKX!. .| X...........:.:...>.>.>.>.>.>.>.<.>.>.>.>.>.>.>.>.:.:...w.........X.X.| cXPXLXLXPXPXPXLXLXPXPXPXPXPXPXPXLXPXPXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXSXhXCXhXkXSXhXSXhXSXhXhXSXhXhXSXhXhXhXSXhXCXSXCXSXSXhXSXSXSXhXSXhXSXSXkXSXCXkXSXSXCXSXSXSXCXCXSX=X<.| X.X. .w.......w.......:.>.>.>.>.>.>.>.>.>.>.>...:.:............. .| | | !.GXDXDXDXSXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXGXDXDXDXDXDXDXKXDXGXDXKXKXKXKXDXKXKXDXKXKXKXGXLXDXLXDXLXDXKXLXDXLXKXLXKXKXLXKXGXKXDXLXLXHXQ. .X.| X. ...........:...:.:.>.>.>.>.>.>.>.>.>.>.:.w.................| X.X.X.mXPXLXPXPXPXLXPXPXPXLXLXPXPXLXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"kXhXhXhXCXhXhXhXCXCXSXhXCXCXhXSXSXhXSXCXhXSXSXhXhXSXkXCXSXCXSXhXSXSXSXhXSXSXSXSXSXCXSXCXSXCXSXSXSXFX;X<. . .X.X. .........w.........:...:.:.:.:.:.w.w...:............... .X.X. .| Q.GXDXDXDXDXSXDXDXDXDXDXSXDXDXDXDXGXDXDXKXDXDXDXLXDXDXKXDXLXDXDXKXDXKXKXDXDXKXDXKXDXLXKXKXKXKXKXKXKXKXLXDXLXLXKXKXLXLXLXKXKXLXLXLXLXLXLXLXLXKX!. . . .| . .w...........w...w.:.:.:...:.:.....:...:......... ...X.| .X.X. .cXPXLXLXLXLXPXPXLXLXPXLXPXLXPXLXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXCXCXhXhXSXhXSXhXhXhXkXCXkXCXhXhXhXhXSXhXSXhXSXSXCXCXSXkXSXCXSXkXSXSXkXCXSXCXSXSXSXSXSXSXSXSXSXSXSX;X<.X.] X.X.] X. ....... .w.............w................... ... .| X.X.X.X.] !.LXSXDXSXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXGXDXDXDXKXDXKXDXDXKXKXKXLXDXLXDXKXDXGXKXKXKXDXLXKXLXLXDXKXLXDXLXKXLXLXKXKXDXLXLXLXLXIXKXQ. .| X.| X.| .....................:.........:.................X. .| | X. .| cXPXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXhXhXkXhXhXSXhXSXhXhXCXhXhXSXhXSXSXhXSXSXSXSXCXhXkXSXhXCXSXhXCXSXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSX;X1.] X.X.X. .X. .X. ............. ..................... ... . . .| [ | X.X.] Q.GXDXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXKXDXKXDXGXKXLXDXGXKXKXGXDXKXLXKXKXDXLXLXKXLXDXKXLXLXLXDXKXLXKXLXKXLXLXLXLXLXLXLXAXQ. .| | X. .X.X.| | ........................w............. . .| | .| X. .| ] cXPXPXLXPXPXPXPXPXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXhXCXSXhXhXCXkXCXSXhXSXSXCXCXhXCXSXhXSXhXhXSXSXSXCXSXSXCXSXSXCXCXSXCXSXSXkXSXSXCXSXSXSXSXSXSXSXDX.X1.] X.X.X.X.X.X.| .| .....................w......... .X. .| | | .X.X.[ ) Q.DXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXKXDXDXDXDXKXDXDXLXKXDXKXDXLXDXKXDXLXDXDXDXLXKXKXDXKXGXLXLXDXLXLXDXLXKXLXKXLXLXLXLXLXGXLXLXLXLXLXLXLXLX!.] ] .| | .X.| . .| ...w. ............. ......... . .| | .X.| .| | | ] mXPXLXPXPXLXPXPXLXPXLXPXPXPXPXPXLXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXCXhXkXhXSXSXhXkXCXSXhXSXhXCXCXhXkXCXSXCXSXSXhXCXkXSXCXCXkXCXSXSXCXSXCXSXCXSXSXSXSXSXSXSXSXSXSXSXSX;X,.] ] | | .| X.X.X. .X.X. .X..... ....... ... . .X.] .| | X. . .| | ] ] ) !.GXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXDXKXDXGXDXDXDXKXKXGXDXKXDXKXDXLXGXKXLXKXKXLXDXKXKXKXGXKXKXKXKXKXKXLXKXLXLXLXLXKXKXLXLXLXLXLXLXKXLXIXQ.] ] ] X.X. .X. .| .| | X.| . ..... .......| .X. .X. .X.| | .| .| ] | ] mXPXLXPXPXPXLXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"kXhXCXhXSXhXhXCXCXhXhXCXhXSXkXCXSXhXSXhXSXhXSXCXSXSXCXkXCXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSX4X4.] ] | ] ] | . .X.X.X. .| | | | | .| .X.X.X.X.X. .| .| .| | | ] ] ] ) A.GXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXKXDXKXKXKXDXDXDXLXDXLXDXKXDXKXKXKXGXDXLXLXGXKXLXKXLXKXLXKXLXKXLXLXKXKXLXKXLXLXLXKXLXLXKXLXLXLXKX!.] | ] ] ] X.X.| X.| .X. .| .| | . . .| .| | .X.X.X.X. .X.| X.] ] ] ] w.mXPXPXLXPXPXLXPXLXPXPXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXhXSXhXhXCXCXSXhXkXhXhXSXCXSXCXSXhXSXSXhXSXSXhXSXSXSXSXSXSXhXSXSXCXSXCXSXSXSXSXSXSXSXSXSXSXSXSXDXjX6.] ] ] ] ] ] .X.X. .X.| | | | .| .| .X.[ X.X.| | | .| X.] ] ] ] X.] ) ~.GXDXAXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXDXKXKXDXDXKXLXLXDXKXDXLXKXDXKXKXKXKXLXKXKXKXKXLXLXDXLXKXLXLXLXKXKXKXKXLXLXLXLXLXLXLXLXLXLXLXLXKX~.| ] ] | ] ] X.X.| X.| X.| | | | .| | | X.| | | X.| X.[ X. .X.| ] ] | ] ] 5.UXPXPXPXPXPXPXPXPXPXLXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXhXhXSXhXSXhXkXhXSXCXSXSXhXSXhXSXhXSXSXkXSXSXhXCXSXCXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXCXSXSXSXSXSXSXGXv.' ] ] ] ] ] ] ] ] ] X.| X. .X. .X.| | .X.X.X.X. . .| | | ] ] ] ] ] ] ] ,.;XDXDXDXDXDXDXDXDXDXDXDXGXGXDXDXDXDXKXKXDXKXDXDXLXDXDXKXDXDXDXKXGXLXDXKXKXKXKXKXKXDXLXKXGXLXDXKXGXLXLXKXLXLXKXLXLXLXLXKXLXKXLXLXLXLXLXLXLXLXLXvX' ] ' ] ] ] ] ] ] | .| . .| .| | .X.| . . .| X.| X.| ] ] ] ] | ' ] ] !.IXLXPXLXPXPXLXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"kXCXkXkXCXkXCXCXhXSXSXCXhXSXhXSXSXhXSXhXCXSXSXSXSXCXSXkXCXSXSXSXCXSXCXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDX;X$.' ] ] ] ] ] ] ] | ] | | .| | .| | | | .| .| | ] ] ] ] ] ] ] ] ] ( v.CXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXKXDXLXGXDXLXDXDXLXDXLXKXKXKXGXLXDXLXKXKXLXKXKXDXLXLXKXKXLXLXKXLXKXLXLXLXKXLXLXLXLXPXLXLXLXPXLXHXa.' ] ] ] ] ] | ] ] ] | .| . .| . .| .| | | X.| | ] ] ] | ] ] ] ] ' [ uXPXPXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXCXhXCXkXhXSXhXCXCXhXhXCXSXkXCXCXCXCXSXkXSXhXCXCXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXGXA.] ' ] ] ] ] ] ] ] ] ] ] ] | [ ] ] ] | ] ] ] ] ] ] | ] ] ] ] ] ] ' ( 4.7XDXGXAXDXDXDXDXDXDXDXDXDXDXKXDXDXDXLXKXDXKXDXLXKXDXKXDXDXLXDXLXKXKXLXDXGXKXKXKXKXLXDXLXLXKXDXLXLXKXKXLXLXKXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXmXw.' ' ] ' ] ] ] | ] ] ] ] ] ] ] ] ] ] | ] ] ] ] [ ] ] ] | ' ] ] ' ' ' /.IXPXLXPXPXLXPXPXPXPXPXLXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXhXCXCXhXSXCXhXSXhXhXSXkXSXSXCXkXSXSXSXSXSXSXCXCXSXhXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXQ.w.' ' ' ] ' ] ' ] ] | ] ] | | ] | ] ] | | ] ] [ ] ' ' ] ] ' ' ' 5.5XGXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXLXDXDXDXKXGXDXDXDXKXDXKXKXKXKXDXKXKXDXLXDXLXKXKXKXLXLXDXDXLXLXLXKXLXKXLXKXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXIXLXLXLXuX,.] ' ' ] ' ] ] ' ] ] ] ] ] ] ] ] ] ] ] | ] ] ] | ] ' ' ] ' ' ' [ /.PXPXPXPXLXPXPXPXPXPXLXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXSXkXCXSXhXSXCXkXSXkXSXCXhXSXCXSXCXCXhXSXkXkXSXSXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXDXSXSXSXSXSXSXtXk.[ [ [ [ [ .[ ] ] ] ' ] ] ] ] ] ] ] ] ' ] ' ] ..[ [ [ [ ,._.BXDXSXDXDXDXDXDXDXDXDXDXKXDXKXDXDXDXDXGXKXDXDXDXKXKXGXDXLXDXLXDXDXLXKXDXLXDXLXDXLXKXLXDXKXLXLXKXLXKXKXLXLXDXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXAX~.4.[ [ [ [ [ w.] ] ] ] ] ] | ] ] ] ] ] ] ] ] ] [ ..[ [ [ [ v.mXPXPXLXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXhXSXkXhXSXhXSXSXhXSXSXCXSXZXkXSXSXhXSXkXSXSXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXDXSXSXSXSXDXSXrX2X7X7XtX:X;.b b ! ! f ! ! f ! ! ! ! ! f i.2X5X5X2XvXSXDXKXSXDXKXDXDXDXDXDXDXGXDXDXDXDXDXDXKXDXDXDXLXKXDXGXKXKXDXKXLXDXDXLXDXGXKXKXKXKXKXLXKXKXLXLXDXKXKXKXGXKXLXKXLXLXLXKXIXLXLXGXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXIXLXnX6X0X0X9X0X$.b b b / ! ! / ! ! / ! ! ! ! ] 3X9X0X0XxXIXIXPXLXPXPXPXPXLXPXPXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXhXhXSXCXSXhXhXSXSXhXSXhXSXhXSXkXSXSXCXSXCXSXSXCXSXSXSXCXSXSXSXSXSXSXDXSXSXDXSXSXSXDXSXSXSXSXSXSXSXDXDXDXSXSXSXSXDXSXSXDXhXB y y y p p p p p p p r r p t u.ZXSXDXDXDXDXDXDXDXDXDXDXDXDXAXDXKXDXDXDXKXDXKXKXDXLXDXDXDXKXDXKXDXDXLXDXKXKXKXDXLXKXKXKXKXDXLXKXKXLXDXLXLXGXLXLXIXLXLXLXKXGXKXLXLXLXLXLXLXLXIXLXLXLXIXLXLXLXLXPXLXLXLXLXPXLXLXLXPXLXLXPXLX#.y y y r p t y r r y p t p y B HXLXPXPXPXPXLXPXPXPXLXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXCXkXSXhXSXkXCXSXhXCXkXSXSXhXSXhXSXSXhXSXCXCXSXSXSXhXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXDXSXDXSXSXSXSXDXSXDXSXDXDXDXjXO.r y p y p y r y p y y y p r 7.bXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXDXDXDXDXDXKXGXKXKXKXKXDXKXKXDXKXLXDXLXDXKXKXLXDXLXGXKXLXKXKXDXLXKXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXIXLXLXLXLXLXLXIXLXPXLXPXPXLXLXHXO.p p y y p p y r y y p p y y _ UXPXPXLXPXLXPXLXPXPXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXhXCXCXSXCXhXSXCXkXSXSXhXSXSXSXSXSXCXSXSXCXSXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXSXSXDXDXSXDXDXSXDXAXSXDXLX&.y p y p p y p p y p p p p t =.BXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXKXDXDXLXGXKXKXDXKXDXDXKXDXKXGXKXLXDXDXKXKXLXGXLXDXLXLXKXKXKXKXGXLXLXLXLXLXKXLXLXKXLXLXKXLXLXLXLXLXIXLXLXKXLXLXLXLXLXLXLXPXLXLXPXLXLXLXLXPXLXLXPXPXKX+.y p p p y p y p p p y y p y _ AXPXPXIXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXhXSXCXkXhXSXCXCXSXkXCXSXCXSXSXSXSXSXkXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXDXSXSXSXDXSXSXSXSXDXSXSXSXDXSXDXSXDXDXSXSXDXGXu.r p y p p p p p p p p p p r c.GXDXDXKXDXDXDXKXDXDXGXDXKXDXGXDXDXGXDXKXDXDXDXDXKXDXKXKXDXKXLXGXKXGXLXDXLXLXKXLXDXKXKXLXKXKXKXKXLXLXKXKXLXLXLXLXLXKXKXLXLXLXLXLXKXPXLXLXLXLXLXLXLXPXLXIXLXLXLXIXLXPXLXLXLXLXPXLXLXPXLXLXIXb.d p p p p y p p p p p p p p j.IXPXPXPXPXPXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"kXSXhXSXCXSXkXSXCXSXCXSXCXkXSXhXhXSXSXSXSXCXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXCXSXSXSXSXSXCXBXCXSXSXSXCXSXSXSXDXK.f y p y y p p r p p y y p y K.GXCXAXSXSXSXAXSXSXSXAXSXSXAXDXDXDXAXDXDXLXKXDXLXDXDXKXDXKXDXDXKXDXKXKXKXDXGXKXKXKXLXKXDXLXLXGXLXLXLXLXLXKXLXDXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXKXKXKXLXIXLXLXHXLXLXIXHXLXJXLXLXIXLXLX).a y p p p p y p p r p y p p ^.PXIXPXLXIXLXLXIXJXPXIXIXIXIXLXIXIXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXCXSXhXhXkXCXSXSXkXSXSXSXCXSXSXSXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXSXkX=Xb.c.b.b.b.b.b.b.b.b.b.b.b.N.b.b.b.b.b.m.&.f y r r y r p r y y y y y h *.N.b.b.b.N.b.b.b.N.n.b.N.b.b.b.c.b.b.b.K.iXAXLXGXDXKXKXKXGXLXKXKXLXKXKXDXLXKXLXLXLXKXKXLXLXKXKXLXDXKXKXLXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXAX&Xb.n.n.b.m.m.m.m.m.m.m.m.m.m.m.n.n.n.n.n.p y y y y y y y y y p y y p j.M.n.n.m.M.m.M.n.m.n.n.M.M.M.M.n.n.n.n.j.).HXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXhXSXSXSXCXCXSXhXSXhXSXSXCXSXZXSXSXSXhXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSX.XC y a b b b b b b b b b ! ! ! b b b b b ! ! ! ! ! ! ! / ! ! / b ! ! b b ! ~ ! ! ! ! b ! ! ! b ! ! b b ! b b ! ! m y c b.BXLXDXKXDXDXKXGXKXDXKXGXKXLXKXKXDXLXDXGXLXDXKXKXLXLXKXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLX).f p a ! ! b b ! b b b b b b b b ! b b ! b ! b ! ! b ! ! b ! ! b / ! ! ! ! b ! b ! ! b ! ! ! b ! b ! b ! b ! ! ~ f d h G.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXhXSXCXCXSXSXSXSXCXSXSXSXCXCXCXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXSXSX=Xv p ..Y.l.8.2.<.2.<.2.2.2.2.2.2.2.2.2.2.2.2.2.2.3.2.2.2.2.2.2.2.2.2.2.2.3.8.2.3.8.3.2.2.2.2.2.2.2.2.2.2.2.2.2.2.q.z.q.! r &.DXDXKXKXKXKXDXKXKXKXKXKXKXKXGXKXKXKXLXLXLXLXGXKXKXLXKXLXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXPXLXLXJ.y a 3.U.0.<.2.2.2.2.2.3.2.2.8.3.2.3.5.2.2.2.2.2.2.2.2.2.2.2.2.2.3.2.2.2.2.3.2.2.2.2.2.2.2.2.2.<.2.2.3.2.2.2.2.2.0.T.<.f r B.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"kXCXhXSXSXhXSXhXhXSXhXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXZXV p 9.:.s p p p p p p p p p p p p y p p y y p p y p p p p y p p p p p p p p p p p p p p p p p p p p p p p p y y p p p ( 0.{ r M.PXGXDXKXDXKXKXGXKXKXKXDXLXKXLXLXKXDXLXLXDXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXxXp s Y. .a p p p p y p p p p p p p p y p p p y p p p p y p p p p p p p p p p p p p p p y p p p p p p p p p p p p p p p | 0.m y >XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXSXSXCXSXSXCXSXSXCXSXSXCXSXSXCXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXN.y 1.^ p y y y y p y p y p p y y y y y y y p y y y p y p y p y y y p p y y y p y y y p p r r p y y y y y y y y y y y p r ! 3.! #.SXKXDXLXGXKXLXKXGXKXLXLXDXLXDXDXKXLXLXKXLXDXLXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXAXb.p 8.~ y p y p y p y y p p r y p y y p y y y y y y y p r p p y p r p r p y p y y y y y y y y y p y y p r p y y y p r y y ! 2.f c.HXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXCXkXSXCXkXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXSXSXSXDX%.b ( a y y y p y y p y y y y p y y p p y p r p p p y y y p r p p p y y y p y y p y p y y y p y p y y p p y p y p p p y y r ` [ v =XLXKXDXLXKXDXKXKXKXDXLXLXLXKXLXLXDXKXKXLXLXLXLXKXKXKXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXLXAXO.b ' y y p p p y p p p y p p p p p p p p p p p p y p p p y p p p p p p p p y p p p p p p p p p p p y p p p p p p y p p p r ' ! +.cXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXkXSXCXSXCXSXCXCXSXSXSXSXCXSXSXSXCXSXSXSXSXSXSXCXDXSXSXSXSXSXSXSXSXSXSXSXSXM ^ s r p r y y y y y y y y y y y y r y y y y y p r y y y y y y y y y y y y r y y y r y r p y y y y y y r y y y y r y y y r d b B &XLXLXDXLXKXKXKXKXLXDXKXLXKXLXLXKXLXLXLXKXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXnX` ) y y y p y y y y p y y p y y p p y p y p y y p p p y y p y p y p p p y y y p y p y y p y y p r p p y p y y p y y p y y y p / ` 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"CXSXCXSXSXSXSXhXkXSXhXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXSXDXSXSXDXM ! d r y y y y y y y r y y y r y y y y y y y y r y y y y r y y y y y r y y y y y y r y y r y y y r y y y y y y y y y y y y r p _ =XLXGXLXDXKXKXLXKXKXLXLXKXGXKXLXDXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXnXB ! r y y y y y y y y y y y y y r y r y y y y y r r y r p r r y r y r r y y y y y y y y r p r y r y y r y y y y y y y y y y r b N 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXCXhXkXSXSXSXCXSXSXSXSXSXSXSXSXSXSXCXSXSXSXSXSXSXDXSXSXDXSXSXSXSXDXSXGXV r y y y y y y y y y y y y y y y y y y y y y p r y y y y p y p r y y y y y y y y y y y y y y y y y y y y y y y y y y y y y r p V =XLXDXLXDXKXGXDXLXKXLXGXLXKXKXLXLXKXLXLXDXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXLXnXB y y y y y y y y y y y y y y y y y y y y y y y y y y y r y r p y y y y y y y y y y y y r y p r p r y y y y y y y y y y y y y y C 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXhXSXSXSXSXSXSXSXSXSXSXSXSXSXAXSXSXSXDXSXSXSXCXDXSXSXSXDXSXSXDXSXSXSXSXDXV e y y y y y y y u y y y y y r y r y y r r r r y y y y r r r r y r y r y y y r y y y r y y r y y y y r y y y y y r u y y y r r M =XLXLXKXKXLXDXLXKXLXKXKXKXLXLXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXKXPXLXLXLXLXnXB y y r p y y y y p y y y y y r y r y r y y y y y y y r p r y r y y y y r y r y y y y y y y r y r y y y y y y y y y y y y y y y C 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXCXSXSXSXSXSXCXSXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXDXDXSXDXV u y y y y y y y y u y y y u y y y y y y y y u y y y y y y y y y y y y y u y y y y y y y y y y y u y y y y y y u y y y r y y e C =XFXLXGXKXLXLXDXKXLXKXKXLXKXLXKXLXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXPXPXnXV y y y y y y y y y y y y y y y y p y y y y d y p y y d y y y y y y y y y y d y y y y y p y y y y p y y y y y y y y y y y y y y C 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXCXCXhXSXCXSXSXSXSXSXSXCXSXSXSXSXSXSXDXSXSXDXSXSXDXSXDXSXSXSXDXSXSXSXDXDXM e u y y e r r e y y y y u v f.b.j.b.h.c.c.b.c.b.c.h.c.h.c.h.b.h.c.b.c.b.c.h.b.b.b.b.c.b.b.b.g.b.b.#.y u y y y y r u r y r y e C =XLXGXKXLXDXLXLXLXKXKXLXKXKXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXnXV y y y u y y y y y y y r p v b.n.b.b.m.b.b.N.b.n.m.b.b.N.m.N.b.N.m.n.N.N.b.n.n.N.N.N.b.n.n.n.n.n.j.C y y y u y y y y y y y y r n 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXSXSXSXSXSXSXDXDXSXSXSXSXDXV e y r e y r y r y y r e b.jXZXDXCXSXAXDXCXSXSXAXSXSXDXSXAXDXDXDXAXSXSXDXDXDXDXAXSXDXAXSXDXDXDXDXDXGX<XV e y y r r e y u r r e C =XLXDXKXLXKXKXKXKXKXLXKXLXLXLXLXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXPXIXLXLXLXLXLXPXLXPXPXPXLXnXV r u y e y r y e y r u a F.IXLXLXJXLXPXIXLXIXIXJXIXIXIXIXLXIXIXLXIXPXJXIXIXJXJXIXIXPXJXIXIXIXIXIXIXJX^.y u y r y r e y u y e y n 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXkXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXDXSXDXSXDXSXSXSXDXDXSXDXM r y y u y u y y y r e Z.SXDXDXDXDXGXSXDXDXDXDXSXDXGXAXDXDXDXDXDXKXAXGXDXGXAXGXDXKXDXDXDXDXGXAXDXLXGXGX5XB e u y y y y y y y r M =XLXLXLXDXLXLXLXKXKXLXLXKXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXPXbXV y y u y r y u y e e y :XIXPXPXPXPXLXPXPXPXLXLXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX&Xh e y e r y u r r y e C 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXSXCXSXSXCXSXSXSXSXSXDXSXSXSXSXSXSXSXDXSXSXDXSXSXDXSXSXSXSXDXDXSXDXDXDXSXV e e y y y r r y u e #.eXDXDXDXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXGXDXDXDXDXKXDXDXDXDXDXLXDXDXDXKXDXGXLXL.y y y r y r r y u e C =XLXLXGXLXKXLXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXLXLXLXLXLXPXLXLXnXV y r y y y e y y y y u.LXPXPXLXIXLXPXPXPXPXLXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXb.y e y u y y y u y y C 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXCXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXDXSXSXSXSXSXSXSXDXM e e e u e r r e y t P.GXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXKXDXLXDXDXDXLXKXKXKXGXLXrX#.t r r u r r r y e C =XLXLXLXLXKXLXLXKXKXLXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXPXLXPXPXLXLXPXnXV r u r y y y e r u a uXPXLXPXPXLXPXPXLXLXPXPXPXLXPXPXPXPXLXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX9Xv e y r r y r r y y n 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"hXSXSXSXSXSXCXSXSXSXSXSXSXSXSXDXSXSXSXSXDXSXSXDXSXSXSXDXSXDXDXSXSXSXSXSXSXGXM w e e e e e e e e y <XDXSXSXDXDXDXDXDXDXSXSXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXGXDXDXDXLXDXLXKXDXDXDXDXKXDXAXu.t e e e e e e e t C =XLXLXLXLXKXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXPXLXLXLXPXLXLXLXLXLXPXLXAXV r y e u r r e e e h LXPXLXPXPXPXLXPXLXLXPXLXPXPXPXPXLXPXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXC e y e e r e y y u n 9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXSXDXSXDXSXSXDXSXSXDXSXDXSXSXSXbXXX/./.XX`.-X:.( ' ' ) ( ) ' ( ^ [ !.XX).`._.3XSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXLXLXDXKXGXKXDXKXDXGXnXXX`.`.'.XX`.7.^ ( ' ( } ( ' ' ( w.E.-X'.`.`.3XKXKXLXLXKXLXKXLXLXLXLXLXLXLXLXKXPXLXLXLXLXLXIXPXLXLXLXPXLXLXLXLXIXqX'.'.'.,X`.:.} ' ' } ' ' ' ' ' ] ,XXX'.'.'.>XIXPXPXPXPXPXPXLXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIX0X'.'.,X,X,Xw.( ' ' ' ' } ' ' ' w.[.,X'.'.'.qXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXSXDXDXSXDXSXDXSXSXSXDXSXSXSX!.2.8.0.0.0.0.0.x.x.0.Y.0.Y.l.l.x.0.a.x.0.9.0.8.3.l.tXKXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXKXDXGXKXDXKXDXDXGXDX`.5.<.0.x.0.0.x.0.0.0.Y.Y.l.l.l.0.0.0.0.0.0.q.8.<.x.9XPXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXKXLXLXLXPXLXPXLXPXLXPXLXLXqX0.5.q.x.0.0.x.x.x.0.0.Y.l.l.Y.l.0.l.l.0.0.0.9.2.0.>XPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX0Xl.<.q.0.0.0.0.0.0.0.Y.l.l.l.Y.l.0.0.x.0.0.0.9.2.8.,XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXCXSXSXSXSXSXSXSXDXSXSXSXSXSXSXSXDXSXDXSXSXAXW.<.q.T.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.Q.E.E.E.R.x.>.2.9XDXDXDXDXDXDXDXDXDXKXDXDXKXGXDXDXDXKXDXDXKXDXLXLXAX!.>.0.R.E.E.E.E.E.E.Q.E.E.E.E.E.E.E.E.E.E.E.E.E.R.l.>.q.>XLXLXKXLXLXLXLXLXLXLXLXLXLXPXPXLXLXLXLXLXLXIXLXLXLXLXLXqX<.<.z.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.T.8.2.qXPXPXPXPXLXPXPXLXPXPXPXPXPXPXPXLXPXPXPXPXPXPXPXPXPX0X8.>.U.R.E.R.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.T.8...,XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXSXAXSXSXSXSXSXDXSXSXSXSXSXDXSXSXDXXX<.Y.E.z.q.8.q.q.q.q.0.x.0.l.x.0.0.0.9.q.q.q.8.q.l.R.l.:.R.BXDXDXDXDXDXDXDXKXDXKXDXDXDXDXLXDXKXKXKXAXKXDXLX,X2.x.E.z.q.8.8.q.q.9.q.0.0.l.x.x.0.l.0.9.q.9.8.q.x.R.T.>.z.UXLXLXLXLXKXLXLXLXLXLXPXLXLXLXIXLXLXLXLXLXLXPXLXLXPXmX8.<.R.T.x.8.8.q.q.q.0.9.x.0.0.0.0.0.0.9.9.q.8.8.9.z.E.8.2.MXPXPXLXPXPXLXPXPXPXLXPXPXPXPXPXPXPXIXPXPXPXPXPXJXq.>.T.T.l.8.8.q.q.q.q.0.0.l.l.l.0.x.x.0.q.q.8.8.9.U.R.9.<.9XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXCXSXSXSXSXSXSXSXSXAXFXSXSXSXSXDXSXSXSXDXDXSXSXDXDXSXx.q.T.q.<.2.<.8.5.8.8.9.9.0.9.9.0.0.9.q.q.8.8.2.2.2.8.R.9.2.5XDXDXDXDXDXDXGXDXDXAXDXDXKXDXDXLXDXKXDXGXKXGXGX!.q.U.q.<.3.<.8.8.8.8.9.9.0.0.q.0.0.9.q.8.8.2.2.2.<.8.U.z.2.;XPXLXLXLXLXLXLXLXLXIXLXLXLXLXLXPXLXLXPXPXLXLXLXLXPX,X3.z.Y.<.8.2.<.8.8.8.q.9.0.x.9.x.9.9.8.8.8.8.2.<.2.3.8.R.2.XXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX,X<.U.l.<.2.2.2.8.8.8.q.0.9.0.9.9.9.9.q.q.8.8.2.<.2.<.9.R.3.].IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXDXSXDXSXSXDXSXAXSXSXSXSXDXDXSXDXSXSX9.v.8.>.>.2.2.2.8.8.8.q.9.9.0.9.9.0.9.q.q.8.2.2.2.<.<.q.l.<.:XDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXKXDXKXDXLXLXVXW.x.x.>.1.2.2.2.8.8.q.q.9.q.q.0.0.q.q.q.q.8.8.2.2.<.1.8.x.q.`.LXLXLXLXLXLXLXLXPXLXLXLXPXLXLXLXLXLXLXPXLXLXPXPXHXE.<.T.>.>.<.2.2.q.8.8.q.q.0.0.9.0.9.9.9.8.8.8.2.<.8.>.1.0.x.T.PXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.2.U.2.>.<.8.2.8.8.8.q.9.0.9.0.9.9.0.q.8.8.8.2.2.2.<.>.0.q.E.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSXDXSXSXSXDXSXSXSXDXSXDXDXq.a.3.1.<.2.2.2.q.8.8.q.q.9.0.9.0.q.q.8.8.q.2.2.2.3.<.:.l.3.;XKXLXDXDXDXDXDXKXDXGXKXDXDXKXDXKXDXKXKXGXDXDXVXE.8.<.>.<.2.2.2.8.8.8.q.q.q.0.9.0.9.q.q.8.8.8.2.2.2.<.3.q.0.[.PXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXLXLXPXLXLXLXLXLXHXE.8.9.>.<.<.2.2.2.8.8.8.q.q.9.0.9.9.q.8.q.8.8.2.8.<.,.3.>.z.z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.8.8.3.>.<.2.2.2.8.8.q.q.q.9.9.x.9.8.8.8.8.8.2.2.2.<.>.>.9.R.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXDXSXSXSXSXDXSXSXSXDXSXDXSXDXSXSXDXDXSXSXDXSXDXq.8.<.>.<.<.2.2.2.8.q.8.q.q.q.q.q.q.q.8.8.2.2.8.2.1.>.>.q.:.;XDXDXDXDXKXGXDXLXDXDXDXKXKXDXKXDXLXDXLXLXDXLXVXQ.3.>.>.3.<.2.2.2.2.q.8.q.q.q.q.q.q.8.8.q.2.2.2.2.<.<.>.<.q.[.LXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXIXLXLXPXPXLXIXLXHX!.q.2.>.<.<.2.2.8.q.8.8.8.q.q.q.q.q.8.8.q.8.2.2.2.<.<.>.3.9.z.IXPXPXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.q.3.>.<.<.2.8.2.8.8.8.8.q.q.q.q.q.8.8.8.q.2.2.2.<.3.>.>.8.R.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXDXDXSXSXSXSXDXSXSXSXSXDXSXSXDXSXDXSXSXSXDX5.1.3.>.,.3.2.2.2.2.8.8.8.8.8.8.8.8.8.8.q.2.2.2.<.<.>.>.3. .;XGXDXDXDXDXDXKXDXDXKXKXGXDXGXDXKXDXKXDXKXDXGXVXW.>.>.3.1.3.2.2.2.8.8.8.8.8.8.8.8.8.q.8.8.2.2.2.2.>.,.>.3.<.`.LXLXLXLXLXLXPXLXLXLXLXLXLXLXPXLXPXLXLXLXLXLXPXLXHXE.>.>.>.>.<.<.2.2.2.q.8.8.8.8.8.8.8.8.8.8.2.2.2.<.3.<.>.>.<.z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.<.>.>.>.>.<.2.2.2.q.8.8.8.8.8.8.8.8.8.8.8.2.2.2.<.<.>.>.3.T.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXDXSXCXSXSXSXDXSXSXDXCXDXCXDXSXDXDXSXDXSXSXDXSXSXSXDXq...>.1.>.<.2.2.2.2.2.8.8.8.8.q.8.q.8.8.2.2.2.2.<.>.>.>.<. .;XKXKXDXDXKXKXDXDXLXDXDXKXKXDXKXKXDXKXDXKXKXLXVXT...1.>.>.3.<.2.2.2.2.8.q.8.8.8.8.8.q.8.2.2.2.<.>.<.>.>.>.>.`.LXLXLXLXLXPXLXLXLXPXLXLXLXPXLXLXLXLXLXLXLXLXIXLXHXE.:.1.>.>.<.3.2.2.2.2.8.8.8.8.8.8.8.8.q.2.2.2.2.<.<.>.>.>.:.z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIXPXPXPXPXPXIXT.:.>.>.>.<.<.,.2.2.2.8.q.8.8.q.8.8.8.8.2.2.2.<.<.<.>.>.3...U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXDXSXDXSXSXSXDXSXDXSXDXSXSXDXDXSXSXDXDXSXDXDXSXDX5...>.>.1.3.1.<.2.2.2.2.2.8.8.8.q.2.2.2.2.2.2.<.<.>.>.>.:. .;XDXDXKXKXDXDXKXKXDXDXKXDXKXKXGXDXKXGXLXKXKXGXVXV. .>.>.3.1.>.<.2.2.2.2.2.2.q.8.8.8.2.2.2.2.2.<.<.<.>.>.>.>.[.PXLXLXPXLXLXLXLXLXLXLXLXPXLXLXPXLXPXPXPXPXLXPXPXHXE...:.>.>.<.<.<.<.2.2.2.2.2.q.q.8.2.2.2.2.2.2.<.<.>.>.>.>...z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.:.:.>.3.>.<.>.2.8.2.2.2.2.8.8.q.2.2.8.2.2.8.<.<.>.>.>.>...U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXSXSXSXSXSXSXDXSXCXDXSXSXSXSXSXDXSXDXSXSXDXDX5...:.>.3.1.<.<.<.2.2.2.2.2.2.2.2.2.2.2.2.2.<.>.<.>.<.....| ;XKXDXDXDXDXGXDXLXDXKXDXLXDXGXDXKXLXKXDXKXKXKXVXT. ...>.1.3.<.<.<.2.2.2.2.2.2.8.2.2.2.2.2.2.<.>.<.>.>.>...>./.LXLXLXLXLXPXLXLXLXPXLXLXLXLXLXLXLXLXLXLXLXPXLXLXHXE...:.3.1.>.>.<.<.<.2.2.2.2.2.2.2.2.2.2.2.<.>.<.<.>.>.>.:...z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.....>.>.<.>.<.<.<.2.2.2.2.2.8.5.2.2.2.2.<.<.<.>.>.>.<.>.X.U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXDXSXSXDXSXDXSXDXSXSXSXDXSXDXSXDXDXDXSXDXSXDXDXSXDXq. ...>.1.3.>.<.1.3.2.2.2.2.2.2.2.2.8.<.<.<.<.>.>.>.>.:...| ;XKXDXKXDXKXKXDXDXKXDXKXDXKXKXLXDXDXDXLXKXKXLXVXT. ...:.<.1.>.>.<.>.<.<.8.2.2.2.2.2.2.2.<.<.>.<.>.>.>.....>.[.PXLXLXLXLXLXLXLXPXLXLXLXPXLXPXLXPXPXLXLXPXLXLXLXHXE.....:.3.>.>.>.<.,.3.2.8.2.2.2.2.8.2.2.<.<.<.>.>.>.>.>.....z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT...:...>.>.>.>.>.<.<.<.2.2.2.2.2.2.2.<.2.<.>.>.>.>.<.......U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXSXDXSXSXDXDXSXSXSXDXDXCXDXAXDXSXSXSXDXSXDXDXSXSXDXq. .....>.>.>.>.3.,.<.<.<.<.<.<.<.<.<.<.>.>.>.>.>.<.:... .X.-XLXKXKXDXDXKXDXDXDXDXDXLXDXKXDXKXKXLXDXLXDXKXVXT. .....>.>.>.>.>.<.<.<.<.<.<.<.2.<.<.<.<.>.>.>.>.>.>.....>.[.LXLXLXLXLXLXLXLXPXLXLXLXPXPXLXLXPXLXLXLXPXLXPXPXHXE.....:.:.>.>.>.>.,.,.<.<.<.<.<.2.<.<.<.<.1.>.>.>.>.:.:.....z.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.........>.>.>.>.<.>.<.3.<.<.<.<.2.<.<.<.<.<.>.>.<...:... .U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXDXSXSXSXDXSXDXSXDXSXSXDXSXSXDXSXDXDXSXDXSXSXDXSXDX2. .....:.>.<.>.1.3.>.3.<.<.<.<.<.<.>.<.>.>.>.<.>.:....... .;XDXKXDXDXKXKXDXKXKXLXDXLXKXKXKXDXLXDXLXDXLXLXVXT. .......>.>.>.<.>.>.>.<.<.<.<.<.<.<.>.<.>.>.>.>.:.:... .>.`.LXLXPXLXLXPXLXLXLXPXLXLXIXLXLXPXLXLXPXIXLXPXLXLXHXR.........:.<.>.>.3.3.,.<.>.<.3.<.,.<.<.>.3.>.>.>.:.........l.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.........:.>.>.>.>.>.<.<.<.<.<.<.<.>.<.>.>.>.>.<...:..... .U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXDXSXDXSXSXDXSXSXCXDXSXDXDXSXDXSXSXDXDXDXDXSXDXDX<.X...........>.3.>.>.>.>.>.>.>.>.>.>.>.<.>.<.............| -XKXDXLXDXLXDXKXDXLXDXLXDXKXDXGXKXKXLXDXLXKXLXVXv.X...........>.>.>.>.>.>.>.>.>.>.>.>.>.>.>.<.>...w.w.....>.~.PXLXLXPXLXLXPXLXLXPXPXLXLXPXPXLXPXPXLXLXPXLXPXPXKXR. .:.......:.:.>.>.>.>.<.>.>.>.3.>.>.1.>.>.3.>.:.:....... .l.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIXPXPXPXPXPXU. . .......:.1.<.>.>.>.>.>.>.>.>.>.<.>.>.>.>.>...:.......| U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXDXSXSXSXSXSXSXSXAXSXDXSXDXSXSXDXSXDXSXDXSXDXDXDXSXDX5.X.........:.:.:.>.<.>.>.>.<.>.>.>.>.<.>.:.:.....:..... .] -XLXDXDXDXDXKXGXDXDXKXDXKXKXLXKXKXDXDXLXLXDXLXVXv.] .........:.>.<.>.>.>.>.>.>.>.>.>.>.>.>.:........... ...[.PXLXPXLXLXLXPXPXLXLXLXLXPXLXLXLXLXLXPXPXLXPXLXLXIXR.| | ..........:.<.3.>.>.>.>.>.>.>.>.>.>.>.>.........:.X.X.x.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.X.X...........:.>.<.>.>.>.>.>.>.>.>.>.>.>.:........... .| z.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXSXSXSXDXSXDXSXSXDXSXDXSXDXDXSXSXSXSXDXSXDXSXDXDXDX2.| X. ...........:.:.1.1.3.>.>.>.>.>...:............. .X.) ;XLXKXKXDXKXDXKXKXDXKXKXDXKXGXKXDXLXKXLXKXKXKXVXv.X.X.............:...:.>.>.>.>.>.>.1.................| ...[.LXLXPXLXLXLXLXLXLXLXPXLXLXLXIXPXPXLXPXLXPXLXPXLXHXE.| X...:.........:.:.:.>.>.>.>.>.>.>.>.:............. .X.| l.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.| | | ............:.:.>.3.>.>.>.>.>...:.....w....... .X.| U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXDXSXDXSXSXSXSXDXDXSXDXSXDXSXDXDXDXDXSXDXDXSXDXDXSXDX4.X.X.X.| ..............:.:.:.:...:.:..... .w..... . .X.X.| XXKXKXDXKXDXDXLXDXLXDXLXKXKXKXDXLXLXKXDXLXGXLXVXv.| | .| ..............:.:.:.:.:...:............... .| ] ..[.PXLXLXLXPXPXLXPXPXLXLXPXPXLXPXLXLXPXLXPXLXPXLXPXHXW.| | | | ...... .......:.:.:.w.:.:....... .....:...X.| | | l.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT. .| ..| ........ . ...:.:.:.:.:...:.....:......... .X.X.] U.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXSXDXSXDXSXDXSXDXSXDXDXSXDXCXSXDXDXSXDXDXSXDXSXDXDXDX2.| | X.| . .w................... ........... . .] | X.X.) ,XKXDXKXDXKXKXDXDXLXGXKXKXKXKXKXLXDXKXKXKXLXLXVXU.| .| X.| ...... ....... ...................w.| | | | ...[.LXLXPXLXLXLXLXLXLXLXPXLXLXPXLXPXPXLXPXPXLXLXPXPXHXW.| .| | | ......... .......................:.X. . .| . .l.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXz.| | | | | | ..:...............................X.X.X.X.X.| z.NXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXSXDXSXSXSXDXDXSXDXSXSXDXSXDXDXDXSXDXSXDXDXDXDXDXSXSX2.' X.X.| | | | | .......... ............. . .X.| . . .X.) XXLXKXKXDXKXGXLXDXDXKXKXKXGXDXLXKXLXDXLXLXDXLXVXz.] | .X.X.] | . ......................... .| | X.X. .] w.~.PXLXLXLXPXPXLXLXPXLXPXLXPXLXPXLXPXLXPXLXPXPXLXPXHXW.] | .X.X.| X. . .........................| | | | X.X.X.] x.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXz.] | | ..| | ..X........................... . .X.X.X.X.X.) z.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXDXSXSXSXDXSXSXGXSXSXDXDXSXDXSXDXSXDXSXDXDXSXDXDXDXCX1.] | X. .| | X.X.| | .X.X..... . . .X. .| | | X. .X.] ] ) XXGXGXKXKXKXDXDXLXLXDXLXKXDXLXLXLXDXLXKXDXLXLXVXz.] ] [ X.X. .X.X.X. . . . . .:... . .X.| | X.| | .| | ] w.~.PXLXLXLXPXPXLXPXPXLXLXPXLXPXLXLXPXLXPXPXPXLXPXPXHXW.] ] | X.X.| | X.| . . .| .....X. . .| .[ X.X.X. .X.] ] x.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXv.] ] | X.X.| | | .| .X. ....... . . .[ X.X.X.X. .X.| | ] z.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXDXSXDXSXSXDXDXSXDXSXDXSXSXDXDXSXDXSXDXDXDXDXSXDXDXAX,.' ] ] ] . .X.X.X.X. .X.X.X.X. .] | .] .| . .X.] ] ] ) XXLXKXDXLXDXLXDXKXDXKXDXLXLXLXDXLXKXKXLXLXLXLXVXz.' ] ] ] | .X.X.X.X.] | .| | | | .| | .| X. .| ] | ] [ !.PXLXPXLXLXLXLXLXLXPXPXLXLXLXPXPXLXPXLXLXPXPXLXLXHXE.] [ ] | | . .X.X.| | .| | . .| | X.| | | X. . .] ] ] ] z.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXT.] ] [ | | .X.X.| X.X.| X.| [ .| | | X. .X. .X.X.X.] ] } z.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXDXSXDXSXDXSXDXDXAXDXSXDXSXDXDXDXSXDXDXDXSXDXDXDXDX6.) ] ] ] ] ] | X.X.X.| .X.X.| X.| ] | | . .| ] ] ] ' ] :.3XKXDXLXDXLXKXLXKXKXLXKXKXKXLXLXKXLXLXKXKXGXLXLXV.) ] ] | ] ] X. . . . .| X. .| X. .X.X.X. . .| | ] ] ] ] :.'.PXPXLXLXPXLXPXPXLXIXLXPXPXLXPXLXPXLXPXPXLXLXPXPXPX'.] ] ] ] ] ] | X. .X. .| | | | .| | . .X. .| X.] ] ] ] [ ].PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX'.w.] ] ] ] ] | X. . .X. .| | X.| | | . .X. .X.X.] ] ] ] } [.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXSXSXDXSXDXSXDXSXSXDXDXSXDXDXDXSXDXDXDXSXDXDXDXSXDXDX/.[ ] ] ] ] ] | [ | X.| X. . . . .X. . .| ] | ] ] ] ] ] ' v.BXDXLXDXKXDXDXKXKXKXKXGXKXLXDXDXLXKXKXKXLXLXKXLX:X:.' ] ] ] ] ] ] ] ] X. .| | | .| .X.| ] ] ] ] ] ] | ' p.IXLXLXLXPXLXPXLXLXLXPXLXLXLXPXPXPXLXPXLXPXPXLXPXPXPXcX$.] ] ] ] ] ] ] ] | | | . .| .| .X. .] | ] ] ] ] ] ' w.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXIX:.' ' ] ] | ] | ] ] | | .| . .X. .| ] ] ] ] ] ] ] ] } ] 0XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXDXSXDXSXDXDXSXDXDXSXDXDXDXDXSXDXDXDXDXDXSXDXDXDXSXDXv.' ' ] ] ] ] ] | ] | | ] | | ] | ] | ] | | ] | ] ' ) $.2XLXGXKXKXDXLXKXKXKXDXKXLXDXLXKXLXDXLXKXKXLXLXDXLXKX!.' ' ] ] ] ] ] | ] | | | | ] ] ] | | | ] ] ] ] ] ] ' $.>XPXLXLXPXLXLXPXLXLXLXPXPXLXPXLXLXPXLXPXPXPXLXPXLXPXLXPXXX' ' ] ] ] ] ] ] | ] ] ] ] ] ] | ] | ] | ] ] ] ] ] ' ] qXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX0Xw.' ' ] ] ] ] | ] | ] | | | ] | ] ] ] ] X.] ] ] ' ' ( '.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXDXDXSXDXSXSXDXSXDXSXDXSXDXDXDXSXDXSXDXDXKXDXSXDXDXDXZXA.] ' ' ] ) ' ) ] ] ] ] ] ] ] ] ] ] ] ' ] ' ' ' ' a.3XDXDXKXLXDXGXKXKXGXKXLXKXKXLXLXLXKXKXLXKXLXKXLXLXLXLXAX_.[ ) ) ' ] ' ' ] } ] ] ] ] ] ] ] ) ] ] ] ) ' ' ( 7.0XPXLXPXLXPXLXPXLXPXPXLXPXLXPXLXPXPXLXPXPXLXPXLXPXPXPXPXPXPX>X4.) ' ' } ] ' ] .X.X. .X. .X.| ] | ' ' ] ' ' ' <.>XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXqX5.} ' ' ' ] ] } ] ] ] ] ] ] ] ] ] ] ] } ] } } } 1.XXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXDXDXSXDXDXSXSXDXDXSXDXDXDXDXDXDXDXDXDXDXSXKXDXDXDXDXDXGXBXrX/._._././././._././././././.`./././././._./.3XBXKXDXLXKXKXKXKXKXKXKXKXGXLXLXKXDXLXKXLXKXGXLXLXKXLXLXLXLXKXuX-X/.`.`.`.`.]./.`.).XX`.`.`.`./.`.`.`.`.`.`.>XnXLXLXPXPXLXLXPXLXLXPXLXPXPXPXLXLXPXLXLXPXPXLXPXPXPXPXPXPXLXPXPXNX3X`.].].XX[.C a d p p p p p y d h '.'.'.].`.qXNXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXMXqX].'.'.].].'.'.].].].].].].].].].].].].].].qXNXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXSXDXDXSXDXDXDXSXDXDXSXDXSXSXDXSXDXDXSXDXDXDXDXDXDXDXDXGXGXDXSXDXAXDXDXDXDXDXAXAXKXDXAXDXDXDXDXKXDXKXDXLXLXKXKXKXDXDXLXDXKXLXKXKXKXDXLXKXLXKXLXLXKXKXLXLXLXLXLXLXLXLXPXLXKXLXLXLXGXLXIXLXIXKXKXKXIXIXLXLXLXLXIXLXPXPXPXPXLXLXLXLXPXLXPXLXLXPXLXLXLXPXPXLXPXPXPXLXPXLXPXLXLXLXPXPXPXPXPXPXPXPXPXPXJXB > > > 0 > > > & & v PXPXPXPXPXPXPXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXDXSXSXDXSXDXDXSXDXDXSXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXDXDXDXDXLXGXDXDXKXDXLXDXGXKXKXKXKXKXDXLXKXDXDXLXLXDXLXKXKXDXDXLXKXLXLXKXKXKXKXLXKXLXLXLXLXLXKXLXLXLXLXLXLXPXLXLXLXLXLXPXLXLXLXPXLXLXLXPXLXLXLXLXLXLXPXLXLXPXPXLXLXPXPXLXPXLXLXPXLXLXPXPXLXPXPXLXPXLXPXPXPXPXPX(.;.0.Y.Y.Y.Y.Y.Y.Y.Y.>.{ { [ ] { { ] { ] :.z.Y.Y.Y.Y.Y.Y.Y.Y.l.6.f.HXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXSXDXDXSXDXDXDXSXDXSXDXDXSXSXSXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXLXDXDXDXDXDXKXDXDXKXDXKXKXDXDXKXDXKXKXDXKXKXLXDXKXLXLXGXKXLXLXKXLXKXLXLXKXLXLXLXLXKXLXKXKXLXLXLXKXLXLXLXLXLXLXIXLXLXLXLXLXLXLXLXLXPXLXLXPXLXPXLXPXLXLXPXLXLXLXPXLXLXPXLXPXPXPXLXPXPXLXLXPXLXPXPXPXLXPXLXPXPX*X{ 2.f s s s f s s f f f f f f f f f f f f f s s f f s f s f f f ^ x.#.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXDXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXLXDXDXDXDXKXDXKXDXGXDXKXKXKXKXKXKXKXDXDXLXDXKXLXKXKXLXKXKXLXDXKXKXLXKXGXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXLXPXLXPXPXLXLXPXLXLXPXPXPXPXPXLXPXPXLXPXPXPXPXPXPXnX&...p w 0 q q q q q q q q q q q q 0 q q q q q q q q q q 0 q q q q e m 1.).PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXSXDXDXDXSXDXSXDXAXDXSXDXDXDXDXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXLXDXLXDXKXDXKXDXKXDXDXKXDXLXGXKXLXDXLXDXKXKXLXDXGXLXKXLXLXLXKXLXKXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXPXLXPXPXLXLXLXIXPXIXPXLXLXPXLXLXIXPXLXLXPXLXLXPXPXLXLXIXLXPXPXLXPXPXLXLXPXPXLXPXNX$.d 0 0 q q 0 q 0 q 0 0 0 0 q q 0 q q 0 q q 0 0 q q q 0 0 0 0 0 0 0 q b M.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXDXSXSXDXDXDXDXDXDXDXSXDXDXSXAXDXSXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXKXDXKXDXDXKXDXKXDXDXGXKXDXLXLXDXDXKXKXGXKXKXDXLXLXLXDXDXLXLXLXKXKXKXLXKXKXLXLXKXKXLXLXLXLXLXLXGXLXLXLXPXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXPXPXLXLXPXLXLXPXLXPXLXPXLXPXLXPXLXPXPXLXPXPXLXPXPXPXPXPXPXPXLXPXPXMX_ 0 q 0 q q q q q q q q q q q q q q q q q q q q q q q q q q q q q 0 0 u A.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXSXDXDXDXDXSXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXDXKXLXDXKXGXKXKXDXKXLXDXDXKXLXKXKXDXLXDXKXKXDXLXLXLXLXDXKXLXLXKXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXPXLXLXLXPXPXLXLXLXLXPXPXLXLXPXPXLXPXLXPXLXPXLXPXLXLXPXPXLXPXPXLXPXLXLXPXPXPXPXPXcXv 0 q q q q q q 0 w q q q q q q q q q w q q q q q q q q q q q q q q q w n.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXDXDXDXSXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXLXDXGXDXDXKXDXGXDXDXLXDXKXLXDXDXLXDXLXDXKXKXDXLXGXLXKXDXKXLXLXLXKXKXKXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXPXLXPXLXLXIXLXPXLXLXIXPXLXPXIXLXPXLXPXLXLXPXLXPXLXPXPXLXPXPXLXPXPXLXPXPXPXPXPXLXPXPXPXxXv q q q q q q q w 0 0 > > > 5 > 5 0 > > 5 5 5 5 > > > q q q 0 q 0 q 0 q c.JXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXSXDXDXSXDXDXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXGXDXDXKXDXGXDXKXDXDXDXDXKXKXDXKXDXLXDXDXLXKXDXKXLXDXLXDXLXKXKXLXLXKXKXLXLXLXLXDXKXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXKXLXPXLXLXPXLXLXLXLXLXLXPXLXLXPXLXLXLXLXLXPXLXLXPXLXPXPXLXPXLXPXPXLXPXLXLXPXPXLXPXPXLXLXPXPXLXPXPXPXxXv 0 q q q q q q q w B M.N.N.N.N.N.n.N.N.N.M.m.m.N.j.v > q q q q q q q w c.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXDXDXSXDXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXKXDXDXKXDXKXDXKXDXGXDXKXDXKXDXDXKXKXDXKXGXKXLXDXKXKXLXDXDXLXDXLXGXLXKXLXKXLXKXLXKXLXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXLXLXPXLXLXPXPXLXPXLXPXLXPXLXLXPXPXLXPXLXLXPXPXLXPXLXPXPXPXPXPXLXPXPXPXPXPXcXv q q q q q q > u P.cXJXJXIXIXJXJXJXJXJXIXIXIXJXJXHX0X%.q q q q q q q w b.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXSXDXDXDXDXDXDXDXSXSXDXDXDXDXDXDXDXDXDXDXDXDXDXKXDXKXDXDXKXDXDXKXDXLXDXDXKXLXDXKXKXDXGXLXKXKXKXDXLXGXDXKXLXLXKXLXLXKXKXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXPXLXLXPXLXPXPXLXLXIXLXLXLXPXPXLXPXLXLXPXIXPXLXPXLXPXLXPXPXLXPXLXLXPXPXPXPXPXLXPXPXPXLXPXPXPXPXPXPXPXPXxXv q q q q q q w %.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXxXi q q q q q q w c.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXSXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXDXGXKXKXDXKXKXDXLXLXDXKXKXGXKXLXKXKXLXLXLXDXLXLXDXLXKXLXLXLXLXLXKXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXPXLXPXLXLXLXPXLXLXLXPXLXLXPXLXLXPXLXPXLXPXLXPXPXPXLXPXLXPXPXLXPXLXPXLXPXPXPXLXPXPXPXPXnXx & > & > > > i 3XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX@.> > > & > & > b.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXSXDXSXDXSXKXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXKXDXDXKXKXGXDXKXDXLXDXDXLXDXDXLXDXLXDXLXDXLXDXKXLXDXDXLXLXKXLXLXKXLXDXKXLXKXLXKXLXLXLXLXLXKXLXLXLXLXLXLXLXLXPXLXLXPXLXLXPXLXPXLXLXPXLXLXLXLXPXLXLXPXPXLXLXPXPXLXLXPXLXPXLXPXLXPXPXLXPXPXLXPXLXPXPXPXPXPXPXPXPXPXPX0X[.].].[.{ ~ ^ ^ ^ ~ ~ ` E.].qXPXPXPXPXPXPXPXPXPXPXPXPXPXPX'.].].p.~ ~ ^ ^ ^ ~ ~ x.].].[.0XPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXSXDXDXSXDXDXSXDXDXDXDXDXDXDXDXGXDXDXDXDXDXDXKXDXDXDXDXKXDXGXKXDXDXKXKXDXDXLXKXKXKXGXKXKXKXKXLXLXDXLXKXLXKXKXKXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXLXPXLXLXLXLXPXPXLXLXLXPXPXLXLXPXPXLXPXLXPXLXPXLXPXLXPXPXLXPXLXPXPXLXPXPXPXPXPXPXPXLXPXPXPXIX[.q.x.l.l.Y.l.0.Y.Y.Y.l.l.0.l.0.8.E.PXPXPXPXPXPXPXPXPXPXPXJXU.8.l.l.Y.0.0.Y.Y.l.l.0.Y.Y.l.q.9.[.JXJXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"KXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXKXKXDXLXKXKXDXLXKXDXKXDXLXDXDXLXLXKXDXLXLXKXLXKXLXGXLXLXKXKXLXKXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXLXPXLXPXLXLXPXLXLXPXLXPXLXPXLXPXLXPXLXLXPXLXPXPXPXPXLXLXLXLXPXPXPXPXPXPXPX0X2.z.z.z.z.U.U.T.T.T.T.U.U.U.Y.U.U.2.].PXPXPXPXPXPXPXPXPXPX[.<.T.z.z.U.U.T.U.T.T.T.U.U.U.z.T.l.<.NXJXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXSXDXSXDXDXDXSXDXDXDXDXDXDXDXDXDXDXDXLXKXDXDXKXKXGXGXDXKXDXDXDXKXDXKXDXKXDXKXKXKXKXKXKXLXKXKXKXKXGXDXLXLXKXLXKXKXKXLXGXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXLXLXLXLXLXLXLXLXLXPXLXLXLXLXIXLXLXLXLXPXLXLXPXPXLXPXLXPXLXLXPXPXPXLXPXPXLXPXLXLXPXPXPXPXPXPXLXPXPXPXPXHX[.q.z.8.q.9.0.x.0.l.l.0.9.9.9.8.0.Y.9.x.PXPXPXPXPXPXPXPXPXJXY.z.0.q.q.9.9.9.l.l.l.l.0.9.9.q.9.z.8.].MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXGXSXDXDXDXDXDXDXDXDXDXDXKXDXDXDXDXDXKXDXDXKXKXDXDXKXDXLXLXDXDXLXKXGXKXKXGXKXGXLXDXLXKXGXKXKXKXLXDXLXKXKXGXKXLXLXLXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXKXLXLXLXLXLXPXLXPXLXLXLXPXLXLXPXLXLXPXIXLXPXLXPXPXLXLXPXLXPXLXPXPXLXPXLXPXPXPXPXPXLXPXPXPXLXPXPXPXPXPXLXLXPXHXE.l.3.>.8.<.8.8.q.q.q.9.8.8.8.<.3.2.l.8.PXPXPXPXPXPXPXPXPXJXY.l.>.>.2.8.8.8.q.q.q.q.8.8.2.2.>.2.9.[.MXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXGXDXDXDXKXDXDXDXLXDXKXDXDXKXLXDXLXDXDXLXDXLXDXKXKXDXDXLXLXAXLXKXLXGXKXLXLXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXPXLXLXLXIXLXPXLXPXLXLXLXPXLXPXLXLXPXLXLXLXPXLXPXLXPXPXLXPXLXPXPXLXPXLXPXLXLXLXLXPXPXPXPXLXPXPXPXPXPXLXPXPXPXHXE.8.>.<.<.8.8.q.8.8.q.8.q.q.2.2.<.>.8.8.PXPXPXPXPXPXPXPXPXJXl.2.>.<.2.2.8.q.8.8.8.q.8.2.2.<.<.>.8.[.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXSXDXDXDXDXDXDXAXDXDXKXGXDXAXGXDXKXGXKXDXKXDXKXDXDXGXDXKXKXDXKXDXLXLXDXLXDXKXLXLXKXLXKXGXLXLXLXKXLXLXKXLXKXKXLXKXLXGXKXLXKXLXLXLXLXLXLXLXLXLXKXLXLXLXLXLXPXLXLXLXLXPXLXPXLXLXLXPXLXPXPXLXLXPXLXPXLXLXPXLXPXLXPXPXLXPXPXPXPXPXPXLXPXPXPXPXPXLXPXLXPXPXPXPXPXHXR.>.>.>.<.<.2.2.8.8.8.8.2.2.2.,.3.>.>.8.PXPXPXPXPXPXPXPXPXIXl.>.>.>.<.2.2.2.8.8.8.8.2.2.8.<.<.>.>.[.IXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXDXDXDXGXDXDXDXDXKXDXDXKXDXDXDXDXKXKXDXKXKXKXLXDXLXKXLXKXDXLXKXDXLXLXDXKXLXGXKXLXKXDXDXLXKXLXKXLXKXLXLXKXLXLXLXLXLXLXLXLXLXLXLXLXLXLXPXLXLXPXLXPXLXLXLXLXLXLXLXLXLXLXPXLXPXLXPXLXPXPXPXLXPXPXLXLXPXPXPXPXLXPXLXLXPXLXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXUXR...>.3.1.<.<.2.2.8.8.8.2.2.<.<.,.3...5.PXPXPXPXPXPXPXPXPXJX0.:.3.>.<.<.2.2.8.8.2.2.2.2.<.<.>.>...[.JXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXDXDXDXDXDXDXDXDXDXKXKXDXDXDXDXLXDXKXGXKXDXDXKXKXDXKXDXDXLXDXKXDXLXLXDXKXKXLXKXGXKXLXLXLXLXLXLXLXGXLXKXLXKXLXLXLXLXLXLXLXLXLXLXLXIXLXLXLXLXKXLXLXKXLXLXPXLXLXIXPXLXLXIXLXLXLXIXLXIXIXLXLXLXLXIXPXLXLXIXLXPXPXLXPXIXPXPXLXIXIXLXLXPXIXLXPXPXIXPXPXPXMXR...>.,.>.3.<.<.2.<.<.3.2.<.,.3.>.>. .2.PXPXPXPXPXPXPXPXPXJXl.:.:.>.>.3.<.<.<.<.2.2.<.3.>.>.>.>...[.PXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXDXDXDXDXDXDXKXDXDXDXGXGXKXDXDXKXLXDXLXDXLXDXKXKXKXLXLXDXLXKXKXKXLXKXLXGXKXGXLXLXLXGXLXLXLXGXLXKXLXKXLXLXKXIXLXKXKXLXLXJXHXLXLXLXLXLXHXLXLXHXLXGXLXIXLXIXLXIXLXLXLXHXIXLXLXIXLXLXJXKXIXLXIXLXLXIXLXIXIXIXIXLXIXLXJXIXLXPXLXIXPXIXPXJXJXJXJXJXIXIXLXMXT.....:.:.3.>.>.<.<.<.,.3.>.<.>.:.....2.PXIXJXIXPXPXPXIXPXHX0.:...:.3.>.<.>.<.<.<.<.>.<.>.>.:. ...[.IXPXPXPXPXPXPXPXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXDXDXKXGXDXDXDXDXGXKXDXDXDXKXDXDXDXGXLXKXDXKXGXKXDXDXDXLXDXKXGXDXKXDXKXKXKXKXLXKXKXKXLXAXKXKXAXHXGXKXKXHXKXAXLXKXKXGXJXGXKXHXGXLXHXKXKXHXAXAXHXAXAXUXAXAXUXAXHXAXHXHXAXHXAXHXAXAXHXAXHXHXHXHXHXHXHXKXHXKXHXKXHXHXHXHXHXHXHXHXHXHXHXHXMXJXJXJXJXJXJXMXT. .......1.>.>.<.>.>.3.>.>.>.:..... .<.IXJXJXJXJXJXJXJXIXMX9...:...:.:.>.3.<.>.>.>.3.>.:.:.:... .[.IXJXJXIXPXIXIXIXIXJXJXIXIXPXIXIXPXPXJXJXPXIXIXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXGXDXDXAXDXKXKXDXLXDXLXDXLXDXKXDXKXDXDXAXDXDXKXDXKXAXDXAXDXDXAXGXAXAXDXKXHXKXAXAXKXAXAXAXAXAXAXAXAXVXAXAXAXAXAXAXHXAXAXAXAXAXAXAXAXVXUXVXVXnXnXnXnXnXnXnXbXnXbXbXnXnXnXnXnXnXnXnXnXbXnXbXnXnXnXbXnXnXnXnXnXnXnXnXnXmXMXmXMXnXnXnXnXNXNXcXNXnXnXMXMXcXT.X. .........>.:.>.>.:.:.>.:..... .X.>.JXMXMXMXMXMXMXMXMXMXq.X.X.:.:...:.:.:.>.>.:.:.:...:.:. .X.E.MXJXJXJXJXJXJXJXJXJXJXJXJXJXJXJXIXJXJXJXJXJXJXJXJXJXPXIXIXIXPXIXPXPXIXJXPXJXIXJXJXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"SXDXDXDXDXDXDXDXDXDXGXDXDXDXDXAXDXAXDXDXKXDXDXAXDXAXDXDXAXDXVXAXDXAXAXAXVXAXVXAXDXAXVXVXAXBXVXBXBXbXbXbXbXbXbXvXmXbXbXbXbXmXbXvXnXbXbXbXnXnXvXvXvXxXxX9XuXiX6X6X5X9X5XuX6X9X6X9X6X6XuX6X6X6XuX6X9X9XuX9X9XrX9X9X6XxX9X9X9X9XuX9XuX9XuX9XuX9X9XuX9X9X9X9XuX9X9XxX0XY.X.X. .............:........... .X.X.>.cX9X9X9X9X9X9XxX9X9Xq.X.X.X.X.........:.:.:.......X.X.X.X.E.MXNXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXHXMXMXMXJXJXJXIXIXJXJXJXJXJXHXJXJXJXJXJXJXIXIXIXPXIXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXKXDXDXDXAXGXDXDXSXSXDXAXFXAXSXAXDXVXVXDXVXVXAXVXZXZXZXbXbXbXvXvXbXvXbXvXbXvXvXvXvXiXiXuXrXrXrX6X4X6X6X6X5X6X6X6X5X6X6X9X6X6X9X6X9X6X6X4X4X3X1X1X:X:X:X;X;X:X*X*X:X;X*X:X:X:X-X:X-X-X:X;X:X*X:X:X:X-X:X:X-X:X-X:X:X-X:X-X:X:X-X:X-X:X:X>X:X-X:X-X:X-X>X'.x.| . .| . . ........... . .X.X.X.] :.>X:X:X:X,X:X:X>X:X,X2.X.X.X.X.X.X.w.w...:...X.X.X.X.X. .| V.9X9X9X9X9X9X9X9X9X9X9X9X9X9X9X9X9X9X9X9XxX9XcXNXNXNXNXNXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXMXJXJXJXJXJXJXJXIXJXIXJXPXPXIXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXDXDXDXAXSXDXDXVXAXAXAXAXBXVXBXbXbXvXvXvXvXvXvXiXvXuXvXrXrXrXrX4X4X6X6X5X5X6X5X5X5X5X4X7X7X:X1X:X:X=X:X=X=X:X*X*X*X:X=X:X*X*X*X*X*X*X&X&X&X).).(.^.P.L.L.L.L.J.L.^.G.L.L.J.J.J.J.L.L.^.J.L.G.^.^.L.L.L.L.G.^.L.L.^.J.^.^.^.J.^.^.^.^.^.^.G.^.^.^.^.^.^.^.G.9.] ] | | | | | . . .| .| .X.X.[ ] :.^.^.^.^.^.^.~.^.^.^.,.{ X.} X.X.X.X.X.X.X.X.X.X.X.X.[ | ] z.-X:X-X:X-X>X>X:X:X:X:X>X,X>X:X>X,X>X:X:X>X>X>X>X3X9X9X9X9X9X9X9X9X9X9X9X9X9XcXcXcXNXNXNXNXNXMXMXMXMXMXMXHXMXJXHXHXJXJXJXJXJXIXPXIXPXPXIXPXPXPXPXPXPXPXPXPX",
|
||||
"DXDXDXDXSXAXAXCXAXBXBXvXvXvXvXvXvXvXiXiXtX6XrXtXeX4X4XeX7X7X<X7X=X=X=X:X=X=X*X=X=X*X*X=X*X&X&X&X(.(.P.L.L.L.L.L.J.J.L.L.L.L.J.J.J.J.J.J.J.J.G.G.G.H.F.F.B.B.B.m.m.m.m.n.n.m.n.m.m.n.n.m.m.n.n.m.n.M.n.n.n.n.n.n.n.n.n.n.n.n.n.n.M.n.n.M.n.n.n.n.n.B.n.n.n.n.B.n.M.9.' ] ] ] | .X.| | | | .| ] ] | ] ] ,.B.n.n.n.B.n.n.n.B.n.,.} X.{ X.X.X.X.X.X.X.X.X.X.X.X.} ] ] v.G.^.!.L.^.^.~.^.^.^.^.^.^.^.^.~.^.^.^.^.^.).).).&X&X-X-X-X:X:X:X:X:X,X>X>X>X>X3X3X3X9X3X9X9X9XxX9XcXcXcXcXNXMXMXMXMXMXMXMXMXHXJXJXIXPXIXPXPXPXPXPXPXPXPXPX",
|
||||
"DXAXCXAXVXZXbXbXiXiXiXiXiXrXrX4X4X4X4X7X1X1X1X=X=X=X&X=X&X&X.X.X(.P.P.L.P.L.J.J.J.J.G.J.G.K.H.F.F.Z.M.M.m.m.n.m.b.n.m.b.n.b.n.m.n.m.n.N.n.n.b.b.c.j.g.g.f.u.=.u.=.*.*.=.*.*.*.=.*.=.=.*.=.=.=.*.*.=.*.=.=.*.=.=.=.=.=.*.=.=.*.=.=.=.=.=.=.=.=.*.=.=.=.=.=.=.=.=.=.=.w.' ] ] ] | | | | | | | | ] ] ] ] [ 4.=.=.=.=.=.=.=.=.=.=.-.w.} } X.} X.X.X.X.X.X.X.X.X.} X.} 1.c.n.n.n.n.B.n.B.n.B.B.n.n.B.B.n.B.n.B.n.B.B.B.F.F.F.G.G.!.^.^.^.^.^.^.^.^.^.^.^.).).).'.-X>X:X:X>X>X>X>X3X3X0X9X9X9XxXxXNXNXNXMXNXMXMXHXJXJXPXIXPXPXPXPXPXPX",
|
||||
"SXSXVXBXvXiXiXrX4X4X7X7X1X<X*X=X.X=X.X.X X_.P.J.J.K.K.K.K.H.Z.A.Z.Z.m.m.m.m.b.m.m.N.m.b.b.b.c.c.g.g.f.u.f.*.*.*.*.*.*.*.*.*.u.*.=.=.*.*.*.=.&.*.&.&.%.@.@.#.#.+.O.O.O.O.O.O.O.O.O.O.O.+.+.+.+.+.O.+.O.+.O.O.O.O.O.O.+.+.O.+.O.O._ +.+._ +.+._ +.+.+.+._ +.+.+._ +.+.+.{ [ [ [ [ [ [ [ [ [ [ [ [ [ [ { o.+.O.+.O.o.+.o.+.o.+.O.+._ [ [ [ [ [ [ [ [ [ [ :.[ [ [ :.[ &.&.&.=.&.=.=.=.=.=.=.=.=.=.=.*.=.=.=.=.=.=.f.f.k.k.j.j.n.n.n.n.B.n.n.B.n.B.B.B.B.B.G.F.G.G.G.^.^.^.^.^.).).).-X-X-X>X>X3X3X3X9X9X9XxXNXNXMXMXHXJXIXPXPXPXPXPX",
|
||||
"AXVXvXiXrXeX7X1X<X=X.X X.XP.L.L.K.K.K.Z.Z.Z.m.Z.N.N.m.b.c.c.h.u.f.u.u.u.*.u.*.*.*.*.*.*.*.*.%.&.%.@.@.#.O.+.O.#.#.O.O.O.O.O.O.O.O.O.O.O.O.O.O.O.O.B B B B N N N N N N N M M N N N N M N M M M N M M M M N N N M N N M M M M M N N N N N N N N N N N N N n N N N M N N N ` ` ` N ` ` ` N ` ` N ` ` ` B N N N N N M M N N N N M M N ` ` ` N ` N ` ` ` ` _ _ ` ` _ _ _ +.+.+.+.+.+.+._ +.+.+._ +.+.+.+.+.o.+.+.+.+.@.@.&.&.&.=.&.=.=.=.=.=.=.=.=.=.=.=.f.j.j.n.n.n.n.B.B.B.B.B.F.G.G.G.^.^.^.).).'.-X:X>X>X3X9X9XNXMXHXJXJXIXPXPXPX",
|
||||
"BXvXiX6X7X=X.X XL.L.K.H.Z.Z.N.N.b.b.c.g.g.g.u.u.u.u.u.-.%.-.&.%.@.@.#.#.#.O.O.+.O.O.#.O.O._ _ B B B B N N V M M V M M M M M M V M M M N M M C C M n C n n c c c m c c c c c c c c c c c c c c c c c c c c c c c c c c c c c f m c c c c c c c c c c c c c c c c c c c c c v c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c c v c v v n n n N n N N N N N N N N N N N N N N N N N N N B B B _ o.O.O.O.+.+.+.+.+.+.+.+.+.+.@.&.&.&.&.=.=.=.=.=.k.k.j.j.j.n.B.B.B.F.F.G.!.^.^.).-X>X3X9XcXMXMXJXJXPXPXPX",
|
||||
"BXiXeX1X=X(.J.H.F.N.b.b.j.g.g.f.u.u.%.u.%.@.@.#.O.#.O.O.O.O.B B B B V N N M M M M M N M M M C n n m m v m c c c c c c c c c c c c c c c v c c c c s c c s h h s s a h a a a a a a a a a a a a a a a a s a s s s s a s s s a s s s s s a a a s s s a s s s s s s s a s s a s s s s a s s s s s s a s s a s s s s s s s s s s s s s s a s s s a s a s a a s s s s c c c c c f c c c f c c c c c c c c c c c m m m n n n n n n N N N N N N N N N N B B B ` _ _ O.+.+.+.+.@.@.@.&.&.&.=.=.=.f.j.j.j.n.B.B.G.G.).-X>X9XcXMXJXIXPXPXPX",
|
||||
"BXrX7X=XP.K.Z.N.c.u.u.u.u.%.%.@.@.#.#.B _ B B V V V M M M M C n n n n c m v m v v v m c v c c c v c c a s h a h s a a h a s a s s a s s s s s a a a a a a d a a a a a a p a p a d d d p p a p p p p d d p d p p a p a p p a p p p a p a p a p p p a p p a p p a p a p p p p a p p p a p a p p a p p p p a p p a a p p s p p p p a p a p p a p a a a a p a a a a a a a a s s a s a s s s a a s a a a a a a s s s s c s c c c c c v m c v m n c m m n n n n N N N N N B B N _ _ +.+.+.+.@.&.&.&.=.f.j.n.n.B.G.).-X3XxXMXJXIXPXIXPX",
|
||||
"iXtX1XoXP.F.m.h.u.u.u.%.@.#.#.B B B V B V M M C n n n n v c n h c c h h h h h h h s h s s h a s a d a a a a a a a a a a p a a p a p p a d p a a p a a p d p p p y y p d p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p y p a p p a p p a p a a a a p a p a p a a a a a a a a a a a a a a s s s s s s s s s s s s s c c c c c c c m m m m n n n N N N ` B _ O.+.+.@.&.&.*.f.k.n.F.G.-X>X9XNXMXIXPXPXPX",
|
||||
"vXtX1X&XJ.Z.b.g.u.u.%.@.@.O.B G B B N V M C C n n n n v m h v h h c c h h a h a h a a a a a a a a a d a d d d a a d p p a p d d d d d y y a y a p p p p p p p p p p p p p p p p p p p p p p p p p d d p p p p p y p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p a p p p p p p p p p p p p p p p p p p p p p p p p p a p p p p p p a a a a a a a a a a a s s a a s s s s s s s s s c s c c c c v c c m m n n M N N N N B B _ O.+.@.@.&.*.=.k.n.B.^.).>X9XNXHXJXIXPXPX",
|
||||
"BXrX7X=XP.K.Z.b.g.u.u.%.%.;.@.+.O.O._ B B V V V C n n n n n n n n m c v c c c h h h h h h h h s a c h a a c h a a a a a a a p d p d a a p a a a a a a d a d a p d p d d a p p a p a p a a a p a a p d p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p s p p a p a p a p p a a p p p a a a a a a a p a a p a p a a a a a a a a a a a a s s s s s s s c s s s s c s c c c c m m v m n m n n n n N N N N B _ _ _ +.+.@.@.&.&.*.=.k.j.n.F.^.'.>X9XNXHXJXPXPXPX",
|
||||
"bXiX4X1X XJ.H.Z.N.c.g.u.u.u.u.%.%.%.#.#.#.#.O.B _ B B B V V V M V M V C C n n n c v m v v m v m c c c v m c v c v f f h c a s h s s a a s s s s s s s a s s a a a a a a h s s s a s s a a a a a a a a a d d a y p a p p a p p a a p a a p p p a a p p a a p p p p a p a p p a p p a p p a p p p a p p a p a a a a a a a a a a a s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s f c c c c m m v c m c m v m c m m n m n n M M N ` N N N N N _ _ _ _ _ +.+.+.+.@.&.&.&.=.=.f.k.k.n.n.B.F.^.).>X9XcXMXHXJXPXPXPX",
|
||||
"BXiXiX4X1X=XP.L.K.Z.Z.Z.Z.b.c.j.g.g.f.f.u.u.*.%.%.%.#.#.#.#.#.#.#.O.#.B _ B B B V B N N N N N N N B N N M M C M M n n v v m v c m c v m v v c c v c c v v c c v c m c c c c c v c c c v c c c c s a h a h h h s s s s s s s s s s s a a s s s s s s s s s s s s a s s s s s s s s s s s s s s s s s s s s s s s s s s f c c c c f m c c c c c m c c c m c c c m c c c m c c c c m m c c n m m n n n n M N N N N N N B N N N B N N ` B B B B _ _ O.+.+.@.@.@.@.@.@.@.&.&.&.=.=.=.=.k.k.j.j.n.n.B.F.F.G.^.).&X>X3XxXNXHXJXPXPXPXPX",
|
||||
"AXBXvXrX6X1X=X=X.X.XP.P.J.K.H.Z.F.Z.M.m.b.b.b.c.j.g.f.f.u.u.f.f.u.u.-.-.&.%.%.@.#.#.#.#.#.+.+.#.+.+.O.+.+.O.O.O._ B B B B N N N N N N N M N N N N N N N N N N N N N N V N N N N N N M M N M n n n n n m m v m m m m c c c c c c c c c m c c m c c c v c c c m m m c c c c c c c c c c m c c c m c c v m c c m c n n n n n n N N N N N N N N N N N N N N N N ` N N N N N N N N N N N N N N N B _ _ _ _ +._ +.+.+.+.+.@.@.@.@.+.+.@.@.@.@.&.&.&.=.=.=.=.=.=.=.f.f.k.j.j.j.n.n.B.B.B.F.F.H.G.G.^.^.^.).-X-X>X3X9XxXMXMXJXIXPXIXPXPX",
|
||||
"DXAXBXBXiXrX6X4X4X<X;X=X=X.X.X.X(.P.P.L.K.K.G.H.F.Z.Z.Z.M.m.M.N.b.m.b.b.c.g.g.g.f.f.f.=.u.u.u.=.u.u.=.u.=.=.*.&.&.&.%.%.#.@.#.#.#.#.O.#.O.#.+.O.+.+.+.+.+.+.#.#.+.+.+.+.+.+.+.+.+.+.+.O.+._ _ B B V N N N N N N M M N N N N N N N N N ` N N N N N N N N N N N ` N N N N N N N N N N N ` N N N N N N N N N N N ` N N _ B _ _ O.O.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.@.@.@.+.@.@.@.@.&.&.&.=.=.=.=.f.=.=.=.=.=.=.=.=.f.=.j.j.j.j.j.n.n.B.B.B.B.B.B.B.F.G.G.G.G.^.^.^.).).).-X-X,X>X>XqX3X0X9XxXNXMXMXJXJXIXPXPXPXPX",
|
||||
"DXDXAXAXBXbXvXvXrXrXrXrXeXeX2X7X:X1X=X=X*X=X&X.X.X X_.^.L.L.L.L.L.G.J.G.H.Z.Z.Z.M.M.M.m.m.m.N.N.m.m.m.M.B.n.n.b.c.j.f.g.f.f.=.f.=.f.=.=.=.=.=.=.=.=.=.=.u.u.=.*.=.*.=.=.=.=.=.=.=.=.=.=.*.&.&.@.@.@.@.@.O.+.+.+.+.@.+.+.+.+.+.+.@.+.@.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.+.@.+.+.+.+.+.+.@.+.+.+.+.+.+.+.+.@.+.@.@.@.@.@.;.&.&.&.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.f.=.=.=.=.=.=.f.=.=.f.=.f.f.=.k.j.j.j.n.n.n.B.B.B.B.B.B.B.B.B.B.B.B.B.B.F.G.G.G.G.G.^.^.^.^.^.).).).).'.,X>X>X>X>X>X3X3X3X0X9X9XcXcXNXNXMXMXJXJXJXIXIXPXPXPXPXPX",
|
||||
"DXAXDXDXDXAXBXVXVXBXvXvXvXuXvXrXiXrXrXrX6X5X4X7X7X1X:X<X:X:X=X=X=X*X*X&X.X.X.X(.P.P.P.^.P.L.P.L.P.L.L.L.J.J.J.G.H.H.F.F.F.M.M.M.M.M.N.B.N.M.M.B.M.M.N.B.M.N.B.B.B.B.B.B.B.B.M.M.B.n.n.n.n.n.j.j.j.f.f.=.f.f.f.=.f.=.=.=.=.=.=.=.=.=.=.=.f.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.f.k.j.j.n.n.n.n.n.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.F.G.G.G.G.^.^.^.^.^.^.^.^.^.).^.^.^.).).).).).-X-X>X>X>X>X>X>X>X3X3X3X0X3X9X9X9XxXcXcXcXMXNXMXMXMXMXHXHXMXJXJXIXIXPXPXPXPXPXPXPX",
|
||||
"KXDXDXAXKXAXDXAXDXVXAXVXVXVXZXBXbXbXbXbXvXvXvXvXxXxXrXuXiX6X6X6X6X6X6X5X4X2X2X:X:X:X1X:X:X:X:X:X:X:X:X:X:X*X*X&X&X.X).^.(.^.^.L.P.L.L.^.L.L.P.^.P.^.P.L.^.^.^.^.L.^.L.^.L.P.P.L.^.^.^.L.G.G.G.F.F.B.B.B.M.B.M.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.B.F.B.F.F.G.G.^.^.^.^.^.).^.^.^.^.^.^.^.^.^.^.^.).^.^.^.^.^.^.^.^.^.^.^.^.).).).).-X'.-X>X:X,X>X>X>X>X>X>X>X>X>X>X>X>X>X3X3X3X9X9X9X9X9XxX9XxXxXxXNXNXNXNXMXNXNXMXHXMXHXMXJXJXJXJXJXJXJXJXPXIXPXPXPXPXPXPXPXPXPX",
|
||||
"DXLXDXGXDXKXKXKXGXAXKXAXDXAXKXAXVXDXAXAXAXAXVXVXZXbXBXbXbXbXbXbXbXvXvXvXxXvXuXuX6XiX6XrX6X6X6XuX6X6XiX6X6XuX6X6X5X3X7X2X1X1X:X:X:X:X:X:X:X:X:X:X:X:X:X:X:X1X:X:X:X:X>X:X>X:X>X>X:X:X:X:X-X-X&X).).).^.).^.).^.^.^.^.^.^.^.^.^.).^.^.^.).^.^.^.).^.^.^.).^.^.].^.^.).^.).^.^.^.).^.).^.^.^.).^.^.^.).^.).^.^.).^.^.).).&X'.-X-X-X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X>X3X3X3X9X9X9X9X9XNX9X9XxX9XxXxX9XxXxXcXxXNXNXNXNXNXMXMXNXMXMXMXMXMXMXMXJXMXMXMXMXJXIXIXJXJXJXIXIXPXPXIXIXPXPXPXPXPXPXPXPXPXPXPXPX"
|
||||
};
|
||||
280
LICENSE
280
LICENSE
|
|
@ -1,280 +0,0 @@
|
|||
GNU GENERAL PUBLIC LICENSE
|
||||
Version 2, June 1991
|
||||
|
||||
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
License is intended to guarantee your freedom to share and change free
|
||||
software--to make sure the software is free for all its users. This
|
||||
General Public License applies to most of the Free Software
|
||||
Foundation's software and to any other program whose authors commit to
|
||||
using it. (Some other Free Software Foundation software is covered by
|
||||
the GNU Lesser General Public License instead.) You can apply it to
|
||||
your programs, too.
|
||||
|
||||
When we speak of free software, we are referring to freedom, not
|
||||
price. Our General Public Licenses are designed to make sure that you
|
||||
have the freedom to distribute copies of free software (and charge for
|
||||
this service if you wish), that you receive source code or can get it
|
||||
if you want it, that you can change the software or use pieces of it
|
||||
in new free programs; and that you know you can do these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
anyone to deny you these rights or to ask you to surrender the rights.
|
||||
These restrictions translate to certain responsibilities for you if you
|
||||
distribute copies of the software, or if you modify it.
|
||||
|
||||
For example, if you distribute copies of such a program, whether
|
||||
gratis or for a fee, you must give the recipients all the rights that
|
||||
you have. You must make sure that they, too, receive or can get the
|
||||
source code. And you must show them these terms so they know their
|
||||
rights.
|
||||
|
||||
We protect your rights with two steps: (1) copyright the software, and
|
||||
(2) offer you this license which gives you legal permission to copy,
|
||||
distribute and/or modify the software.
|
||||
|
||||
Also, for each author's protection and ours, we want to make certain
|
||||
that everyone understands that there is no warranty for this free
|
||||
software. If the software is modified by someone else and passed on, we
|
||||
want its recipients to know that what they have is not the original, so
|
||||
that any problems introduced by others will not reflect on the original
|
||||
authors' reputations.
|
||||
|
||||
Finally, any free program is threatened constantly by software
|
||||
patents. We wish to avoid the danger that redistributors of a free
|
||||
program will individually obtain patent licenses, in effect making the
|
||||
program proprietary. To prevent this, we have made it clear that any
|
||||
patent must be licensed for everyone's free use or not licensed at all.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow.
|
||||
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License applies to any program or other work which contains
|
||||
a notice placed by the copyright holder saying it may be distributed
|
||||
under the terms of this General Public License. The "Program", below,
|
||||
refers to any such program or work, and a "work based on the Program"
|
||||
means either the Program or any derivative work under copyright law:
|
||||
that is to say, a work containing the Program or a portion of it,
|
||||
either verbatim or with modifications and/or translated into another
|
||||
language. (Hereinafter, translation is included without limitation in
|
||||
the term "modification".) Each licensee is addressed as "you".
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running the Program is not restricted, and the output from the Program
|
||||
is covered only if its contents constitute a work based on the
|
||||
Program (independent of having been made by running the Program).
|
||||
Whether that is true depends on what the Program does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Program's
|
||||
source code as you receive it, in any medium, provided that you
|
||||
conspicuously and appropriately publish on each copy an appropriate
|
||||
copyright notice and disclaimer of warranty; keep intact all the
|
||||
notices that refer to this License and to the absence of any warranty;
|
||||
and give any other recipients of the Program a copy of this License
|
||||
along with the Program.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy, and
|
||||
you may at your option offer warranty protection in exchange for a fee.
|
||||
|
||||
2. You may modify your copy or copies of the Program or any portion
|
||||
of it, thus forming a work based on the Program, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) You must cause the modified files to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
b) You must cause any work that you distribute or publish, that in
|
||||
whole or in part contains or is derived from the Program or any
|
||||
part thereof, to be licensed as a whole at no charge to all third
|
||||
parties under the terms of this License.
|
||||
|
||||
c) If the modified program normally reads commands interactively
|
||||
when run, you must cause it, when started running for such
|
||||
interactive use in the most ordinary way, to print or display an
|
||||
announcement including an appropriate copyright notice and a
|
||||
notice that there is no warranty (or else, saying that you provide
|
||||
a warranty) and that users may redistribute the program under
|
||||
these conditions, and telling the user how to view a copy of this
|
||||
License. (Exception: if the Program itself is interactive but
|
||||
does not normally print such an announcement, your work based on
|
||||
the Program is not required to print an announcement.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Program,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Program, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Program.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Program
|
||||
with the Program (or with a work based on the Program) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may copy and distribute the Program (or a work based on it,
|
||||
under Section 2) in object code or executable form under the terms of
|
||||
Sections 1 and 2 above provided that you also do one of the following:
|
||||
|
||||
a) Accompany it with the complete corresponding machine-readable
|
||||
source code, which must be distributed under the terms of Sections
|
||||
1 and 2 above on a medium customarily used for software interchange; or,
|
||||
|
||||
b) Accompany it with a written offer, valid for at least three
|
||||
years, to give any third party, for a charge no more than your
|
||||
cost of physically performing source distribution, a complete
|
||||
machine-readable copy of the corresponding source code, to be
|
||||
distributed under the terms of Sections 1 and 2 above on a medium
|
||||
customarily used for software interchange; or,
|
||||
|
||||
c) Accompany it with the information you received as to the offer
|
||||
to distribute corresponding source code. (This alternative is
|
||||
allowed only for noncommercial distribution and only if you
|
||||
received the program in object code or executable form with such
|
||||
an offer, in accord with Subsection b above.)
|
||||
|
||||
The source code for a work means the preferred form of the work for
|
||||
making modifications to it. For an executable work, complete source
|
||||
code means all the source code for all modules it contains, plus any
|
||||
associated interface definition files, plus the scripts used to
|
||||
control compilation and installation of the executable. However, as a
|
||||
special exception, the source code distributed need not include
|
||||
anything that is normally distributed (in either source or binary
|
||||
form) with the major components (compiler, kernel, and so on) of the
|
||||
operating system on which the executable runs, unless that component
|
||||
itself accompanies the executable.
|
||||
|
||||
If distribution of executable or object code is made by offering
|
||||
access to copy from a designated place, then offering equivalent
|
||||
access to copy the source code from the same place counts as
|
||||
distribution of the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
4. You may not copy, modify, sublicense, or distribute the Program
|
||||
except as expressly provided under this License. Any attempt
|
||||
otherwise to copy, modify, sublicense or distribute the Program is
|
||||
void, and will automatically terminate your rights under this License.
|
||||
However, parties who have received copies, or rights, from you under
|
||||
this License will not have their licenses terminated so long as such
|
||||
parties remain in full compliance.
|
||||
|
||||
5. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Program or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Program (or any work based on the
|
||||
Program), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Program or works based on it.
|
||||
|
||||
6. Each time you redistribute the Program (or any work based on the
|
||||
Program), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute or modify the Program subject to
|
||||
these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties to
|
||||
this License.
|
||||
|
||||
7. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Program at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Program by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Program.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under
|
||||
any particular circumstance, the balance of the section is intended to
|
||||
apply and the section as a whole is intended to apply in other
|
||||
circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system, which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
8. If the distribution and/or use of the Program is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Program under this License
|
||||
may add an explicit geographical distribution limitation excluding
|
||||
those countries, so that distribution is permitted only in or among
|
||||
countries not thus excluded. In such case, this License incorporates
|
||||
the limitation as if written in the body of this License.
|
||||
|
||||
9. The Free Software Foundation may publish revised and/or new versions
|
||||
of the General Public License from time to time. Such new versions will
|
||||
be similar in spirit to the present version, but may differ in detail to
|
||||
address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the Program
|
||||
specifies a version number of this License which applies to it and "any
|
||||
later version", you have the option of following the terms and conditions
|
||||
either of that version or of any later version published by the Free
|
||||
Software Foundation. If the Program does not specify a version number of
|
||||
this License, you may choose any version ever published by the Free Software
|
||||
Foundation.
|
||||
|
||||
10. If you wish to incorporate parts of the Program into other free
|
||||
programs whose distribution conditions are different, write to the author
|
||||
to ask for permission. For software which is copyrighted by the Free
|
||||
Software Foundation, write to the Free Software Foundation; we sometimes
|
||||
make exceptions for this. Our decision will be guided by the two goals
|
||||
of preserving the free status of all derivatives of our free software and
|
||||
of promoting the sharing and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
|
||||
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
|
||||
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
|
||||
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
|
||||
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
|
||||
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
|
||||
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
|
||||
REPAIR OR CORRECTION.
|
||||
|
||||
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
|
||||
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
|
||||
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
|
||||
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
|
||||
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
|
||||
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
|
||||
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
|
||||
POSSIBILITY OF SUCH DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
10
Makefile
10
Makefile
|
|
@ -1,10 +0,0 @@
|
|||
.PHONY: all src man
|
||||
|
||||
src:
|
||||
$(MAKE) -C $@
|
||||
|
||||
man:
|
||||
- $(MAKE) -C $@ &> /dev/null
|
||||
|
||||
all: src man
|
||||
|
||||
49
README.md
49
README.md
|
|
@ -1,52 +1,5 @@
|
|||
IRPF90
|
||||
======
|
||||
[](https://gitter.im/scemama/irpf90?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
|
||||
|
||||
IRPF90 is a Fortran90 preprocessor written in Python for programming using the Implicit Reference to Parameters (IRP) method. It simplifies the development of large fortran codes in the field of scientific high performance computing.
|
||||
|
||||
Dependencies
|
||||
------------
|
||||
|
||||
- GNU make (>= 3.81 recommended)
|
||||
- Python > 2.3
|
||||
- Any Fortran 90 compiler (Intel recommended)
|
||||
|
||||
Installing IRPF90
|
||||
-----------------
|
||||
|
||||
``pip install irpf90``
|
||||
|
||||
or
|
||||
|
||||
``${IRPF90_HOME}`` is the location of your irpf90 directory::
|
||||
|
||||
``` bash
|
||||
cd ${IRPF90_HOME}
|
||||
make
|
||||
cat << EOF >> ${HOME}/.bash_profile
|
||||
export PYTHONPATH=${IRPF90_HOME}/src:${PYTHONPATH}
|
||||
export PATH=${IRPF90_HOME}/bin:${PATH}
|
||||
export MANPATH=${IRPF90_HOME}/man:${MANPATH}
|
||||
EOF
|
||||
source ${HOME}/.bash_profile
|
||||
```
|
||||
|
||||
|
||||
Using IRPF90
|
||||
------------
|
||||
|
||||
In an empty directory, run:
|
||||
|
||||
``` bash
|
||||
irpf90 --init
|
||||
```
|
||||
|
||||
This command creates a new Makefile suitable for most irpf90 projects.
|
||||
Now you can start to program using irpf90.
|
||||
|
||||
|
||||
Web Site
|
||||
--------
|
||||
|
||||
http://irpf90.ups-tlse.fr
|
||||
Repository for the IRPF90 web site.
|
||||
|
||||
|
|
|
|||
|
|
@ -1 +0,0 @@
|
|||
../src/irpf90_python.exe
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
import sys
|
||||
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
sys.path.insert(0,(wd+"/../src/"))
|
||||
sys.path.insert(0,(wd+"/../share/irpf90/src/"))
|
||||
|
||||
def main():
|
||||
import irpf90_indent
|
||||
irpf90_indent.main()
|
||||
|
||||
main()
|
||||
|
||||
49
bin/irpman
49
bin/irpman
|
|
@ -1,49 +0,0 @@
|
|||
#!/bin/bash
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
# Define auto-completion for bash
|
||||
|
||||
case "$0" in
|
||||
*irpman)
|
||||
if [[ -z $1 ]] ; then
|
||||
echo "To activate auto-completion in bash:"
|
||||
echo "source " $0
|
||||
else
|
||||
exec python2 $(dirname $0)/../src/irpman.py $1
|
||||
fi
|
||||
;;
|
||||
|
||||
*)
|
||||
_irpman_complete()
|
||||
{
|
||||
local cur
|
||||
COMPREPLY=()
|
||||
cur=${COMP_WORDS[COMP_CWORD]}
|
||||
COMPREPLY=( $(compgen -W "`[[ -f tags ]] && cat tags | cut -d' ' -f 1`" -- "$cur" ) )
|
||||
} && complete -F _irpman_complete irpman
|
||||
;;
|
||||
|
||||
esac
|
||||
41
bin/profile
41
bin/profile
|
|
@ -1,41 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
import sys
|
||||
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
sys.path.insert(0,(wd+"/../src/"))
|
||||
sys.path.insert(0,(wd+"/../share/irpf90/src/"))
|
||||
|
||||
def main():
|
||||
import irpf90
|
||||
irpf90.main()
|
||||
|
||||
import cProfile
|
||||
cProfile.run('main()')
|
||||
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
IRPF90 = python2 ../src/irpf90.py -I input
|
||||
FC = ifort
|
||||
FCFLAGS= -O2
|
||||
NINJA =
|
||||
|
||||
SRC=
|
||||
OBJ=
|
||||
LIB=
|
||||
|
||||
include irpf90.make
|
||||
|
||||
irpf90.make: $(wildcard *.irp.f)
|
||||
$(IRPF90)
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
BEGIN_PROVIDER [ integer, d1 ]
|
||||
&BEGIN_PROVIDER [ integer, d2 ]
|
||||
&BEGIN_PROVIDER [ integer, d3 ]
|
||||
&BEGIN_PROVIDER [ integer, d4 ]
|
||||
&BEGIN_PROVIDER [ integer, d5 ]
|
||||
|
||||
print *, 'd1'
|
||||
read(*,*) d1
|
||||
|
||||
BEGIN_TEMPLATE
|
||||
print *, '$X'
|
||||
read(*,*) $X
|
||||
ASSERT ( $X > $Y )
|
||||
|
||||
SUBST [ X, Y ]
|
||||
d2; d1;;
|
||||
d3; d2;;
|
||||
d4; d3;;
|
||||
d5; d4;;
|
||||
END_TEMPLATE
|
||||
END_PROVIDER
|
||||
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
program irp_example1
|
||||
! integer :: x(W)
|
||||
BEGIN_SHELL [ /bin/bash ]
|
||||
echo print *, \'Compiled by `whoami` on `date`\'
|
||||
echo print *, \'$FC $FCFLAGS\'
|
||||
echo print *, \'$IRPF90\'
|
||||
END_SHELL
|
||||
print *, 't = ', t
|
||||
|
||||
print *, 'v=', v
|
||||
! print *, u2
|
||||
end
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
program irp_example2
|
||||
print *, "Example 2"
|
||||
print *, 't = ', t
|
||||
|
||||
IRP_WRITE t
|
||||
|
||||
end
|
||||
|
|
@ -1,26 +0,0 @@
|
|||
BEGIN_PROVIDER [ integer, t ]
|
||||
t = u1+v+4
|
||||
END_PROVIDER
|
||||
|
||||
BEGIN_PROVIDER [integer,w]
|
||||
w = d5+3
|
||||
END_PROVIDER
|
||||
|
||||
BEGIN_PROVIDER [ integer, v ]
|
||||
v = u2+w+2
|
||||
END_PROVIDER
|
||||
|
||||
BEGIN_PROVIDER [ integer, u1 ]
|
||||
integer :: fu
|
||||
u1 = fu(d1,d2)
|
||||
END_PROVIDER
|
||||
|
||||
BEGIN_PROVIDER [ integer, u2 ]
|
||||
integer :: fu
|
||||
u2 = fu(d3,d4)
|
||||
END_PROVIDER
|
||||
|
||||
integer function fu(x,y)
|
||||
integer :: x,y
|
||||
fu = x+y+1
|
||||
end function
|
||||
|
|
@ -1 +0,0 @@
|
|||
options.rst
|
||||
12
man/Makefile
12
man/Makefile
|
|
@ -1,12 +0,0 @@
|
|||
RST2MAN=rst2man -d -t
|
||||
|
||||
default: man1/irpman.1.gz man1/irpf90.1.gz
|
||||
|
||||
options.rst: ../src/command_line.py
|
||||
python ../src/command_line.py > options.rst
|
||||
|
||||
man1/irpf90.1.gz: irpf90.rst options.rst
|
||||
rm -f $@ ; $(RST2MAN) --title="IRP Fortran 90" irpf90.rst man1/irpf90.1 ; gzip man1/irpf90.1
|
||||
|
||||
man1/irpman.1.gz: irpman.rst
|
||||
rm -f $@ ; $(RST2MAN) --title="IRP man" irpman.rst man1/irpman.1 ; gzip man1/irpman.1
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
======
|
||||
IRPF90
|
||||
======
|
||||
|
||||
----------------------------------------------------------
|
||||
Fortran programming using Implicit Reference to Parameters
|
||||
----------------------------------------------------------
|
||||
|
||||
:Author: Anthony Scemama scemama@irsamc.ups-tlse.fr
|
||||
:Version: 1.20
|
||||
:Manual section: 1
|
||||
|
||||
SYNOPSIS
|
||||
========
|
||||
|
||||
irpf90 [options]
|
||||
|
||||
DESCRIPTION
|
||||
===========
|
||||
|
||||
irpf90 provides a programming environment which simplifies Fortran
|
||||
programming, via the Implicit Reference to Parameters (IRP) method.
|
||||
For more details, read the tutorial ditributed with the package
|
||||
or visit http://irpf90.ups-tlse.fr
|
||||
|
||||
OPTIONS
|
||||
=======
|
||||
|
||||
.. include:: options.rst
|
||||
|
||||
SEE ALSO
|
||||
========
|
||||
|
||||
* irpman
|
||||
* http://irpf90.ups-tlse.fr
|
||||
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
======
|
||||
IRPman
|
||||
======
|
||||
|
||||
----------------------------------------------------
|
||||
Developper's documentation in the irpf90 environment
|
||||
----------------------------------------------------
|
||||
|
||||
:Author: Anthony Scemama scemama@irsamc.ups-tlse.fr
|
||||
:Version: 1.20
|
||||
:Manual section: 1
|
||||
|
||||
SYNOPSIS
|
||||
========
|
||||
|
||||
irpman variable
|
||||
|
||||
DESCRIPTION
|
||||
===========
|
||||
|
||||
irpman is a documentation environment for IRPF90. Every IRP
|
||||
variable (described with a BEGIN_PROVIDER ... END_PROVIDER block)
|
||||
has an associated manual page. When a provider contains a
|
||||
documentation block (BEGIN_DOC ... END_DOC), the text entered inside
|
||||
the block is displayed in the manual page of the variable.
|
||||
|
||||
SEE ALSO
|
||||
========
|
||||
|
||||
* irpf90
|
||||
* http://irpf90.ups-tlse.fr
|
||||
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,9 +0,0 @@
|
|||
include version
|
||||
default: version
|
||||
set -x
|
||||
NAME=irpf90-$(VERSION)-noarch-src.tar.gz ;\
|
||||
cd ..;\
|
||||
git archive --format=tar --prefix=irpf90/ HEAD | gzip > $$OLDPWD/$$NAME;
|
||||
|
||||
version: ../src/version.py
|
||||
./make_version.py > version
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
|
||||
import sys, os
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
sys.path.insert(0,(wd+"/../src/"))
|
||||
from version import *
|
||||
print "VERSION=%s"%(version)
|
||||
280
pip/LICENSE.txt
280
pip/LICENSE.txt
|
|
@ -1,280 +0,0 @@
|
|||
GNU GENERAL PUBLIC LICENSE
|
||||
Version 2, June 1991
|
||||
|
||||
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
License is intended to guarantee your freedom to share and change free
|
||||
software--to make sure the software is free for all its users. This
|
||||
General Public License applies to most of the Free Software
|
||||
Foundation's software and to any other program whose authors commit to
|
||||
using it. (Some other Free Software Foundation software is covered by
|
||||
the GNU Lesser General Public License instead.) You can apply it to
|
||||
your programs, too.
|
||||
|
||||
When we speak of free software, we are referring to freedom, not
|
||||
price. Our General Public Licenses are designed to make sure that you
|
||||
have the freedom to distribute copies of free software (and charge for
|
||||
this service if you wish), that you receive source code or can get it
|
||||
if you want it, that you can change the software or use pieces of it
|
||||
in new free programs; and that you know you can do these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
anyone to deny you these rights or to ask you to surrender the rights.
|
||||
These restrictions translate to certain responsibilities for you if you
|
||||
distribute copies of the software, or if you modify it.
|
||||
|
||||
For example, if you distribute copies of such a program, whether
|
||||
gratis or for a fee, you must give the recipients all the rights that
|
||||
you have. You must make sure that they, too, receive or can get the
|
||||
source code. And you must show them these terms so they know their
|
||||
rights.
|
||||
|
||||
We protect your rights with two steps: (1) copyright the software, and
|
||||
(2) offer you this license which gives you legal permission to copy,
|
||||
distribute and/or modify the software.
|
||||
|
||||
Also, for each author's protection and ours, we want to make certain
|
||||
that everyone understands that there is no warranty for this free
|
||||
software. If the software is modified by someone else and passed on, we
|
||||
want its recipients to know that what they have is not the original, so
|
||||
that any problems introduced by others will not reflect on the original
|
||||
authors' reputations.
|
||||
|
||||
Finally, any free program is threatened constantly by software
|
||||
patents. We wish to avoid the danger that redistributors of a free
|
||||
program will individually obtain patent licenses, in effect making the
|
||||
program proprietary. To prevent this, we have made it clear that any
|
||||
patent must be licensed for everyone's free use or not licensed at all.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow.
|
||||
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License applies to any program or other work which contains
|
||||
a notice placed by the copyright holder saying it may be distributed
|
||||
under the terms of this General Public License. The "Program", below,
|
||||
refers to any such program or work, and a "work based on the Program"
|
||||
means either the Program or any derivative work under copyright law:
|
||||
that is to say, a work containing the Program or a portion of it,
|
||||
either verbatim or with modifications and/or translated into another
|
||||
language. (Hereinafter, translation is included without limitation in
|
||||
the term "modification".) Each licensee is addressed as "you".
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running the Program is not restricted, and the output from the Program
|
||||
is covered only if its contents constitute a work based on the
|
||||
Program (independent of having been made by running the Program).
|
||||
Whether that is true depends on what the Program does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Program's
|
||||
source code as you receive it, in any medium, provided that you
|
||||
conspicuously and appropriately publish on each copy an appropriate
|
||||
copyright notice and disclaimer of warranty; keep intact all the
|
||||
notices that refer to this License and to the absence of any warranty;
|
||||
and give any other recipients of the Program a copy of this License
|
||||
along with the Program.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy, and
|
||||
you may at your option offer warranty protection in exchange for a fee.
|
||||
|
||||
2. You may modify your copy or copies of the Program or any portion
|
||||
of it, thus forming a work based on the Program, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) You must cause the modified files to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
b) You must cause any work that you distribute or publish, that in
|
||||
whole or in part contains or is derived from the Program or any
|
||||
part thereof, to be licensed as a whole at no charge to all third
|
||||
parties under the terms of this License.
|
||||
|
||||
c) If the modified program normally reads commands interactively
|
||||
when run, you must cause it, when started running for such
|
||||
interactive use in the most ordinary way, to print or display an
|
||||
announcement including an appropriate copyright notice and a
|
||||
notice that there is no warranty (or else, saying that you provide
|
||||
a warranty) and that users may redistribute the program under
|
||||
these conditions, and telling the user how to view a copy of this
|
||||
License. (Exception: if the Program itself is interactive but
|
||||
does not normally print such an announcement, your work based on
|
||||
the Program is not required to print an announcement.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Program,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Program, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Program.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Program
|
||||
with the Program (or with a work based on the Program) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may copy and distribute the Program (or a work based on it,
|
||||
under Section 2) in object code or executable form under the terms of
|
||||
Sections 1 and 2 above provided that you also do one of the following:
|
||||
|
||||
a) Accompany it with the complete corresponding machine-readable
|
||||
source code, which must be distributed under the terms of Sections
|
||||
1 and 2 above on a medium customarily used for software interchange; or,
|
||||
|
||||
b) Accompany it with a written offer, valid for at least three
|
||||
years, to give any third party, for a charge no more than your
|
||||
cost of physically performing source distribution, a complete
|
||||
machine-readable copy of the corresponding source code, to be
|
||||
distributed under the terms of Sections 1 and 2 above on a medium
|
||||
customarily used for software interchange; or,
|
||||
|
||||
c) Accompany it with the information you received as to the offer
|
||||
to distribute corresponding source code. (This alternative is
|
||||
allowed only for noncommercial distribution and only if you
|
||||
received the program in object code or executable form with such
|
||||
an offer, in accord with Subsection b above.)
|
||||
|
||||
The source code for a work means the preferred form of the work for
|
||||
making modifications to it. For an executable work, complete source
|
||||
code means all the source code for all modules it contains, plus any
|
||||
associated interface definition files, plus the scripts used to
|
||||
control compilation and installation of the executable. However, as a
|
||||
special exception, the source code distributed need not include
|
||||
anything that is normally distributed (in either source or binary
|
||||
form) with the major components (compiler, kernel, and so on) of the
|
||||
operating system on which the executable runs, unless that component
|
||||
itself accompanies the executable.
|
||||
|
||||
If distribution of executable or object code is made by offering
|
||||
access to copy from a designated place, then offering equivalent
|
||||
access to copy the source code from the same place counts as
|
||||
distribution of the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
4. You may not copy, modify, sublicense, or distribute the Program
|
||||
except as expressly provided under this License. Any attempt
|
||||
otherwise to copy, modify, sublicense or distribute the Program is
|
||||
void, and will automatically terminate your rights under this License.
|
||||
However, parties who have received copies, or rights, from you under
|
||||
this License will not have their licenses terminated so long as such
|
||||
parties remain in full compliance.
|
||||
|
||||
5. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Program or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Program (or any work based on the
|
||||
Program), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Program or works based on it.
|
||||
|
||||
6. Each time you redistribute the Program (or any work based on the
|
||||
Program), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute or modify the Program subject to
|
||||
these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties to
|
||||
this License.
|
||||
|
||||
7. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Program at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Program by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Program.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under
|
||||
any particular circumstance, the balance of the section is intended to
|
||||
apply and the section as a whole is intended to apply in other
|
||||
circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system, which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
8. If the distribution and/or use of the Program is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Program under this License
|
||||
may add an explicit geographical distribution limitation excluding
|
||||
those countries, so that distribution is permitted only in or among
|
||||
countries not thus excluded. In such case, this License incorporates
|
||||
the limitation as if written in the body of this License.
|
||||
|
||||
9. The Free Software Foundation may publish revised and/or new versions
|
||||
of the General Public License from time to time. Such new versions will
|
||||
be similar in spirit to the present version, but may differ in detail to
|
||||
address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the Program
|
||||
specifies a version number of this License which applies to it and "any
|
||||
later version", you have the option of following the terms and conditions
|
||||
either of that version or of any later version published by the Free
|
||||
Software Foundation. If the Program does not specify a version number of
|
||||
this License, you may choose any version ever published by the Free Software
|
||||
Foundation.
|
||||
|
||||
10. If you wish to incorporate parts of the Program into other free
|
||||
programs whose distribution conditions are different, write to the author
|
||||
to ask for permission. For software which is copyrighted by the Free
|
||||
Software Foundation, write to the Free Software Foundation; we sometimes
|
||||
make exceptions for this. Our decision will be guided by the two goals
|
||||
of preserving the free status of all derivatives of our free software and
|
||||
of promoting the sharing and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
|
||||
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
|
||||
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
|
||||
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
|
||||
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
|
||||
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
|
||||
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
|
||||
REPAIR OR CORRECTION.
|
||||
|
||||
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
|
||||
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
|
||||
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
|
||||
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
|
||||
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
|
||||
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
|
||||
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
|
||||
POSSIBILITY OF SUCH DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
include irpf90 README.md irpman irp_indent
|
||||
|
||||
32
pip/irpf90
32
pip/irpf90
|
|
@ -1,32 +0,0 @@
|
|||
#!/usr/bin/env python
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
def main():
|
||||
import irpf90_libs.irpf90
|
||||
irpf90_libs.irpf90.main()
|
||||
|
||||
main()
|
||||
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
#!/usr/bin/env python
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
def main():
|
||||
import irpf90_libs.irpf90_indent
|
||||
irpf90_libs.irpf90_indent.main()
|
||||
|
||||
main()
|
||||
|
||||
|
|
@ -1 +0,0 @@
|
|||
../src
|
||||
64
pip/irpman
64
pip/irpman
|
|
@ -1,64 +0,0 @@
|
|||
#!/bin/bash
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
# Define auto-completion for bash
|
||||
|
||||
function run ()
|
||||
{
|
||||
cat << EOF | exec python2 - $@
|
||||
import sys, os
|
||||
|
||||
from irpf90_libs.irpf90_t import mandir
|
||||
filename = sys.argv[1].lower()+".l"
|
||||
if filename not in os.listdir(mandir):
|
||||
print "%s does not exist"%(sys.argv[1])
|
||||
sys.exit(-1)
|
||||
|
||||
os.system("man ./"+mandir+sys.argv[1].lower()+".l")
|
||||
EOF
|
||||
}
|
||||
|
||||
case "$0" in
|
||||
*irpman)
|
||||
if [[ -z $1 ]] ; then
|
||||
echo "To activate auto-completion in bash:"
|
||||
echo "source " $0
|
||||
else
|
||||
run $@
|
||||
fi
|
||||
;;
|
||||
|
||||
*)
|
||||
_irpman_complete()
|
||||
{
|
||||
local cur
|
||||
COMPREPLY=()
|
||||
cur=${COMP_WORDS[COMP_CWORD]}
|
||||
COMPREPLY=( $(compgen -W "`[[ -f tags ]] && cat tags | cut -d' ' -f 1`" -- "$cur" ) )
|
||||
} && complete -F _irpman_complete irpman
|
||||
;;
|
||||
|
||||
esac
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
[metadata]
|
||||
description-file = README.md
|
||||
16
pip/setup.py
16
pip/setup.py
|
|
@ -1,16 +0,0 @@
|
|||
from distutils.core import setup
|
||||
|
||||
setup(
|
||||
name = 'irpf90',
|
||||
packages = ['irpf90_libs'], # this must be the same as the name above
|
||||
version = '1.6.9',
|
||||
description = 'IRPF90 is a Fortran90 preprocessor written in Python for programming using the Implicit Reference to Parameters (IRP) method. It simplifies the development of large fortran codes in the field of scientific high performance computing.',
|
||||
author = 'Anthony Scemama',
|
||||
author_email = 'scemama@irsamc.ups-tlse.fr',
|
||||
url = 'http://irpf90.ups-tlse.fr', # use the URL to the github repo
|
||||
download_url = 'https://github.com/scemama/irpf90/archive/v1.6.9.tar.gz', # I'll explain this in a second
|
||||
keywords = ['programming', 'fortran', 'IRP'], # arbitrary keywords
|
||||
classifiers = [],
|
||||
scripts = ["irpf90", "irpman", "irpf90_indent"],
|
||||
)
|
||||
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
*.o
|
||||
*.c
|
||||
*.so
|
||||
build/*
|
||||
*~
|
||||
irpf90.exe
|
||||
21
src/Makefile
21
src/Makefile
|
|
@ -1,21 +0,0 @@
|
|||
PYTHON=python2
|
||||
PYVERSION=$(shell $(PYTHON) -c "import sys; print(sys.version[:3])")
|
||||
HAS_CYTHON=$(shell bash -c "which cython &> /dev/null && echo 1 || echo 0")
|
||||
ifneq ($(HAS_CYTHON),0)
|
||||
|
||||
../bin/irpf90: irpf90.so
|
||||
rm ../bin/irpf90 ; cd ../bin ; ln -s ../src/irpf90_python.exe irpf90
|
||||
|
||||
irpf90.so : $(wildcard *.py) irpf90.c
|
||||
./cython_setup.py build_ext --inplace
|
||||
|
||||
irpf90.c: irpf90.py
|
||||
cython --embed irpf90.py
|
||||
|
||||
else
|
||||
../bin/irpf90: irpf90_python.exe
|
||||
rm ../bin/irpf90 ; cd ../bin ; ln -s ../src/irpf90_python.exe irpf90
|
||||
endif
|
||||
|
||||
clean:
|
||||
rm -f *.c *.so *.pyc *.pyo 2>/dev/null
|
||||
|
|
@ -1,73 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
from variables import variables
|
||||
from modules import modules
|
||||
|
||||
CHECKPOINT_UNIT_NUMBER=63
|
||||
|
||||
FILENAME=irpdir+'irp_checkpoint.irp.F90'
|
||||
|
||||
def create():
|
||||
out_write = [ "subroutine irp_checkpoint_write" ]
|
||||
l = variables.keys()
|
||||
l.sort
|
||||
main_modules = filter(lambda x: modules[x].is_main, modules)
|
||||
for m in filter(lambda x: not modules[x].is_main, modules):
|
||||
out_write += [ " use %s"%(modules[m].name) ]
|
||||
out_write += [ " implicit none" ]
|
||||
out_write += [ " integer, parameter :: iunit = %d"%(CHECKPOINT_UNIT_NUMBER) ]
|
||||
out_write += [ " open(unit=%d,file='irp_checkpoint.dat',status='UNKNOWN',action='WRITE')"%(CHECKPOINT_UNIT_NUMBER) ]
|
||||
for v in l:
|
||||
var = variables[v]
|
||||
if var.is_main:
|
||||
out_write += [ " if (%s_is_built) then"%(v) ]
|
||||
for w in [v]+var.others:
|
||||
d = variables[w].dim
|
||||
if d == []:
|
||||
out_write += [ " write(iunit,*) '%s', 0"%(w) ]
|
||||
else:
|
||||
out_write += [ " write(iunit, *) '%s', %d"%(w, len(d)),
|
||||
" write(iunit, *) %s"%(",".join(
|
||||
[ "size(%s,%d)"%(w,i+1) for i in range(len(d)) ] ))
|
||||
]
|
||||
out_write += [ " write(iunit,*) %s"%(w) ]
|
||||
out_write += [ " endif" ]
|
||||
out_write += [ " close(%d)"%(CHECKPOINT_UNIT_NUMBER) ]
|
||||
out_write += [ "end" ]
|
||||
|
||||
out = '\n'.join(out_write)
|
||||
if not same_file(FILENAME,out):
|
||||
file = open(FILENAME,'w')
|
||||
file.writelines(out)
|
||||
file.close()
|
||||
|
||||
if __name__ == '__main__':
|
||||
create()
|
||||
|
||||
|
|
@ -1,70 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
from command_line import command_line
|
||||
import irpf90_t
|
||||
|
||||
def run():
|
||||
template = """
|
||||
program codelet_%(name)s
|
||||
implicit none
|
||||
integer :: i
|
||||
double precision :: ticks_0, ticks_1, cpu_0, cpu_1
|
||||
integer, parameter :: irp_imax = %(NMAX)d
|
||||
|
||||
%(precondition)s
|
||||
|
||||
call provide_%(name)s
|
||||
|
||||
double precision :: irp_rdtsc
|
||||
|
||||
call cpu_time(cpu_0)
|
||||
ticks_0 = irp_rdtsc()
|
||||
do i=1,irp_imax
|
||||
call bld_%(name)s
|
||||
enddo
|
||||
ticks_1 = irp_rdtsc()
|
||||
call cpu_time(cpu_1)
|
||||
print *, '%(name)s'
|
||||
print *, '-----------'
|
||||
print *, 'Cycles:'
|
||||
print *, (ticks_1-ticks_0)/dble(irp_imax)
|
||||
print *, 'Seconds:'
|
||||
print *, (cpu_1-cpu_0)/dble(irp_imax)
|
||||
end
|
||||
|
||||
"""
|
||||
|
||||
name, NMAX, precondition, filename = command_line.codelet
|
||||
if precondition is None:
|
||||
precondition = ""
|
||||
else:
|
||||
precondition = "PROVIDE "+precondition
|
||||
file = open(filename,'w')
|
||||
file.write(template%locals())
|
||||
file.close()
|
||||
|
||||
|
||||
|
|
@ -1,282 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import getopt, sys
|
||||
from version import version
|
||||
import re
|
||||
|
||||
description = "IRPF90 Fortran preprocessor."
|
||||
options = {}
|
||||
options['a'] = [ 'assert' , 'Activates ASSERT statements. If absent, remove ASSERT statements.', 0 ]
|
||||
options['c'] = [ 'codelet' , 'entity:NMAX or entity:precondition:NMAX : Generate a codelet to profile a provider running NMAX times', 1 ]
|
||||
options['C'] = [ 'coarray' , 'All providers are coarrays', 0 ]
|
||||
options['d'] = [ 'debug' , 'Activates debug. The name of the current subroutine/function/provider will be printed on the standard output when entering or exiting a routine, as well as the CPU time passed inside the routine.', 0 ]
|
||||
options['D'] = [ 'define' , 'Defines a variable identified by the IRP_IF statements.', 1 ]
|
||||
options['g'] = [ 'profile' , 'Activates profiling of the code.', 0 ]
|
||||
options['h'] = [ 'help' , 'Print this help', 0 ]
|
||||
options['I'] = [ 'include' , 'Include directory', 1 ]
|
||||
options['j'] = [ 'ninja' , 'Use Ninja instead of make', 0 ]
|
||||
options['i'] = [ 'init' , 'Initialize current directory. Creates a default Makefile and the temporary working directories.', 0 ]
|
||||
options['l'] = [ 'align' , 'Align arrays using compiler directives and sets the $IRP_ALIGN variable. For example, --align=32 aligns all arrays on a 32 byte boundary.', 1 ]
|
||||
options['m'] = [ 'memory' , 'Print memory allocations/deallocations.', 0 ]
|
||||
options['n'] = [ 'inline' , '<all|providers|builders> : Force inlining of providers or builders', 1 ]
|
||||
options['o'] = [ 'checkopt' , 'Shows where optimization may be required', 0 ]
|
||||
options['p'] = [ 'preprocess' , 'Prints a preprocessed file to standard output. Useful for debugging files containing shell scripts.', 1 ]
|
||||
options['r'] = [ 'no_directives', 'Ignore all compiler directives !DEC$ and !DIR$', 0 ]
|
||||
options['s'] = [ 'substitute' , 'Substitute values in do loops for generating specific optimized code.', 1 ]
|
||||
options['t'] = [ 'touch' , 'Display which entities are touched when touching the variable given as an argument.', 1 ]
|
||||
options['v'] = [ 'version' , 'Prints version of irpf90', 0 ]
|
||||
options['w'] = [ 'warnings' , 'Activate Warnings', 0 ]
|
||||
options['z'] = [ 'openmp' , 'Activate for OpenMP code', 0 ]
|
||||
|
||||
class CommandLine(object):
|
||||
|
||||
def __init__(self):
|
||||
global options
|
||||
self._opts = None
|
||||
self.argv = list(sys.argv)
|
||||
self.executable_name = self.argv[0]
|
||||
|
||||
def defined(self):
|
||||
if '_defined' not in self.__dict__:
|
||||
self._defined = []
|
||||
for o,a in self.opts:
|
||||
if o in [ "-D", '--'+options['D'][0] ]:
|
||||
self._defined.append(a)
|
||||
return self._defined
|
||||
defined = property(fget=defined)
|
||||
|
||||
def include_dir(self):
|
||||
if '_include_dir' not in self.__dict__:
|
||||
self._include_dir = []
|
||||
for o,a in self.opts:
|
||||
if o in [ "-I", '--'+options['I'][0] ]:
|
||||
if len(a) < 1:
|
||||
print "Error: -I option needs a directory"
|
||||
if a[-1] != '/':
|
||||
a = a+'/'
|
||||
self._include_dir.append(a)
|
||||
return self._include_dir
|
||||
include_dir = property(fget=include_dir)
|
||||
|
||||
def inline(self):
|
||||
if '_inline' not in self.__dict__:
|
||||
self._inline = ""
|
||||
for o,a in self.opts:
|
||||
if o in [ "-n", '--'+options['n'][0] ]:
|
||||
self._inline = a
|
||||
break
|
||||
return self._inline
|
||||
inline = property(fget=inline)
|
||||
|
||||
def substituted(self):
|
||||
if '_substituted' not in self.__dict__:
|
||||
self._substituted = {}
|
||||
for o,a in self.opts:
|
||||
if o in [ "-s", '--'+options['s'][0] ]:
|
||||
k, v = a.split(':')
|
||||
v_re = re.compile(r"(\W)(%s)(\W.*$|$)"%k.strip())
|
||||
self._substituted[k] = [v, v_re]
|
||||
return self._substituted
|
||||
substituted = property(fget=substituted)
|
||||
|
||||
def codelet(self):
|
||||
if '_codelet' not in self.__dict__:
|
||||
self._codelet = []
|
||||
for o,a in self.opts:
|
||||
if o in [ "-c", '--'+options['c'][0] ]:
|
||||
buffer = a.split(':')
|
||||
filename = 'codelet_'+buffer[0]+'.irp.f'
|
||||
if len(buffer) == 2:
|
||||
self._codelet = [buffer[0], int(buffer[1]), None, filename]
|
||||
elif len(buffer) == 3:
|
||||
self._codelet = [buffer[0], int(buffer[2]), buffer[1], filename]
|
||||
else:
|
||||
print """
|
||||
Error in codelet definition. Use:
|
||||
--codelet=provider:NMAX
|
||||
or
|
||||
--codelet=provider:precondition:NMAX
|
||||
"""
|
||||
sys.exit(1)
|
||||
return self._codelet
|
||||
codelet = property(fget=codelet)
|
||||
|
||||
def preprocessed(self):
|
||||
if '_preprocessed' not in self.__dict__:
|
||||
self._preprocessed = []
|
||||
for o,a in self.opts:
|
||||
if o in [ "-p", '--'+options['p'][0] ]:
|
||||
self._preprocessed.append(a)
|
||||
return self._preprocessed
|
||||
preprocessed = property(fget=preprocessed)
|
||||
|
||||
def touched(self):
|
||||
if '_touched' not in self.__dict__:
|
||||
self._touched = []
|
||||
for o,a in self.opts:
|
||||
if o in [ "-t", '--'+options['t'][0] ]:
|
||||
self._touched.append(a.lower())
|
||||
return self._touched
|
||||
touched = property(fget=touched)
|
||||
|
||||
def align(self):
|
||||
if '_align' not in self.__dict__:
|
||||
self._align = '1'
|
||||
for o,a in self.opts:
|
||||
if o in [ "-l", '--'+options['l'][0] ]:
|
||||
self._align = a
|
||||
return self._align
|
||||
align = property(fget=align)
|
||||
|
||||
def coarray(self):
|
||||
if '_coarray' not in self.__dict__:
|
||||
self._coarray = False
|
||||
for o,a in self.opts:
|
||||
if o in [ "-C", '--'+options['C'][0] ]:
|
||||
self._coarray = True
|
||||
return self._coarray
|
||||
coarray = property(fget=coarray)
|
||||
|
||||
def warnings(self):
|
||||
if '_warnings' not in self.__dict__:
|
||||
self._warnings= False
|
||||
for o,a in self.opts:
|
||||
if o in [ "-w", '--'+options['w'][0] ]:
|
||||
self._warnings= True
|
||||
return self._warnings
|
||||
do_warnings = property(fget=warnings)
|
||||
|
||||
def openmp(self):
|
||||
if '_openmp' not in self.__dict__:
|
||||
self._openmp = False
|
||||
for o,a in self.opts:
|
||||
if o in [ "-z", '--'+options['z'][0] ]:
|
||||
self._openmp = True
|
||||
return self._openmp
|
||||
do_openmp = property(fget=openmp)
|
||||
|
||||
def ninja(self):
|
||||
if '_ninja' not in self.__dict__:
|
||||
self._ninja = False
|
||||
for o,a in self.opts:
|
||||
if o in [ "-j", '--'+options['j'][0] ]:
|
||||
self._ninja = True
|
||||
return self._ninja
|
||||
do_ninja = property(fget=ninja)
|
||||
|
||||
def directives(self):
|
||||
if '_directives' not in self.__dict__:
|
||||
self._directives = True
|
||||
for o,a in self.opts:
|
||||
if o in [ "-r", '--'+options['r'][0] ]:
|
||||
self._directives = False
|
||||
return self._directives
|
||||
directives = property(fget=directives)
|
||||
|
||||
def usage(self):
|
||||
t = """
|
||||
$EXE - $DESCR
|
||||
|
||||
Usage:
|
||||
$EXE [OPTION]
|
||||
|
||||
Options:
|
||||
"""
|
||||
t = t.replace("$EXE",self.executable_name)
|
||||
t = t.replace("$DESCR",description)
|
||||
print t
|
||||
print_options()
|
||||
print ""
|
||||
print "Version : ", version
|
||||
print ""
|
||||
|
||||
def opts(self):
|
||||
if self._opts is None:
|
||||
optlist = ["",[]]
|
||||
for o in options:
|
||||
b = [o]+options[o]
|
||||
if b[3] == 1:
|
||||
b[0] = b[0]+":"
|
||||
b[1] = b[1]+"="
|
||||
optlist[0] += b[0]
|
||||
optlist[1] += [b[1]]
|
||||
|
||||
try:
|
||||
self._opts, args = getopt.getopt(self.argv[1:], optlist[0], optlist[1])
|
||||
except getopt.GetoptError, err:
|
||||
# print help information and exit:
|
||||
self.usage()
|
||||
print str(err) # will print something like "option -a not recognized"
|
||||
sys.exit(2)
|
||||
|
||||
return self._opts
|
||||
opts = property(fget=opts)
|
||||
|
||||
t = """
|
||||
def do_$LONG(self):
|
||||
if '_do_$LONG' not in self.__dict__:
|
||||
self._do_$LONG = False
|
||||
for o,a in self.opts:
|
||||
if o in ("-$SHORT", "--$LONG"):
|
||||
self._do_$LONG = True
|
||||
break
|
||||
return self._do_$LONG
|
||||
do_$LONG = property(fget=do_$LONG)
|
||||
"""
|
||||
for short in options:
|
||||
long = options[short][0]
|
||||
exec t.replace("$LONG",long).replace("$SHORT",short) #in locals()
|
||||
|
||||
def do_run(self):
|
||||
if '_do_run' not in self.__dict__:
|
||||
self._do_run = not ( \
|
||||
self.do_version or \
|
||||
self.do_help or \
|
||||
self.do_preprocess or \
|
||||
self.do_touch or \
|
||||
self.do_init )
|
||||
return self._do_run
|
||||
do_run = property(fget=do_run)
|
||||
|
||||
|
||||
command_line = CommandLine()
|
||||
|
||||
def print_options():
|
||||
keys = options.keys()
|
||||
keys.sort()
|
||||
import subprocess
|
||||
for k in keys:
|
||||
description = options[k][1]
|
||||
p1 = subprocess.Popen(["fold", "-s", "-w", "40"],stdout=subprocess.PIPE,stdin=subprocess.PIPE)
|
||||
description = p1.communicate(description)[0]
|
||||
description = description.replace('\n','\n'.ljust(27))
|
||||
print ("-%s, --%s"%(k,options[k][0])).ljust(25), description+'\n'
|
||||
print "\n"
|
||||
|
||||
if __name__ == '__main__':
|
||||
print_options()
|
||||
|
|
@ -1,189 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from variable import Variable
|
||||
from variables import variables
|
||||
from subroutine import Sub
|
||||
from subroutines import subroutines
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
|
||||
|
||||
def do_print_short(file,var):
|
||||
assert type(var) == Variable
|
||||
print >>file, "%s : %s :: %s %s"%( \
|
||||
var.line.filename[0].ljust(35),
|
||||
var.type.ljust(30),
|
||||
var.name.ljust(25),
|
||||
build_dim(var.dim) )
|
||||
|
||||
######################################################################
|
||||
def process_doc(file,line):
|
||||
assert type(line) == str
|
||||
line = line.strip()
|
||||
if line == "":
|
||||
line = ".br"
|
||||
print >>file, line
|
||||
|
||||
######################################################################
|
||||
def process_deps(file,l):
|
||||
assert type(l) == list
|
||||
for v in l:
|
||||
print >>file, "%s\n.br"%(v,)
|
||||
|
||||
######################################################################
|
||||
def process_types(file,var):
|
||||
assert type(var) == Variable
|
||||
vars = [var.name] + var.others
|
||||
for var in vars:
|
||||
name = var
|
||||
var = variables[var]
|
||||
Type = var.type
|
||||
dim = build_dim(var.dim)
|
||||
print >>file, "%s\t:: %s\t%s"%(Type,name,dim)
|
||||
|
||||
######################################################################
|
||||
def do_print(var):
|
||||
assert type(var) == Variable
|
||||
filename = var.line.filename[0]
|
||||
name = var.name
|
||||
file = open("%s%s.l"%(mandir,var.name), "w")
|
||||
print >>file, '.TH "IRPF90 entities" l %s "IRPF90 entities" %s'%(name,name)
|
||||
if var.same_as != var.name:
|
||||
var = variables[var.same_as]
|
||||
print >>file, ".SH Declaration"
|
||||
print >>file, ".nf"
|
||||
process_types(file,var)
|
||||
print >>file, ".ni"
|
||||
if var.doc != []:
|
||||
print >>file, ".SH Description"
|
||||
for l in var.doc:
|
||||
process_doc(file,l)
|
||||
print >>file, ".SH File\n.P"
|
||||
print >>file, filename
|
||||
if var.needs != []:
|
||||
var.needs.sort()
|
||||
print >>file, ".SH Needs"
|
||||
process_deps(file,var.needs)
|
||||
if var.needed_by != []:
|
||||
var.needed_by.sort()
|
||||
print >>file, ".SH Needed by"
|
||||
process_deps(file,var.needed_by)
|
||||
print >>file, ".SH Instability factor"
|
||||
fo = len(var.children)
|
||||
fi = len(var.parents)
|
||||
print >>file, "%5.1f %%"%(100.* (fi / (fi+fo+.000001) ))
|
||||
print >>file, ".br"
|
||||
file.close()
|
||||
|
||||
######################################################################
|
||||
def process_declaration_subroutine(file, sub):
|
||||
print >>file, sub.line.text.split('!')[0].strip()
|
||||
|
||||
# for line in sub.text:
|
||||
######################################################################
|
||||
def do_print_subroutines(sub):
|
||||
assert type(sub) == Sub
|
||||
filename = sub.line.filename
|
||||
name = sub.name
|
||||
file = open("%s%s.l"%(mandir,sub.name), "w")
|
||||
print >>file, '.TH "IRPF90 entities" l %s "IRPF90 entities" %s'%(name,name)
|
||||
print >>file, ".SH Declaration"
|
||||
print >>file, ".nf"
|
||||
process_declaration_subroutine(file,sub)
|
||||
print >>file, ".ni"
|
||||
if sub.doc != []:
|
||||
print >>file, ".SH Description"
|
||||
for l in sub.doc:
|
||||
process_doc(file,l)
|
||||
print >>file, ".SH File\n.P"
|
||||
print >>file, filename
|
||||
if sub.needs != []:
|
||||
sub.needs.sort()
|
||||
print >>file, ".SH Needs"
|
||||
process_deps(file,sub.needs)
|
||||
if sub.called_by != []:
|
||||
sub.called_by.sort()
|
||||
print >>file, ".SH Called by"
|
||||
process_deps(file,sub.called_by)
|
||||
if sub.calls != []:
|
||||
sub.calls.sort()
|
||||
print >>file, ".SH Calls"
|
||||
process_deps(file,sub.calls)
|
||||
if sub.touches != []:
|
||||
sub.touches.sort()
|
||||
print >>file, ".SH Touches"
|
||||
process_deps(file,sub.touches)
|
||||
print >>file, ".SH Instability factor"
|
||||
fo = len(sub.needs)+len(sub.calls)+len(sub.touches)
|
||||
fi = len(sub.called_by)
|
||||
print >>file, "%5.1f %%"%(100.* (fi / (fi+fo+.000001) ))
|
||||
print >>file, ".br"
|
||||
file.close()
|
||||
|
||||
######################################################################
|
||||
def run():
|
||||
import parsed_text
|
||||
import os,sys
|
||||
pid1 = os.fork()
|
||||
if pid1 == 0:
|
||||
for v in variables.values():
|
||||
do_print(v)
|
||||
for s in subroutines.values():
|
||||
do_print_subroutines(s)
|
||||
sys.exit(0)
|
||||
|
||||
pid2 = os.fork()
|
||||
if pid2 == 0:
|
||||
tags = []
|
||||
l = variables.keys()
|
||||
file = open("irpf90_entities","w")
|
||||
l.sort()
|
||||
for v in l:
|
||||
do_print_short(file,variables[v])
|
||||
line = variables[v].line
|
||||
# tags.append( '%s\t%s\t/%s/;"\n'%(v,line.filename[0],line.text.split('!')[0].strip()) )
|
||||
tags.append( '%s\t%s\t%d\n'%(v,line.filename[0],line.i) )
|
||||
file.close()
|
||||
l = subroutines.keys()
|
||||
for v in l:
|
||||
line = subroutines[v].line
|
||||
# tags.append('%s\t%s\t/%s/;"\n'%(v,line.filename,line.text.split('!')[0].strip()))
|
||||
tags.append('%s\t%s\t%d\n'%(v,line.filename,line.i))
|
||||
tags.sort()
|
||||
file = open("tags","w")
|
||||
for line in tags:
|
||||
file.write(line)
|
||||
file.close()
|
||||
sys.exit(0)
|
||||
|
||||
os.waitpid(pid1,0)
|
||||
os.waitpid(pid2,0)
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
run()
|
||||
|
|
@ -1,52 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
from distutils.core import setup
|
||||
from distutils.extension import Extension
|
||||
from Cython.Distutils import build_ext
|
||||
import os
|
||||
|
||||
to_remove = """__init__.py cython_setup.py version.py command_line.py""".split()
|
||||
ext_modules = []
|
||||
|
||||
files = os.listdir('.')
|
||||
for file in to_remove:
|
||||
files.remove(file)
|
||||
|
||||
for file in files:
|
||||
if file.endswith(".py"):
|
||||
module = file.split('.')[0]
|
||||
ext_modules += [ Extension(module,[file]) ]
|
||||
|
||||
setup(
|
||||
name = 'IRPF90 extensions',
|
||||
cmdclass = {'build_ext': build_ext},
|
||||
ext_modules = ext_modules
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
66
src/error.py
66
src/error.py
|
|
@ -1,66 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import sys
|
||||
from irpf90_t import *
|
||||
from command_line import command_line
|
||||
do_warnings = command_line.do_warnings
|
||||
|
||||
######################################################################
|
||||
def fail(line,message):
|
||||
print """
|
||||
Error:
|
||||
-----
|
||||
"""
|
||||
print message, '\n'
|
||||
if line is not None:
|
||||
assert isinstance(line,Line)
|
||||
print "file %s ; line %d :\n %s"%(line.filename,line.i,line.text)
|
||||
sys.exit(1)
|
||||
|
||||
|
||||
######################################################################
|
||||
def warn(line,message):
|
||||
if not command_line.do_warnings:
|
||||
return
|
||||
if line is not None:
|
||||
assert isinstance(line,Line)
|
||||
print """
|
||||
Warning:
|
||||
-------
|
||||
"""
|
||||
print message, '\n'
|
||||
print "file %s, line %d:\n %s"%(line.filename,line.i,line.text)
|
||||
else:
|
||||
print "Warning: %s"%(message)
|
||||
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
line = Empty_line(3,"empty", "testfile")
|
||||
fail(line, "Message")
|
||||
|
||||
89
src/init.py
89
src/init.py
|
|
@ -1,89 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
|
||||
import util
|
||||
import makefile
|
||||
import irpf90_t
|
||||
from command_line import command_line
|
||||
|
||||
initialized = False
|
||||
|
||||
|
||||
def init():
|
||||
|
||||
global initialized
|
||||
if initialized:
|
||||
return
|
||||
|
||||
# Create directories
|
||||
for dir in [ irpf90_t.irpdir, irpf90_t.mandir ]:
|
||||
try:
|
||||
wd = os.getcwd()
|
||||
os.chdir(dir)
|
||||
os.chdir(wd)
|
||||
except OSError:
|
||||
os.mkdir(dir)
|
||||
|
||||
for dir in command_line.include_dir:
|
||||
dir = irpf90_t.irpdir+dir
|
||||
try:
|
||||
wd = os.getcwd()
|
||||
os.chdir(dir)
|
||||
os.chdir(wd)
|
||||
except OSError:
|
||||
os.mkdir(dir)
|
||||
|
||||
# Create makefile
|
||||
makefile.create()
|
||||
|
||||
# Copy current files in the irpdir
|
||||
for dir in ['./']+command_line.include_dir:
|
||||
try:
|
||||
os.stat(dir)
|
||||
except:
|
||||
print dir,'not in dir'
|
||||
continue
|
||||
for filename in os.listdir(dir):
|
||||
filename = dir+filename
|
||||
if not filename.startswith(".") and not os.path.isdir(filename):
|
||||
try:
|
||||
file = open(filename,"r")
|
||||
except IOError:
|
||||
if command_line.do_warnings:
|
||||
print "Warning : Unable to read file %s."%(filename)
|
||||
else:
|
||||
buffer = file.read()
|
||||
file.close()
|
||||
if not util.same_file(irpf90_t.irpdir+filename,buffer):
|
||||
file = open(irpf90_t.irpdir+filename,"w")
|
||||
file.write(buffer)
|
||||
file.close()
|
||||
|
||||
initialized = True
|
||||
|
||||
264
src/irp_stack.py
264
src/irp_stack.py
|
|
@ -1,264 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import util
|
||||
from command_line import command_line
|
||||
|
||||
do_debug = command_line.do_debug
|
||||
do_openmp = command_line.do_openmp
|
||||
do_memory = command_line.do_memory
|
||||
|
||||
import irpf90_t
|
||||
|
||||
FILENAME = irpf90_t.irpdir+"irp_stack.irp.F90"
|
||||
|
||||
def create():
|
||||
|
||||
txt = """
|
||||
module irp_stack_mod
|
||||
integer, parameter :: STACKMAX=1000
|
||||
character*(128),allocatable :: irp_stack(:,:)
|
||||
double precision,allocatable :: irp_cpu(:,:)
|
||||
integer,allocatable :: stack_index(:)
|
||||
logical :: alloc = .False.
|
||||
integer :: nthread
|
||||
character*(128) :: white = ''
|
||||
end module
|
||||
|
||||
subroutine irp_enter(irp_where)
|
||||
use irp_stack_mod
|
||||
integer :: ithread
|
||||
character*(*) :: irp_where
|
||||
"""
|
||||
if not do_openmp:
|
||||
txt += """
|
||||
ithread = 0
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
integer, external :: omp_get_thread_num
|
||||
integer, external :: omp_get_num_threads
|
||||
ithread = omp_get_thread_num()
|
||||
"""
|
||||
|
||||
txt += "$1"
|
||||
|
||||
if do_memory:
|
||||
txt+="""
|
||||
if (.not.alloc) then
|
||||
"""
|
||||
if do_openmp:
|
||||
txt += """
|
||||
!$OMP PARALLEL
|
||||
!$OMP SINGLE
|
||||
nthread = omp_get_num_threads()
|
||||
!$OMP END SINGLE
|
||||
!$OMP END PARALLEL
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
nthread = 1
|
||||
"""
|
||||
txt += """
|
||||
print *, 'Allocating irp_stack(',STACKMAX,',',0:nthread,')'
|
||||
print *, 'Allocating irp_cpu(',STACKMAX,',',0:nthread,')'
|
||||
print *, 'Allocating stack_index(',0:nthread,')'
|
||||
endif"""
|
||||
txt +="""
|
||||
$2
|
||||
end subroutine
|
||||
|
||||
subroutine irp_enter_f(irp_where)
|
||||
use irp_stack_mod
|
||||
integer :: ithread
|
||||
character*(*) :: irp_where
|
||||
"""
|
||||
if do_openmp:
|
||||
txt += """
|
||||
integer, external :: omp_get_thread_num
|
||||
integer, external :: omp_get_num_threads
|
||||
ithread = omp_get_thread_num()
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
ithread = 0
|
||||
"""
|
||||
txt += """
|
||||
$1
|
||||
"""
|
||||
if do_memory:
|
||||
txt+="""
|
||||
if (.not.alloc) then
|
||||
"""
|
||||
if do_openmp:
|
||||
txt += """
|
||||
!$OMP PARALLEL
|
||||
!$OMP SINGLE
|
||||
nthread = omp_get_num_threads()
|
||||
!$OMP END SINGLE
|
||||
!$OMP END PARALLEL
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
nthread = 1
|
||||
"""
|
||||
txt +="""
|
||||
print *, 'Allocating irp_stack(',STACKMAX,',',0:nthread,')'
|
||||
print *, 'Allocating irp_cpu(',STACKMAX,',',0:nthread,')'
|
||||
print *, 'Allocating stack_index(',0:nthread,')'
|
||||
endif
|
||||
"""
|
||||
txt += """
|
||||
$2
|
||||
end subroutine
|
||||
|
||||
subroutine irp_leave (irp_where)
|
||||
use irp_stack_mod
|
||||
character*(*) :: irp_where
|
||||
integer :: ithread
|
||||
double precision :: cpu
|
||||
"""
|
||||
if do_openmp:
|
||||
txt += """
|
||||
integer, external :: omp_get_thread_num
|
||||
ithread = omp_get_thread_num()
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
ithread = 0
|
||||
"""
|
||||
txt += """
|
||||
$3
|
||||
$4
|
||||
end subroutine
|
||||
"""
|
||||
|
||||
# $1
|
||||
if do_debug:
|
||||
s = """
|
||||
if (.not.alloc) then
|
||||
"""
|
||||
if do_openmp:
|
||||
s += """
|
||||
!$OMP PARALLEL
|
||||
!$OMP SINGLE
|
||||
nthread = omp_get_num_threads()
|
||||
!$OMP END SINGLE
|
||||
!$OMP END PARALLEL
|
||||
!$OMP CRITICAL
|
||||
if (.not.alloc) then
|
||||
allocate(irp_stack(0:STACKMAX,0:nthread))
|
||||
allocate(irp_cpu(0:STACKMAX,0:nthread))
|
||||
allocate(stack_index(0:nthread))
|
||||
stack_index = 0
|
||||
alloc = .True.
|
||||
endif
|
||||
!$OMP END CRITICAL
|
||||
endif
|
||||
stack_index(ithread) = min(stack_index(ithread)+1,STACKMAX)
|
||||
irp_stack(stack_index(ithread),ithread) = irp_where"""
|
||||
else:
|
||||
s += """
|
||||
nthread = 1
|
||||
if (.not.alloc) then
|
||||
allocate(irp_stack(0:STACKMAX,1))
|
||||
allocate(irp_cpu(0:STACKMAX,1))
|
||||
allocate(stack_index(2))
|
||||
stack_index = 0
|
||||
alloc = .True.
|
||||
endif
|
||||
endif
|
||||
stack_index(1) = min(stack_index(1)+1,STACKMAX)
|
||||
irp_stack(stack_index(1),1) = irp_where"""
|
||||
if do_memory:
|
||||
txt+="""
|
||||
print *, 'Allocating irp_stack(',STACKMAX,','0:nthread,')'
|
||||
print *, 'Allocating irp_cpu(',STACKMAX,','0:nthread,')'
|
||||
print *, 'Allocating stack_index(',0:nthread,')'"""
|
||||
else:
|
||||
s = ""
|
||||
txt = txt.replace("$1",s)
|
||||
|
||||
# $2
|
||||
if do_debug:
|
||||
txt = txt.replace("$2","""
|
||||
print *, ithread, ':', white(1:stack_index(ithread))//'-> ', trim(irp_where)
|
||||
call cpu_time(irp_cpu(stack_index(ithread),ithread))""")
|
||||
else:
|
||||
txt = txt.replace("$2","")
|
||||
|
||||
# $3
|
||||
if do_debug:
|
||||
txt = txt.replace("$3","""
|
||||
call cpu_time(cpu)
|
||||
print *, ithread, ':', white(1:stack_index(ithread))//'<- ', &
|
||||
trim(irp_stack(stack_index(ithread),ithread)), &
|
||||
cpu-irp_cpu(stack_index(ithread),ithread)""")
|
||||
else:
|
||||
txt = txt.replace("$3","")
|
||||
|
||||
# $4
|
||||
if do_debug:
|
||||
txt = txt.replace("$4","""
|
||||
stack_index(ithread) = max(0,stack_index(ithread)-1)""")
|
||||
else:
|
||||
txt = txt.replace("$4","")
|
||||
|
||||
txt += """
|
||||
subroutine irp_trace
|
||||
use irp_stack_mod
|
||||
integer :: ithread
|
||||
integer :: i
|
||||
"""
|
||||
if do_openmp:
|
||||
txt += """
|
||||
!$ integer, external :: omp_get_thread_num
|
||||
!$ ithread = omp_get_thread_num()
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
ithread = 0
|
||||
"""
|
||||
txt += """
|
||||
if (.not.alloc) return
|
||||
print *, 'Stack trace: ', ithread
|
||||
print *, '-------------------------'
|
||||
do i=1,stack_index(ithread)
|
||||
print *, trim(irp_stack(i,ithread))
|
||||
enddo
|
||||
print *, '-------------------------'
|
||||
end subroutine
|
||||
"""
|
||||
|
||||
txt = txt.split('\n')
|
||||
txt = map(lambda x: x+"\n",txt)
|
||||
if not util.same_file(FILENAME, txt):
|
||||
file = open(FILENAME,'w')
|
||||
file.writelines(txt)
|
||||
file.close()
|
||||
|
||||
|
||||
119
src/irpf90.py
119
src/irpf90.py
|
|
@ -1,119 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
|
||||
import vim
|
||||
import os,sys
|
||||
try:
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
sys.path.insert(0,(wd+"/../src/"))
|
||||
except:
|
||||
pass
|
||||
sys.setcheckinterval(1000)
|
||||
|
||||
from command_line import command_line
|
||||
|
||||
def main():
|
||||
|
||||
vim.install()
|
||||
|
||||
if command_line.do_help:
|
||||
command_line.usage()
|
||||
|
||||
if command_line.do_version:
|
||||
from version import version
|
||||
print version
|
||||
|
||||
from init import init
|
||||
if command_line.do_init:
|
||||
init()
|
||||
|
||||
if command_line.do_preprocess:
|
||||
init()
|
||||
from preprocessed_text import preprocessed_text
|
||||
for filename,text in preprocessed_text:
|
||||
if filename in command_line.preprocessed:
|
||||
for line in text:
|
||||
print line.text
|
||||
|
||||
|
||||
if command_line.do_touch:
|
||||
from variables import variables
|
||||
for var in command_line.touched:
|
||||
if var not in variables:
|
||||
print "%s is not an IRP entity"%(var,)
|
||||
else:
|
||||
print "Touching %s invalidates the following entities:"%(var,)
|
||||
parents = variables[var].parents
|
||||
parents.sort()
|
||||
for x in parents:
|
||||
print "- %s"%(x,)
|
||||
|
||||
|
||||
if not command_line.do_run:
|
||||
return
|
||||
|
||||
init()
|
||||
|
||||
import irp_stack
|
||||
irp_stack.create()
|
||||
|
||||
import makefile
|
||||
makefile.create()
|
||||
|
||||
if command_line.do_codelet:
|
||||
import profile
|
||||
profile.build_rdtsc()
|
||||
import codelet
|
||||
codelet.run()
|
||||
|
||||
from modules import modules, write_module
|
||||
for m in modules.keys():
|
||||
write_module(modules[m])
|
||||
|
||||
makefile.run()
|
||||
|
||||
import touches
|
||||
touches.create()
|
||||
|
||||
# import checkpoint
|
||||
# checkpoint.create()
|
||||
|
||||
import create_man
|
||||
create_man.run()
|
||||
|
||||
if command_line.do_profile:
|
||||
import profile
|
||||
profile.run()
|
||||
|
||||
if command_line.do_openmp:
|
||||
import locks
|
||||
locks.create()
|
||||
|
||||
if __name__ == '__main__':
|
||||
main()
|
||||
|
||||
492
src/irpf90.vim
492
src/irpf90.vim
|
|
@ -1,492 +0,0 @@
|
|||
" Vim syntax file
|
||||
" Language: IRPF90
|
||||
" Version: 0.1
|
||||
" URL:
|
||||
" Last Change: 2011 Nov. 9
|
||||
" Maintainer:
|
||||
" Usage: Do :help irpf90-syntax from Vim
|
||||
" Credits:
|
||||
" Version 0.1 was based on the fortran 95 syntax file by Ajit J. Thakkar
|
||||
|
||||
if version < 600
|
||||
let b:current_syntax = "fortran"
|
||||
finish
|
||||
elseif exists("b:current_syntax")
|
||||
finish
|
||||
endif
|
||||
let b:current_syntax = "irpf90"
|
||||
|
||||
syn case ignore
|
||||
|
||||
|
||||
syn match irpf90Identifier "\<\a\w*\>" contains=irpf90SerialNumber
|
||||
syn match irpf90ConstructName "^\s*\zs\a\w*\ze\s*:"
|
||||
syn match irpf90ConstructName "\(\<end\s*do\s\+\)\@<=\a\w*"
|
||||
syn match irpf90ConstructName "\(\<end\s*if\s\+\)\@<=\a\w*"
|
||||
syn match irpf90ConstructName "\(\<end\s*select\s\+\)\@<=\a\w*"
|
||||
|
||||
syn match irpf90UnitHeader "^\s*end\s*$"
|
||||
syn match irpf90UnitHeader "^\s*end/>"
|
||||
|
||||
syn keyword irpf90Type character complex integer
|
||||
syn keyword irpf90Type intrinsic
|
||||
syn match irpf90Type "\<implicit\>"
|
||||
syn keyword irpf90Structure dimension
|
||||
syn keyword irpf90StorageClass parameter save
|
||||
syn match irpf90UnitHeader "\<subroutine\>"
|
||||
syn keyword irpf90Call call
|
||||
syn match irpf90UnitHeader "\<function\>"
|
||||
syn match irpf90UnitHeader "\<program\>"
|
||||
syn keyword irpf90Statement return stop
|
||||
syn keyword irpf90Conditional else then
|
||||
syn match irpf90Conditional "\<if\>"
|
||||
syn match irpf90Repeat "\<do\>"
|
||||
|
||||
syn keyword irpf90Todo contained todo fixme
|
||||
|
||||
"Catch errors caused by too many right parentheses
|
||||
syn region irpf90Paren transparent start="(" end=")" contains=ALLBUT,irpf90ParenError,@irpf90CommentGroup,cIncluded
|
||||
syn match irpf90ParenError ")"
|
||||
|
||||
syn match irpf90Operator "\.\s*n\=eqv\s*\."
|
||||
syn match irpf90Operator "\.\s*\(and\|or\|not\)\s*\."
|
||||
syn match irpf90Operator "\(+\|-\|/\|\*\)"
|
||||
|
||||
syn match irpf90Boolean "\.\s*\(true\|false\)\s*\."
|
||||
|
||||
syn keyword irpf90ReadWrite backspace close inquire open rewind endfile
|
||||
syn keyword irpf90ReadWrite read write print
|
||||
|
||||
"If tabs are allowed then the left margin checks do not work
|
||||
if exists("irpf90_have_tabs")
|
||||
syn match irpf90Tab "\t" transparent
|
||||
else
|
||||
syn match irpf90Tab "\t"
|
||||
endif
|
||||
|
||||
syn keyword irpf90IO unit file iostat access blank fmt form
|
||||
syn keyword irpf90IO recl status exist opened number named name
|
||||
syn keyword irpf90IO sequential direct rec
|
||||
syn keyword irpf90IO formatted unformatted nextrec
|
||||
|
||||
syn keyword irpf9066Intrinsic cabs ccos cexp clog csin csqrt
|
||||
syn keyword irpf9066Intrinsic dacos dasin datan datan2 dcos dcosh
|
||||
syn keyword irpf9066Intrinsic ddim dexp dint dlog dlog10 dmod dabs
|
||||
syn keyword irpf9066Intrinsic dnint dsign dsin dsinh dsqrt dtan
|
||||
syn keyword irpf9066Intrinsic dtanh iabs idim idnint isign idint ifix
|
||||
syn keyword irpf9066Intrinsic amax0 amax1 dmax1 max0 max1
|
||||
syn keyword irpf9066Intrinsic amin0 amin1 dmin1 min0 min1
|
||||
syn keyword irpf9066Intrinsic amod float sngl alog alog10
|
||||
|
||||
" Intrinsics provided by some vendors
|
||||
syn keyword irpf90ExtraIntrinsic cdabs cdcos cdexp cdlog cdsin cdsqrt
|
||||
syn keyword irpf90ExtraIntrinsic cqabs cqcos cqexp cqlog cqsin cqsqrt
|
||||
syn keyword irpf90ExtraIntrinsic qacos qasin qatan qatan2 qcos qcosh
|
||||
syn keyword irpf90ExtraIntrinsic qdim qexp iqint qlog qlog10 qmod qabs
|
||||
syn keyword irpf90ExtraIntrinsic qnint qsign qsin qsinh qsqrt qtan
|
||||
syn keyword irpf90ExtraIntrinsic qtanh qmax1 qmin1
|
||||
syn keyword irpf90ExtraIntrinsic dimag qimag dcmplx qcmplx dconjg qconjg
|
||||
syn keyword irpf90ExtraIntrinsic gamma dgamma qgamma algama dlgama qlgama
|
||||
syn keyword irpf90ExtraIntrinsic erf derf qerf erfc derfc qerfc
|
||||
syn keyword irpf90ExtraIntrinsic dfloat
|
||||
|
||||
syn keyword irpf90Intrinsic abs acos aimag aint anint asin atan atan2
|
||||
syn keyword irpf90Intrinsic cos sin tan sinh cosh tanh exp log log10
|
||||
syn keyword irpf90Intrinsic sign sqrt int cmplx nint min max conjg
|
||||
syn keyword irpf90Intrinsic char ichar index
|
||||
syn match irpf90Intrinsic "\<len\s*[(,]"me=s+3
|
||||
syn match irpf90Intrinsic "\<real\s*("me=s+4
|
||||
syn match irpf90Type "\<implicit\s\+real"
|
||||
syn match irpf90Type "^\s*real\>"
|
||||
syn match irpf90Intrinsic "\<logical\s*("me=s+7
|
||||
syn match irpf90Type "\<implicit\s\+logical"
|
||||
syn match irpf90Type "^\s*logical\>"
|
||||
|
||||
"Numbers of various sorts
|
||||
" Integers
|
||||
syn match irpf90Number display "\<\d\+\(_\a\w*\)\=\>"
|
||||
" floating point number, without a decimal point
|
||||
syn match irpf90FloatNoDec display "\<\d\+[deq][-+]\=\d\+\(_\a\w*\)\=\>"
|
||||
" floating point number, starting with a decimal point
|
||||
syn match irpf90FloatIniDec display "\.\d\+\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
|
||||
" floating point number, no digits after decimal
|
||||
syn match irpf90FloatEndDec display "\<\d\+\.\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
|
||||
" floating point number, D or Q exponents
|
||||
syn match irpf90FloatDExp display "\<\d\+\.\d\+\([dq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
|
||||
" floating point number
|
||||
syn match irpf90Float display "\<\d\+\.\d\+\(e[-+]\=\d\+\)\=\(_\a\w*\)\=\>"
|
||||
" Numbers in formats
|
||||
syn match irpf90FormatSpec display "\d*f\d\+\.\d\+"
|
||||
syn match irpf90FormatSpec display "\d*e[sn]\=\d\+\.\d\+\(e\d+\>\)\="
|
||||
syn match irpf90FormatSpec display "\d*\(d\|q\|g\)\d\+\.\d\+\(e\d+\)\="
|
||||
syn match irpf90FormatSpec display "\d\+x\>"
|
||||
" The next match cannot be used because it would pick up identifiers as well
|
||||
" syn match irpf90FormatSpec display "\<\(a\|i\)\d\+"
|
||||
|
||||
" Numbers as labels
|
||||
syn match irpf90LabelNumber display "^\d\{1,5}\s"me=e-1
|
||||
syn match irpf90LabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1
|
||||
syn match irpf90LabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1
|
||||
syn match irpf90LabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1
|
||||
syn match irpf90LabelNumber display "^ \d\s"ms=s+4,me=e-1
|
||||
|
||||
if version >= 600 && exists("irpf90_more_precise")
|
||||
" Numbers as targets
|
||||
syn match irpf90Target display "\(\<if\s*(.\+)\s*\)\@<=\(\d\+\s*,\s*\)\{2}\d\+\>"
|
||||
syn match irpf90Target display "\(\<do\s\+\)\@<=\d\+\>"
|
||||
syn match irpf90Target display "\(\<go\s*to\s*(\=\)\@<=\(\d\+\s*,\s*\)*\d\+\>"
|
||||
endif
|
||||
|
||||
syn keyword irpf90TypeEx external
|
||||
syn keyword irpf90IOEx format
|
||||
syn keyword irpf90StatementEx continue
|
||||
syn match irpf90StatementEx "\<go\s*to\>"
|
||||
syn region irpf90StringEx start=+'+ end=+'+ contains=irpf90ContinueMark,irpf90LeftMargin,irpf90SerialNumber
|
||||
syn keyword irpf90IntrinsicEx dim lge lgt lle llt mod
|
||||
syn keyword irpf90StatementOb assign pause to
|
||||
|
||||
syn keyword irpf90Type type none
|
||||
|
||||
syn keyword irpf90Structure private public intent optional
|
||||
syn keyword irpf90Structure pointer target allocatable
|
||||
syn keyword irpf90StorageClass in out
|
||||
syn match irpf90StorageClass "\<kind\s*="me=s+4
|
||||
syn match irpf90StorageClass "\<len\s*="me=s+3
|
||||
|
||||
syn match irpf90UnitHeader "\<module\>"
|
||||
syn keyword irpf90UnitHeader use only contains
|
||||
syn keyword irpf90UnitHeader result operator assignment
|
||||
syn match irpf90UnitHeader "\<interface\>"
|
||||
syn match irpf90UnitHeader "\<recursive\>"
|
||||
syn keyword irpf90Statement allocate deallocate nullify cycle exit
|
||||
syn match irpf90Conditional "\<select\>"
|
||||
syn keyword irpf90Conditional case default where elsewhere
|
||||
|
||||
syn match irpf90Operator "\(\(>\|<\)=\=\|==\|/=\|=\)"
|
||||
syn match irpf90Operator "=>"
|
||||
|
||||
syn region irpf90String start=+"+ end=+"+ contains=irpf90LeftMargin,irpf90ContinueMark,irpf90SerialNumber
|
||||
syn keyword irpf90IO pad position action delim readwrite
|
||||
syn keyword irpf90IO eor advance nml
|
||||
|
||||
syn keyword irpf90Intrinsic adjustl adjustr all allocated any
|
||||
syn keyword irpf90Intrinsic associated bit_size btest ceiling
|
||||
syn keyword irpf90Intrinsic count cshift date_and_time
|
||||
syn keyword irpf90Intrinsic digits dot_product eoshift epsilon exponent
|
||||
syn keyword irpf90Intrinsic floor fraction huge iand ibclr ibits ibset ieor
|
||||
syn keyword irpf90Intrinsic ior ishft ishftc lbound len_trim
|
||||
syn keyword irpf90Intrinsic matmul maxexponent maxloc maxval merge
|
||||
syn keyword irpf90Intrinsic minexponent minloc minval modulo mvbits nearest
|
||||
syn keyword irpf90Intrinsic pack present product radix random_number
|
||||
syn match irpf90Intrinsic "\<not\>\(\s*\.\)\@!"me=s+3
|
||||
syn keyword irpf90Intrinsic random_seed range repeat reshape rrspacing scale
|
||||
syn keyword irpf90Intrinsic selected_int_kind selected_real_kind scan
|
||||
syn keyword irpf90Intrinsic shape size spacing spread set_exponent
|
||||
syn keyword irpf90Intrinsic tiny transpose trim ubound unpack verify
|
||||
syn keyword irpf90Intrinsic precision sum system_clock
|
||||
syn match irpf90Intrinsic "\<kind\>\s*[(,]"me=s+4
|
||||
|
||||
syn match irpf90UnitHeader "\<end\s*function"
|
||||
syn match irpf90UnitHeader "\<end\s*interface"
|
||||
syn match irpf90UnitHeader "\<end\s*module"
|
||||
syn match irpf90UnitHeader "\<end\s*program"
|
||||
syn match irpf90UnitHeader "\<end\s*subroutine"
|
||||
syn match irpf90Repeat "\<end\s*do"
|
||||
syn match irpf90Conditional "\<end\s*where"
|
||||
syn match irpf90Conditional "\<select\s*case"
|
||||
syn match irpf90Conditional "\<end\s*select"
|
||||
syn match irpf90Type "\<end\s*type"
|
||||
syn match irpf90Type "\<in\s*out"
|
||||
|
||||
syn keyword irpf90UnitHeaderEx procedure
|
||||
syn keyword irpf90IOEx namelist
|
||||
syn keyword irpf90ConditionalEx while
|
||||
syn keyword irpf90IntrinsicEx achar iachar transfer
|
||||
|
||||
syn keyword irpf90Include include
|
||||
syn keyword irpf90StorageClassR sequence
|
||||
|
||||
syn match irpf90Conditional "\<end\s*if"
|
||||
syn match irpf90IO contains=irpf90Operator "\<e\(nd\|rr\)\s*=\s*\d\+"
|
||||
syn match irpf90Conditional "\<else\s*if"
|
||||
|
||||
syn keyword irpf90UnitHeaderR entry
|
||||
syn match irpf90TypeR display "double\s\+precision"
|
||||
syn match irpf90TypeR display "double\s\+complex"
|
||||
syn match irpf90UnitHeaderR display "block\s\+data"
|
||||
syn keyword irpf90StorageClassR common equivalence data
|
||||
syn keyword irpf90IntrinsicR dble dprod
|
||||
syn match irpf90OperatorR "\.\s*[gl][et]\s*\."
|
||||
syn match irpf90OperatorR "\.\s*\(eq\|ne\)\s*\."
|
||||
|
||||
syn keyword irpf90Repeat forall
|
||||
syn match irpf90Repeat "\<end\s*forall"
|
||||
syn keyword irpf90Intrinsic null cpu_time
|
||||
syn match irpf90Type "\<elemental\>"
|
||||
syn match irpf90Type "\<pure\>"
|
||||
syn match irpf90ConstructName "\(\<end\s*forall\s\+\)\@<=\a\w*\>"
|
||||
|
||||
syn cluster irpf90CommentGroup contains=irpf90Todo
|
||||
|
||||
syn match irpf90ContinueMark display "&"
|
||||
|
||||
syn match irpf90Comment excludenl "!.*$" contains=@irpf90CommentGroup
|
||||
|
||||
"cpp is often used with irpf90
|
||||
syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*"
|
||||
syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*"
|
||||
syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*"
|
||||
syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*"
|
||||
syn region cIncluded contained start=+"[^(]+ skip=+\\\\\|\\"+ end=+"+ contains=irpf90LeftMargin,irpf90ContinueMark,irpf90SerialNumber
|
||||
syn match cIncluded contained "<[^>]*>"
|
||||
syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded
|
||||
|
||||
"Synchronising limits assume that comment and continuation lines are not mixed
|
||||
syn sync linecont "&" maxlines=40
|
||||
|
||||
""""IRPF90 specific
|
||||
syn match irpf90UnitHeader "^\s*begin_shell\s*"
|
||||
syn match irpf90UnitHeader "^\s*end_shell\s*$"
|
||||
syn match irpf90UnitHeader "^\s*begin_template\s*"
|
||||
syn match irpf90UnitHeader "^\s*end_template\s*$"
|
||||
syn match irpf90UnitHeader "^\s*subst\s*$"
|
||||
syn match irpf90Comment "^\s*begin_doc\s*"
|
||||
syn match irpf90Comment "^\s*end_doc\s*$"
|
||||
syn match irpf90UnitHeader "^\s*&*\s*begin_provider\s*"
|
||||
syn match irpf90UnitHeader "^\s*end_provider\s*$"
|
||||
syn match irpf90UnitHeader "^\s*assert"
|
||||
syn match irpf90UnitHeader "^\s*touch"
|
||||
syn match irpf90UnitHeader "^\s*soft_touch"
|
||||
syn match irpf90UnitHeader "^\s*provide"
|
||||
syn match irpf90UnitHeader "^\s*free"
|
||||
syn match irpf90UnitHeader "^\s*irp_if"
|
||||
syn match irpf90UnitHeader "^\s*irp_else"
|
||||
syn match irpf90UnitHeader "^\s*irp_endif"
|
||||
syn match irpf90UnitHeader "^\s*irp_read"
|
||||
syn match irpf90UnitHeader "^\s*irp_write"
|
||||
"""
|
||||
if exists("irpf90_fold")
|
||||
|
||||
syn sync fromstart
|
||||
syn region irpf90Program transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\(program\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,irpf90Module
|
||||
syn region irpf90Module transparent fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\(module\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,irpf90Program
|
||||
syn region irpf90Function transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*function\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|function\(\s\+\z1\>\)\=\)" contains=ALLBUT,irpf90Program,irpf90Module
|
||||
syn region irpf90Subroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|subroutine\(\s\+\z1\>\)\=\)" contains=ALLBUT,irpf90Program,irpf90Module
|
||||
syn region irpf90BlockData transparent fold keepend start="\<block\s*data\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|block\s*data\(\s\+\z1\>\)\=\)" contains=ALLBUT,irpf90Program,irpf90Module,irpf90Subroutine,irpf90Function,irpf90Loop,irpf90Case,irpf90Loop,irpf90IfBlock
|
||||
syn region irpf90Interface transparent fold keepend extend start="^\s*interface\>" skip="^\s*[!#].*$" excludenl end="\<end\s*interface\>" contains=ALLBUT,irpf90Program,irpf90Module,irpf90Loop,irpf90Case,irpf90Loop,irpf90IfBlock
|
||||
|
||||
if exists("irpf90_fold_conditionals")
|
||||
syn region irpf90Loop transparent fold keepend start="\<do\s\+\z(\d\+\)" end="^\s*\z1\>" contains=ALLBUT,irpf90UnitHeader,irpf90Structure,irpf90StorageClass,irpf90Type,irpf90Program,irpf90Module,irpf90Subroutine,irpf90Function,irpf90BlockData
|
||||
syn region irpf90Loop transparent fold keepend extend start="\(\<end\s\+\)\@<!\<do\(\s\+\a\|\s*$\)" skip="^\s*[!#].*$" excludenl end="\<end\s*do\>" contains=ALLBUT,irpf90UnitHeader,irpf90Structure,irpf90StorageClass,irpf90Type,irpf90Program,irpf90Module,irpf90Subroutine,irpf90Function,irpf90BlockData
|
||||
syn region irpf90IfBlock transparent fold keepend extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(.\+)\s*then\>" skip="^\s*[!#].*$" end="\<end\s*if\>" contains=ALLBUT,irpf90UnitHeader,irpf90Structure,irpf90StorageClass,irpf90Type,irpf90Program,irpf90Module,irpf90Subroutine,irpf90Function,irpf90BlockData
|
||||
syn region irpf90Case transparent fold keepend extend start="\<select\s*case\>" skip="^\s*[!#].*$" end="\<end\s*select\>" contains=ALLBUT,irpf90UnitHeader,irpf90Structure,irpf90StorageClass,irpf90Type,irpf90Program,irpf90Module,irpf90Subroutine,irpf90Function,irpf90BlockData
|
||||
endif
|
||||
|
||||
if exists("irpf90_fold_multilinecomments")
|
||||
syn match irpf90MultiLineComments transparent fold "\(^\s*!.*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,irpf90MultiCommentLines
|
||||
endif
|
||||
endif
|
||||
|
||||
if !exists("did_irpf90_syn_inits")
|
||||
command -nargs=+ HiLink hi def link <args>
|
||||
|
||||
" The default highlighting differs for each dialect.
|
||||
" Transparent groups:
|
||||
" irpf90Paren, irpf90LeftMargin
|
||||
" irpf90Program, irpf90Module, irpf90Subroutine, irpf90Function,
|
||||
" irpf90BlockData
|
||||
" irpf90Loop, irpf90Loop, irpf90IfBlock, irpf90Case
|
||||
" irpf90MultiCommentLines
|
||||
HiLink irpf90Statement Statement
|
||||
HiLink irpf90ConstructName Special
|
||||
HiLink irpf90Conditional Conditional
|
||||
HiLink irpf90Repeat Repeat
|
||||
HiLink irpf90Todo Todo
|
||||
HiLink irpf90ContinueMark Todo
|
||||
HiLink irpf90String String
|
||||
HiLink irpf90Number Number
|
||||
HiLink irpf90Operator Operator
|
||||
HiLink irpf90Boolean Boolean
|
||||
HiLink irpf90LabelError Error
|
||||
HiLink irpf90Obsolete Todo
|
||||
HiLink irpf90Type Type
|
||||
HiLink irpf90Structure Type
|
||||
HiLink irpf90StorageClass StorageClass
|
||||
HiLink irpf90Call irpf90UnitHeader
|
||||
HiLink irpf90UnitHeader irpf90PreCondit
|
||||
HiLink irpf90ReadWrite irpf90Intrinsic
|
||||
HiLink irpf90IO irpf90Intrinsic
|
||||
HiLink irpf90Intrinsic irpf90Intrinsic
|
||||
HiLink irpf90Intrinsic irpf90Intrinsic
|
||||
HiLink irpf90Intrinsic Special
|
||||
|
||||
HiLink irpf90StatementOb Statement
|
||||
HiLink irpf9066Intrinsic irpf90Intrinsic
|
||||
HiLink irpf90IntrinsicR irpf90Intrinsic
|
||||
HiLink irpf90UnitHeaderR irpf90PreCondit
|
||||
HiLink irpf90TypeR irpf90Type
|
||||
HiLink irpf90StorageClassR irpf90StorageClass
|
||||
HiLink irpf90OperatorR irpf90Operator
|
||||
HiLink irpf90Include Include
|
||||
HiLink irpf90StorageClassR irpf90StorageClass
|
||||
|
||||
HiLink irpf90LabelNumber Special
|
||||
HiLink irpf90Target Special
|
||||
HiLink irpf90FormatSpec Identifier
|
||||
HiLink irpf90FloatDExp irpf90Float
|
||||
HiLink irpf90FloatNoDec irpf90Float
|
||||
HiLink irpf90FloatIniDec irpf90Float
|
||||
HiLink irpf90FloatEndDec irpf90Float
|
||||
HiLink irpf90TypeEx irpf90Type
|
||||
HiLink irpf90IOEx irpf90IO
|
||||
HiLink irpf90StatementEx irpf90Statement
|
||||
HiLink irpf90StringEx irpf90String
|
||||
HiLink irpf90IntrinsicEx irpf90Intrinsic
|
||||
HiLink irpf90UnitHeaderEx irpf90UnitHeader
|
||||
HiLink irpf90ConditionalEx irpf90Conditional
|
||||
HiLink irpf90IntrinsicEx irpf90Intrinsic
|
||||
|
||||
HiLink irpf90Float Float
|
||||
"Uncomment the next line if you want all irpf90 variables to be highlighted
|
||||
" HiLink irpf90Identifier Identifier
|
||||
HiLink irpf90PreCondit PreCondit
|
||||
HiLink irpf90Include Include
|
||||
HiLink cIncluded Error
|
||||
HiLink cInclude Error
|
||||
HiLink cPreProc Error
|
||||
HiLink cPreCondit Error
|
||||
HiLink irpf90ParenError Error
|
||||
HiLink irpf90Comment Comment
|
||||
HiLink irpf90SerialNumber Todo
|
||||
HiLink irpf90Tab Error
|
||||
" Vendor extensions
|
||||
HiLink irpf90ExtraIntrinsic Special
|
||||
|
||||
delcommand HiLink
|
||||
endif
|
||||
|
||||
fun! ReadMan()
|
||||
let s:man_word = expand('<cword>')
|
||||
:exe ":!irpman " . s:man_word
|
||||
endfun
|
||||
map K :call ReadMan()<CR>
|
||||
set equalprg=irpf90_indent
|
||||
|
||||
|
||||
if exists('g:no_irpf90_conceal') || !has('conceal') || &enc != 'utf-8'
|
||||
finish
|
||||
endif
|
||||
|
||||
syntax match irpf90NiceOperator "<-" conceal cchar=←
|
||||
iab ← <-
|
||||
syntax match irpf90NiceOperator "->" conceal cchar=→
|
||||
iab → ->
|
||||
syntax match irpf90NiceOperator "==" conceal cchar=≡
|
||||
iab ≡ ==
|
||||
syntax match irpf90NiceOperator "\.eq\." conceal cchar=≡
|
||||
syntax match irpf90NiceOperator "/=" conceal cchar=≠
|
||||
iab ≠ /=
|
||||
syntax match irpf90NiceOperator "\.ne\." conceal cchar=≠
|
||||
syntax match irpf90NiceOperator "\.or\." conceal cchar=∨
|
||||
iab ∨ .or.
|
||||
syntax match irpf90NiceOperator "\.and\." conceal cchar=∧
|
||||
iab ∧ .and.
|
||||
syntax match irpf90NiceOperator "*" conceal cchar=×
|
||||
iab × *
|
||||
|
||||
let s:extraConceal = 1
|
||||
" Some windows font don't support some of the characters,
|
||||
" so if they are the main font, we don't load them :)
|
||||
if has("win32")
|
||||
let s:incompleteFont = [ 'Consolas'
|
||||
\ , 'Lucida Console'
|
||||
\ , 'Courier New'
|
||||
\ ]
|
||||
let s:mainfont = substitute( &guifont, '^\([^:,]\+\).*', '\1', '')
|
||||
for s:fontName in s:incompleteFont
|
||||
if s:mainfont ==? s:fontName
|
||||
let s:extraConceal = 0
|
||||
break
|
||||
endif
|
||||
endfor
|
||||
endif
|
||||
|
||||
if s:extraConceal
|
||||
syntax match irpf90NiceOperator "<=" conceal cchar=≤
|
||||
syntax match irpf90NiceOperator "\.le\." conceal cchar=≤
|
||||
iab ≤ <=
|
||||
syntax match irpf90NiceOperator ">=" conceal cchar=≥
|
||||
syntax match irpf90NiceOperator "\.ge\." conceal cchar=≥
|
||||
iab ≥ >=
|
||||
syntax match irpf90NiceOperator "\.lt\." conceal cchar=<
|
||||
syntax match irpf90NiceOperator "\.gt\." conceal cchar=>
|
||||
syntax match irpf90NiceOperator "=>" conceal cchar=⇒
|
||||
iab ⇒ =>
|
||||
syntax match irpf90NiceOperator "\:\:" conceal cchar=∷
|
||||
iab ∷ ::
|
||||
syntax match irpf90NiceOperator "++" conceal cchar=⧺
|
||||
iab ⧺ ++
|
||||
syntax match irpf90NiceOperator "\<lapl_" conceal cchar=Δ
|
||||
syntax match irpf90NiceOperator "\C\<Delta\>" conceal cchar=Δ
|
||||
iab Δ Delta
|
||||
syntax match irpf90NiceOperator "\C\<Lambda\>" conceal cchar=Λ
|
||||
iab Λ Lambda
|
||||
syntax match irpf90NiceOperator "\C\<Pi\>" conceal cchar=Π
|
||||
iab Π Pi
|
||||
syntax match irpf90NiceOperator "\C\<Sigma\>" conceal cchar=Σ
|
||||
iab Σ Sigma
|
||||
syntax match irpf90NiceOperator "\C\<Psi\>" conceal cchar=Ψ
|
||||
iab Ψ Psi
|
||||
syntax match irpf90NiceOperator "\C\<Omega\>" conceal cchar=Ω
|
||||
iab Ω Omega
|
||||
syntax match irpf90NiceOperator "\C\<alpha\>" conceal cchar=α
|
||||
iab α alpha
|
||||
syntax match irpf90NiceOperator "\C\<beta\>" conceal cchar=β
|
||||
iab β beta
|
||||
syntax match irpf90NiceOperator "\C\<gamma\>" conceal cchar=γ
|
||||
iab γ gamma
|
||||
syntax match irpf90NiceOperator "\C\<delta\>" conceal cchar=δ
|
||||
iab δ delta
|
||||
syntax match irpf90NiceOperator "\C\<epsilon\>" conceal cchar=ε
|
||||
iab ε epsilon
|
||||
syntax match irpf90NiceOperator "\C\<zeta\>" conceal cchar=ζ
|
||||
iab ζ zeta
|
||||
syntax match irpf90NiceOperator "\C\<theta\>" conceal cchar=θ
|
||||
iab θ theta
|
||||
syntax match irpf90NiceOperator "\C\<eta\>" conceal cchar=η
|
||||
iab η eta
|
||||
syntax match irpf90NiceOperator "\C\<lambda\>" conceal cchar=λ
|
||||
iab λ lambda
|
||||
syntax match irpf90NiceOperator "\C\<mu\>" conceal cchar=μ
|
||||
iab μ mu
|
||||
syntax match irpf90NiceOperator "\C\<nu\>" conceal cchar=ν
|
||||
iab ν nu
|
||||
syntax match irpf90NiceOperator "\C\<pi\>" conceal cchar=π
|
||||
iab π pi
|
||||
syntax match irpf90NiceOperator "\C\<rho\>" conceal cchar=ρ
|
||||
iab ρ rho
|
||||
syntax match irpf90NiceOperator "\C\<sigma\>" conceal cchar=σ
|
||||
iab σ sigma
|
||||
syntax match irpf90NiceOperator "\C\<tau\>" conceal cchar=τ
|
||||
iab τ tau
|
||||
syntax match irpf90NiceOperator "\C\<phi\>" conceal cchar=φ
|
||||
iab φ phi
|
||||
syntax match irpf90NiceOperator "\C\<nabla\>" conceal cchar=∇
|
||||
iab ∇ nabla
|
||||
syntax match irpf90NiceOperator "\C\<grad_" conceal cchar=∇
|
||||
iab ∇ grad_o
|
||||
syntax match irpf90NiceOperator "\C\<chi\>" conceal cchar=χ
|
||||
iab χ chi
|
||||
syntax match irpf90NiceOperator "\C\<psi\>" conceal cchar=ψ
|
||||
iab ψ psi
|
||||
syntax match irpf90NiceOperator "\C\<omega\>" conceal cchar=ω
|
||||
iab ω omega
|
||||
endif
|
||||
|
||||
hi link irpf90NiceOperator Operator
|
||||
hi! link Conceal Operator
|
||||
setlocal conceallevel=2
|
||||
|
||||
" vim: set fenc=utf-8:
|
||||
" vim: ts=8 tw=132
|
||||
|
||||
|
|
@ -1,272 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import sys
|
||||
import re
|
||||
|
||||
LENMAX = 70
|
||||
tabn = 2
|
||||
tab = " "*tabn
|
||||
|
||||
class Grep(object):
|
||||
|
||||
re_begin_program = re.compile(r"^\s*program\s",flags=re.I)
|
||||
def begin_program(self,string):
|
||||
return re.match(self.re_begin_program,string) is not None
|
||||
|
||||
re_end_program = re.compile(r"\s*(end\s*!?$|end\s*program)",flags=re.I)
|
||||
def end_program(self,string):
|
||||
return re.match(self.re_end_program,string) is not None
|
||||
|
||||
re_begin_subroutine = re.compile(r"^\s*(recursive)?\s*subroutine\s",flags=re.I)
|
||||
def begin_subroutine(self,string):
|
||||
return re.match(self.re_begin_subroutine,string) is not None
|
||||
|
||||
re_end_subroutine = re.compile(r"\s*(end\s*!?$|end\s*subroutine)",flags=re.I)
|
||||
def end_subroutine(self,string):
|
||||
return re.match(self.re_end_subroutine,string) is not None
|
||||
|
||||
re_begin_function = re.compile(r"^.*function\s+.*\(",flags=re.I)
|
||||
def begin_function(self,string):
|
||||
return re.match(self.re_begin_function,string) is not None
|
||||
|
||||
re_end_function = re.compile(r"\s*(end\s*!?$|end\s*function)",flags=re.I)
|
||||
def end_function(self,string):
|
||||
return re.match(self.re_end_function,string) is not None
|
||||
|
||||
re_begin_provider = re.compile(r"^\s*&?begin_provider\s",flags=re.I)
|
||||
def begin_provider(self,string):
|
||||
return re.match(self.re_begin_provider,string) is not None
|
||||
|
||||
re_end_provider = re.compile(r"^\s*end_provider\s*(!.*)?$", flags=re.I)
|
||||
def end_provider(self,string):
|
||||
return re.match(self.re_end_provider,string) is not None
|
||||
|
||||
re_begin_do = re.compile(r"^\s*do\s+",flags=re.I)
|
||||
def begin_do(self,string):
|
||||
return re.match(self.re_begin_do,string) is not None
|
||||
|
||||
re_end_do = re.compile(r"^\s*end\s*do\s*(!.*)?$",flags=re.I)
|
||||
def end_do(self,string):
|
||||
return re.match(self.re_end_do,string) is not None
|
||||
|
||||
re_begin_if = re.compile(r"^\s*if(\(|\s+).*(&|then)\s*(!.*)?$",flags=re.I)
|
||||
def begin_if(self,string):
|
||||
return re.match(self.re_begin_if,string) is not None
|
||||
|
||||
re_else = re.compile(r"^\s*else",flags=re.I)
|
||||
def xelse(self,string):
|
||||
return re.match(self.re_else,string) is not None
|
||||
|
||||
re_end_if = re.compile(r"^\s*end\s*if\s*(!.*)?$",flags=re.I)
|
||||
def end_if(self,string):
|
||||
return re.match(self.re_end_if,string) is not None
|
||||
|
||||
re_begin_select = re.compile(r"^\s*select\s*case",flags=re.I)
|
||||
def begin_select(self,string):
|
||||
return re.match(self.re_begin_select,string) is not None
|
||||
|
||||
re_case = re.compile(r"^\s*case\s*\(",flags=re.I)
|
||||
def case(self,string):
|
||||
return re.match(self.re_case,string) is not None
|
||||
|
||||
re_end_select = re.compile(r"^\s*end\s*select\s*(!.*)?$",flags=re.I)
|
||||
def end_select(self,string):
|
||||
return re.match(self.re_end_select,string) is not None
|
||||
|
||||
re_continuation = re.compile(r"^\s*\S+.*&")
|
||||
def continuation(self,string):
|
||||
return re.match(self.re_continuation,string) is not None
|
||||
|
||||
re_declaration = re.compile(r"^.*::.*$")
|
||||
def declaration(self,string):
|
||||
return re.match(self.re_declaration,string) is not None
|
||||
|
||||
grep = Grep()
|
||||
|
||||
class indent(object):
|
||||
|
||||
def __init__(self):
|
||||
"""Run the program"""
|
||||
self.run()
|
||||
|
||||
def format_declaration(self,string,n):
|
||||
l,r = string.split('::')
|
||||
return l.strip().ljust(n) + ' :: '+ r.strip()
|
||||
|
||||
def format_continuation(self,string,n):
|
||||
buffer = string.split('&')
|
||||
if len(buffer) == 1:
|
||||
l = buffer[0]
|
||||
return l
|
||||
else:
|
||||
l, r = buffer
|
||||
return l.strip().ljust(69-len(n)) + '&'+ r.strip()
|
||||
|
||||
def get_filename(self):
|
||||
"""The file name is the first argument"""
|
||||
if '_filename' not in self.__dict__:
|
||||
try:
|
||||
self._filename = sys.argv[1]
|
||||
except:
|
||||
self._filename = None
|
||||
return self._filename
|
||||
filename=property(fget=get_filename)
|
||||
|
||||
def get_text(self):
|
||||
"""The text of the file is a list of lines"""
|
||||
if '_text' not in self.__dict__:
|
||||
if self.filename is not None:
|
||||
f = open(self.filename,'r')
|
||||
self._text = f.read().splitlines()
|
||||
f.close()
|
||||
else:
|
||||
self._text = sys.stdin.read().splitlines()
|
||||
return self._text
|
||||
text=property(fget=get_text)
|
||||
|
||||
def indentlevel(self,line):
|
||||
line = line.rstrip()
|
||||
k=0
|
||||
if len(line) > 0:
|
||||
while line[k] == ' ':
|
||||
k+=1
|
||||
return k
|
||||
|
||||
def run(self):
|
||||
lines = self.text
|
||||
indent0 = " "*self.indentlevel(self.text[0])
|
||||
k = indent0
|
||||
line = ""
|
||||
for i in range(len(self.text)):
|
||||
prevline = line
|
||||
line = self.text[i].strip()
|
||||
if grep.continuation(line):
|
||||
line = self.format_continuation(line,k)
|
||||
|
||||
if grep.continuation(prevline):
|
||||
print k+2*tab+self.format_continuation(line,k+2*tab)
|
||||
continue
|
||||
|
||||
if grep.begin_subroutine(line):
|
||||
print line
|
||||
k = indent0+tab
|
||||
continue
|
||||
|
||||
if grep.begin_function(line):
|
||||
print line
|
||||
k = indent0+tab
|
||||
continue
|
||||
|
||||
if grep.begin_program(line):
|
||||
print line
|
||||
k = indent0+tab
|
||||
continue
|
||||
|
||||
if grep.begin_provider(line):
|
||||
if line[0] != '&':
|
||||
k = indent0+tab
|
||||
if grep.begin_provider(self.text[i+1].strip()):
|
||||
print " "+line
|
||||
else:
|
||||
print line
|
||||
else:
|
||||
print line
|
||||
continue
|
||||
|
||||
if grep.declaration(line):
|
||||
print k+self.format_declaration(line,30)
|
||||
continue
|
||||
|
||||
if grep.begin_do(line):
|
||||
print k+line
|
||||
k += tab
|
||||
continue
|
||||
|
||||
if grep.begin_if(line):
|
||||
print k+line
|
||||
k += tab
|
||||
continue
|
||||
|
||||
if grep.xelse(line):
|
||||
print k[:-tabn]+line
|
||||
continue
|
||||
|
||||
if grep.begin_select(line):
|
||||
print k+line
|
||||
k += 2*tab
|
||||
continue
|
||||
|
||||
if grep.case(line):
|
||||
print k[:-tabn]+line
|
||||
continue
|
||||
|
||||
if grep.end_do(line):
|
||||
k = k[:-tabn]
|
||||
print k+line
|
||||
continue
|
||||
|
||||
if grep.end_if(line):
|
||||
k = k[:-tabn]
|
||||
print k+line
|
||||
continue
|
||||
|
||||
if grep.end_select(line):
|
||||
k = k[:-2*tabn]
|
||||
print k+line
|
||||
continue
|
||||
|
||||
if grep.end_subroutine(line):
|
||||
print line
|
||||
k = indent0
|
||||
continue
|
||||
|
||||
if grep.end_function(line):
|
||||
print line
|
||||
k = indent0
|
||||
continue
|
||||
|
||||
if grep.end_provider(line):
|
||||
print line
|
||||
k = indent0
|
||||
continue
|
||||
|
||||
if grep.end_program(line):
|
||||
print line
|
||||
k = indent0
|
||||
continue
|
||||
|
||||
print k+line
|
||||
|
||||
|
||||
def main():
|
||||
indent()
|
||||
|
||||
|
||||
if __name__ == '__main__':
|
||||
main()
|
||||
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
import sys
|
||||
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
sys.path.insert(0,(wd+"/../src/"))
|
||||
sys.path.insert(0,(wd+"/../share/irpf90/src/"))
|
||||
|
||||
def main():
|
||||
import irpf90
|
||||
irpf90.main()
|
||||
|
||||
main()
|
||||
|
||||
408
src/irpf90_t.py
408
src/irpf90_t.py
|
|
@ -1,408 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
import os
|
||||
from zlib import crc32
|
||||
|
||||
irpdir = "IRPF90_temp/"
|
||||
mandir = "IRPF90_man/"
|
||||
irp_id = abs(crc32(os.getcwd()))
|
||||
|
||||
|
||||
class Line(object):
|
||||
def __init__(self,i,text,filename):
|
||||
self.i = i
|
||||
self._text = None
|
||||
self.filename = filename
|
||||
self._lower = None
|
||||
self.set_text(text)
|
||||
|
||||
def get_text(self):
|
||||
return self._text
|
||||
|
||||
def set_text(self,value):
|
||||
self._text = value
|
||||
self._lower = value.lower()
|
||||
|
||||
def get_lower(self):
|
||||
return self._lower
|
||||
|
||||
text = property(fget=get_text, fset=set_text)
|
||||
lower = property(fget=get_lower)
|
||||
|
||||
class Empty_line(Line):
|
||||
str="Empty_line"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Empty_line",self.i,self.text)
|
||||
|
||||
class Simple_line(Line):
|
||||
str="Simple_line"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Simple_line",self.i,self.text)
|
||||
|
||||
class Declaration(Line):
|
||||
str="Declaration"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Declaration",self.i,self.text)
|
||||
|
||||
class Continue(Line):
|
||||
str="Continue"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Continue",self.i,self.text)
|
||||
|
||||
class Begin_provider(Line):
|
||||
str="Begin_provider"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Begin_provider",self.i,self.text)
|
||||
|
||||
class Cont_provider(Line):
|
||||
str="Cont_provider"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Cont_provider",self.i,self.text)
|
||||
|
||||
class End_provider(Line):
|
||||
str="End_provider"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End_provider",self.i,self.text)
|
||||
|
||||
class Begin_doc(Line):
|
||||
str="Begin_doc"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Begin_doc",self.i,self.text)
|
||||
|
||||
class Doc(Line):
|
||||
str="Doc"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Doc",self.i,self.text)
|
||||
|
||||
class End_doc(Line):
|
||||
str="End_doc"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End_doc",self.i,self.text)
|
||||
|
||||
class Begin_shell(Line):
|
||||
str="Begin_shell"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Begin_shell",self.i,self.text)
|
||||
|
||||
class End_shell(Line):
|
||||
str="End_shell"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End_shell",self.i,self.text)
|
||||
|
||||
class Begin_template(Line):
|
||||
str="Begin_template"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Begin_template",self.i,self.text)
|
||||
|
||||
class End_template(Line):
|
||||
str="End_template"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End_template",self.i,self.text)
|
||||
|
||||
class Subst(Line):
|
||||
str="Subst"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Subst",self.i,self.text)
|
||||
|
||||
class Assert(Line):
|
||||
str="Assert"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Assert",self.i,self.text)
|
||||
|
||||
class Touch(Line):
|
||||
str="Touch"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Touch",self.i,self.text)
|
||||
|
||||
class SoftTouch(Touch):
|
||||
str="SoftTouch"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("SoftTouch",self.i,self.text)
|
||||
|
||||
class Irp_read(Line):
|
||||
str="Irp_read"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Irp_read",self.i,self.text)
|
||||
|
||||
class Irp_write(Line):
|
||||
str="Irp_write"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Irp_write",self.i,self.text)
|
||||
|
||||
class Irp_If(Line):
|
||||
str="Irp_If"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Irp_If",self.i,self.text)
|
||||
|
||||
class Irp_Else(Line):
|
||||
str="Irp_Else"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Irp_Else",self.i,self.text)
|
||||
|
||||
class Irp_Endif(Line):
|
||||
str="Irp_Endif"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Irp_Endif",self.i,self.text)
|
||||
|
||||
class Openmp(Line):
|
||||
str="Openmp"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Openmp",self.i,self.text)
|
||||
|
||||
class Directive(Line):
|
||||
str="Directive"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Directive",self.i,self.text)
|
||||
|
||||
class Use(Line):
|
||||
str="Use"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Use",self.i,self.text)
|
||||
|
||||
class Do(Line):
|
||||
str="Do"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Do",self.i,self.text)
|
||||
|
||||
class Enddo (Line):
|
||||
str="Enddo"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Enddo",self.i,self.text)
|
||||
|
||||
class If(Line):
|
||||
str="If"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("If",self.i,self.text)
|
||||
|
||||
class Elseif(Line):
|
||||
str="Elseif"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Elseif",self.i,self.text)
|
||||
|
||||
class Else(Line):
|
||||
str="Else"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Else",self.i,self.text)
|
||||
|
||||
class Endif(Line):
|
||||
str="Endif"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Endif",self.i,self.text)
|
||||
|
||||
class Select(Line):
|
||||
str="Select"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Select",self.i,self.text)
|
||||
|
||||
class Case(Line):
|
||||
str="Case"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Case",self.i,self.text)
|
||||
|
||||
class End_select(Line):
|
||||
str="End_select"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End_select",self.i,self.text)
|
||||
|
||||
class Program(Line):
|
||||
str="Program"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Program",self.i,self.text)
|
||||
|
||||
class Subroutine(Line):
|
||||
str="Subroutine"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Subroutine",self.i,self.text)
|
||||
|
||||
class Function(Line):
|
||||
str="Function"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Function",self.i,self.text)
|
||||
|
||||
class Call(Line):
|
||||
str="Call"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Call",self.i,self.text)
|
||||
|
||||
class Provide(Line):
|
||||
str="Provide"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Provide",self.i,self.text)
|
||||
|
||||
class NoDep(Line):
|
||||
str="NoDep"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("NoDep",self.i,self.text)
|
||||
|
||||
class Return (Line):
|
||||
str="Return"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Return",self.i,self.text)
|
||||
|
||||
class Include(Line):
|
||||
str="Include"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Include",self.i,self.text)
|
||||
|
||||
class Implicit (Line):
|
||||
str="Implicit"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Implicit",self.i,self.text)
|
||||
|
||||
class Free(Line):
|
||||
str="Free"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Free",self.i,self.text)
|
||||
|
||||
class End(Line):
|
||||
str="End"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("End",self.i,self.text)
|
||||
|
||||
class Provide_all (Line):
|
||||
str="Provide_all"
|
||||
def __init__(self,i,text,filename):
|
||||
Line.__init__(self,i,text,filename)
|
||||
def __repr__(self):
|
||||
return "%20s:%5d : %s"%("Provide_all",self.i,self.text)
|
||||
|
||||
|
||||
######################################################################
|
||||
|
||||
def create_irpf90_files():
|
||||
result = []
|
||||
from command_line import command_line
|
||||
import os
|
||||
def is_irpf90_file(filename):
|
||||
return filename.endswith(".irp.f") and not filename.startswith('.')
|
||||
result = filter ( is_irpf90_file, os.listdir(os.getcwd()) )
|
||||
for dir in command_line.include_dir:
|
||||
try:
|
||||
os.stat(dir)
|
||||
result += map(lambda x: dir+x, filter ( is_irpf90_file, os.listdir(dir) ) )
|
||||
except:
|
||||
continue
|
||||
if command_line.do_codelet:
|
||||
result += [command_line.codelet[3]]
|
||||
return result
|
||||
irpf90_files = create_irpf90_files()
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
import sys
|
||||
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
from irpf90_t import mandir
|
||||
filename = sys.argv[1].lower()+".l"
|
||||
if filename not in os.listdir(mandir):
|
||||
print "%s does not exist"%(sys.argv[1])
|
||||
sys.exit(-1)
|
||||
|
||||
os.system("man ./"+mandir+sys.argv[1].lower()+".l")
|
||||
|
||||
58
src/locks.py
58
src/locks.py
|
|
@ -1,58 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from command_line import command_line
|
||||
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
from variables import variables
|
||||
FILENAME=irpdir+'irp_locks.irp.F90'
|
||||
|
||||
def create():
|
||||
out = []
|
||||
l = variables.keys()
|
||||
l.sort
|
||||
for v in l:
|
||||
var = variables[v]
|
||||
out += var.locker
|
||||
|
||||
out += [
|
||||
"subroutine irp_init_locks_%s()"%(irp_id),
|
||||
" implicit none" ]
|
||||
for v in l:
|
||||
out += [ " call irp_lock_%s(.True.)"%v ]
|
||||
out += [ " call irp_lock_%s(.False.)"%v ]
|
||||
out += [ "end subroutine" ]
|
||||
out = map(lambda x: "%s\n"%(x),out)
|
||||
if not same_file(FILENAME,out):
|
||||
file = open(FILENAME,'w')
|
||||
file.writelines(out)
|
||||
file.close()
|
||||
|
||||
if __name__ == '__main__':
|
||||
create()
|
||||
|
||||
204
src/makefile.py
204
src/makefile.py
|
|
@ -1,204 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os,sys
|
||||
import irpf90_t
|
||||
from command_line import command_line
|
||||
irpdir = irpf90_t.irpdir
|
||||
mandir = irpf90_t.mandir
|
||||
|
||||
FILENAME = "Makefile"
|
||||
FILENAME_GITIGNORE = ".gitignore"
|
||||
IRPF90_MAKE = "irpf90.make"
|
||||
|
||||
######################################################################
|
||||
def create():
|
||||
has_makefile = True
|
||||
try:
|
||||
file = open(FILENAME,"r")
|
||||
except IOError:
|
||||
has_makefile = False
|
||||
if has_makefile:
|
||||
return
|
||||
file = open(FILENAME,"w")
|
||||
t = """IRPF90 = irpf90 #-a -d
|
||||
FC = gfortran
|
||||
FCFLAGS= -O2 -ffree-line-length-none -I .
|
||||
NINJA = ninja
|
||||
AR = ar
|
||||
RANLIB = ranlib
|
||||
|
||||
SRC=
|
||||
OBJ=
|
||||
LIB=
|
||||
|
||||
-include %s
|
||||
export
|
||||
|
||||
%s: $(filter-out %s%%, $(wildcard */*.irp.f)) $(wildcard *.irp.f) $(wildcard *.inc.f) Makefile
|
||||
\t$(IRPF90)
|
||||
"""%(IRPF90_MAKE,IRPF90_MAKE,irpdir)
|
||||
file.write(t)
|
||||
file.close()
|
||||
create_gitignore()
|
||||
|
||||
######################################################################
|
||||
def create_gitignore():
|
||||
has_makefile = True
|
||||
try:
|
||||
file = open(FILENAME_GITIGNORE,"r")
|
||||
except IOError:
|
||||
has_makefile = False
|
||||
if has_makefile:
|
||||
return
|
||||
file = open(FILENAME_GITIGNORE,"w")
|
||||
t = "\n".join([ irpdir, mandir, IRPF90_MAKE, 'irpf90_entities', 'tags' ])
|
||||
file.write(t)
|
||||
file.close()
|
||||
|
||||
######################################################################
|
||||
def run_ninja():
|
||||
import ninja
|
||||
ninja.run()
|
||||
|
||||
######################################################################
|
||||
def run_make():
|
||||
from modules import modules
|
||||
mod = []
|
||||
for m in modules.values():
|
||||
mod.append(m)
|
||||
|
||||
file = open(IRPF90_MAKE,'w')
|
||||
result = ""
|
||||
result += "FC+=-I %s "%(irpdir)
|
||||
for i in command_line.include_dir:
|
||||
result += "-I %s%s "%(irpdir,i)
|
||||
result += "\n"
|
||||
result += "SRC += %sirp_stack.irp.F90"%(irpdir)
|
||||
result += " %sirp_touches.irp.F90"%(irpdir)
|
||||
# result += " %sirp_checkpoint.irp.F90"%(irpdir)
|
||||
if command_line.do_openmp:
|
||||
result += " %sirp_locks.irp.F90"%(irpdir)
|
||||
if command_line.do_profile:
|
||||
result += " %sirp_profile.irp.F90"%(irpdir)
|
||||
for m in mod:
|
||||
result += " %s%s.irp.F90"%(irpdir,m.filename)
|
||||
result += " %s%s.irp.module.F90"%(irpdir,m.filename)
|
||||
print >>file, result
|
||||
|
||||
result = "OBJ_IRP = %sirp_stack.irp.o "%(irpdir)
|
||||
for m in mod:
|
||||
if not m.is_main:
|
||||
result += " %s%s.irp.o"%(irpdir,m.filename)
|
||||
result += " %s%s.irp.module.o"%(irpdir,m.filename)
|
||||
print >>file, result
|
||||
|
||||
print >>file, "OBJ1 = $(OBJ_IRP) $(OBJ) %sirp_touches.irp.o "%(irpdir),
|
||||
# print >>file, " %sirp_checkpoint.irp.o"%(irpdir),
|
||||
if command_line.do_profile:
|
||||
print >>file, " %sirp_profile.irp.o"%(irpdir), " irp_rdtsc.o",
|
||||
if command_line.do_codelet:
|
||||
print >>file, " irp_rdtsc.o",
|
||||
if command_line.do_openmp:
|
||||
print >>file, " %sirp_locks.irp.o"%(irpdir)
|
||||
else:
|
||||
print >>file, ""
|
||||
|
||||
all = filter(lambda x: modules[x].is_main, modules)
|
||||
all = map(lambda x: x[:-6], all)
|
||||
all_o = map(lambda x: "%s.irp.module.o %s.irp.o"%(x,x), all)
|
||||
print >>file, "ALL = %s"%(" ".join(all))
|
||||
print >>file, "ALL_OBJ = %s"%(" ".join(all_o))
|
||||
print >>file, "ALL_OBJ1 = $(patsubst %%, %s%%,$(notdir $(ALL_OBJ)))"%(irpdir)
|
||||
print >>file, "all:$(ALL)"
|
||||
print >>file, "\t@$(MAKE) -s move"
|
||||
# print >>file, "ifdef USE_IRPF90_A"
|
||||
for m in mod:
|
||||
if m.is_main:
|
||||
exe = m.filename
|
||||
print >>file, "%s: %s%s.irp.o %s%s.irp.module.o IRPF90_temp/irpf90.a"%(exe,irpdir,exe,irpdir,exe)
|
||||
print >>file, "\t$(FC) -o $@ %s$@.irp.o %s$@.irp.module.o IRPF90_temp/irpf90.a $(LIB)"%(irpdir,irpdir)
|
||||
print >>file, "\t@$(MAKE) -s move"
|
||||
# print >>file, "else"
|
||||
# for m in mod:
|
||||
# if m.is_main:
|
||||
# exe = m.filename
|
||||
# print >>file, "%s: %s%s.irp.o %s%s.irp.module.o $(OBJ1)"%(exe,irpdir,exe,irpdir,exe)
|
||||
# print >>file, "\t$(FC) -o $@ %s$@.irp.o %s$@.irp.module.o $(OBJ1) $(LIB)"%(irpdir,irpdir)
|
||||
# print >>file, "\t@$(MAKE) -s move"
|
||||
# print >>file, "endif"
|
||||
|
||||
buffer = ""
|
||||
for m in mod:
|
||||
filename = "%s%s.irp.o: $(OBJ) %s%s.irp.module.o"%(irpdir,m.filename,irpdir,m.filename)
|
||||
needed_modules = filter( lambda x: modules[x].name in m.needed_modules, modules )
|
||||
needed_files = map(lambda x: modules[x].filename, needed_modules)
|
||||
mds = map (lambda x: " %s%s.irp.module.o"%(irpdir,x),needed_files)
|
||||
print >>file, filename," ".join(mds)," ".join(m.includes)
|
||||
if not m.is_main:
|
||||
buffer += "\t - @echo '"+filename+" ".join(mds)+"' >> %sdist_Makefile\n"%(irpdir)
|
||||
# print >>file, "%sirp_touches.irp.o %sirp_checkpoint.irp.o: $(OBJ) "%(irpdir,irpdir),
|
||||
print >>file, "%sirp_touches.irp.o: $(OBJ) "%(irpdir),
|
||||
mds = filter(lambda x: not x.is_main,mod)
|
||||
mds = map(lambda x: " %s%s.irp.o %s%s.irp.o"%(irpdir,x.filename,irpdir,x.filename),mds)
|
||||
print >>file," ".join(mds)
|
||||
if command_line.do_profile:
|
||||
print >>file, "%sirp_profile.irp.o:"%(irpdir),
|
||||
print >>file," ".join(mds)
|
||||
if command_line.do_openmp:
|
||||
print >>file, "%sirp_locks.irp.o:"%(irpdir),
|
||||
print >>file," ".join(mds)
|
||||
|
||||
|
||||
for dir in [ irpdir ] + map(lambda x: irpdir+x, command_line.include_dir):
|
||||
print >>file, dir+"%.irp.module.o: $(OBJ) "+dir+"%.irp.module.F90"
|
||||
print >>file, "\t$(FC) $(FCFLAGS) -c "+dir+"$*.irp.module.F90 -o "+dir+"$*.irp.module.o"
|
||||
print >>file, dir+"%.irp.o: $(OBJ) "+dir+"%.irp.module.o "+dir+"%.irp.F90"
|
||||
print >>file, "\t$(FC) $(FCFLAGS) -c "+dir+"$*.irp.F90 -o "+dir+"$*.irp.o"
|
||||
print >>file, dir+"%.irp.o: $(OBJ) "+dir+"%.irp.F90"
|
||||
print >>file, "\t$(FC) $(FCFLAGS) -c "+dir+"$*.irp.F90 -o "+dir+"$*.irp.o"
|
||||
print >>file, dir+"%.o: %.F90"
|
||||
print >>file, "\t$(FC) $(FCFLAGS) -c $*.F90 -o "+dir+"$*.o"
|
||||
print >>file, dir+"%.o: %.f90\n\t$(FC) $(FCFLAGS) -c $*.f90 -o "+dir+"$*.o"
|
||||
print >>file, dir+"%.o: %.f\n\t$(FC) $(FCFLAGS) -c $*.f -o "+dir+"$*.o"
|
||||
print >>file, dir+"%.o: %.F\n\t$(FC) $(FCFLAGS) -c $*.F -o "+dir+"$*.o"
|
||||
print >>file, dir+"%.irp.F90: "+IRPF90_MAKE+"\n"
|
||||
print >>file, "move:\n\t@mv -f *.mod IRPF90_temp/ 2> /dev/null | DO_NOTHING=\n"
|
||||
print >>file, "IRPF90_temp/irpf90.a: $(OBJ) $(OBJ1)\n\t$(AR) crf IRPF90_temp/irpf90.a $(OBJ1)\n"
|
||||
print >>file, "clean:\n\trm -rf $(EXE) $(OBJ1) IRPF90_temp/irpf90.a $(ALL_OBJ1) $(ALL)\n"
|
||||
print >>file, "veryclean:\n\t- $(MAKE) clean\n"
|
||||
print >>file, "\t- rm -rf "+irpdir+" "+mandir+" "+IRPF90_MAKE+" irpf90_entities dist tags\n"
|
||||
|
||||
file.close()
|
||||
|
||||
######################################################################
|
||||
def run():
|
||||
if command_line.do_ninja:
|
||||
run_ninja()
|
||||
else:
|
||||
run_make()
|
||||
|
||||
227
src/module.py
227
src/module.py
|
|
@ -1,227 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from variable import *
|
||||
from variables import variables
|
||||
from command_line import command_line
|
||||
import preprocessed_text
|
||||
from util import *
|
||||
|
||||
class Fmodule(object):
|
||||
|
||||
header = \
|
||||
[ "! -*- F90 -*-",
|
||||
"!",
|
||||
"!-----------------------------------------------!",
|
||||
"! This file was generated with the irpf90 tool. !",
|
||||
"! !",
|
||||
"! DO NOT MODIFY IT BY HAND !",
|
||||
"!-----------------------------------------------!",
|
||||
"" ]
|
||||
|
||||
def __init__(self,text,filename):
|
||||
self.text = put_info(text,filename)
|
||||
self.filename = filename[:-6]
|
||||
self.name = "%s_mod"%(self.filename).replace('/','__').replace('.','Dot')
|
||||
|
||||
def is_main(self):
|
||||
if '_is_main' not in self.__dict__:
|
||||
self._is_main = self.prog_name is not None
|
||||
return self._is_main
|
||||
is_main = property(is_main)
|
||||
|
||||
def prog_name(self):
|
||||
if '_prog_name' not in self.__dict__:
|
||||
buffer = filter(lambda x: type(x[1]) == Program,self.text)
|
||||
if buffer == []:
|
||||
self._prog_name = None
|
||||
else:
|
||||
self._prog_name = buffer[0][1].filename
|
||||
return self._prog_name
|
||||
prog_name = property(prog_name)
|
||||
|
||||
def variables(self):
|
||||
if '_variables' not in self.__dict__:
|
||||
from variables import variables
|
||||
name = self.name
|
||||
self._variables = filter(lambda x: variables[x].fmodule == name, variables)
|
||||
return self._variables
|
||||
variables = property(variables)
|
||||
|
||||
|
||||
def head(self):
|
||||
if '_head' not in self.__dict__:
|
||||
result = [ "module %s"%(self.name) ]
|
||||
result += self.use
|
||||
result += self.dec
|
||||
result += flatten( map(lambda x: variables[x].header,self.variables) )
|
||||
result.append( "end module %s"%(self.name) )
|
||||
self._head = result
|
||||
return self._head
|
||||
head = property(head)
|
||||
|
||||
def needed_vars(self):
|
||||
if '_needed_vars' not in self.__dict__:
|
||||
result = map(lambda x: variables[x].needs,self.variables)
|
||||
result = make_single ( flatten(result) )
|
||||
self._needed_vars = result
|
||||
return self._needed_vars
|
||||
needed_vars = property(needed_vars)
|
||||
|
||||
def includes(self):
|
||||
if '_includes' not in self.__dict__:
|
||||
buffer = []
|
||||
for v in self.needed_vars:
|
||||
buffer += variables[v].includes
|
||||
self._includes = make_single(buffer)
|
||||
return self._includes
|
||||
includes = property(includes)
|
||||
|
||||
def generated_text(self):
|
||||
if '_generated_text' not in self.__dict__:
|
||||
result = []
|
||||
for var in self.variables:
|
||||
var = variables[var]
|
||||
result += var.provider
|
||||
result += var.builder
|
||||
if var.is_read:
|
||||
result += var.reader
|
||||
if var.is_written:
|
||||
result += var.writer
|
||||
self._generated_text = result
|
||||
return self._generated_text
|
||||
generated_text = property(generated_text)
|
||||
|
||||
def residual_text(self):
|
||||
if '_residual_text' not in self.__dict__:
|
||||
from variables import build_use, call_provides
|
||||
from parsed_text import move_to_top
|
||||
def remove_providers(text):
|
||||
result = []
|
||||
inside = False
|
||||
for vars,line in text:
|
||||
if type(line) == Begin_provider:
|
||||
inside = True
|
||||
if not inside:
|
||||
result.append( (vars,line) )
|
||||
if type(line) == End_provider:
|
||||
inside = False
|
||||
return result
|
||||
|
||||
def modify_functions(text):
|
||||
result = []
|
||||
variable_list = []
|
||||
for vars,line in text:
|
||||
if type(line) in [ Subroutine, Function ]:
|
||||
variable_list = list(vars)
|
||||
elif type(line) == End:
|
||||
result += map(lambda x: ([],Use(line.i,x,line.filename)), build_use(variable_list))
|
||||
else:
|
||||
variable_list += vars
|
||||
result.append( (vars,line) )
|
||||
return result
|
||||
|
||||
def extract_use_dec_text(text):
|
||||
inside = False
|
||||
result = []
|
||||
dec = []
|
||||
use = []
|
||||
for vars,line in text:
|
||||
if type(line) in [ Subroutine, Function, Program]:
|
||||
inside = True
|
||||
if inside:
|
||||
result.append( (vars,line) )
|
||||
else:
|
||||
if type(line) == Use:
|
||||
use.append( (vars,line) )
|
||||
elif type(line) == Declaration:
|
||||
dec.append( (vars,line) )
|
||||
if type(line) == End:
|
||||
inside = False
|
||||
return use, dec, result
|
||||
|
||||
def provide_variables(text):
|
||||
result = []
|
||||
for vars,line in text:
|
||||
result.append( ([],line) )
|
||||
result += map(lambda x: ([],Simple_line(line.i,x,line.filename)), call_provides(vars))
|
||||
return result
|
||||
|
||||
result = remove_providers(self.text)
|
||||
result = modify_functions(result)
|
||||
use,dec,result = extract_use_dec_text(result)
|
||||
self._use = make_single(map(lambda x: " "+x[1].text, use))
|
||||
self._dec = map(lambda x: " "+x[1].text, dec)
|
||||
# self._dec = make_single(map(lambda x: " "+x[1].text, dec))
|
||||
result = provide_variables(result)
|
||||
result = move_to_top(result,Declaration)
|
||||
result = move_to_top(result,Implicit)
|
||||
result = move_to_top(result,Use)
|
||||
result = map(lambda x: x[1], result)
|
||||
result = map(lambda x: x.text, result)
|
||||
self._residual_text = result
|
||||
return self._residual_text
|
||||
residual_text = property(residual_text)
|
||||
|
||||
def use(self):
|
||||
if '_use' not in self.__dict__:
|
||||
self.residual_text
|
||||
return self._use
|
||||
use = property(use)
|
||||
|
||||
def dec(self):
|
||||
if '_dec' not in self.__dict__:
|
||||
self.residual_text
|
||||
return self._dec
|
||||
dec = property(dec)
|
||||
|
||||
|
||||
def needed_modules(self):
|
||||
if '_needed_modules' not in self.__dict__:
|
||||
buffer = filter(lambda x: x.lstrip().startswith("use "), \
|
||||
self.generated_text+self.head+self.residual_text)
|
||||
buffer = map(lambda x: x.split()[1], buffer)
|
||||
buffer = filter(lambda x: x.endswith("_mod"),buffer )
|
||||
self._needed_modules = make_single(buffer)
|
||||
if self.name in self._needed_modules:
|
||||
self._needed_modules.remove(self.name)
|
||||
return self._needed_modules
|
||||
needed_modules = property(needed_modules)
|
||||
|
||||
######################################################################
|
||||
|
||||
if __name__ == '__main__':
|
||||
from parsed_text import parsed_text
|
||||
for filename, text in parsed_text:
|
||||
if filename == 'vmc_step.irp.f':
|
||||
x = Fmodule(text,filename)
|
||||
break
|
||||
for line in x.head:
|
||||
print line
|
||||
print x.includes
|
||||
|
||||
|
|
@ -1,68 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from parsed_text import parsed_text
|
||||
from module import Fmodule
|
||||
from util import *
|
||||
|
||||
######################################################################
|
||||
def create_modules():
|
||||
result = {}
|
||||
for filename,text in parsed_text:
|
||||
result[filename] = Fmodule(text,filename)
|
||||
return result
|
||||
|
||||
modules = create_modules()
|
||||
|
||||
######################################################################
|
||||
def write_module(m):
|
||||
# Module data
|
||||
filename = irpdir+m.filename+".irp.module.F90"
|
||||
text = m.header + m.head
|
||||
text = map(lambda x: "%s\n"%(x),text)
|
||||
if not same_file(filename,text):
|
||||
# print filename
|
||||
file = open(filename,"w")
|
||||
file.writelines(text)
|
||||
file.close()
|
||||
|
||||
# Subroutines
|
||||
filename = irpdir+m.filename+".irp.F90"
|
||||
text = m.header + m.generated_text + m.residual_text
|
||||
text = map(lambda x: "%s\n"%(x),text)
|
||||
if not same_file(filename,text):
|
||||
# print filename
|
||||
file = open(filename,"w")
|
||||
file.writelines(text)
|
||||
file.close()
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
write_module(modules['psi.irp.f'])
|
||||
|
||||
|
||||
408
src/ninja.py
408
src/ninja.py
|
|
@ -1,408 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os,sys
|
||||
import irpf90_t
|
||||
from command_line import command_line
|
||||
from modules import modules
|
||||
irpdir = irpf90_t.irpdir
|
||||
mandir = irpf90_t.mandir
|
||||
irp_id = irpf90_t.irp_id
|
||||
|
||||
FILENAME = os.path.join(irpdir,"build.ninja")
|
||||
|
||||
cwd = os.getcwd()
|
||||
|
||||
PRINT_WIDTH=50
|
||||
|
||||
def dress(f,in_root=False):
|
||||
"""
|
||||
Transfoms the filename f into $PWD/IRPF90_temp/f
|
||||
"""
|
||||
if in_root:
|
||||
result = os.path.join(cwd,f)
|
||||
else:
|
||||
result = os.path.join(cwd,irpdir,f)
|
||||
return os.path.normpath(result)
|
||||
|
||||
|
||||
def create_build_touches(list_of_other_o):
|
||||
"""
|
||||
Create the build command for the irp_touches.o file and the irpf90.a library.
|
||||
"""
|
||||
name = "irp_touches"
|
||||
short_lib = "irpf90.a"
|
||||
short_target_o = "%s.irp.o"%name
|
||||
short_target_F90 = "%s.irp.F90"%name
|
||||
lib = dress(short_lib)
|
||||
target_o = dress(short_target_o)
|
||||
target_F90 = dress(short_target_F90)
|
||||
|
||||
needed_modules = [ "%s.irp.module.o"%(modules[x].filename) for x in modules ]
|
||||
|
||||
list_of_modules = map(dress, needed_modules) + list_of_other_o
|
||||
list_of_modules = ' '.join(list_of_modules)
|
||||
|
||||
result = '\n'.join(
|
||||
[
|
||||
"build {target_o}: compile_touches_{id} {target_F90} | {list_of_modules}",
|
||||
" short_in = {short_target_F90}",
|
||||
" short_out = {short_target_o}",
|
||||
"",
|
||||
"build {lib}: link_lib_{id} {target_o} {list_of_modules}",
|
||||
" short_out = {short_lib}",
|
||||
"",
|
||||
] )
|
||||
|
||||
result = result.format(
|
||||
id = irp_id ,
|
||||
lib = lib ,
|
||||
list_of_modules = list_of_modules ,
|
||||
short_lib = short_lib ,
|
||||
short_target_F90 = os.path.split(target_F90)[1] ,
|
||||
short_target_o = os.path.split(target_o)[1] ,
|
||||
target_F90 = target_F90 ,
|
||||
target_o = target_o
|
||||
)
|
||||
return result
|
||||
|
||||
def create_build_target(t,list_of_other_o):
|
||||
"""
|
||||
Create the build command for the target module t. t is a Fmodule object.
|
||||
"""
|
||||
name = t.filename
|
||||
|
||||
irp_lib = dress("irpf90.a")
|
||||
target = dress(name,in_root=True)
|
||||
short_target_o = "%s.irp.o"%name
|
||||
short_target_F90 = "%s.irp.F90"%name
|
||||
short_target_module_F90 = "%s.irp.module.F90"%name
|
||||
short_target_module_o = "%s.irp.module.o"%name
|
||||
target_o = dress(short_target_o)
|
||||
target_F90 = dress(short_target_F90)
|
||||
target_module_o = dress(short_target_module_o)
|
||||
target_module_F90 = dress(short_target_module_F90)
|
||||
|
||||
needed_modules = [ "%s.irp.module.o"%(modules[x].filename) for x in modules \
|
||||
if modules[x].name in t.needed_modules ] + [ target_module_o ]
|
||||
|
||||
list_of_o = [ target_o, target_module_o, irp_lib ]
|
||||
list_of_o = ' '.join(list_of_o)
|
||||
|
||||
list_of_modules = map(dress, needed_modules) + list_of_other_o
|
||||
list_of_modules = ' '.join(list_of_modules)
|
||||
|
||||
list_of_includes = ' '.join(map(lambda x: dress(x,in_root=True), t.includes))
|
||||
|
||||
result = '\n'.join(
|
||||
[ "build {target}: link_{id} {list_of_o}",
|
||||
" short_out = {short_target}",
|
||||
"",
|
||||
"build {target_o}: compile_fortran_{id} {target_F90} | {list_of_modules} {list_of_includes}",
|
||||
" short_in = {short_target_F90}",
|
||||
" short_out = {short_target_o}",
|
||||
"",
|
||||
"build {target_module_o}: compile_fortran_{id} {target_module_F90}",
|
||||
" short_in = {short_target_module_F90}",
|
||||
" short_out = {short_target_module_o}",
|
||||
"",
|
||||
] )
|
||||
|
||||
result = result.format(
|
||||
id = irp_id ,
|
||||
list_of_includes = list_of_includes ,
|
||||
list_of_modules = list_of_modules ,
|
||||
list_of_o = list_of_o ,
|
||||
short_target_F90 = os.path.split(target_F90)[1] ,
|
||||
short_target_module_F90 = os.path.split(target_module_F90)[1] ,
|
||||
short_target_module_o = os.path.split(target_module_o)[1] ,
|
||||
short_target = name ,
|
||||
short_target_o = os.path.split(target_o)[1] ,
|
||||
target_F90 = target_F90 ,
|
||||
target_module_F90 = target_module_F90 ,
|
||||
target_module_o = target_module_o ,
|
||||
target_o = target_o ,
|
||||
target = target
|
||||
)
|
||||
return result
|
||||
|
||||
|
||||
def create_build_non_target(t,list_of_other_o):
|
||||
"""
|
||||
Create the build command for the non-target module t. t is a Fmodule object.
|
||||
"""
|
||||
name = t.filename
|
||||
|
||||
target = dress(name,in_root=True)
|
||||
short_target_o = "%s.irp.o"%name
|
||||
short_target_F90 = "%s.irp.F90"%name
|
||||
short_target_module_F90 = "%s.irp.module.F90"%name
|
||||
short_target_module_o = "%s.irp.module.o"%name
|
||||
target_o = dress(short_target_o)
|
||||
target_F90 = dress(short_target_F90)
|
||||
target_module_o = dress(short_target_module_o)
|
||||
target_module_F90 = dress(short_target_module_F90)
|
||||
|
||||
needed_modules = [ "%s.irp.module.o"%(modules[x].filename) for x in modules \
|
||||
if modules[x].name in t.needed_modules ] + [ target_module_o ]
|
||||
|
||||
list_of_modules = map(dress, needed_modules)
|
||||
list_of_modules = ' '.join(list_of_modules)
|
||||
list_of_externals = ' '.join([ dress(x,in_root=True) for x in list_of_other_o ])
|
||||
list_of_includes = ' '.join(map(lambda x: dress(x,in_root=True), t.includes))
|
||||
|
||||
result = '\n'.join(
|
||||
[
|
||||
"build {target_o}: compile_fortran_{id} {target_F90} | {list_of_modules} {list_of_externals}",
|
||||
" short_in = {short_target_F90}",
|
||||
" short_out = {short_target}",
|
||||
"",
|
||||
"build {target_module_o}: compile_fortran_{id} {target_module_F90} | {list_of_externals} {list_of_includes}",
|
||||
" short_in = {short_target_F90}",
|
||||
" short_out = {short_target_o}",
|
||||
"",
|
||||
] )
|
||||
|
||||
result = result.format(
|
||||
id = irp_id ,
|
||||
list_of_externals = list_of_externals ,
|
||||
list_of_includes = list_of_includes ,
|
||||
list_of_modules = list_of_modules ,
|
||||
short_target_F90 = os.path.split(target_F90)[1] ,
|
||||
short_target = name ,
|
||||
short_target_o = os.path.split(target_o)[1] ,
|
||||
target_F90 = target_F90 ,
|
||||
target_module_F90 = target_module_F90 ,
|
||||
target_module_o = target_module_o ,
|
||||
target_o = target_o
|
||||
)
|
||||
return result
|
||||
|
||||
|
||||
def create_build_remaining(f):
|
||||
"""
|
||||
Create the build command for the remaining file f. f is a file name (str).
|
||||
"""
|
||||
t, extension = f.rsplit('.',1)
|
||||
t1 = dress(t,in_root=True)
|
||||
t2 = dress(t,in_root=False)
|
||||
target_i = f
|
||||
target_o = "%s.o"%t
|
||||
if not target_o.startswith(os.path.join(cwd,irpdir)):
|
||||
target_o = target_o.replace(cwd,os.path.join(cwd,irpdir))
|
||||
|
||||
if extension.lower() in [ 'f', 'f90' ]:
|
||||
result = [ "build {target_o}: compile_fortran_{id} {target_i}" ]
|
||||
elif extension.lower() in [ 'c' ]:
|
||||
result = [ "build {target_o}: compile_c_{id} {target_i}" ]
|
||||
elif extension.lower() in [ 'cxx', 'cpp' ]:
|
||||
result = [ "build {target_o}: compile_cxx_{id} {target_i}" ]
|
||||
|
||||
result += [ " short_in = {short_target_i}",
|
||||
" short_out = {short_target_o}", "" ]
|
||||
result = '\n'.join(result).format(
|
||||
target_o = target_o,
|
||||
target_i = target_i,
|
||||
short_target_o = os.path.split(target_o)[1],
|
||||
short_target_i = os.path.split(target_i)[1],
|
||||
id = irp_id
|
||||
)
|
||||
return result
|
||||
|
||||
|
||||
|
||||
def create_irpf90_make(targets):
|
||||
targets = ' '.join(targets)
|
||||
result = """NINJA += -C {0}
|
||||
|
||||
TARGETS={1}
|
||||
|
||||
.PHONY: all clean veryclean
|
||||
|
||||
all:
|
||||
$(NINJA)
|
||||
|
||||
$(TARGETS):
|
||||
$(NINJA) $(PWD)/$@
|
||||
|
||||
clean:
|
||||
$(NINJA) -t clean
|
||||
|
||||
veryclean: clean
|
||||
rm -rf IRPF90_temp/ IRPF90_man/ irpf90.make irpf90_entities dist tags
|
||||
|
||||
""".format(irpdir, targets)
|
||||
|
||||
import makefile
|
||||
with open(makefile.IRPF90_MAKE,'w') as file:
|
||||
file.write(result)
|
||||
|
||||
|
||||
def run():
|
||||
|
||||
output = [ "builddir = %s"%os.path.join(cwd,irpdir) ]
|
||||
|
||||
# Environment variables
|
||||
|
||||
try: FC = os.environ["FC"]
|
||||
except KeyError: FC="gfortran -ffree-line-length-none"
|
||||
|
||||
try: AR = os.environ["AR"]
|
||||
except KeyError: AR="ar"
|
||||
|
||||
try: CC = os.environ["CC"]
|
||||
except KeyError: CC="gcc"
|
||||
|
||||
try: CXX = os.environ["CXX"]
|
||||
except KeyError: CXX="g++"
|
||||
|
||||
includes = [ "-I %s"%(i) for i in command_line.include_dir ]
|
||||
|
||||
FC += " "+' '.join(includes)
|
||||
CC += " "+' '.join(includes)
|
||||
CXX += " "+' '.join(includes)
|
||||
|
||||
try: SRC = os.environ["SRC"].split()
|
||||
except KeyError: SRC=[]
|
||||
|
||||
try: OBJ = os.environ["OBJ"].split()
|
||||
except KeyError: OBJ=[]
|
||||
|
||||
try: LIB = os.environ["LIB"].split()
|
||||
except KeyError: LIB=[]
|
||||
|
||||
try: FCFLAGS = os.environ["FCFLAGS"].split()
|
||||
except KeyError: FCFLAGS = [ "-O2" ]
|
||||
|
||||
try: CFLAGS = os.environ["CFLAGS"].split()
|
||||
except KeyError: CFLAGS = [ "-O2" ]
|
||||
|
||||
try: CXXFLAGS = os.environ["CXXFLAGS"].split()
|
||||
except KeyError: CXXFLAGS = [ "-O2" ]
|
||||
|
||||
FCFLAGS = ' '.join(FCFLAGS)
|
||||
CFLAGS = ' '.join(CFLAGS)
|
||||
CXXFLAGS = ' '.join(CXXFLAGS)
|
||||
LIB = ' '.join(LIB)
|
||||
|
||||
# Rules
|
||||
|
||||
t = [ "rule compile_fortran_{id}",
|
||||
" command = {FC} {FCFLAGS} -c $in -o $out",
|
||||
" description = F : $short_in -> $short_out",
|
||||
"",
|
||||
"rule compile_touches_{id}",
|
||||
" command = {FC} -c $in -o $out",
|
||||
" description = F : $short_in -> $short_out",
|
||||
"",
|
||||
"",
|
||||
"rule compile_c_{id}" ,
|
||||
" command = {CC} {CFLAGS} -c $in -o $out",
|
||||
" description = C : $short_in -> $short_out",
|
||||
"",
|
||||
"rule compile_cxx_{id}",
|
||||
" command = {CXX} {CXXFLAGS} -c $in -o $out",
|
||||
" description = C++ : $short_in -> $short_out",
|
||||
"",
|
||||
"rule link_lib_{id}",
|
||||
" command = {AR} crf $out $in" ,
|
||||
" description = Link: $short_out",
|
||||
"",
|
||||
"rule link_{id}",
|
||||
" command = {FC} $in {LIB} -o $out" ,
|
||||
" description = Link: $short_out"]
|
||||
|
||||
output += [ '\n'.join(t).format(id=irp_id, FC=FC, FCFLAGS=FCFLAGS, LIB=LIB, CXX=CXX, CXXFLAGS=CXXFLAGS, CC=CC, CFLAGS=CFLAGS, AR=AR) ]
|
||||
|
||||
|
||||
# All modules : list of Fmodule objects
|
||||
|
||||
l_mod = list( modules.values() )
|
||||
|
||||
|
||||
# Modules that are not targets
|
||||
|
||||
l_non_targets = [ x for x in l_mod if not x.is_main ]
|
||||
|
||||
|
||||
|
||||
|
||||
# Common object/source files
|
||||
|
||||
l_common_o = [ "irp_touches.irp.o" ] + \
|
||||
[ "{0}.irp.o".format(x.filename) for x in l_non_targets ] + \
|
||||
[ "{0}.irp.module.o".format(x.filename) for x in l_non_targets ]
|
||||
|
||||
|
||||
l_common_s = []
|
||||
|
||||
if command_line.do_debug:
|
||||
l_common_o += [ "irp_stack.irp.o" ]
|
||||
l_common_s += [ "irp_stack.irp.F90" ]
|
||||
|
||||
if command_line.do_openmp:
|
||||
l_common_o += [ "irp_locks.irp.o" ]
|
||||
l_common_s += [ "irp_locks.irp.F90" ]
|
||||
|
||||
if command_line.do_profile:
|
||||
l_common_o += [ "irp_profile.irp.o", "irp_rdtsc.o" ]
|
||||
l_common_s += [ "irp_profile.irp.F90", "irp_rdtsc.c" ]
|
||||
|
||||
l_common_o = map(dress,l_common_o) + map(lambda x: dress(x,in_root=True), OBJ)
|
||||
l_common_s = map(dress,l_common_s) + map(lambda x: dress(x,in_root=True), SRC)
|
||||
|
||||
|
||||
# IRP_touches
|
||||
output.append(create_build_touches(l_common_o[1:]))
|
||||
|
||||
# All targets : list of Fmodule objects
|
||||
|
||||
l_targets = [ x for x in l_mod if x.is_main ]
|
||||
|
||||
|
||||
# Create lines
|
||||
|
||||
for i in l_non_targets:
|
||||
output.append (create_build_non_target(i,OBJ))
|
||||
|
||||
for i in l_targets:
|
||||
output.append(create_build_target(i, l_common_o))
|
||||
|
||||
# Remaining files
|
||||
for i in l_common_s:
|
||||
output.append(create_build_remaining(i))
|
||||
|
||||
|
||||
with open(FILENAME,'w') as f:
|
||||
f.write('\n\n'.join(output))
|
||||
f.write('\n')
|
||||
|
||||
create_irpf90_make([ x.filename for x in l_targets ] + [ os.path.join(irpdir,'irpf90.a') ] )
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
|
@ -1,549 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from util import *
|
||||
from irpf90_t import *
|
||||
from variables import variables
|
||||
from preprocessed_text import preprocessed_text
|
||||
from subroutines import subroutines
|
||||
import regexps, re
|
||||
import error
|
||||
|
||||
vtuple = map(lambda v: (v, variables[v].same_as, variables[v].regexp), variables.keys())
|
||||
stuple = map(lambda s: (s, subroutines[s].regexp), subroutines.keys())
|
||||
stuple = filter(lambda s: subroutines[s[0]].is_function, stuple)
|
||||
re_string_sub = regexps.re_string.sub
|
||||
|
||||
regexps_re_string_sub = regexps.re_string.sub
|
||||
def find_variables_in_line(line):
|
||||
assert isinstance(line,Line)
|
||||
result = []
|
||||
sub_done = False
|
||||
buffer = line.lower
|
||||
ap = result.append
|
||||
for v,same_as,regexp in vtuple:
|
||||
if v in buffer:
|
||||
if not sub_done:
|
||||
buffer = regexps_re_string_sub('',buffer)
|
||||
sub_done = True
|
||||
if regexp.search(buffer) is not None:
|
||||
ap(same_as)
|
||||
return result
|
||||
|
||||
def find_funcs_in_line(line):
|
||||
assert isinstance(line,Line)
|
||||
result = []
|
||||
append = result.append
|
||||
sub_done = False
|
||||
buffer = line.lower
|
||||
for s,regexp in stuple:
|
||||
if s in buffer:
|
||||
if regexp.search(buffer) is not None:
|
||||
append(s)
|
||||
return result
|
||||
|
||||
|
||||
def find_subroutine_in_line(line):
|
||||
assert type(line) == Call
|
||||
buffer = line.text.split('(')[0]
|
||||
buffer = buffer.split()[1].lower()
|
||||
return buffer
|
||||
|
||||
def check_touch(line,vars,main_vars):
|
||||
def fun(main_var):
|
||||
if main_var not in variables:
|
||||
error.fail(line,"Variable %s unknown"%(main_var,))
|
||||
x = variables[main_var]
|
||||
return [main_var]+x.others
|
||||
all_others = make_single(flatten( map(fun,main_vars) ))
|
||||
all_others.sort()
|
||||
vars.sort()
|
||||
for x,y in zip(vars,all_others):
|
||||
if x != y:
|
||||
message = "The following entities should be touched:\n"
|
||||
message = "\n".join([message]+map(lambda x: "- %s"%(x,),all_others))
|
||||
error.fail(line,message)
|
||||
|
||||
################################################################################
|
||||
def update_variables():
|
||||
for filename,text in preprocessed_text:
|
||||
|
||||
for line in filter(lambda x: type(x) in [ Touch, SoftTouch ], text):
|
||||
vars = line.lower.split()
|
||||
if len(vars) < 2:
|
||||
error.fail(line,"Syntax error")
|
||||
for v in vars[1:]:
|
||||
if v not in variables:
|
||||
error.fail(line,"Variable %s unknown"%(v,))
|
||||
variables[v]._is_touched = True
|
||||
|
||||
for line in filter(lambda x: type(x) == Free,text):
|
||||
vars = line.lower.split()
|
||||
if len(vars) < 2:
|
||||
error.fail(line,"Syntax error")
|
||||
for v in vars[1:]:
|
||||
if v not in variables:
|
||||
error.fail(line,"Variable %s unknown"%(v,))
|
||||
variables[v].is_freed = True
|
||||
|
||||
for line in filter(lambda x: type(x) == Irp_read,text):
|
||||
variables[line.filename]._is_read = True
|
||||
|
||||
for line in filter(lambda x: type (x) == Irp_write,text):
|
||||
variables[line.filename]._is_written = True
|
||||
|
||||
################################################################################
|
||||
|
||||
def get_parsed_text():
|
||||
def func(filename, text):
|
||||
varlist = []
|
||||
result = []
|
||||
append = result.append
|
||||
for line in text: #filter(
|
||||
# lambda x: type(x) not in [ Doc, Begin_doc, End_doc ],
|
||||
# text):
|
||||
if type(line) in [ \
|
||||
Empty_line,
|
||||
Continue,
|
||||
Return,
|
||||
Begin_shell,
|
||||
End_shell,
|
||||
Openmp,
|
||||
Directive,
|
||||
Use,
|
||||
Enddo,
|
||||
End_select,
|
||||
Endif,
|
||||
Implicit,
|
||||
Program,
|
||||
Subroutine,
|
||||
Function,
|
||||
End,
|
||||
]:
|
||||
append( ([],line) )
|
||||
elif type(line) in [ Begin_provider, Cont_provider ]:
|
||||
if type(line) == Begin_provider:
|
||||
varlist = []
|
||||
buffer = map(strip,line.lower.replace(']','').split(','))
|
||||
assert len(buffer) > 1
|
||||
v = buffer[1]
|
||||
varlist.append(v)
|
||||
variable_list = find_variables_in_line(line)
|
||||
try:
|
||||
variable_list.remove(variables[v].same_as)
|
||||
except ValueError:
|
||||
print v, variables[v].same_as
|
||||
raise
|
||||
append( (variable_list,line) )
|
||||
elif type(line) == End_provider:
|
||||
varlist = []
|
||||
append( ([],line) )
|
||||
elif type(line) == Provide:
|
||||
l = line.lower.split()[1:]
|
||||
l = filter(lambda x: x not in varlist, l)
|
||||
for v in l:
|
||||
if v not in variables:
|
||||
error.fail(line,"Variable %s is unknown"%(v))
|
||||
append( (l,Provide(line.i,"",line.filename)) )
|
||||
append( (l,Simple_line(line.i,"!%s"%(line.text),line.filename)) )
|
||||
elif type(line) == NoDep:
|
||||
l = line.lower.split()[1:]
|
||||
for v in l:
|
||||
if v not in variables:
|
||||
error.fail(line,"Variable %s is unknown"%(v))
|
||||
l = map(lambda x: "-%s"%(x), l)
|
||||
append( (l,Simple_line(line.i,"!%s"%(line.text),line.filename)) )
|
||||
elif type(line) in [ Touch, SoftTouch ]:
|
||||
vars = line.lower.split()
|
||||
if len(vars) < 2:
|
||||
error.fail(line,"Syntax error")
|
||||
vars = vars[1:]
|
||||
def fun(x):
|
||||
main = variables[x].same_as
|
||||
return main
|
||||
main_vars = make_single( map(fun, vars) )
|
||||
check_touch(line,vars,main_vars)
|
||||
txt = " ".join(vars)
|
||||
append ( (vars,Simple_line(line.i,"!",line.filename)) )
|
||||
append ( ([],Simple_line(line.i,"! >>> TOUCH %s"%(txt,),line.filename)) )
|
||||
def fun(x):
|
||||
if x not in variables:
|
||||
error.fail(line,"Variable %s unknown"%(x,))
|
||||
return [ ([],Simple_line(line.i," call touch_%s"%(x,),line.filename)),
|
||||
([],Use(line.i," use %s"%(variables[x].fmodule), line.filename)) ]
|
||||
result += flatten(map( fun, main_vars ))
|
||||
def fun(x):
|
||||
if x not in variables:
|
||||
error.fail(line,"Variable %s unknown"%(x,))
|
||||
return ([],Simple_line(line.i," %s_is_built = .True."%(x,),line.filename))
|
||||
result += map( fun, main_vars[:-1] )
|
||||
if type(line) == SoftTouch:
|
||||
append ( ([],Simple_line(line.i,"! <<< END TOUCH (Soft)",line.filename)) )
|
||||
else:
|
||||
append ( ([],Provide_all(line.i,"! <<< END TOUCH",line.filename)) )
|
||||
elif type(line) == Call:
|
||||
l = find_variables_in_line(line)
|
||||
l = filter(lambda x: x not in varlist, l)
|
||||
sub = find_subroutine_in_line(line)
|
||||
if sub not in subroutines:
|
||||
t = Simple_line
|
||||
append( (l,Simple_line(line.i,line.text,line.filename)) )
|
||||
else:
|
||||
append( (l,line) )
|
||||
if subroutines[sub].touches != []:
|
||||
append( ([],Provide_all(line.i,"",line.filename)) )
|
||||
elif type(line) == Free:
|
||||
vars = line.lower.split()
|
||||
vars = vars[1:]
|
||||
append( ([],Simple_line(line.i,"!%s"%(line.text),line.filename)) )
|
||||
use = map(lambda x: " use %s"%(variables[x].fmodule),vars)
|
||||
for var in vars:
|
||||
result += map(lambda x: ([],Use(line.i,x,line.filename)),
|
||||
make_single(use))
|
||||
result += map(lambda x: ([],Simple_line(line.i,x,line.filename)),
|
||||
variables[var].free)
|
||||
elif type(line) == Irp_read:
|
||||
append( ([],Simple_line(line.i,"!%s"%(line.text),line.filename)) )
|
||||
elif type(line) == Irp_write:
|
||||
append( ([],Simple_line(line.i,"!%s"%(line.text),line.filename)) )
|
||||
elif type(line) in [ Begin_doc, End_doc, Doc ]:
|
||||
pass
|
||||
else:
|
||||
l = find_variables_in_line(line)
|
||||
l = filter(lambda x: x not in varlist, l)
|
||||
append( (l,line) )
|
||||
return result
|
||||
|
||||
#main_result = []
|
||||
#for filename,text in preprocessed_text:
|
||||
# main_result.append( (filename, func(filename,text)) )
|
||||
#return main_result
|
||||
return parallel_loop(func,preprocessed_text)
|
||||
|
||||
update_variables()
|
||||
parsed_text = get_parsed_text()
|
||||
|
||||
|
||||
######################################################################
|
||||
|
||||
def move_to_top(text,t):
|
||||
assert type(text) == list
|
||||
assert t in [ NoDep, Declaration, Implicit, Use, Cont_provider ]
|
||||
|
||||
inside = False
|
||||
for i in range(len(text)):
|
||||
vars, line = text[i]
|
||||
if type(line) in [ Begin_provider, Program, Subroutine, Function ]:
|
||||
begin = i
|
||||
inside = True
|
||||
elif type(line) in [ End_provider, End ]:
|
||||
inside = False
|
||||
elif type(line) == t:
|
||||
if inside:
|
||||
text.pop(i)
|
||||
begin += 1
|
||||
text.insert(begin,(vars,line))
|
||||
|
||||
return text
|
||||
|
||||
result = []
|
||||
for filename,text in parsed_text:
|
||||
text = move_to_top(text,NoDep)
|
||||
text = move_to_top(text,Declaration)
|
||||
text = move_to_top(text,Implicit)
|
||||
text = move_to_top(text,Use)
|
||||
text = move_to_top(text,Cont_provider)
|
||||
result.append ( (filename,text) )
|
||||
parsed_text = result
|
||||
|
||||
|
||||
######################################################################
|
||||
def build_sub_needs():
|
||||
# Needs
|
||||
for filename, text in parsed_text:
|
||||
sub = None
|
||||
in_program = False
|
||||
for vars,line in text:
|
||||
if type(line) in [ Subroutine, Function ]:
|
||||
subname = find_subname(line)
|
||||
sub = subroutines[subname]
|
||||
sub._needs = []
|
||||
sub._to_provide = []
|
||||
elif type(line) == End:
|
||||
if not in_program:
|
||||
sub._needs = make_single(sub._needs)
|
||||
sub._to_provide = make_single(sub._to_provide)
|
||||
sub = None
|
||||
elif type(line) == Program:
|
||||
in_program = True
|
||||
if sub is not None:
|
||||
if type(line) == Declaration:
|
||||
sub._to_provide += vars
|
||||
sub._needs += vars
|
||||
|
||||
build_sub_needs()
|
||||
|
||||
#####################################################################
|
||||
|
||||
def add_subroutine_needs():
|
||||
main_result = []
|
||||
for filename, text in parsed_text:
|
||||
result = []
|
||||
append = result.append
|
||||
for vars,line in text:
|
||||
if type(line) == Call:
|
||||
subname = find_subname(line)
|
||||
vars += subroutines[subname].to_provide
|
||||
append( (vars,line) )
|
||||
main_result.append( (filename, result) )
|
||||
return main_result
|
||||
|
||||
parsed_text = add_subroutine_needs()
|
||||
|
||||
######################################################################
|
||||
def move_variables():
|
||||
|
||||
def func(filename, text):
|
||||
result = []
|
||||
append = result.append
|
||||
# 1st pass
|
||||
varlist = []
|
||||
ifvars = []
|
||||
elsevars = []
|
||||
old_varlist = []
|
||||
old_ifvars = []
|
||||
old_elsevars = []
|
||||
revtext = list(text)
|
||||
revtext.reverse()
|
||||
try:
|
||||
for vars,line in revtext:
|
||||
if type(line) in [ End_provider,End ]:
|
||||
varlist = []
|
||||
append( ([],line) )
|
||||
elif type(line) in [ Endif, End_select ]:
|
||||
old_ifvars.append( list(ifvars) )
|
||||
old_elsevars.append( list(elsevars) )
|
||||
old_varlist.append( list(varlist) )
|
||||
varlist = []
|
||||
append( ([],line) )
|
||||
elif type(line) == Else:
|
||||
elsevars += list(varlist)
|
||||
append( (varlist,line) )
|
||||
varlist = []
|
||||
elif type(line) in [ Elseif, Case ]:
|
||||
ifvars += list(varlist)
|
||||
append( (varlist,line) )
|
||||
if vars != []:
|
||||
varlist = old_varlist.pop()
|
||||
varlist += vars
|
||||
old_varlist.append( list(varlist) )
|
||||
varlist = []
|
||||
elif type(line) in [ If, Select ]:
|
||||
ifvars += list(varlist)
|
||||
append( (varlist,line) )
|
||||
vars += filter(lambda x: x in elsevars, ifvars)
|
||||
ifvars = old_ifvars.pop()
|
||||
elsevars = old_elsevars.pop()
|
||||
varlist = old_varlist.pop() + vars
|
||||
elif type(line) in [ Begin_provider, Program, Subroutine, Function ]:
|
||||
varlist += vars
|
||||
append( (varlist,line) )
|
||||
if old_varlist != [] \
|
||||
or old_ifvars != [] \
|
||||
or old_elsevars != []:
|
||||
error.fail(line,"End if missing")
|
||||
varlist = []
|
||||
elif type(line) in (Provide,Provide_all):
|
||||
append( (vars,line) )
|
||||
else:
|
||||
varlist += vars
|
||||
append( ([],line) )
|
||||
except:
|
||||
error.fail(line,"Unable to parse file")
|
||||
|
||||
result.reverse()
|
||||
|
||||
# 2nd pass
|
||||
text = result
|
||||
result = []
|
||||
append = result.append
|
||||
old_varlist = []
|
||||
varlist = []
|
||||
try:
|
||||
for vars,line in text:
|
||||
if vars != []:
|
||||
vars = make_single(vars)
|
||||
if type(line) in [ Begin_provider, Program, Subroutine, Function ]:
|
||||
varlist = list(vars)
|
||||
elif type(line) in [ If, Select ]:
|
||||
old_varlist.append(varlist)
|
||||
vars = filter(lambda x: x not in varlist,vars)
|
||||
varlist = make_single(varlist + vars)
|
||||
assert old_varlist is not varlist
|
||||
elif type(line) in [ Elseif, Else, Case ]:
|
||||
varlist = old_varlist.pop()
|
||||
old_varlist.append(varlist)
|
||||
vars = filter(lambda x: x not in varlist,vars)
|
||||
varlist = make_single(varlist + vars)
|
||||
assert old_varlist is not varlist
|
||||
elif type(line) in [ Endif, End_select ]:
|
||||
varlist = old_varlist.pop()
|
||||
elif type(line) == Provide_all:
|
||||
vars += varlist
|
||||
elif type(line) in [ End_provider, End ]:
|
||||
assert old_varlist == []
|
||||
varlist = []
|
||||
for v in vars[:]:
|
||||
if v[0] == '-':
|
||||
vars.remove(v)
|
||||
vars.remove(v[1:])
|
||||
result.append( (vars,line) )
|
||||
except:
|
||||
error.fail(line,"Unable to parse file")
|
||||
return result
|
||||
|
||||
main_result = []
|
||||
for filename,text in parsed_text:
|
||||
main_result.append( (filename, func(filename,text)) )
|
||||
return main_result
|
||||
#return parallel_loop(func,parsed_text)
|
||||
|
||||
parsed_text = move_variables()
|
||||
|
||||
######################################################################
|
||||
def build_needs():
|
||||
# Needs
|
||||
for filename, text in parsed_text:
|
||||
var = None
|
||||
for vars,line in text:
|
||||
if type(line) == Begin_provider:
|
||||
buffer = map(strip,line.lower.replace(']',',').split(','))
|
||||
var = variables[buffer[1]]
|
||||
var.needs = []
|
||||
var.to_provide = vars
|
||||
elif type(line) == End_provider:
|
||||
var.needs = make_single(var.needs)
|
||||
var.to_provide = make_single(var.to_provide)
|
||||
var = None
|
||||
if var is not None:
|
||||
var.needs += vars
|
||||
if type(line) == Call:
|
||||
subname = find_subname(line)
|
||||
var.needs += subroutines[subname].needs
|
||||
elif type(line) in [ \
|
||||
Simple_line, Assert,
|
||||
Do , If,
|
||||
Elseif , Select,
|
||||
]:
|
||||
funcs = find_funcs_in_line(line)
|
||||
for f in funcs:
|
||||
var.needs += subroutines[f].needs
|
||||
for v in variables:
|
||||
main = variables[v].same_as
|
||||
if main != v:
|
||||
variables[v].needs = variables[main].needs
|
||||
variables[v].to_provide = variables[main].to_provide
|
||||
|
||||
# Needed_by
|
||||
for v in variables:
|
||||
variables[v].needed_by = []
|
||||
for v in variables:
|
||||
main = variables[v].same_as
|
||||
if main != v:
|
||||
variables[v].needed_by = variables[main].needed_by
|
||||
for v in variables:
|
||||
var = variables[v]
|
||||
if var.is_main:
|
||||
for x in var.needs:
|
||||
variables[x].needed_by.append(var.same_as)
|
||||
for v in variables:
|
||||
var = variables[v]
|
||||
var.needed_by = make_single(var.needed_by)
|
||||
|
||||
|
||||
build_needs()
|
||||
|
||||
result = []
|
||||
for filename,text in parsed_text:
|
||||
text = move_to_top(text,NoDep)
|
||||
text = move_to_top(text,Declaration)
|
||||
text = move_to_top(text,Implicit)
|
||||
text = move_to_top(text,Use)
|
||||
text = move_to_top(text,Cont_provider)
|
||||
result.append ( (filename,text) )
|
||||
parsed_text = result
|
||||
|
||||
|
||||
######################################################################
|
||||
from command_line import command_line
|
||||
|
||||
def check_opt():
|
||||
if not command_line.do_checkopt:
|
||||
return
|
||||
|
||||
for filename, text in parsed_text:
|
||||
do_level = 0
|
||||
for vars,line in text:
|
||||
if not type(line) == Provide_all:
|
||||
if do_level > 0 and vars != []:
|
||||
print "Optimization: %s line %d"%(line.filename,line.i)
|
||||
for v in vars:
|
||||
print " PROVIDE ",v
|
||||
if type(line) == Do:
|
||||
do_level += 1
|
||||
elif type(line) == Enddo:
|
||||
do_level -= 1
|
||||
check_opt()
|
||||
|
||||
######################################################################
|
||||
def perform_loop_substitutions():
|
||||
main_result = []
|
||||
for filename, text in parsed_text:
|
||||
result = []
|
||||
append = result.append
|
||||
for vars,line in text:
|
||||
if type(line) in [ Do, If, Elseif ] :
|
||||
for k,v in command_line.substituted.items():
|
||||
reg = v[1]
|
||||
while reg.search(line.text) is not None:
|
||||
line.text = re.sub(reg,r'\1%s\3', line.text,count=1)%v[0]
|
||||
append( (vars,line) )
|
||||
main_result.append( (filename, result) )
|
||||
return main_result
|
||||
|
||||
parsed_text = perform_loop_substitutions()
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
for i in range(len(parsed_text)):
|
||||
if parsed_text[i][0] == sys.argv[1]:
|
||||
print '!-------- %s -----------'%(parsed_text[i][0])
|
||||
for line in parsed_text[i][1]:
|
||||
print line[1]
|
||||
print line[0], line[1].filename
|
||||
#for i in subroutines:
|
||||
# print i, subroutines[i].needs, subroutines[i].to_provide
|
||||
|
|
@ -1,925 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
from irpf90_t import *
|
||||
from regexps import *
|
||||
import error
|
||||
from command_line import command_line
|
||||
from util import *
|
||||
|
||||
# Local regular expressions
|
||||
re_endif = re.compile("end\s+if")
|
||||
re_elseif = re.compile("else\s+if")
|
||||
re_enddo = re.compile("end\s+do")
|
||||
re_endtype= re.compile("end\s+type")
|
||||
re_endmodule = re.compile("end\s+module")
|
||||
re_endselect = re.compile("end\s+select")
|
||||
re_endinterface = re.compile("end\s+interface")
|
||||
|
||||
# Local variables
|
||||
Free_form = 0
|
||||
Fixed_form = 1
|
||||
|
||||
######################################################################
|
||||
# Dictionary of simple statements
|
||||
simple_dict = {
|
||||
"program": Program ,
|
||||
"subroutine": Subroutine ,
|
||||
"begin_shell": Begin_shell ,
|
||||
"end_shell": End_shell ,
|
||||
"begin_template": Begin_template ,
|
||||
"end_template": End_template ,
|
||||
"subst": Subst ,
|
||||
"end_doc": End_doc ,
|
||||
"begin_provider": Begin_provider ,
|
||||
"&begin_provider": Cont_provider ,
|
||||
"end_provider": End_provider ,
|
||||
"assert": Assert ,
|
||||
"touch": Touch ,
|
||||
"soft_touch": SoftTouch ,
|
||||
"provide": Provide ,
|
||||
"no_dep": NoDep ,
|
||||
"free": Free ,
|
||||
"irp_if": Irp_If ,
|
||||
"irp_else": Irp_Else ,
|
||||
"irp_endif": Irp_Endif ,
|
||||
"irp_read": Irp_read ,
|
||||
"irp_write": Irp_write ,
|
||||
"use": Use ,
|
||||
"do": Do ,
|
||||
"if": If ,
|
||||
"case": Case ,
|
||||
"elseif": Elseif ,
|
||||
"else": Else ,
|
||||
"enddo": Enddo ,
|
||||
"endif": Endif ,
|
||||
"endselect": End_select ,
|
||||
"end": End ,
|
||||
"include": Include ,
|
||||
"call": Call ,
|
||||
"continue": Continue ,
|
||||
"return": Return ,
|
||||
"implicit": Implicit ,
|
||||
"save": Declaration ,
|
||||
"function": Function ,
|
||||
"recursive": Function ,
|
||||
}
|
||||
|
||||
def get_type (i, filename, line, is_doc):
|
||||
'''Find the type of a text line'''
|
||||
assert type(i) == int
|
||||
assert type(filename) == str
|
||||
assert type(line) == str
|
||||
assert type(is_doc) == bool
|
||||
|
||||
# add support for interface block
|
||||
has_interface = False
|
||||
|
||||
line = line.rstrip()
|
||||
line = line.replace("$IRP_ALIGN",command_line.align)
|
||||
lower_line0 = line.lstrip().lower()
|
||||
lower_line = lower_line0.replace("!"," ! ")
|
||||
|
||||
# Replacements
|
||||
lower_line = re_elseif.sub("elseif",lower_line)
|
||||
lower_line = re_enddo.sub("enddo",lower_line)
|
||||
lower_line = re_endtype.sub("endtype",lower_line)
|
||||
lower_line = re_endmodule.sub("endmodule",lower_line)
|
||||
lower_line = re_endif.sub("endif",lower_line)
|
||||
lower_line = re_endselect.sub("endselect",lower_line)
|
||||
lower_line = re_endinterface.sub("endinterface",lower_line)
|
||||
|
||||
for c in """()'"[]""":
|
||||
lower_line = lower_line.replace(c," "+c+" ")
|
||||
|
||||
buffer = lower_line.split()
|
||||
if len(buffer) == 0:
|
||||
return [ Empty_line(i,line,filename) ], is_doc
|
||||
|
||||
firstword = buffer[0]
|
||||
if firstword.isdigit():
|
||||
assert len(buffer) > 1
|
||||
buffer = buffer[1:]
|
||||
firstword = buffer[0]
|
||||
|
||||
# Identify line
|
||||
if firstword == "endinterface":
|
||||
has_interface = False
|
||||
return [ Simple_line (i,line,filename) ], False
|
||||
|
||||
if firstword == "interface" or has_interface:
|
||||
has_interface = True
|
||||
return [ Simple_line (i,line,filename) ], False
|
||||
|
||||
if firstword == "end_doc":
|
||||
return [ End_doc (i,line,filename) ], False
|
||||
|
||||
if firstword == "begin_doc":
|
||||
return [ Begin_doc (i,line,filename) ], True
|
||||
|
||||
if is_doc:
|
||||
return [ Doc (i,line,filename) ], is_doc
|
||||
|
||||
if firstword in simple_dict:
|
||||
return [ simple_dict[firstword](i,line,filename) ], is_doc
|
||||
|
||||
if firstword in [ "select", "selectcase" ]:
|
||||
return [ Select(i,line,filename) ] , is_doc
|
||||
|
||||
if len(lower_line0) > 4:
|
||||
|
||||
if firstword[0] == '#':
|
||||
result = [ Simple_line(i,line,filename) ]
|
||||
error.warn ( result[0] ,
|
||||
"""irpf90 may not work with preprocessor directives. You can use
|
||||
Irp_if ... Irp_else ... Irp_endif
|
||||
instead of
|
||||
#ifdef ... #else ... #endif""" )
|
||||
return result, is_doc
|
||||
|
||||
if firstword.startswith("case("):
|
||||
return [ Case(i,line,filename) ], is_doc
|
||||
|
||||
if lower_line0[1:5] == "$omp":
|
||||
return [ Openmp(i,line,filename) ], is_doc
|
||||
elif lower_line0[1:5] in ["dec$", "dir$"] and command_line.directives:
|
||||
return [ Directive(i,line,filename) ], is_doc
|
||||
elif lower_line0[1:3] == "$ ":
|
||||
return [ Openmp(i,line,filename) ], is_doc
|
||||
|
||||
if re_decl.match(lower_line) is not None:
|
||||
if "function" in buffer[1:3]:
|
||||
return [ Function (i,line,filename) ], is_doc
|
||||
else:
|
||||
return [ Declaration (i,line,filename) ], is_doc
|
||||
|
||||
# Detect errors
|
||||
if firstword == "dowhile":
|
||||
error.fail( Do(i,line,filename) , "'do while' should be in 2 words." )
|
||||
|
||||
return [ Simple_line(i,line,filename) ], is_doc
|
||||
|
||||
|
||||
######################################################################
|
||||
def get_text(lines,filename):
|
||||
'''Read the input file and transform it to labeled lines'''
|
||||
assert type(filename) == str
|
||||
assert type(lines) == list
|
||||
|
||||
result = []
|
||||
is_doc = False
|
||||
for i,line in enumerate(lines):
|
||||
line, is_doc = get_type(i+1,filename,line,is_doc)
|
||||
result += line
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def execute_shell(text):
|
||||
'''Execute the embedded shell scripts'''
|
||||
def fail(l,a,b): error.fail(l,"In Begin_Shell, %s '%s'"%(a,b))
|
||||
inside = False
|
||||
result = []
|
||||
for line in text:
|
||||
if inside:
|
||||
if type(line) == Begin_shell:
|
||||
error.fail(line,"Nested Begin_shell")
|
||||
elif type(line) == End_shell:
|
||||
inside = False
|
||||
# Write script file
|
||||
scriptname = "%s%s_shell_%d"%(irpdir,line.filename,line.i)
|
||||
file = open(scriptname,'w')
|
||||
file.writelines(script)
|
||||
file.close()
|
||||
scriptname = "%s_shell_%d"%(line.filename,line.i)
|
||||
file = open(scriptname,'w')
|
||||
file.writelines(script)
|
||||
file.close()
|
||||
# Execute shell
|
||||
import os
|
||||
pipe = os.popen("%s < %s"%(shell,scriptname),'r')
|
||||
lines = pipe.readlines()
|
||||
pipe.close()
|
||||
result += get_text(lines,scriptname)
|
||||
os.remove(scriptname)
|
||||
else:
|
||||
script.append(line.text+'\n')
|
||||
else:
|
||||
if type(line) == Begin_shell:
|
||||
inside = True
|
||||
begin = line.i
|
||||
script = []
|
||||
# Find shell executable
|
||||
buffer = line.text.split('[')
|
||||
if len(buffer) > 2:
|
||||
fail(line,"Too many",'[')
|
||||
elif len(buffer) < 2:
|
||||
fail(line,"Missing",'[')
|
||||
buffer = buffer[1]
|
||||
buffer = buffer.split(']')
|
||||
if len(buffer) > 2:
|
||||
fail(line,"Too many",']')
|
||||
elif len(buffer) < 2:
|
||||
fail(line,"Missing",']')
|
||||
shell = buffer[0].strip()
|
||||
elif type(line) == End_shell:
|
||||
error.fail(line,"Begin_shell missing")
|
||||
else:
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def execute_templates(text):
|
||||
'''Execute the templates'''
|
||||
def fail(l,a,b): error.fail(l,"In %s, %s"%(a,b))
|
||||
|
||||
def get_variables(line):
|
||||
buffer = line.text.split('[',1)
|
||||
if len(buffer)<2:
|
||||
fail(line,"Subst","Syntax error")
|
||||
buffer = buffer[1].replace(']','')
|
||||
buffer = buffer.split(',')
|
||||
return map(lambda x: '$%s'%(x.strip()), buffer)
|
||||
|
||||
TEMPLATE = 1
|
||||
SUBST = 2
|
||||
inside = 0
|
||||
result = []
|
||||
for line in text:
|
||||
if inside == 0:
|
||||
if type(line) == Begin_template:
|
||||
script = []
|
||||
inside = TEMPLATE
|
||||
script = "template = \"\"\"\n"
|
||||
else:
|
||||
result.append(line)
|
||||
elif inside == TEMPLATE:
|
||||
if type(line) == Begin_template:
|
||||
fail(line,"template", "Nested Begin_Template")
|
||||
elif type(line) == End_template:
|
||||
fail(line,"template","Missing Subst")
|
||||
elif type(line) == Subst:
|
||||
inside = SUBST
|
||||
script += "\"\"\"\n"
|
||||
variables = get_variables(line)
|
||||
script += "v = []\n"
|
||||
subst = ""
|
||||
else:
|
||||
script += line.text+"\n"
|
||||
else: # inside == SUBST
|
||||
if type(line) == Begin_template:
|
||||
fail(line,"subst","Nested Begin_template")
|
||||
elif type(line) == Subst:
|
||||
fail(line,"subst","Subst already defined")
|
||||
elif type(line) == End_template:
|
||||
inside = 0
|
||||
subst = subst.rstrip()
|
||||
if subst[-2:] == ';;':
|
||||
subst = subst[:-2]
|
||||
for s in subst.split(';;'):
|
||||
buffer = map(lambda x: x.strip(), s.split(';'))
|
||||
if len(buffer) != len(variables):
|
||||
fail(line,"subst","%d variables defined, and %d substitutions"%(len(variables),len(buffer)))
|
||||
script += "v.append( { \\\n"
|
||||
for t,v in zip(variables,buffer):
|
||||
script += ' "%s": """%s""" ,\n'%(t,v)
|
||||
script += "} )\n"
|
||||
script += "for d in v:\n t0 = str(template)\n"
|
||||
for v in variables:
|
||||
script += " t0 = t0.replace('%s',d['%s'])\n"%(v,v)
|
||||
script += " print t0\n"
|
||||
# Write script file
|
||||
scriptname = "%s%s_template_%d"%(irpdir,line.filename,line.i)
|
||||
file = open(scriptname,'w')
|
||||
file.writelines(script)
|
||||
file.close()
|
||||
scriptname = "%s_template_%d"%(line.filename,line.i)
|
||||
file = open(scriptname,'w')
|
||||
file.writelines(script)
|
||||
file.close()
|
||||
# Execute shell
|
||||
import os
|
||||
pipe = os.popen("python2 < %s"%(scriptname),'r')
|
||||
lines = pipe.readlines()
|
||||
pipe.close()
|
||||
result += get_text(lines,scriptname)
|
||||
os.remove(scriptname)
|
||||
else:
|
||||
subst += line.text+'\n'
|
||||
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def form(text):
|
||||
'''Find if the text is in fixed form or in free form'''
|
||||
assert type(text) == list
|
||||
if len(text) == 0:
|
||||
return Free_form
|
||||
assert isinstance(text[0],Line)
|
||||
|
||||
re2 = re.compile(r"^\s*[!#]")
|
||||
re3 = re.compile(r"^\s*[^ 0-9]+")
|
||||
for line in text:
|
||||
if type(line) in [ Empty_line, Doc, Openmp, Directive ]:
|
||||
pass
|
||||
else:
|
||||
if len(line.text) > 5:
|
||||
test = line.text[0:5]
|
||||
if test[0] in "Cc#!*":
|
||||
pass
|
||||
else:
|
||||
if re2.match(test) is None and \
|
||||
re3.match(test) is not None:
|
||||
return Free_form
|
||||
if line.text.rstrip()[-1] == '&':
|
||||
return Free_form
|
||||
return Fixed_form
|
||||
|
||||
######################################################################
|
||||
def add_operators(text):
|
||||
re_incr = re.compile(r"(\s*)(.*)(\+=)(.*$)", re.S)
|
||||
re_decr = re.compile(r"(\s*)(.*)(-=)(.*$)", re.S)
|
||||
re_mult = re.compile(r"(\s*)(.*)(\*=)(.*$)", re.S)
|
||||
re_incr_if = re.compile(r"(.*)(\))(\s*)(.*)(\+=)(.*$)", re.S)
|
||||
re_decr_if = re.compile(r"(.*)(\))(\s*)(.*)(-=)(.*$)", re.S)
|
||||
re_mult_if = re.compile(r"(.*)(\))(\s*)(.*)(\*=)(.*$)", re.S)
|
||||
'''Change additional operators'''
|
||||
result = []
|
||||
for line in text:
|
||||
buffer = line.text
|
||||
ls = buffer.strip()
|
||||
if ls.startswith('print ') or \
|
||||
ls.startswith('print*') or \
|
||||
ls.startswith('write('):
|
||||
pass
|
||||
elif buffer.lstrip().startswith("if "):
|
||||
if "+=" in buffer:
|
||||
line.text = re.sub(re_incr_if, r'\1\2\4=\4+(\6)', buffer)
|
||||
elif "-=" in buffer:
|
||||
line.text = re.sub(re_incr_if, r'\1\2\4=\4-(\6)', buffer)
|
||||
elif "*=" in buffer:
|
||||
line.text = re.sub(re_incr_if, r'\1\2\4=\4*(\6)', buffer)
|
||||
else:
|
||||
if "+=" in buffer:
|
||||
line.text = re.sub(re_incr, r'\1\2=\2+(\4)', buffer)
|
||||
elif "-=" in buffer:
|
||||
line.text = re.sub(re_decr, r'\1\2=\2-(\4)', buffer)
|
||||
elif "*=" in buffer:
|
||||
line.text = re.sub(re_mult, r'\1\2=\2*(\4)', buffer)
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def remove_comments(text,form):
|
||||
'''Remove all comments'''
|
||||
result = []
|
||||
|
||||
def remove_after_bang(line):
|
||||
match = re_comment.match(line)
|
||||
if match is None:
|
||||
return line
|
||||
else:
|
||||
return re_comment.split(line)[1].rstrip()
|
||||
|
||||
if form == Free_form:
|
||||
for line in text:
|
||||
if type(line) in [ Openmp, Doc, Directive] :
|
||||
result.append(line)
|
||||
elif type(line) == Empty_line:
|
||||
pass
|
||||
else:
|
||||
newline = line.text.lstrip()
|
||||
if newline == "" or newline[0] == "!":
|
||||
pass
|
||||
else:
|
||||
line.text = remove_after_bang(line.text)
|
||||
result.append(line)
|
||||
return result
|
||||
else:
|
||||
for line in text:
|
||||
if type(line) in [ Openmp, Doc, Directive ]:
|
||||
result.append(line)
|
||||
elif type(line) == Empty_line:
|
||||
pass
|
||||
else:
|
||||
newline = line.text.lstrip()
|
||||
if newline == "" or newline[0] == "!":
|
||||
pass
|
||||
else:
|
||||
line.text = remove_after_bang(line.text)
|
||||
if line.text[0] in "#123456789 ":
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def remove_continuation(text,form):
|
||||
'''Removes continuation lines'''
|
||||
result = []
|
||||
buffer = ""
|
||||
number = 0
|
||||
t = None
|
||||
if form == Free_form:
|
||||
for line in text:
|
||||
if line.text[-1] == '&':
|
||||
buffer = "%s%s\n"%(buffer,line.text)
|
||||
if number == 0:
|
||||
t = type(line)
|
||||
number = line.i
|
||||
else:
|
||||
if number != 0:
|
||||
newline = t(number, \
|
||||
"%s%s"%(buffer,line.text), \
|
||||
line.filename)
|
||||
line = newline
|
||||
number = 0
|
||||
buffer = ""
|
||||
result.append(line)
|
||||
else:
|
||||
rev_text = list(text)
|
||||
rev_text.reverse()
|
||||
for line in rev_text:
|
||||
is_continuation = False
|
||||
if type(line) == Simple_line:
|
||||
if len(line.text) >= 6:
|
||||
if line.text[5] != ' ':
|
||||
is_continuation = True
|
||||
if is_continuation:
|
||||
buffer = "&\n%s %s %s"%(line.text[:5],line.text[6:],buffer)
|
||||
else:
|
||||
line.text = line.text+buffer
|
||||
result.insert(0,line)
|
||||
buffer = ""
|
||||
return result
|
||||
|
||||
|
||||
######################################################################
|
||||
def irp_simple_statements(text):
|
||||
'''Processes simple statements'''
|
||||
|
||||
def process_irp_rw(line,rw,t):
|
||||
assert type(line) == t
|
||||
buffer = line.text.split()
|
||||
if len(buffer) == 2:
|
||||
dummy, variable = buffer
|
||||
num = "0"
|
||||
elif len(buffer) == 3:
|
||||
dummy, variable, num = buffer
|
||||
else:
|
||||
error.fail(line,"Error in IRP_%s statement"%(rw,))
|
||||
variable = variable.lower()
|
||||
i = line.i
|
||||
f = line.filename
|
||||
txt = line.text.lstrip()
|
||||
result = [
|
||||
Empty_line(i,"!",f),
|
||||
t(i,"! >>> %s"%(txt,),variable ),
|
||||
Provide_all(i," call %ser_%s('%s')"%(rw,variable,num),f),
|
||||
Empty_line(i,"! >>> END %s "%(txt,),f ),
|
||||
Empty_line(line.i,"!",f),
|
||||
]
|
||||
return result
|
||||
|
||||
def process_irp_read (line):
|
||||
assert type(line) == Irp_read
|
||||
return process_irp_rw(line,'read' ,Irp_read )
|
||||
|
||||
def process_irp_write(line):
|
||||
assert type(line) == Irp_write
|
||||
return process_irp_rw(line,'writ' ,Irp_write)
|
||||
|
||||
def process_return(line):
|
||||
assert type(line) == Return
|
||||
if command_line.do_debug:
|
||||
newline = Simple_line(line.i," call irp_leave(irp_here)",line.filename)
|
||||
result = [newline, line]
|
||||
else:
|
||||
result = [ line ]
|
||||
return result
|
||||
|
||||
def debug_conditions(line):
|
||||
'''Find condition in assert statement for debug'''
|
||||
assert type(line) == Assert
|
||||
match = re_test.search(line.text)
|
||||
result = []
|
||||
if match is not None:
|
||||
matches = [ match.group(1).strip(), match.group(3).strip() ]
|
||||
for m in matches:
|
||||
ok = m != "" # not empty
|
||||
ok = ok and not m.isdigit() # not a digit
|
||||
ok = ok and "'" not in m # not a string
|
||||
ok = ok and m.count('(') == m.count(')') # balanced parenthesis
|
||||
if ok:
|
||||
result.append ( Simple_line (line.i, " print *, '%s = ', %s"%(m,m), line.filename) )
|
||||
result.append ( Simple_line (line.i, " print *, ''", line.filename) )
|
||||
return result
|
||||
|
||||
def process_assert(line):
|
||||
assert type(line) == Assert
|
||||
if command_line.do_assert:
|
||||
if '(' not in line.text or ')' not in line.text:
|
||||
error.fail(line,"Syntax error in ASSERT statement (parentheses)")
|
||||
condition = "(%s"%(line.text.split('(',1)[1])
|
||||
if condition == "":
|
||||
error.fail(line,"Error in Assert statement")
|
||||
condition_str = condition.replace("'","''")
|
||||
i = line.i
|
||||
f = line.filename
|
||||
txt = line.text.strip()
|
||||
result = [
|
||||
Empty_line(i, "!", f),
|
||||
Empty_line(i, "! >>> %s"%(txt,), f),
|
||||
If (i, " if (.not.%s) then"%(condition,), f),
|
||||
Simple_line(i, " print *, irp_here//': Assert failed:'", f),
|
||||
Simple_line(i, " print *, ' file: %s, line: %d'"%(f,i), f),
|
||||
Simple_line(i, " print *, '%s'"%(condition_str,), f),
|
||||
] + debug_conditions(line) + [
|
||||
Simple_line(i, " stop 1", f),
|
||||
Endif (i, " endif", f),
|
||||
Empty_line(i, "! <<< END %s"%(txt,), f),
|
||||
Empty_line(i, "!", f)
|
||||
]
|
||||
else:
|
||||
result = []
|
||||
return result
|
||||
|
||||
def process_end(line):
|
||||
'''Set irp_here variable in provider block'''
|
||||
line.text = "end"
|
||||
if command_line.do_debug:
|
||||
i = line.i
|
||||
f = line.filename
|
||||
result = [
|
||||
Simple_line(i," call irp_leave(irp_here)", f),
|
||||
line
|
||||
]
|
||||
else:
|
||||
result = [ line ]
|
||||
return result
|
||||
|
||||
def process_begin_provider(line):
|
||||
assert type(line) == Begin_provider
|
||||
buffer = line.lower.replace('['," ")
|
||||
buffer = buffer.replace(']',"")
|
||||
buffer = buffer.split(',')
|
||||
if len(buffer) < 2:
|
||||
error.fail(line,"Error in Begin_provider statement")
|
||||
varname = buffer[1].strip()
|
||||
length = len(varname)
|
||||
i = line.i
|
||||
f = line.filename
|
||||
result = [ Begin_provider(i,line.text, (f,varname)),
|
||||
Declaration(i," character*(%d) :: irp_here = '%s'"%(length,varname), f) ]
|
||||
if command_line.do_debug:
|
||||
result += [
|
||||
Simple_line(i," call irp_enter(irp_here)", f),
|
||||
]
|
||||
return result
|
||||
|
||||
def process_cont_provider(line):
|
||||
assert type(line) == Cont_provider
|
||||
buffer = line.lower.replace('['," ")
|
||||
buffer = buffer.replace(']',"")
|
||||
buffer = buffer.split(',')
|
||||
if len(buffer) < 2:
|
||||
error.fail(line,"Error in Cont_provider statement")
|
||||
varname = buffer[1].strip()
|
||||
i = line.i
|
||||
f = line.filename
|
||||
return [ Cont_provider(i,line.text,(f,varname)) ]
|
||||
|
||||
def process_subroutine(line):
|
||||
assert type(line) == Subroutine
|
||||
subname = find_subname(line)
|
||||
length = len(subname)
|
||||
i = line.i
|
||||
f = line.filename
|
||||
result = [ line,
|
||||
Declaration(i," character*(%d) :: irp_here = '%s'"%(length,subname), f) ]
|
||||
if command_line.do_debug:
|
||||
result += [
|
||||
Simple_line(i," call irp_enter_f(irp_here)", f),
|
||||
]
|
||||
return result
|
||||
|
||||
def process_function(line):
|
||||
assert type(line) == Function
|
||||
subname = find_subname(line)
|
||||
length = len(subname)
|
||||
i = line.i
|
||||
f = line.filename
|
||||
result = [ line,
|
||||
Declaration(i," character*(%d) :: irp_here = '%s'"%(length,subname), f) ]
|
||||
if command_line.do_debug:
|
||||
result += [
|
||||
Simple_line(i," call irp_enter_f(irp_here)", f),
|
||||
]
|
||||
return result
|
||||
|
||||
|
||||
def process_program(line):
|
||||
assert type(line) == Program
|
||||
program_name = line.lower.split()[1]
|
||||
temp = [ Program(0,"program irp_program",program_name) ]
|
||||
if command_line.do_profile:
|
||||
temp += [ Simple_line(0,"call irp_init_timer()",line.filename) ]
|
||||
if command_line.do_openmp:
|
||||
temp += [ Simple_line(0," call irp_init_locks_%s()"%(irp_id),line.filename) ]
|
||||
temp += [ Call(0," call %s"%(program_name),line.filename) ]
|
||||
if command_line.do_profile:
|
||||
temp += [ Simple_line(0,"call irp_print_timer()",line.filename) ]
|
||||
temp += [ Simple_line(0," call irp_finalize_%s()"%(irp_id),line.filename) ]
|
||||
temp += [ End(0,"end program",line.filename) ]
|
||||
result = temp + \
|
||||
process_subroutine( Subroutine(line.i,"subroutine %s"%(program_name,),line.filename) )
|
||||
return result
|
||||
|
||||
d = { Irp_read : process_irp_read,
|
||||
Irp_write : process_irp_write,
|
||||
Return : process_return,
|
||||
Assert : process_assert,
|
||||
End : process_end,
|
||||
Begin_provider : process_begin_provider,
|
||||
Cont_provider : process_cont_provider,
|
||||
End_provider : process_end,
|
||||
Subroutine : process_subroutine,
|
||||
Function : process_function,
|
||||
Program : process_program,
|
||||
}
|
||||
|
||||
result = []
|
||||
for line in text:
|
||||
buffer = [ line ]
|
||||
for t in d:
|
||||
if type(line) == t:
|
||||
buffer = d[t](line)
|
||||
break
|
||||
result += buffer
|
||||
return result
|
||||
|
||||
|
||||
######################################################################
|
||||
def change_includes(text):
|
||||
'''Deals with include files'''
|
||||
result = []
|
||||
for line in text:
|
||||
if type(line) == Include:
|
||||
txt = line.text.replace('"',"'").split("'")
|
||||
if len(txt) != 3:
|
||||
print txt
|
||||
error.fail(line,"Error in include statement")
|
||||
directory = (("./"+line.filename).rsplit('/',1)[0]+'/')[2:]
|
||||
if directory == "":
|
||||
filename = txt[1].strip()
|
||||
else:
|
||||
filename = directory+txt[1].strip()
|
||||
try:
|
||||
file = open(filename,'r')
|
||||
file.close()
|
||||
result.append(Include(line.i,"! include '%s'"%filename,filename))
|
||||
result += create_preprocessed_text(filename)
|
||||
except IOError:
|
||||
result.append(Declaration(line.i,line.text,line.filename))
|
||||
else:
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def process_old_style_do(text):
|
||||
'''Changes old-style do loops to new style'''
|
||||
assert type(text) == list
|
||||
|
||||
def change_matching_enddo(begin,number):
|
||||
for i in range(begin+1,len(text)):
|
||||
line = text[i]
|
||||
if type(line) in [Continue,Enddo]:
|
||||
buffer = line.text.split()
|
||||
if buffer[0] == number:
|
||||
text[i] = Enddo(line.i," enddo",line.filename)
|
||||
return
|
||||
error.fail(text[begin],"Old-style do loops should end with 'continue' or 'end do'")
|
||||
|
||||
result = []
|
||||
for i in range(len(text)):
|
||||
line = text[i]
|
||||
if type(line) == Do:
|
||||
buffer = line.text.split()
|
||||
try:
|
||||
if buffer[1].isdigit():
|
||||
number = buffer.pop(1)
|
||||
change_matching_enddo(i,number)
|
||||
line.text = " ".join(buffer)
|
||||
except IndexError:
|
||||
pass
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def change_single_line_ifs(text):
|
||||
'''Changes:
|
||||
if (test) result
|
||||
|
||||
to
|
||||
|
||||
if (test) then
|
||||
result
|
||||
endif'''
|
||||
|
||||
assert type(text) == list
|
||||
result = []
|
||||
for line in text:
|
||||
if type(line) == If:
|
||||
if line.lower.endswith("then"):
|
||||
result.append(line)
|
||||
else:
|
||||
buffer = line.text
|
||||
begin = buffer.find('(')
|
||||
if begin < 0:
|
||||
error.fail(line,"Error in if statement")
|
||||
level = 0
|
||||
instring = False
|
||||
for i,c in enumerate(buffer[begin:]):
|
||||
if c == "'":
|
||||
instring = not instring
|
||||
if instring:
|
||||
pass
|
||||
elif c == '(':
|
||||
level +=1
|
||||
elif c == ')':
|
||||
level -= 1
|
||||
if level == 0:
|
||||
end = begin+i+1
|
||||
break
|
||||
if level != 0:
|
||||
error.fail(line,"Error in if statement")
|
||||
test = buffer[:end]
|
||||
code = buffer[end:]
|
||||
i = line.i
|
||||
f = line.filename
|
||||
result.append( If(i,"%s then"%(test,),f) )
|
||||
result += get_type(i,f,code,False)[0]
|
||||
result.append( Endif(i," endif",f) )
|
||||
else:
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def check_begin_end(text):
|
||||
'''Checks x...endx consistence'''
|
||||
|
||||
filter_line = lambda line: type(line) in [ Do, Enddo, If, Endif, \
|
||||
Program, Begin_provider, End_provider, \
|
||||
Subroutine, Function, End, Begin_doc, End_doc ]
|
||||
text = filter(filter_line, text)
|
||||
|
||||
d = { 'do' : Do, 'enddo': Enddo,
|
||||
'if' : If, 'endif': Endif,
|
||||
'_doc': Begin_doc, 'end_doc': End_doc}
|
||||
assert type(text) == list
|
||||
|
||||
def find_matching_end_ifdo(begin,x):
|
||||
level = 1
|
||||
for i in range(begin+1,len(text)):
|
||||
line = text[i]
|
||||
if type(line) == d[x]:
|
||||
level += 1
|
||||
elif type(line) == d["end%s"%(x,)]:
|
||||
level -= 1
|
||||
if level == 0:
|
||||
return True
|
||||
elif type(line) in [End, End_provider]:
|
||||
break
|
||||
error.fail(text[begin],"Missing 'end%s'"%(x,))
|
||||
|
||||
def find_matching_end_subfunpro(begin,x):
|
||||
line = text[begin]
|
||||
for i in range(begin+1,len(text)):
|
||||
line = text[i]
|
||||
if type(line) == x:
|
||||
return
|
||||
if type(line) in [ Subroutine, Function, Program, Begin_provider ]:
|
||||
error.fail(text[begin],type(line).str+" is not closed")
|
||||
error.fail(text[begin],type(line).str + " is not closed")
|
||||
|
||||
|
||||
level = 0
|
||||
for i,line in enumerate(text):
|
||||
if type(line) == Begin_doc:
|
||||
find_matching_end_ifdo(i,'_doc')
|
||||
for i,line in enumerate(text):
|
||||
if type(line) == Do:
|
||||
find_matching_end_ifdo(i,'do')
|
||||
elif type(line) == If:
|
||||
find_matching_end_ifdo(i,'if')
|
||||
elif type(line) in [Subroutine, Function, Program]:
|
||||
level += 1
|
||||
find_matching_end_subfunpro(i,End)
|
||||
elif type(line) == Begin_provider:
|
||||
level += 1
|
||||
find_matching_end_subfunpro(i,End_provider)
|
||||
elif type(line) == End:
|
||||
level -= 1
|
||||
elif type(line) == End_provider:
|
||||
level -= 1
|
||||
if level < 0:
|
||||
error.fail(line,"Beginning of block not matched")
|
||||
|
||||
return True
|
||||
|
||||
######################################################################
|
||||
def remove_ifdefs(text):
|
||||
assert type(text) == list
|
||||
result = []
|
||||
do_print = True
|
||||
for line in text:
|
||||
if type(line) == Irp_If:
|
||||
var = line.text.split()[1]
|
||||
do_print = var in command_line.defined
|
||||
elif type(line) == Irp_Else:
|
||||
do_print = not do_print
|
||||
elif type(line) == Irp_Endif:
|
||||
do_print = True
|
||||
else:
|
||||
if do_print:
|
||||
result.append(line)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def check_OpenMP(text):
|
||||
assert type(text) == list
|
||||
result = []
|
||||
inside_openmp = False
|
||||
for line in text:
|
||||
if type(line) == Openmp:
|
||||
# Detect OpenMP blocks
|
||||
buffer = line.text.lower().split()
|
||||
if buffer[1] == "parallel":
|
||||
inside_openmp = True
|
||||
if buffer[1] == "end" and buffer[2] == "parallel":
|
||||
inside_openmp = False
|
||||
result.append(line)
|
||||
|
||||
if inside_openmp:
|
||||
if type(line) in [ Provide_all, Provide, Touch, SoftTouch ]:
|
||||
error.fail(line,type(line).str+" is not allowed in an OpenMP block.")
|
||||
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def create_preprocessed_text(filename):
|
||||
file = open(filename,"r")
|
||||
lines = file.readlines()
|
||||
file.close()
|
||||
result = get_text(lines,filename)
|
||||
result = execute_templates(result)
|
||||
result = execute_shell(result)
|
||||
fortran_form = form(result)
|
||||
result = remove_ifdefs(result)
|
||||
result = remove_comments(result,fortran_form)
|
||||
result = remove_continuation(result,fortran_form)
|
||||
result = add_operators(result)
|
||||
result = change_includes(result)
|
||||
result = change_single_line_ifs(result)
|
||||
result = process_old_style_do(result)
|
||||
result = irp_simple_statements(result)
|
||||
result = check_OpenMP(result)
|
||||
check_begin_end(result)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
preprocessed_text = parallel_loop( lambda x,y: create_preprocessed_text(x), \
|
||||
map(lambda x: (x,None), irpf90_files ) )
|
||||
|
||||
######################################################################
|
||||
def debug():
|
||||
for filename, txt in preprocessed_text:
|
||||
if filename == 'invert.irp.f':
|
||||
print "=== "+filename+" ==="
|
||||
for line in txt:
|
||||
print line
|
||||
print irpf90_files
|
||||
|
||||
if __name__ == '__main__':
|
||||
debug()
|
||||
|
||||
184
src/profile.py
184
src/profile.py
|
|
@ -1,184 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
rdtsc = """
|
||||
#ifdef __i386
|
||||
double irp_rdtsc_(void) {
|
||||
unsigned long long x;
|
||||
__asm__ volatile ("rdtsc" : "=A" (x));
|
||||
return (double) x;
|
||||
}
|
||||
#elif __amd64
|
||||
double irp_rdtsc_(void) {
|
||||
unsigned long long a, d;
|
||||
__asm__ volatile ("rdtsc" : "=a" (a), "=d" (d));
|
||||
return (double)((d<<32) | a);
|
||||
}
|
||||
#endif
|
||||
"""
|
||||
|
||||
import subprocess
|
||||
import tempfile
|
||||
import os
|
||||
import threading
|
||||
from irpf90_t import irpdir
|
||||
|
||||
def build_rdtsc():
|
||||
filename = irpdir+"irp_rdtsc.c"
|
||||
file = open(filename,'w')
|
||||
file.write(rdtsc)
|
||||
file.close()
|
||||
def t():
|
||||
p = subprocess.Popen(["gcc","-O2",filename,"-c","-o","irp_rdtsc.o"])
|
||||
p.communicate()
|
||||
os.remove(filename)
|
||||
|
||||
threading.Thread(target=t).start()
|
||||
|
||||
def build_module():
|
||||
from variables import variables
|
||||
data = """
|
||||
module irp_timer
|
||||
double precision :: irp_profile(3,%(n)d)
|
||||
integer :: irp_order(%(n)d)
|
||||
character*(64) :: irp_profile_label(%(n)d)
|
||||
double precision :: irp_rdtsc_shift
|
||||
|
||||
contains
|
||||
|
||||
subroutine profile_sort ()
|
||||
implicit none
|
||||
character*(64) :: xtmp
|
||||
integer :: i, i0, j, jmax
|
||||
|
||||
do i=1,size(irp_profile_label)
|
||||
irp_order(i)=i
|
||||
enddo
|
||||
do i=1,size(irp_profile_label)
|
||||
xtmp = irp_profile_label(i)
|
||||
i0 = irp_order(i)
|
||||
j = i-1
|
||||
do j=i-1,1,-1
|
||||
if ( irp_profile_label(j) > xtmp ) then
|
||||
irp_profile_label(j+1) = irp_profile_label(j)
|
||||
irp_order(j+1) = irp_order(j)
|
||||
else
|
||||
exit
|
||||
endif
|
||||
enddo
|
||||
irp_profile_label(j+1) = xtmp
|
||||
irp_order(j+1) = i0
|
||||
enddo
|
||||
end subroutine profile_sort
|
||||
|
||||
end module
|
||||
|
||||
subroutine irp_init_timer
|
||||
use irp_timer
|
||||
implicit none
|
||||
integer :: i
|
||||
double precision :: irp_rdtsc, t0
|
||||
irp_profile = 0.d0
|
||||
irp_rdtsc_shift = 0.d0
|
||||
do i=1,1000000
|
||||
t0 = irp_rdtsc()
|
||||
enddo
|
||||
irp_rdtsc_shift = 1.d-6*(irp_rdtsc()-t0)
|
||||
%(text)s
|
||||
end
|
||||
|
||||
subroutine irp_set_timer(i,value)
|
||||
use irp_timer
|
||||
implicit none
|
||||
integer, intent(in) :: i
|
||||
double precision, intent(inout) :: value
|
||||
value = value - irp_rdtsc_shift
|
||||
irp_profile(1,i) = irp_profile(1,i) + value
|
||||
irp_profile(2,i) = irp_profile(2,i) + value*value
|
||||
irp_profile(3,i) = irp_profile(3,i) + 1.d0
|
||||
end
|
||||
|
||||
subroutine irp_print_timer()
|
||||
use irp_timer
|
||||
implicit none
|
||||
integer :: i, ii
|
||||
double precision :: error, sigma2, average, average2, frequency, t0
|
||||
double precision :: irp_rdtsc
|
||||
t0 = irp_rdtsc()
|
||||
call sleep(1)
|
||||
frequency = (irp_rdtsc()-t0-irp_rdtsc_shift)
|
||||
|
||||
call profile_sort()
|
||||
print '(A24,A8,A17,A20,A13,A20)', '', 'N.Calls', 'Tot Cycles', 'Avg Cycles', &
|
||||
'Tot Secs', 'Avg Secs'
|
||||
print '(A)', '---------------------------------------------------'// &
|
||||
'---------------------------------------------------'
|
||||
do ii=1,%(n)d
|
||||
i = irp_order(ii)
|
||||
if (irp_profile(3,i) > 0.) then
|
||||
error = 0.d0
|
||||
average = irp_profile(1,i)/irp_profile(3,i)
|
||||
if (irp_profile(3,i) > 1.d0) then
|
||||
average2 = irp_profile(2,i)/irp_profile(3,i)
|
||||
sigma2 = (average2 - average*average)
|
||||
error = sqrt(sigma2/(irp_profile(3,i)+1.d0))
|
||||
endif
|
||||
print '(A24 , F8.0 , X,F12.0 , X,F12.0,A3,F8.0, X,F12.8, X,F8.5,A3,F8.5 )', &
|
||||
irp_profile_label(ii), &
|
||||
irp_profile(3,i), &
|
||||
irp_profile(1,i), &
|
||||
average, '+/-', error, &
|
||||
irp_profile(1,i)/frequency, &
|
||||
average/frequency, '+/-', error/frequency
|
||||
endif
|
||||
enddo
|
||||
print *, 'Frequency :', frequency*1.d-9, ' GHz'
|
||||
print *, 'rdtsc latency :', irp_rdtsc_shift, ' cycles'
|
||||
end
|
||||
"""
|
||||
label = {}
|
||||
for i in variables:
|
||||
vi = variables[i]
|
||||
label[vi.label] = vi.same_as
|
||||
text = []
|
||||
lmax = 0
|
||||
for l in label:
|
||||
text.append(" irp_profile_label(%d) = '%s'"%(l,label[l]))
|
||||
lmax = max(lmax,l)
|
||||
text.sort()
|
||||
text = '\n'.join(text)
|
||||
data = data%{'text': text, 'n':lmax}
|
||||
file = open("IRPF90_temp/irp_profile.irp.F90",'w')
|
||||
file.write(data)
|
||||
file.close()
|
||||
|
||||
def run():
|
||||
build_module()
|
||||
build_rdtsc()
|
||||
|
||||
if __name__ == "__main__":
|
||||
build_rdtsc()
|
||||
|
|
@ -1,57 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import re
|
||||
|
||||
re_comment = re.compile(r"^([^'!]*)('[^']*'[^']*)*!")
|
||||
|
||||
re_decl = re.compile( "".join( [ r"^\ *",
|
||||
r"(integer[(::)?\* ,]+",
|
||||
r"|double *precision[(::)?\* ,]+",
|
||||
r"|logical[(::)?\* ,]+",
|
||||
r"|character[(::)?\* ,]+",
|
||||
r"|real[(::)?\* ,]+",
|
||||
r"|dimension[(::)?\* ,]+",
|
||||
r"|parameter[(::)?\* ,]+",
|
||||
r"|data */",
|
||||
r"|allocatable *(::)?",
|
||||
r"|common */",
|
||||
r"|namelist */",
|
||||
r"|save */",
|
||||
r"|complex[(::)?\* ,]+",
|
||||
r"|intrinsic *(::)?",
|
||||
r"|external *(::)?",
|
||||
r"|equivalence *(::)?",
|
||||
r"|type",
|
||||
r"|end ?type",
|
||||
r")[^=(]"
|
||||
] ) )
|
||||
|
||||
re_test = re.compile(r"\( *(.*)(\.[a-zA-Z]*\.|[<>]=?|[=/]=)([^=]*)\)")
|
||||
|
||||
re_string = re.compile(r"'.*?'")
|
||||
|
||||
|
|
@ -1,131 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
import error
|
||||
|
||||
class Sub(object):
|
||||
|
||||
############################################################
|
||||
def __init__(self,text):
|
||||
assert type(text) == list
|
||||
assert len(text) > 0
|
||||
assert type(text[0]) in [Subroutine, Function]
|
||||
self.text = text
|
||||
self.called_by = []
|
||||
|
||||
############################################################
|
||||
def name(self):
|
||||
'''Name is lowercase'''
|
||||
if '_name' not in self.__dict__:
|
||||
self._name = find_subname(self.line)
|
||||
return self._name
|
||||
name = property(name)
|
||||
|
||||
############################################################
|
||||
def is_function(self):
|
||||
if '_is_function' not in self.__dict__:
|
||||
self._is_function = "function" in self.line.lower
|
||||
return self._is_function
|
||||
is_function = property(is_function)
|
||||
|
||||
############################################################
|
||||
def doc(self):
|
||||
if '_doc' not in self.__dict__:
|
||||
def f(l): return
|
||||
buffer = filter(lambda l:type(l) == Doc, self.text)
|
||||
self._doc = map(lambda l: l.text.lstrip()[1:], buffer)
|
||||
if buffer == []:
|
||||
error.warn(None,"Subroutine %s is not documented"%(self.name))
|
||||
return self._doc
|
||||
doc = property(doc)
|
||||
|
||||
############################################################
|
||||
def line(self):
|
||||
if '_line' not in self.__dict__:
|
||||
self._line = self.text[0]
|
||||
return self._line
|
||||
line = property(line)
|
||||
|
||||
############################################################
|
||||
def touches(self):
|
||||
if '_touches' not in self.__dict__:
|
||||
from subroutines import subroutines
|
||||
self._touches = []
|
||||
for line in filter(lambda x: type(x) in [Touch, SoftTouch],self.text):
|
||||
self._touches += line.text.split()[1:]
|
||||
for sub in self.calls:
|
||||
if sub in subroutines:
|
||||
self._touches += subroutines[sub].touches
|
||||
self._touches = make_single(self._touches)
|
||||
return self._touches
|
||||
touches = property(touches)
|
||||
|
||||
############################################################
|
||||
def needs(self):
|
||||
if '_needs' not in self.__dict__:
|
||||
import parsed_text
|
||||
self._needs = make_single(self._needs)
|
||||
return self._needs
|
||||
needs = property(needs)
|
||||
|
||||
############################################################
|
||||
def to_provide(self):
|
||||
if '_to_provide' not in self.__dict__:
|
||||
import parsed_text
|
||||
return self._to_provide
|
||||
to_provide = property(to_provide)
|
||||
|
||||
############################################################
|
||||
def regexp(self):
|
||||
if '_regexp' not in self.__dict__:
|
||||
import re
|
||||
self._regexp = re.compile( \
|
||||
r"([^a-z0-9'\"_]|^)%s([^a-z0-9_]|$)"%(self.name),re.I)
|
||||
return self._regexp
|
||||
regexp = property(regexp)
|
||||
|
||||
############################################################
|
||||
def calls(self):
|
||||
if '_calls' not in self.__dict__:
|
||||
buffer = filter(lambda x: type(x) == Call,self.text)
|
||||
self._calls = []
|
||||
for line in buffer:
|
||||
sub = line.text.split('(',1)[0].split()[1].lower()
|
||||
self._calls.append(sub)
|
||||
self._calls = make_single(self._calls)
|
||||
return self._calls
|
||||
calls = property(calls)
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
from preprocessed_text import preprocessed_text
|
||||
from variables import variables
|
||||
from subroutines import subroutines
|
||||
print map(lambda x: variables[x].needs, subroutines['full_ci'].needs)
|
||||
print subroutines['full_ci'].calls
|
||||
|
|
@ -1,72 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from util import *
|
||||
from subroutine import *
|
||||
from variables import variables
|
||||
from variable import Variable
|
||||
from irpf90_t import *
|
||||
|
||||
def create_subroutines():
|
||||
from preprocessed_text import preprocessed_text
|
||||
result = {}
|
||||
for filename, text in preprocessed_text:
|
||||
buffer = []
|
||||
inside = False
|
||||
for line in text:
|
||||
if type(line) in [ Subroutine, Function ]:
|
||||
inside = True
|
||||
if inside:
|
||||
buffer.append(line)
|
||||
if isinstance(line,End):
|
||||
if inside:
|
||||
v = Sub(buffer)
|
||||
result[v.name] = v
|
||||
buffer = []
|
||||
inside = False
|
||||
return result
|
||||
|
||||
def create_called_by(subs,vars):
|
||||
for s in subs.values() + vars.values():
|
||||
if type(s) == Variable and s.same_as != s.name:
|
||||
continue
|
||||
for x in s.calls:
|
||||
try:
|
||||
subs[x].called_by.append(s.name)
|
||||
except KeyError:
|
||||
pass
|
||||
|
||||
for s in subs.values():
|
||||
s.called_by = make_single(s.called_by)
|
||||
s.called_by.sort()
|
||||
|
||||
subroutines = create_subroutines()
|
||||
create_called_by(subroutines,variables)
|
||||
|
||||
if __name__ == '__main__':
|
||||
for v in subroutines.keys():
|
||||
print v
|
||||
|
|
@ -1,73 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
from variables import variables
|
||||
from modules import modules
|
||||
|
||||
FILENAME=irpdir+'irp_touches.irp.F90'
|
||||
|
||||
def create():
|
||||
out = []
|
||||
l = variables.keys()
|
||||
l.sort
|
||||
main_modules = filter(lambda x: modules[x].is_main, modules)
|
||||
finalize = "subroutine irp_finalize_%s\n"%(irp_id)
|
||||
for m in filter(lambda x: not modules[x].is_main, modules):
|
||||
finalize += " use %s\n"%(modules[m].name)
|
||||
for v in l:
|
||||
var = variables[v]
|
||||
var_in_main = False
|
||||
for m in main_modules:
|
||||
if var.fmodule == modules[m].name:
|
||||
var_in_main = True
|
||||
break
|
||||
if not var_in_main:
|
||||
if var.is_touched:
|
||||
out += var.toucher
|
||||
if var.dim != []:
|
||||
finalize += " if (allocated(%s)) then\n"%v
|
||||
finalize += " %s_is_built = .False.\n"%var.same_as
|
||||
finalize += " deallocate(%s)\n"%v
|
||||
finalize += " endif\n"
|
||||
finalize += "end\n"
|
||||
|
||||
|
||||
if out != []:
|
||||
out = map(lambda x: "%s\n"%(x),out)
|
||||
|
||||
out += finalize
|
||||
|
||||
if not same_file(FILENAME,out):
|
||||
file = open(FILENAME,'w')
|
||||
file.writelines(out)
|
||||
file.close()
|
||||
|
||||
if __name__ == '__main__':
|
||||
create()
|
||||
|
||||
192
src/util.py
192
src/util.py
|
|
@ -1,192 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
import os
|
||||
NTHREADS=1 #int(os.getenv('OMP_NUM_THREADS',1))
|
||||
|
||||
def strip(x):
|
||||
return x.strip()
|
||||
|
||||
def lower(x):
|
||||
return x.lower()
|
||||
|
||||
def same_file(filename,txt):
|
||||
assert isinstance(filename,str)
|
||||
if (type(txt) == list):
|
||||
buffer = ''.join(txt)
|
||||
else:
|
||||
buffer = txt
|
||||
|
||||
try:
|
||||
file = open(filename,"r")
|
||||
except IOError:
|
||||
return False
|
||||
stream = file.read()
|
||||
file.close()
|
||||
|
||||
if len(stream) != len(buffer):
|
||||
return False
|
||||
if stream != buffer:
|
||||
return False
|
||||
return True
|
||||
|
||||
def build_dim(dim):
|
||||
if len(dim) == 0:
|
||||
return ""
|
||||
else:
|
||||
return "(%s)"%( ",".join(dim) )
|
||||
|
||||
def build_dim_colons(v):
|
||||
d = v.dim
|
||||
if d == []:
|
||||
return ""
|
||||
else:
|
||||
x = map(lambda x: ":", d)
|
||||
return "(%s)"%(','.join(x))
|
||||
|
||||
|
||||
import error
|
||||
def find_subname(line):
|
||||
buffer = line.lower
|
||||
if not buffer.endswith(')'):
|
||||
buffer += "()"
|
||||
buffer = buffer.split('(')
|
||||
buffer = buffer[0].split()
|
||||
if len(buffer) < 2:
|
||||
error.fail(line,"Syntax Error")
|
||||
return buffer[-1]
|
||||
|
||||
def make_single(l):
|
||||
d = {}
|
||||
for x in l:
|
||||
d[x] = True
|
||||
return d.keys()
|
||||
|
||||
def flatten(l):
|
||||
if type(l) == list:
|
||||
result = []
|
||||
for i in range(len(l)):
|
||||
elem = l[i]
|
||||
result += flatten(elem)
|
||||
return result
|
||||
else:
|
||||
return [l]
|
||||
|
||||
def dimsize(x):
|
||||
assert isinstance(x,str)
|
||||
buffer = x.split(':')
|
||||
if len(buffer) == 1:
|
||||
return x
|
||||
else:
|
||||
assert len(buffer) == 2
|
||||
size = ""
|
||||
b0, b1 = buffer
|
||||
if b0.replace('-','').isdigit() and b1.replace('-','').isdigit():
|
||||
size = str( int(b1) - int(b0) + 1 )
|
||||
else:
|
||||
if b0.replace('-','').isdigit():
|
||||
size = "(%s) - (%d)"%(b1,int(b0)-1)
|
||||
elif b1.replace('-','').isdigit():
|
||||
size = "(%d) - (%s)"%(int(b1)+1,b0)
|
||||
else:
|
||||
size = "(%s) - (%s) + 1"%(b1,b0)
|
||||
return size
|
||||
|
||||
def put_info(text,filename):
|
||||
assert type(text) == list
|
||||
if len(text) > 0:
|
||||
assert type(text[0]) == tuple
|
||||
from irpf90_t import Line
|
||||
assert type(text[0][0]) == list
|
||||
assert isinstance(text[0][1], Line)
|
||||
lenmax = 80 - len(filename)
|
||||
format = "%"+str(lenmax)+"s ! %s:%4s"
|
||||
for vars,line in text:
|
||||
line.text = format%(line.text.ljust(lenmax),line.filename,str(line.i))
|
||||
return text
|
||||
|
||||
import cPickle as pickle
|
||||
import os, sys
|
||||
def parallel_loop(f,source):
|
||||
pidlist = range(NTHREADS)
|
||||
|
||||
src = [ [] for i in xrange(NTHREADS) ]
|
||||
index = 0
|
||||
try:
|
||||
source = map( lambda x: (len(x[1]),(x[0], x[1])), source )
|
||||
source.sort()
|
||||
source = map( lambda x: x[1], source )
|
||||
except:
|
||||
pass
|
||||
for i in source:
|
||||
index += 1
|
||||
if index == NTHREADS:
|
||||
index = 0
|
||||
src[index].append(i)
|
||||
|
||||
thread_id = 0
|
||||
fork = 1
|
||||
r = range(0,NTHREADS)
|
||||
for thread_id in xrange(1,NTHREADS):
|
||||
r[thread_id], w = os.pipe()
|
||||
fork = os.fork()
|
||||
if fork == 0:
|
||||
os.close(r[thread_id])
|
||||
w = os.fdopen(w,'w')
|
||||
break
|
||||
else:
|
||||
os.close(w)
|
||||
r[thread_id] = os.fdopen(r[thread_id],'r')
|
||||
pidlist[thread_id] = fork
|
||||
thread_id = 0
|
||||
|
||||
result = []
|
||||
for filename, text in src[thread_id]:
|
||||
result.append( (filename, f(filename,text)) )
|
||||
result.sort()
|
||||
|
||||
if fork == 0:
|
||||
pickle.dump(result,w,-1)
|
||||
w.close()
|
||||
os._exit(0)
|
||||
|
||||
for i in xrange(1,NTHREADS):
|
||||
result += pickle.load(r[i])
|
||||
r[i].close()
|
||||
os.waitpid(pidlist[i],0)[1]
|
||||
|
||||
return result
|
||||
|
||||
|
||||
|
||||
if __name__ == '__main__':
|
||||
print "10",dimsize("10") #-> "10"
|
||||
print "0:10",dimsize("0:10") # -> "11"
|
||||
print "0:x",dimsize("0:x") # -> "x+1"
|
||||
print "-3:x",dimsize("-3:x") # -> "x+1"
|
||||
print "x:y",dimsize("x:y") # -> "y-x+1"
|
||||
print "x:5",dimsize("x:5") # -> "y-x+1"
|
||||
|
||||
702
src/variable.py
702
src/variable.py
|
|
@ -1,702 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from irpf90_t import *
|
||||
from util import *
|
||||
import error
|
||||
from command_line import command_line
|
||||
|
||||
class Variable(object):
|
||||
|
||||
############################################################
|
||||
def __init__(self,text,label,name = None):
|
||||
assert type(text) == list
|
||||
assert len(text) > 0
|
||||
assert type(text[0]) == Begin_provider
|
||||
self.label = label
|
||||
self.text = text
|
||||
if name is not None:
|
||||
self._name = name
|
||||
|
||||
############################################################
|
||||
def is_touched(self):
|
||||
if '_is_touched' not in self.__dict__:
|
||||
from variables import variables
|
||||
result = self.is_read
|
||||
for i in self.children:
|
||||
if variables[i].is_touched:
|
||||
result = True
|
||||
break
|
||||
self._is_touched = result
|
||||
return self._is_touched
|
||||
is_touched = property(is_touched)
|
||||
|
||||
############################################################
|
||||
def has_openmp(self):
|
||||
if '_has_openmp' not in self.__dict__:
|
||||
self._has_openmp = False
|
||||
self.builder()
|
||||
return self._has_openmp
|
||||
has_openmp = property(has_openmp)
|
||||
|
||||
############################################################
|
||||
def is_written(self):
|
||||
if '_is_written' not in self.__dict__:
|
||||
from variables import variables
|
||||
result = False
|
||||
for i in self.parents:
|
||||
if variables[i].is_written:
|
||||
result = True
|
||||
break
|
||||
self._is_written = result
|
||||
return self._is_written
|
||||
is_written = property(is_written)
|
||||
|
||||
############################################################
|
||||
def is_read(self):
|
||||
if '_is_read' not in self.__dict__:
|
||||
from variables import variables
|
||||
result = False
|
||||
for i in self.parents:
|
||||
if variables[i].is_read:
|
||||
result = True
|
||||
break
|
||||
self._is_read = result
|
||||
return self._is_read
|
||||
is_read = property(is_read)
|
||||
|
||||
############################################################
|
||||
def is_main(self):
|
||||
if '_is_main' not in self.__dict__:
|
||||
self._is_main = (self.name == self.same_as)
|
||||
return self._is_main
|
||||
is_main = property(is_main)
|
||||
|
||||
############################################################
|
||||
def name(self):
|
||||
'''Name is lowercase'''
|
||||
if '_name' not in self.__dict__:
|
||||
buffer = None
|
||||
text = self.text
|
||||
for line in text:
|
||||
if type(line) == Begin_provider:
|
||||
self._name = line.filename[1]
|
||||
if "(" in self._name:
|
||||
error.fail(line,"""'(' not allowed in variable name.
|
||||
A ',' is probably missing between the name of the variable and the
|
||||
dimension.
|
||||
""")
|
||||
break
|
||||
return self._name
|
||||
name = property(name)
|
||||
|
||||
############################################################
|
||||
def doc(self):
|
||||
if '_doc' not in self.__dict__:
|
||||
text = self.text
|
||||
buffer = filter(lambda l:type(l) == Doc, text)
|
||||
self._doc = map(lambda l: l.text.lstrip()[1:], buffer)
|
||||
if buffer == []:
|
||||
error.warn(None,"Variable %s is not documented"%(self.name))
|
||||
return self._doc
|
||||
doc = property(doc)
|
||||
|
||||
############################################################
|
||||
def documented(self):
|
||||
if '_documented' not in self.__dict__:
|
||||
self._documented = (self.doc != [])
|
||||
return self._documented
|
||||
documented = property(documented)
|
||||
|
||||
############################################################
|
||||
def includes(self):
|
||||
if '_includes' not in self.__dict__:
|
||||
self._includes = []
|
||||
text = self.text
|
||||
for line in filter(lambda x: type(x) == Include,text):
|
||||
self._includes.append(line.filename)
|
||||
make_single(self._includes)
|
||||
return self._includes
|
||||
includes = property(includes)
|
||||
|
||||
############################################################
|
||||
def calls(self):
|
||||
if '_calls' not in self.__dict__:
|
||||
self._calls = []
|
||||
text = self.text
|
||||
for line in filter(lambda x: type(x) == Call,text):
|
||||
sub = line.text.split('(',1)[0].split()[1].lower()
|
||||
self._calls.append(sub)
|
||||
make_single(self._calls)
|
||||
return self._calls
|
||||
calls=property(fget=calls)
|
||||
|
||||
############################################################
|
||||
def others(self):
|
||||
if '_others' not in self.__dict__:
|
||||
result = []
|
||||
append = result.append
|
||||
f = lambda l: type(l) in [Begin_provider, Cont_provider]
|
||||
text = self.text
|
||||
lines = filter(f, text)
|
||||
for line in lines:
|
||||
append(line.filename[1])
|
||||
result.remove(self.name)
|
||||
self._others = result
|
||||
return self._others
|
||||
others = property(others)
|
||||
|
||||
############################################################
|
||||
def same_as(self):
|
||||
if '_same_as' not in self.__dict__:
|
||||
if type(self.line) == Begin_provider:
|
||||
result = self.name
|
||||
else:
|
||||
result = self.text[0].filename[1]
|
||||
self._same_as = result
|
||||
return self._same_as
|
||||
same_as = property(same_as)
|
||||
|
||||
############################################################
|
||||
def allocate(self):
|
||||
if '_allocate' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._allocate = []
|
||||
else:
|
||||
from variables import variables
|
||||
def f(var):
|
||||
return variables[var].dim != []
|
||||
self._allocate = filter ( f, self.others + [self.name] )
|
||||
return self._allocate
|
||||
allocate = property(allocate)
|
||||
|
||||
############################################################
|
||||
def dim(self):
|
||||
if '_dim' not in self.__dict__:
|
||||
line = self.line.text.split('!')[0]
|
||||
buffer = line.replace(']','').split(',',2)
|
||||
if len(buffer) == 2:
|
||||
self._dim = []
|
||||
else:
|
||||
buffer = buffer[2].strip()[1:-1].split(',')
|
||||
self._dim = map(strip,buffer)
|
||||
return self._dim
|
||||
dim = property(dim)
|
||||
|
||||
############################################################
|
||||
def type(self):
|
||||
if '_type' not in self.__dict__:
|
||||
line = self.line.text
|
||||
buffer = line.split(',')[0]
|
||||
try:
|
||||
buffer = buffer.split('[')[1].strip()
|
||||
except IndexError:
|
||||
error.fail(None,"Error in definition of %s."%(self.name))
|
||||
if self.dim != []:
|
||||
buffer = "%s, allocatable"%(buffer)
|
||||
self._type = buffer
|
||||
return self._type
|
||||
type = property(type)
|
||||
|
||||
############################################################
|
||||
def fmodule(self):
|
||||
if '_fmodule' not in self.__dict__:
|
||||
self._fmodule = self.line.filename[0].replace('/','__').split('.irp.f')[0]+'_mod'
|
||||
return self._fmodule
|
||||
fmodule = property(fmodule)
|
||||
|
||||
############################################################
|
||||
def regexp(self):
|
||||
if '_regexp' not in self.__dict__:
|
||||
import re
|
||||
self._regexp = re.compile( \
|
||||
r"([^a-z0-9'\"_]|^)%s([^a-z0-9_]|$)"%(self.name),re.I)
|
||||
return self._regexp
|
||||
regexp = property(regexp)
|
||||
|
||||
############################################################
|
||||
def line(self):
|
||||
if '_line' not in self.__dict__:
|
||||
f = lambda l: type(l) in [Begin_provider, Cont_provider]
|
||||
text = self.text
|
||||
lines = filter(f, text)
|
||||
for line in lines:
|
||||
buffer = line.filename[1]
|
||||
if self._name == buffer:
|
||||
self._line = line
|
||||
break
|
||||
assert '_line' in self.__dict__
|
||||
return self._line
|
||||
line = property(line)
|
||||
|
||||
############################################################
|
||||
def header(self):
|
||||
if '_header' not in self.__dict__:
|
||||
name = self.name
|
||||
self._header = [ " %s :: %s %s"%(self.type, name, build_dim_colons(self) ) ]
|
||||
if command_line.coarray:
|
||||
if self.dim == []:
|
||||
self._header[0] += " [*]"
|
||||
else:
|
||||
self._header[0] += " [:]"
|
||||
if self.dim != [] and command_line.align != '1':
|
||||
self._header += [" !DIR$ ATTRIBUTES ALIGN: %s :: %s"%(command_line.align,name)]
|
||||
if self.is_main:
|
||||
self._header += [ " logical :: %s_is_built = .False."%(name) ]
|
||||
return self._header
|
||||
header = property(header)
|
||||
|
||||
############################################################
|
||||
def toucher(self):
|
||||
if '_toucher' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._toucher = []
|
||||
else:
|
||||
from modules import modules
|
||||
from variables import variables
|
||||
if '_needed_by' not in self.__dict__:
|
||||
import parsed_text
|
||||
parents = self.parents
|
||||
parents.sort()
|
||||
mods = map(lambda x: variables[x].fmodule, parents)
|
||||
mods = make_single(mods)+[self.fmodule]
|
||||
name = self.name
|
||||
result = [ "subroutine touch_%s"%(name) ]
|
||||
result += map(lambda x: " Use %s"%(x),mods)
|
||||
result.append(" implicit none")
|
||||
if command_line.do_debug:
|
||||
length = str(len("touch_%s"%(name)))
|
||||
result += [ " character*(%s) :: irp_here = 'touch_%s'"%(length,name) ]
|
||||
if command_line.do_debug:
|
||||
result += [ " call irp_enter(irp_here)" ]
|
||||
result += map( lambda x: " %s_is_built = .False."%(x), parents)
|
||||
result.append(" %s_is_built = .True."%(name))
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_leave(irp_here)")
|
||||
result.append("end subroutine touch_%s"%(name))
|
||||
result.append("")
|
||||
self._toucher = result
|
||||
return self._toucher
|
||||
toucher = property(toucher)
|
||||
|
||||
##########################################################
|
||||
def locker(self):
|
||||
if '_locker' not in self.__dict__:
|
||||
if not command_line.do_openmp:
|
||||
self._locker = []
|
||||
else:
|
||||
from modules import modules
|
||||
from variables import variables
|
||||
name = self.name
|
||||
result = [ "subroutine irp_lock_%s(set)"%(name) ]
|
||||
result += [ " use omp_lib",
|
||||
" implicit none",
|
||||
" logical, intent(in) :: set",
|
||||
" integer(kind=omp_nest_lock_kind),save :: %s_lock"%(name),
|
||||
" integer,save :: ifirst",
|
||||
]
|
||||
if command_line.do_debug:
|
||||
length = str(len("irp_lock_%s"%(name)))
|
||||
result += [ " character*(%s) :: irp_here = 'irp_lock_%s'"%(length,name),
|
||||
" call irp_enter(irp_here)" ]
|
||||
result += [ " if (ifirst == 0) then",
|
||||
" ifirst = 1",
|
||||
" call omp_init_nest_lock(%s_lock)"%(name),
|
||||
" endif",
|
||||
" if (set) then",
|
||||
" call omp_set_nest_lock(%s_lock)"%(name),
|
||||
" else",
|
||||
" call omp_unset_nest_lock(%s_lock)"%(name),
|
||||
" endif",
|
||||
]
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_leave(irp_here)")
|
||||
result.append("end subroutine irp_lock_%s"%(name))
|
||||
result.append("")
|
||||
self._locker = result
|
||||
return self._locker
|
||||
locker = property(locker)
|
||||
|
||||
##########################################################
|
||||
def reader(self):
|
||||
if '_reader' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._reader = []
|
||||
else:
|
||||
if '_needs' not in self.__dict__:
|
||||
import parsed_text
|
||||
from variables import variables
|
||||
name = self.name
|
||||
result = [ \
|
||||
"subroutine reader_%s(irp_num)"%(name),
|
||||
" use %s"%(self.fmodule),
|
||||
" implicit none",
|
||||
" character*(*), intent(in) :: irp_num",
|
||||
" logical :: irp_is_open",
|
||||
" integer :: irp_iunit" ]
|
||||
if command_line.do_debug:
|
||||
length = len("reader_%s"%(self.name))
|
||||
result += [\
|
||||
" character*(%d) :: irp_here = 'reader_%s'"%(length,name),
|
||||
" call irp_enter(irp_here)" ]
|
||||
result += map(lambda x: " call reader_%s(irp_num)"%(x),self.needs)
|
||||
result += [ \
|
||||
" irp_is_open = .True.",
|
||||
" irp_iunit = 9",
|
||||
" do while (irp_is_open)",
|
||||
" irp_iunit = irp_iunit+1",
|
||||
" inquire(unit=irp_iunit,opened=irp_is_open)",
|
||||
" enddo"]
|
||||
for n in [ name ]+self.others:
|
||||
result += [\
|
||||
" open(unit=irp_iunit,file='irpf90_%s_'//trim(irp_num),form='FORMATTED',status='OLD',action='READ')"%(n),
|
||||
" read(irp_iunit,*) %s%s"%(n,build_dim_colons(variables[n])),
|
||||
" close(irp_iunit)" ]
|
||||
result += [ \
|
||||
" call touch_%s"%(name),
|
||||
" %s_is_built = .True."%(name) ]
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_leave(irp_here)")
|
||||
result.append("end subroutine reader_%s"%(name))
|
||||
result.append("")
|
||||
self._reader = result
|
||||
return self._reader
|
||||
reader = property(reader)
|
||||
|
||||
##########################################################
|
||||
def writer(self):
|
||||
if '_writer' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._writer = []
|
||||
else:
|
||||
from variables import variables
|
||||
if '_needs' not in self.__dict__:
|
||||
import parsed_text
|
||||
name = self.name
|
||||
result = [ \
|
||||
"subroutine writer_%s(irp_num)"%(name),
|
||||
" use %s"%(self.fmodule),
|
||||
" implicit none",
|
||||
" character*(*), intent(in) :: irp_num",
|
||||
" logical :: irp_is_open",
|
||||
" integer :: irp_iunit" ]
|
||||
if command_line.do_debug:
|
||||
length = len("writer_%s"%(self.name))
|
||||
result += [\
|
||||
" character*(%d) :: irp_here = 'writer_%s'"%(length,name),
|
||||
" call irp_enter(irp_here)" ]
|
||||
result += [ \
|
||||
" if (.not.%s_is_built) then"%(self.same_as),
|
||||
" call provide_%s"%(self.same_as),
|
||||
" endif" ]
|
||||
result += map(lambda x: " call writer_%s(irp_num)"%(x),self.needs)
|
||||
result += [ \
|
||||
" irp_is_open = .True.",
|
||||
" irp_iunit = 9",
|
||||
" do while (irp_is_open)",
|
||||
" irp_iunit = irp_iunit+1",
|
||||
" inquire(unit=irp_iunit,opened=irp_is_open)",
|
||||
" enddo" ]
|
||||
for n in [ name ] + self.others:
|
||||
result += [\
|
||||
" open(unit=irp_iunit,file='irpf90_%s_'//trim(irp_num),form='FORMATTED',status='UNKNOWN',action='WRITE')"%(n),
|
||||
" write(irp_iunit,*) %s%s"%(n,build_dim_colons(variables[n])),
|
||||
" close(irp_iunit)" ]
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_leave(irp_here)")
|
||||
result.append("end subroutine writer_%s"%(name))
|
||||
result.append("")
|
||||
self._writer = result
|
||||
return self._writer
|
||||
writer = property(writer)
|
||||
|
||||
##########################################################
|
||||
def free(self):
|
||||
if '_free' not in self.__dict__:
|
||||
name = self.name
|
||||
result = [ "!","! >>> FREE %s"%(name),
|
||||
" %s_is_built = .False."%(self.same_as) ]
|
||||
if self.dim != []:
|
||||
if command_line.do_memory:
|
||||
result += [ \
|
||||
" if (allocated(%s)) then"%(name),
|
||||
" deallocate (%s)"%(name),
|
||||
" print *, 'Deallocating %s'"%(name),
|
||||
" endif" ]
|
||||
else:
|
||||
result += [ \
|
||||
" if (allocated(%s)) then"%(name),
|
||||
" deallocate (%s)"%(name),
|
||||
" endif" ]
|
||||
result.append("! <<< END FREE")
|
||||
self._free = result
|
||||
return self._free
|
||||
free = property(free)
|
||||
|
||||
##########################################################
|
||||
def provider(self):
|
||||
if '_provider' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._provider = []
|
||||
else:
|
||||
if '_to_provide' not in self.__dict__:
|
||||
import parsed_text
|
||||
from variables import variables, build_use, call_provides
|
||||
name = self.name
|
||||
same_as = self.same_as
|
||||
|
||||
def build_alloc(name):
|
||||
self = variables[name]
|
||||
if self.dim == []:
|
||||
return []
|
||||
|
||||
def do_size():
|
||||
result = " print *, ' size: ("
|
||||
result += ','.join(self.dim)
|
||||
return result+")'"
|
||||
|
||||
def check_dimensions():
|
||||
result = map(lambda x: "(%s>0)"%(dimsize(x)), self.dim)
|
||||
result = ".and.".join(result)
|
||||
result = " if (%s) then"%(result)
|
||||
return result
|
||||
|
||||
def dimensions_OK():
|
||||
result = [ " irp_dimensions_OK = .True." ]
|
||||
for i,k in enumerate(self.dim):
|
||||
result.append(" irp_dimensions_OK = irp_dimensions_OK.AND.(SIZE(%s,%d)==(%s))"%(name,i+1,dimsize(k)))
|
||||
return result
|
||||
|
||||
def do_allocate():
|
||||
if command_line.coarray:
|
||||
result = " allocate(%s(%s)[*],stat=irp_err)"
|
||||
else:
|
||||
result = " allocate(%s(%s),stat=irp_err)"
|
||||
result = result%(name,','.join(self.dim))
|
||||
if command_line.do_memory:
|
||||
tmp = "\n print *, %s, 'Allocating %s(%s)'"
|
||||
d = ','.join(self.dim)
|
||||
result += tmp%('size('+name+')',name,d)
|
||||
return result
|
||||
|
||||
result = [ " if (allocated (%s) ) then"%(name) ]
|
||||
result += dimensions_OK()
|
||||
result += [\
|
||||
" if (.not.irp_dimensions_OK) then",
|
||||
" deallocate(%s,stat=irp_err)"%(name),
|
||||
" if (irp_err /= 0) then",
|
||||
" print *, irp_here//': Deallocation failed: %s'"%(name),
|
||||
do_size(),
|
||||
" endif"]
|
||||
if command_line.do_memory:
|
||||
result += [\
|
||||
" print *, 'Deallocating %s'"%(name) ]
|
||||
result.append(check_dimensions())
|
||||
result.append(do_allocate())
|
||||
result += [\
|
||||
" if (irp_err /= 0) then",
|
||||
" print *, irp_here//': Allocation failed: %s'"%(name),
|
||||
do_size(),
|
||||
" endif",
|
||||
" endif",
|
||||
" endif",
|
||||
" else" ]
|
||||
result.append(check_dimensions())
|
||||
result.append(do_allocate())
|
||||
result += [\
|
||||
" if (irp_err /= 0) then",
|
||||
" print *, irp_here//': Allocation failed: %s'"%(name),
|
||||
do_size(),
|
||||
" endif",
|
||||
" endif",
|
||||
" endif" ]
|
||||
return result
|
||||
|
||||
result = []
|
||||
if command_line.directives and command_line.inline in ["all","providers"]:
|
||||
result += [ "!DEC$ ATTRIBUTES FORCEINLINE :: provide_%s"%(name) ]
|
||||
result += [ "subroutine provide_%s"%(name) ]
|
||||
result += build_use( [same_as]+self.to_provide )
|
||||
if command_line.do_openmp:
|
||||
result += [" use omp_lib"]
|
||||
result.append(" implicit none")
|
||||
length = len("provide_%s"%(name))
|
||||
result += [\
|
||||
" character*(%d) :: irp_here = 'provide_%s'"%(length,name),
|
||||
" integer :: irp_err ",
|
||||
" logical :: irp_dimensions_OK",
|
||||
"!$ integer :: nthreads"]
|
||||
if command_line.do_openmp:
|
||||
result.append(" call irp_lock_%s(.True.)"%(same_as))
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_enter(irp_here)")
|
||||
result += call_provides(self.to_provide)
|
||||
result += flatten( map(build_alloc,[self.same_as]+self.others) )
|
||||
result += [ " if (.not.%s_is_built) then"%(same_as),
|
||||
" call bld_%s"%(same_as),
|
||||
" %s_is_built = .True."%(same_as), "" ]
|
||||
result += [ " endif" ]
|
||||
if command_line.do_debug:
|
||||
result.append(" call irp_leave(irp_here)")
|
||||
if command_line.do_openmp:
|
||||
result.append(" call irp_lock_%s(.False.)"%(same_as))
|
||||
result.append("end subroutine provide_%s"%(name) )
|
||||
result.append("")
|
||||
self._provider = result
|
||||
return self._provider
|
||||
provider = property(provider)
|
||||
|
||||
##########################################################
|
||||
def builder(self):
|
||||
if '_builder' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._builder = []
|
||||
else:
|
||||
import parsed_text
|
||||
from variables import build_use, call_provides
|
||||
for filename,buffer in parsed_text.parsed_text:
|
||||
if self.line.filename[0].startswith(filename):
|
||||
break
|
||||
text = []
|
||||
same_as = self.same_as
|
||||
inside = False
|
||||
for vars,line in buffer:
|
||||
if type(line) == Begin_provider:
|
||||
if line.filename[1] == same_as:
|
||||
inside = True
|
||||
vars = []
|
||||
if inside:
|
||||
text.append( (vars,line) )
|
||||
text += map( lambda x: ([],Simple_line(line.i,x,line.filename)), call_provides(vars) )
|
||||
if command_line.do_profile and type(line) == Begin_provider:
|
||||
text.append( ( [], Declaration(line.i," double precision :: irp_rdtsc, irp_rdtsc1, irp_rdtsc2",line.filename) ) )
|
||||
text.append( ( [], Simple_line(line.i," irp_rdtsc1 = irp_rdtsc()",line.filename) ) )
|
||||
if type(line) == End_provider:
|
||||
if inside:
|
||||
break
|
||||
name = self.name
|
||||
text = parsed_text.move_to_top(text,Declaration)
|
||||
text = parsed_text.move_to_top(text,Implicit)
|
||||
text = parsed_text.move_to_top(text,Use)
|
||||
text = map(lambda x: x[1], text)
|
||||
# inside_omp = False
|
||||
for line in filter(lambda x: type(x) not in [ Begin_doc, End_doc, Doc], text):
|
||||
if type(line) == Begin_provider:
|
||||
result = []
|
||||
if command_line.directives and command_line.inline in ["all","builders"]:
|
||||
result += [ "!DEC$ ATTRIBUTES INLINE :: bld_%s"%(same_as) ]
|
||||
result += [ "subroutine bld_%s"%(name) ]
|
||||
result += build_use([name]+self.needs)
|
||||
elif type(line) == Cont_provider:
|
||||
pass
|
||||
elif type(line) == End_provider:
|
||||
if command_line.do_profile:
|
||||
result += [ " irp_rdtsc2 = irp_rdtsc()" ,
|
||||
" call irp_set_timer(%d,(irp_rdtsc2-irp_rdtsc1))"%self.label ]
|
||||
result.append( "end subroutine bld_%s"%(name) )
|
||||
break
|
||||
elif type(line) == Openmp:
|
||||
# Detect OpenMP blocks
|
||||
buffer = line.text.lower().split()
|
||||
if buffer[1] == "parallel":
|
||||
# inside_omp = True
|
||||
self._has_openmp = True
|
||||
# if buffer[1] == "end" and buffer[2] == "parallel":
|
||||
# inside_omp = False
|
||||
result.append(line.text)
|
||||
else:
|
||||
# if inside_omp:
|
||||
# if type(line) in [ Provide_all, Provide, Touch, SoftTouch ]:
|
||||
# error.fail(line,str(type(line))+"is not allowed in an OpenMP block.")
|
||||
result.append(line.text)
|
||||
self._builder = result
|
||||
return self._builder
|
||||
builder = property(builder)
|
||||
|
||||
##########################################################
|
||||
def children(self):
|
||||
if '_children' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._children = []
|
||||
from variables import variables
|
||||
if '_needs' not in self.__dict__:
|
||||
import parsed_text
|
||||
result = []
|
||||
for x in self.needs:
|
||||
result.append(x)
|
||||
try:
|
||||
result += variables[x].children
|
||||
except RuntimeError:
|
||||
pass # Exception will be checked after
|
||||
self._children = make_single(result)
|
||||
if self.name in result:
|
||||
error.fail(self.line,"Cyclic dependencies:\n%s"%(str(self._children)))
|
||||
return self._children
|
||||
children = property(children)
|
||||
|
||||
##########################################################
|
||||
def parents(self):
|
||||
if '_parents' not in self.__dict__:
|
||||
if not self.is_main:
|
||||
self._parents = []
|
||||
else:
|
||||
from variables import variables
|
||||
if '_needed_by' not in self.__dict__:
|
||||
import parsed_text
|
||||
result = []
|
||||
for x in self.needed_by:
|
||||
result.append(x)
|
||||
try:
|
||||
result += variables[x].parents
|
||||
except RuntimeError:
|
||||
pass # Exception will be checked after
|
||||
self._parents = make_single(result)
|
||||
if self.name in result:
|
||||
error.fail(self.line,"Cyclic dependencies:\n%s"%(str(self._parents)))
|
||||
return self._parents
|
||||
parents = property(parents)
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
from preprocessed_text import preprocessed_text
|
||||
from variables import variables
|
||||
#for v in variables.keys():
|
||||
# print v
|
||||
def print_dot(x,done):
|
||||
if x.children == []:
|
||||
return
|
||||
for i in x.needs:
|
||||
pair = (x.name, i)
|
||||
if pair not in done:
|
||||
print "%s -> %s"%( x.name, i )
|
||||
done[pair] = None
|
||||
print_dot(variables[i],done)
|
||||
|
||||
print "digraph G { "
|
||||
# print_dot(variables['e_loc'], {})
|
||||
print_dot(variables['psi_value'], {})
|
||||
print "}"
|
||||
|
|
@ -1,96 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
from variable import *
|
||||
from irpf90_t import *
|
||||
from command_line import command_line
|
||||
from util import *
|
||||
|
||||
######################################################################
|
||||
def create_variables():
|
||||
from preprocessed_text import preprocessed_text
|
||||
result = {}
|
||||
icount = 0
|
||||
for filename, text in preprocessed_text:
|
||||
buffer = []
|
||||
inside = False
|
||||
for line in text:
|
||||
if type(line) == Begin_provider:
|
||||
inside = True
|
||||
if inside:
|
||||
buffer.append(line)
|
||||
if type(line) == End_provider:
|
||||
inside = False
|
||||
icount += 1
|
||||
v = Variable(buffer,icount)
|
||||
if v.name in result:
|
||||
print "Warning: Duplicate provider for %s in"%(v.name)
|
||||
print "- ", v.line.filename[0], " line ", v.line.i
|
||||
print "- ", result[v.name].line.filename[0], " line ", result[v.name].line.i
|
||||
print "Choosing first version"
|
||||
result[v.name] = v
|
||||
for other in v.others:
|
||||
if other in result:
|
||||
print "Warning: Duplicate provider for %s in"%(other)
|
||||
print "- ", v.line.filename[0], " line ", v.line.i
|
||||
print "- ", result[other].line.filename[0], " line ", result[other].line.i
|
||||
print "Choosing first version"
|
||||
result[other] = Variable(buffer,icount,other)
|
||||
buffer = []
|
||||
return result
|
||||
|
||||
variables = create_variables()
|
||||
|
||||
######################################################################
|
||||
def build_use(vars):
|
||||
result = map(lambda x: " use %s"%(variables[x].fmodule), vars)
|
||||
result = make_single(result)
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
def call_provides(vars,opt=False):
|
||||
vars = make_single( map(lambda x: variables[x].same_as, vars) )
|
||||
if opt:
|
||||
all_children = flatten( map(lambda x: variables[x].children, vars ))
|
||||
vars = filter(lambda x: x not in all_children,vars)
|
||||
def fun(x):
|
||||
result = []
|
||||
result += [ \
|
||||
" if (.not.%s_is_built) then"%(x) ]
|
||||
result += [ \
|
||||
" call provide_%s"%(x) ]
|
||||
result += [ \
|
||||
" endif" ]
|
||||
return result
|
||||
|
||||
result = flatten ( map (fun, vars) )
|
||||
return result
|
||||
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
for v in variables.keys():
|
||||
print v
|
||||
|
|
@ -1 +0,0 @@
|
|||
version = "1.7.2"
|
||||
48
src/vim.py
48
src/vim.py
|
|
@ -1,48 +0,0 @@
|
|||
#/usr/bin/env python2
|
||||
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
||||
# the Implicit Reference to Parameters (IRP) method.
|
||||
# Copyright (C) 2009 Anthony SCEMAMA
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along
|
||||
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
#
|
||||
# Anthony Scemama
|
||||
# LCPQ - IRSAMC - CNRS
|
||||
# Universite Paul Sabatier
|
||||
# 118, route de Narbonne
|
||||
# 31062 Toulouse Cedex 4
|
||||
# scemama@irsamc.ups-tlse.fr
|
||||
|
||||
|
||||
import os
|
||||
|
||||
def install():
|
||||
VIM = os.environ["HOME"]+"/.vim"
|
||||
try:
|
||||
if os.access(VIM+"/syntax/irpf90.vim",os.F_OK):
|
||||
return
|
||||
if not os.access(VIM,os.F_OK):
|
||||
os.mkdir(VIM)
|
||||
file = open(VIM+"/filetype.vim","a")
|
||||
file.write("au BufRead,BufNewFile *.irp.f setfiletype irpf90")
|
||||
file.close()
|
||||
if not os.access(VIM+"/syntax",os.F_OK):
|
||||
os.mkdir(VIM+"/syntax")
|
||||
wd = os.path.abspath(os.path.dirname(__file__))
|
||||
os.symlink(wd+"/irpf90.vim",VIM+"/syntax/irpf90.vim")
|
||||
except:
|
||||
pass
|
||||
|
||||
if __name__ == "__main__":
|
||||
install()
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
|
||||
import os,sys
|
||||
ROOT = os.path.dirname(__file__)+'/../../'
|
||||
file = open(ROOT+'src/version.py','r')
|
||||
exec file
|
||||
file.close()
|
||||
file = open(sys.argv[1],'a')
|
||||
print >>file, 'Version:'+version
|
||||
file.close()
|
||||
|
||||
|
||||
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
#!/bin/bash
|
||||
|
||||
OLD_DIR=$PWD
|
||||
cd ../.git/hooks/
|
||||
|
||||
for i in commit-msg post-commit
|
||||
do
|
||||
rm $i
|
||||
ln -s $OLD_DIR/$i $PWD/$i
|
||||
done
|
||||
|
|
@ -1,18 +0,0 @@
|
|||
#!/usr/bin/env python2
|
||||
|
||||
import os
|
||||
ROOT = os.path.dirname(__file__)+'/../../'
|
||||
|
||||
file = open(ROOT+'src/version.py','r') ;
|
||||
exec file
|
||||
file.close() ;
|
||||
v = version.split('.')
|
||||
v = map(int,v)
|
||||
|
||||
v[2] += 1
|
||||
line = 'version = "%d.%d.%d"\n'%tuple(v)
|
||||
|
||||
file = open(ROOT+'src/version.py','w')
|
||||
file.writelines([line])
|
||||
file.close()
|
||||
|
||||
|
|
@ -1,21 +1,19 @@
|
|||
baseurl = "https://pages.gitlab.io/hugo/"
|
||||
baseurl = "https://scemama.gitlab.io/irpf90/"
|
||||
contentdir = "content"
|
||||
layoutdir = "layouts"
|
||||
publishdir = "public"
|
||||
title = "Beautiful Hugo"
|
||||
title = "IRPF90"
|
||||
canonifyurls = true
|
||||
|
||||
DefaultContentLanguage = "en"
|
||||
theme = "beautifulhugo"
|
||||
metaDataFormat = "yaml"
|
||||
pygmentsUseClasses = true
|
||||
pygmentCodeFences = true
|
||||
#disqusShortname = "XXX"
|
||||
#googleAnalytics = "XXX"
|
||||
pygmentsUseClassic=true
|
||||
|
||||
|
||||
[Params]
|
||||
subtitle = "Hugo Blog Template for GitLab Pages"
|
||||
logo = "img/avatar-icon.png"
|
||||
subtitle = "Implicit Reference to Parameters in Fortran"
|
||||
logo = "img/irpf90.png"
|
||||
favicon = "img/favicon.ico"
|
||||
dateFormat = "January 2, 2006"
|
||||
commit = false
|
||||
|
|
@ -23,8 +21,8 @@ pygmentCodeFences = true
|
|||
comments = true
|
||||
# gcse = "012345678901234567890:abcdefghijk" # Get your code from google.com/cse. Make sure to go to "Look and Feel" and change Layout to "Full Width" and Theme to "Classic"
|
||||
|
||||
#[[Params.bigimg]]
|
||||
# src = "img/triangle.jpg"
|
||||
[[Params.bigimg]]
|
||||
src = "img/triangle.jpg"
|
||||
# desc = "Triangle"
|
||||
#[[Params.bigimg]]
|
||||
# src = "img/sphere.jpg"
|
||||
|
|
@ -34,61 +32,48 @@ pygmentCodeFences = true
|
|||
# desc = "Hexagon"
|
||||
|
||||
[Author]
|
||||
name = "Some Person"
|
||||
email = "youremail@domain.com"
|
||||
facebook = "username"
|
||||
googleplus = "+username" # or xxxxxxxxxxxxxxxxxxxxx
|
||||
gitlab = "username"
|
||||
github = "username"
|
||||
twitter = "username"
|
||||
reddit = "username"
|
||||
linkedin = "username"
|
||||
xing = "username"
|
||||
stackoverflow = "users/XXXXXXX/username"
|
||||
snapchat = "username"
|
||||
instagram = "username"
|
||||
youtube = "user/username" # or channel/channelname
|
||||
soundcloud = "username"
|
||||
spotify = "username"
|
||||
bandcamp = "username"
|
||||
itchio = "username"
|
||||
keybase = "username"
|
||||
name = "Anthony Scemama"
|
||||
# email = "scemama@irsamc.ups-tlse.fr"
|
||||
# gitlab = "scemama"
|
||||
# github = "scemama"
|
||||
# twitter = "scemama666"
|
||||
# stackoverflow = "users/4151327/anthony-scemama"
|
||||
|
||||
|
||||
[[menu.main]]
|
||||
name = "Blog"
|
||||
url = ""
|
||||
name = "Installation"
|
||||
url = "page/install"
|
||||
weight = 1
|
||||
|
||||
[[menu.main]]
|
||||
name = "About"
|
||||
url = "page/about/"
|
||||
name = "Help"
|
||||
url = "page/help"
|
||||
weight = 3
|
||||
|
||||
[[menu.main]]
|
||||
identifier = "samples"
|
||||
name = "Samples"
|
||||
weight = 2
|
||||
|
||||
[[menu.main]]
|
||||
parent = "samples"
|
||||
name = "Big Image Sample"
|
||||
url = "post/2017-03-07-bigimg-sample"
|
||||
weight = 1
|
||||
|
||||
[[menu.main]]
|
||||
parent = "samples"
|
||||
name = "Math Sample"
|
||||
url = "post/2017-03-05-math-sample"
|
||||
weight = 2
|
||||
|
||||
[[menu.main]]
|
||||
parent = "samples"
|
||||
name = "Code Sample"
|
||||
url = "post/2016-03-08-code-sample"
|
||||
weight = 3
|
||||
|
||||
[[menu.main]]
|
||||
name = "Tags"
|
||||
url = "tags"
|
||||
weight = 3
|
||||
#[[menu.main]]
|
||||
# identifier = "samples"
|
||||
# name = "Samples"
|
||||
# weight = 2
|
||||
#
|
||||
#[[menu.main]]
|
||||
# parent = "samples"
|
||||
# name = "Big Image Sample"
|
||||
# url = "post/2017-03-07-bigimg-sample"
|
||||
# weight = 1
|
||||
#
|
||||
#[[menu.main]]
|
||||
# parent = "samples"
|
||||
# name = "Math Sample"
|
||||
# url = "post/2017-03-05-math-sample"
|
||||
# weight = 2
|
||||
#
|
||||
#[[menu.main]]
|
||||
# parent = "samples"
|
||||
# name = "Code Sample"
|
||||
# url = "post/2016-03-08-code-sample"
|
||||
# weight = 3
|
||||
#
|
||||
#[[menu.main]]
|
||||
# name = "Tags"
|
||||
# url = "tags"
|
||||
# weight = 3
|
||||
|
|
|
|||
|
|
@ -1,6 +1,3 @@
|
|||
# IRPF90
|
||||
|
||||
public/static/IRPF90_box.png
|
||||
|
||||
IRPF90 is a Fortran programming environment which helps the development of
|
||||
large Fortran codes by applying the Implicit Reference to Parameters method (IRP).
|
||||
|
|
@ -22,45 +19,3 @@ If you use IRPF90, please cite this paper :
|
|||
[arXiv:0909.5012v1](http://arxiv.org/abs/0909.5012).
|
||||
|
||||
|
||||
## Download
|
||||
|
||||
* [Download latest version](https://gitlab.com/scemama/irpf90/releases/latest)
|
||||
* The source files are available on [GitLab](http://gitlab.com/scemama/irpf90)
|
||||
|
||||
|
||||
|
||||
## How to use IRPF90
|
||||
|
||||
* [Installation]
|
||||
* [IRPF90 GitBook](http://scemama.gitbooks.io/irpf90), and the
|
||||
[pdf version](http://irpf90.ups-tlse.fr/files/irpf90_manual.pdf)
|
||||
|
||||
|
||||
## Presentations
|
||||
|
||||
* [PDF presentation](http://irpf90.ups-tlse.fr/files/cours_irpf90.pdf)
|
||||
* [PDF Presentation (in french)](http://irpf90.ups-tlse.fr/files/cours_irp1.pdf)
|
||||
* [Article in HPC Magazine (in french)](http://www.hpcmagazine.fr/hpc-labs/irpf90-un-generateur-de-code-fortran-pour-le-calcul-scientifique/)
|
||||
* [Presentation at HPCKP 2015 Barcelona (video in english)](https://youtu.be/TpMXkBlePSE)
|
||||
* [Presentation at JDev2015 Bordeaux (video in french)](https://webcast.in2p3.fr/videos-irpf90)
|
||||
|
||||
|
||||
## Tutorials
|
||||
|
||||
* [Simple Tutorial]
|
||||
* [Molecular dynamics tutorial](http://irpf90.ups-tlse.fr/tutorial/index.html), [pdf version](http://irpf90.ups-tlse.fr/files/irpf90_tutorial.pdf)
|
||||
|
||||
|
||||
## Video demo
|
||||
|
||||
{{< vimeo id="154503567" class="my-vimeo-wrapper-class" >}}
|
||||
|
||||
|
||||
## Some programs written with IRPF90
|
||||
|
||||
* [Quantum Package](http://github.com/LCPQ/quantum_package) : Library of quantum chemistry methods
|
||||
* [QMC=Chem](http://qmcchem.ups-tlse.fr) : Massively parallel Quantum Monte Carlo program for Chemistry
|
||||
* [EZFIO](http://gitlab.com/scemama/EZFIO) : The Easy Fortran I/O library generator
|
||||
* [Other examples here](http://www.lct.jussieu.fr/pagesperso/reinh/IRP/IRPf90.html) : Programs developed by P. Reinhardt
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,19 +0,0 @@
|
|||
---
|
||||
title: About me
|
||||
subtitle: Why you'd want to hang out with me
|
||||
comments: false
|
||||
---
|
||||
|
||||
My name is The Dude. I have the following qualities:
|
||||
|
||||
- I rock a great beard
|
||||
- I'm extremely loyal to my friends
|
||||
- I like bowling
|
||||
|
||||
That rug really tied the room together.
|
||||
|
||||
### my history
|
||||
|
||||
To be honest, I'm having some trouble remembering right now, so why don't you
|
||||
just watch [my movie](https://en.wikipedia.org/wiki/The_Big_Lebowski) and it
|
||||
will answer **all** your questions.
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
### How to use IRPF90
|
||||
|
||||
* [IRPF90 GitBook](http://scemama.gitbooks.io/irpf90), and the
|
||||
[pdf version](/pdf/irpf90_manual.pdf)
|
||||
|
||||
|
||||
### Presentations
|
||||
|
||||
* [PDF presentation](/pdf/irpf90_slides.pdf)
|
||||
* [PDF Presentation (in french)](http://irpf90.ups-tlse.fr/files/cours_irp1.pdf)
|
||||
* [Presentation at HPCKP 2015 Barcelona (video in english)](https://youtu.be/TpMXkBlePSE)
|
||||
* [Presentation at JDev2015 Bordeaux (video in french)](https://webcast.in2p3.fr/videos-irpf90)
|
||||
|
||||
|
||||
### Tutorials
|
||||
|
||||
* [Simple Tutorial](/post/2010-01-18-tutorial)
|
||||
* [Molecular dynamics tutorial](/pdf/irpf90_tutorial.pdf)
|
||||
|
||||
|
||||
### Video demo
|
||||
|
||||
{{< vimeo id="154503567" height="400" >}}
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
### Download
|
||||
|
||||
* [Download latest version](https://gitlab.com/scemama/irpf90/releases/latest)
|
||||
* The source files are available on [GitLab](http://gitlab.com/scemama/irpf90)
|
||||
|
||||
### Installation
|
||||
|
||||
IRPF90 is written in Python, so it should run right away.
|
||||
|
||||
`${IRPF90_HOME}` is the location of your `irpf90` directory :
|
||||
|
||||
```bash
|
||||
cd ${IRPF90_HOME}
|
||||
make
|
||||
cat << EOF >> ${HOME}/.bash_profile
|
||||
export PYTHONPATH=${IRPF90_HOME}/src:${PYTHONPATH}
|
||||
export PATH=${IRPF90_HOME}/bin:${PATH}
|
||||
export MANPATH=${IRPF90_HOME}/man:${MANPATH}
|
||||
EOF
|
||||
source ${HOME}/.bash_profile
|
||||
```
|
||||
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
### Some programs written with IRPF90
|
||||
|
||||
* [Quantum Package](http://github.com/LCPQ/quantum_package) : Library of quantum chemistry methods
|
||||
* [QMC=Chem](http://qmcchem.ups-tlse.fr) : Massively parallel Quantum Monte Carlo program for Chemistry
|
||||
* [EZFIO](http://gitlab.com/scemama/EZFIO) : The Easy Fortran I/O library generator
|
||||
* [Other examples here](http://www.lct.jussieu.fr/pagesperso/reinh/IRP/IRPf90.html) : Programs developed by P. Reinhardt
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,6 +0,0 @@
|
|||
---
|
||||
title: First post!
|
||||
date: 2015-01-05
|
||||
---
|
||||
|
||||
This is my first post, how exciting!
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
---
|
||||
title: Soccer
|
||||
subtitle: Best sport ever!
|
||||
date: 2015-01-19
|
||||
---
|
||||
|
||||
From Wikipedia:
|
||||
|
||||
Association football, more commonly known as football or soccer,[2] is a sport played between two teams of eleven players with a spherical ball. It is played by 250 million players in over 200 countries, making it the world's most popular sport.[3][4][5][6] The game is played on a rectangular field with a goal at each end. The object of the game is to score by getting the ball into the opposing goal.
|
||||
|
||||
The goalkeepers are the only players allowed to touch the ball with their hands or arms while it is in play and then only in their penalty area. Outfield players mostly use their feet to strike or pass the ball, but may use their head or torso to strike the ball instead. The team that scores the most goals by the end of the match wins. If the score is level at the end of the game, either a draw is declared or the game goes into extra time and/or a penalty shootout depending on the format of the competition. The Laws of the Game were originally codified in England by The Football Association in 1863. Association football is governed internationally by the International Federation of Association Football (FIFA; French: Fédération Internationale de Football Association) which organises a World Cup every four years.[7]
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
---
|
||||
title: Dear diary
|
||||
date: 2015-01-27
|
||||
---
|
||||
|
||||
What is it with that Mary girl? Dragging me to school every day. As if I had a choice. What you don't hear in those nursery rhymes is that she starves me if I don't go to school with her; it's the only way I can stay alive! I'm thinking about being adopted by Little Bo Peep, sure I may get lost, but anything is better than being with Mary and those little brats at school (shudder, shudder).
|
||||
|
|
@ -1,41 +0,0 @@
|
|||
---
|
||||
title: To be
|
||||
subtitle: ... or not to be?
|
||||
date: 2015-02-13
|
||||
---
|
||||
|
||||
To be, or not to be--that is the question:
|
||||
Whether 'tis nobler in the mind to suffer
|
||||
The slings and arrows of outrageous fortune
|
||||
Or to take arms against a sea of troubles
|
||||
And by opposing end them. To die, to sleep--
|
||||
No more--and by a sleep to say we end
|
||||
The heartache, and the thousand natural shocks
|
||||
That flesh is heir to. 'Tis a consummation
|
||||
Devoutly to be wished. To die, to sleep--
|
||||
To sleep--perchance to dream: ay, there's the rub,
|
||||
For in that sleep of death what dreams may come
|
||||
When we have shuffled off this mortal coil,
|
||||
Must give us pause. There's the respect
|
||||
That makes calamity of so long life.
|
||||
For who would bear the whips and scorns of time,
|
||||
Th' oppressor's wrong, the proud man's contumely
|
||||
The pangs of despised love, the law's delay,
|
||||
The insolence of office, and the spurns
|
||||
That patient merit of th' unworthy takes,
|
||||
When he himself might his quietus make
|
||||
With a bare bodkin? Who would fardels bear,
|
||||
To grunt and sweat under a weary life,
|
||||
But that the dread of something after death,
|
||||
The undiscovered country, from whose bourn
|
||||
No traveller returns, puzzles the will,
|
||||
And makes us rather bear those ills we have
|
||||
Than fly to others that we know not of?
|
||||
Thus conscience does make cowards of us all,
|
||||
And thus the native hue of resolution
|
||||
Is sicklied o'er with the pale cast of thought,
|
||||
And enterprise of great pitch and moment
|
||||
With this regard their currents turn awry
|
||||
And lose the name of action. -- Soft you now,
|
||||
The fair Ophelia! -- Nymph, in thy orisons
|
||||
Be all my sins remembered.
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
---
|
||||
title: Test markdown
|
||||
subtitle: Each post also has a subtitle
|
||||
date: 2015-02-20
|
||||
tags: ["example", "markdown"]
|
||||
---
|
||||
|
||||
You can write regular [markdown](http://markdowntutorial.com/) here and Jekyll will automatically convert it to a nice webpage. I strongly encourage you to [take 5 minutes to learn how to write in markdown](http://markdowntutorial.com/) - it'll teach you how to transform regular text into bold/italics/headings/tables/etc.
|
||||
|
||||
**Here is some bold text**
|
||||
|
||||
## Here is a secondary heading
|
||||
|
||||
Here's a useless table:
|
||||
|
||||
| Number | Next number | Previous number |
|
||||
| :------ |:--- | :--- |
|
||||
| Five | Six | Four |
|
||||
| Ten | Eleven | Nine |
|
||||
| Seven | Eight | Six |
|
||||
| Two | Three | One |
|
||||
|
||||
|
||||
How about a yummy crepe?
|
||||
|
||||
|
||||
|
||||
Here's a code chunk with syntax highlighting:
|
||||
|
||||
```javascript
|
||||
var foo = function(x) {
|
||||
return(x + 5);
|
||||
}
|
||||
foo(3)
|
||||
```
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
---
|
||||
title: Flake it till you make it
|
||||
subtitle: Excerpt from Soulshaping by Jeff Brown
|
||||
date: 2015-02-26
|
||||
bigimg: [{src: "/img/path.jpg", desc: "Path"}]
|
||||
---
|
||||
|
||||
Under what circumstances should we step off a path? When is it essential that we finish what we start? If I bought a bag of peanuts and had an allergic reaction, no one would fault me if I threw it out. If I ended a relationship with a woman who hit me, no one would say that I had a commitment problem. But if I walk away from a seemingly secure route because my soul has other ideas, I am a flake?
|
||||
|
||||
The truth is that no one else can definitively know the path we are here to walk. It’s tempting to listen—many of us long for the omnipotent other—but unless they are genuine psychic intuitives, they can’t know. All others can know is their own truth, and if they’ve actually done the work to excavate it, they will have the good sense to know that they cannot genuinely know anyone else’s. Only soul knows the path it is here to walk. Since you are the only one living in your temple, only you can know its scriptures and interpretive structure.
|
||||
|
||||
At the heart of the struggle are two very different ideas of success—survival-driven and soul-driven. For survivalists, success is security, pragmatism, power over others. Success is the absence of material suffering, the nourishing of the soul be damned. It is an odd and ironic thing that most of the material power in our world often resides in the hands of younger souls. Still working in the egoic and material realms, they love the sensations of power and focus most of their energy on accumulation. Older souls tend not to be as materially driven. They have already played the worldly game in previous lives and they search for more subtle shades of meaning in this one—authentication rather than accumulation. They are often ignored by the culture at large, although they really are the truest warriors.
|
||||
|
||||
A soulful notion of success rests on the actualization of our innate image. Success is simply the completion of a soul step, however unsightly it may be. We have finished what we started when the lesson is learned. What a fear-based culture calls a wonderful opportunity may be fruitless and misguided for the soul. Staying in a passionless relationship may satisfy our need for comfort, but it may stifle the soul. Becoming a famous lawyer is only worthwhile if the soul demands it. It is an essential failure if you are called to be a monastic this time around. If you need to explore and abandon ten careers in order to stretch your soul toward its innate image, then so be it. Flake it till you make it.
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
---
|
||||
title: Code Sample
|
||||
subtitle: Using Hugo or Pygments
|
||||
date: 2016-03-08
|
||||
tags: ["example", "code"]
|
||||
---
|
||||
|
||||
The following are two code samples using syntax highlighting.
|
||||
|
||||
<!--more-->
|
||||
|
||||
The following is a code sample using triple backticks ( ``` ) code fencing provided in Hugo. This is client side highlighting and does not require any special installation.
|
||||
|
||||
```javascript
|
||||
var num1, num2, sum
|
||||
num1 = prompt("Enter first number")
|
||||
num2 = prompt("Enter second number")
|
||||
sum = parseInt(num1) + parseInt(num2) // "+" means "add"
|
||||
alert("Sum = " + sum) // "+" means combine into a string
|
||||
```
|
||||
|
||||
|
||||
The following is a code sample using the "highlight" shortcode provided in Hugo. This is server side highlighting and requires Python and Pygments to be installed.
|
||||
|
||||
{{< highlight javascript >}}
|
||||
var num1, num2, sum
|
||||
num1 = prompt("Enter first number")
|
||||
num2 = prompt("Enter second number")
|
||||
sum = parseInt(num1) + parseInt(num2) // "+" means "add"
|
||||
alert("Sum = " + sum) // "+" means combine into a string
|
||||
{{</ highlight >}}
|
||||
|
||||
|
||||
And here is the same code with line numbers:
|
||||
|
||||
{{< highlight javascript "linenos=inline">}}
|
||||
var num1, num2, sum
|
||||
num1 = prompt("Enter first number")
|
||||
num2 = prompt("Enter second number")
|
||||
sum = parseInt(num1) + parseInt(num2) // "+" means "add"
|
||||
alert("Sum = " + sum) // "+" means combine into a string
|
||||
{{</ highlight >}}
|
||||
|
|
@ -1,49 +0,0 @@
|
|||
---
|
||||
title: Math Sample
|
||||
subtitle: Using KaTeX
|
||||
date: 2017-03-05
|
||||
tags: ["example", "math"]
|
||||
---
|
||||
|
||||
KaTeX can be used to generate complex math formulas server-side.
|
||||
|
||||
$$
|
||||
\phi = \frac{(1+\sqrt{5})}{2} = 1.6180339887\cdots
|
||||
$$
|
||||
|
||||
Additional details can be found on [GitHub](https://github.com/Khan/KaTeX) or on the [Wiki](http://tiddlywiki.com/plugins/tiddlywiki/katex/).
|
||||
<!--more-->
|
||||
|
||||
### Example 1
|
||||
|
||||
If the text between $$ contains newlines it will rendered in display mode:
|
||||
```
|
||||
$$
|
||||
f(x) = \int_{-\infty}^\infty\hat f(\xi)\,e^{2 \pi i \xi x}\,d\xi
|
||||
$$
|
||||
```
|
||||
$$
|
||||
f(x) = \int_{-\infty}^\infty\hat f(\xi)\,e^{2 \pi i \xi x}\,d\xi
|
||||
$$
|
||||
|
||||
|
||||
### Example 2
|
||||
```
|
||||
$$
|
||||
\frac{1}{\Bigl(\sqrt{\phi \sqrt{5}}-\phi\Bigr) e^{\frac25 \pi}} = 1+\frac{e^{-2\pi}} {1+\frac{e^{-4\pi}} {1+\frac{e^{-6\pi}} {1+\frac{e^{-8\pi}} {1+\cdots} } } }
|
||||
$$
|
||||
```
|
||||
$$
|
||||
\frac{1}{\Bigl(\sqrt{\phi \sqrt{5}}-\phi\Bigr) e^{\frac25 \pi}} = 1+\frac{e^{-2\pi}} {1+\frac{e^{-4\pi}} {1+\frac{e^{-6\pi}} {1+\frac{e^{-8\pi}} {1+\cdots} } } }
|
||||
$$
|
||||
|
||||
|
||||
### Example 3
|
||||
```
|
||||
$$
|
||||
1 + \frac{q^2}{(1-q)}+\frac{q^6}{(1-q)(1-q^2)}+\cdots = \prod_{j=0}^{\infty}\frac{1}{(1-q^{5j+2})(1-q^{5j+3})}, \quad\quad \text{for }\lvert q\rvert<1.
|
||||
$$
|
||||
```
|
||||
$$
|
||||
1 + \frac{q^2}{(1-q)}+\frac{q^6}{(1-q)(1-q^2)}+\cdots = \prod_{j=0}^{\infty}\frac{1}{(1-q^{5j+2})(1-q^{5j+3})}, \quad\quad \text{for }\lvert q\rvert<1.
|
||||
$$
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
---
|
||||
title: Big Image Sample
|
||||
subtitle: Using Multiple Images
|
||||
date: 2017-03-07
|
||||
tags: ["example", "bigimg"]
|
||||
bigimg: [{src: "/img/triangle.jpg", desc: "Triangle"}, {src: "/img/sphere.jpg", desc: "Sphere"}, {src: "/img/hexagon.jpg", desc: "Hexagon"}]
|
||||
---
|
||||
|
||||
The image banners at the top of the page are refered to as "bigimg" in this theme. They are optional, and one more more can be specified. If more than one is specified, the images rotate every 10 seconds. In the front matter, bigimgs are specified using an array of hashes.
|
||||
|
||||
<!--more-->
|
||||
|
||||
A single bigimg can be specified in the front matter by the following YAML:
|
||||
```
|
||||
bigimg: [{src: "/img/triangle.jpg", desc: "Triangle"}]
|
||||
```
|
||||
|
||||
Multiple bigimgs can be specified in the front matter by the following YAML:
|
||||
```
|
||||
bigimg: [{src: "/img/triangle.jpg", desc: "Triangle"},
|
||||
{src: "/img/sphere.jpg", desc: "Sphere"},
|
||||
{src: "/img/hexagon.jpg", desc: "Hexagon"}]
|
||||
```
|
||||
|
||||
Also note that the description field is optional, and images could instead be specified by:
|
||||
```
|
||||
bigimg: [{src: "/img/triangle.jpg"},
|
||||
{src: "/img/sphere.jpg"},
|
||||
{src: "/img/hexagon.jpg"}]
|
||||
```
|
||||
|
||||
The above YAML array of hashes were written in "flow" style. However when generating a new page or post with `hugo new post/mypost.md`, hugo may interpret the archetype for bigimg in the default YAML style. Defining multiple bigimg's complete with descriptions in this style would be specified by:
|
||||
```
|
||||
bigimg:
|
||||
- {src: "/img/triangle.jpg", desc: "Triangle"}
|
||||
- {src: "/img/sphere.jpg", desc: "Sphere"}
|
||||
- {src: "/img/hexagon.jpg", desc: "Hexagon"}
|
||||
```
|
||||
|
||||
Additional information can be found [in this YAML tutorial](https://rhnh.net/2011/01/31/yaml-tutorial/).
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
---
|
||||
title: Photoswipe Gallery Sample
|
||||
subtitle: Making a Gallery
|
||||
date: 2017-03-20
|
||||
tags: ["example", "photoswipe"]
|
||||
---
|
||||
|
||||
Beautiful Hugo adds a few custom shortcodes created by [Li-Wen Yip](https://www.liwen.id.au/heg/) and [Gert-Jan van den Berg](https://github.com/GjjvdBurg/HugoPhotoSwipe) for making galleries with [PhotoSwipe](http://photoswipe.com) .
|
||||
|
||||
{{< gallery caption-effect="fade" >}}
|
||||
{{< figure thumb="-thumb" link="/img/hexagon.jpg" >}}
|
||||
{{< figure thumb="-thumb" link="/img/sphere.jpg" caption="Sphere" >}}
|
||||
{{< figure thumb="-thumb" link="/img/triangle.jpg" caption="Triangle" alt="This is a long comment about a triangle" >}}
|
||||
{{< /gallery >}}
|
||||
{{< load-photoswipe >}}
|
||||
|
||||
<!--more-->
|
||||
## Example
|
||||
The above gallery was created using the following shortcodes:
|
||||
```
|
||||
{{</* gallery caption-effect="fade" */>}}
|
||||
{{</* figure thumb="-thumb" link="/img/hexagon.jpg" */>}}
|
||||
{{</* figure thumb="-thumb" link="/img/sphere.jpg" caption="Sphere" */>}}
|
||||
{{</* figure thumb="-thumb" link="/img/triangle.jpg" caption="Triangle" alt="This is a long comment about a triangle" */>}}
|
||||
{{</* /gallery */>}}
|
||||
{{</* load-photoswipe */>}}
|
||||
```
|
||||
|
||||
## Usage
|
||||
For full details please see the [hugo-easy-gallery GitHub](https://github.com/liwenyip/hugo-easy-gallery/) page. Basic usages from above are:
|
||||
|
||||
- Create a gallery with open and close tags `{{</* gallery */>}}` and `{{</* /gallery */>}}`
|
||||
- `{{</* figure src="image.jpg" */>}}` will use `image.jpg` for thumbnail and lightbox
|
||||
- `{{</* figure src="thumb.jpg" link="image.jpg" */>}}` will use `thumb.jpg` for thumbnail and `image.jpg` for lightbox
|
||||
- `{{</* figure thumb="-small" link="image.jpg" */>}}` will use `image-small.jpg` for thumbnail and `image.jpg` for lightbox
|
||||
- All the [features/parameters](https://gohugo.io/extras/shortcodes) of Hugo's built-in `figure` shortcode work as normal, i.e. src, link, title, caption, class, attr (attribution), attrlink, alt
|
||||
- `{{</* gallery caption-effect="fade" */>}}` will fade in captions for all figures in this gallery instead of the default slide-up behavior
|
||||
- Many gallery styles for captions and hover effects exist; view the [hugo-easy-gallery GitHub](https://github.com/liwenyip/hugo-easy-gallery/) for all options
|
||||
- Call `{{</* load-photoswipe */>}}` **once** anywhere you want on each page where you want to use PhotoSwipe
|
||||
|
|
@ -1,73 +0,0 @@
|
|||
---
|
||||
title: IRPF90
|
||||
date: 2018-11-20
|
||||
bigimg: [{src: "/img/path.jpg", desc: "IRPF90"}]
|
||||
---
|
||||
|
||||
# IRPF90
|
||||
|
||||
IRPF90 is a Fortran programming environment which helps the development of
|
||||
large Fortran codes by applying the Implicit Reference to Parameters method (IRP).
|
||||
|
||||
In Fortran programs, the programmer has to focus on
|
||||
the order of the instructions: before using a variable, the programmer has to
|
||||
be sure that it has already been computed in all possible situations. For large
|
||||
codes, it is common source of error.
|
||||
|
||||
In IRPF90 most of the order of instructions is handled by the pre-processor, and
|
||||
an automatic mechanism guarantees that every entity is built before being used.
|
||||
This mechanism relies on the *needs/needed by* relations between the entities,
|
||||
which are built automatically.
|
||||
|
||||
Codes written with IRPF90 execute often faster than Fortran programs, are faster
|
||||
to write and easier to maintain.
|
||||
|
||||
If you use IRPF90, please cite this paper :
|
||||
[http://arxiv.org/abs/0909.5012 arXiv:0909.5012v1].
|
||||
|
||||
The html version is accessible
|
||||
[here](IRPF90: a programming environment for high performance computing)
|
||||
|
||||
|
||||
## Download
|
||||
|
||||
* [Download latest version](https://github.com/scemama/irpf90/releases/latest)
|
||||
* The source files are available on [GitLab](http://gitlab.com/scemama/irpf90)
|
||||
|
||||
|
||||
|
||||
## How to use IRPF90
|
||||
|
||||
* [Installation]
|
||||
* [Git book](http://scemama.gitbooks.io/irpf90 IRPF90 GitBook), and the
|
||||
[pdf version](http://irpf90.ups-tlse.fr/files/irpf90_manual.pdf)
|
||||
|
||||
|
||||
## Presentations
|
||||
|
||||
* [PDF presentation](http://irpf90.ups-tlse.fr/files/cours_irpf90.pdf)
|
||||
* [PDF Presentation (in french)](http://irpf90.ups-tlse.fr/files/cours_irp1.pdf)
|
||||
* [Article in HPC Magazine (in french)](http://www.hpcmagazine.fr/hpc-labs/irpf90-un-generateur-de-code-fortran-pour-le-calcul-scientifique/)
|
||||
* [Presentation at HPCKP 2015 Barcelona (video in english)](https://youtu.be/TpMXkBlePSE)
|
||||
* [Presentation at JDev2015 Bordeaux (video in french)](https://webcast.in2p3.fr/videos-irpf90)
|
||||
|
||||
|
||||
## Tutorials
|
||||
|
||||
* [Simple Tutorial]
|
||||
* [http://irpf90.ups-tlse.fr/tutorial/index.html Molecular dynamics tutorial], [pdf version](http://irpf90.ups-tlse.fr/files/irpf90_tutorial.pdf)
|
||||
|
||||
|
||||
## Video demo ==
|
||||
|
||||
* [IRPF90 Demo on Vimeo](https://vimeo.com/scemama/irpf90_demo )
|
||||
|
||||
|
||||
## Some programs written with IRPF90
|
||||
|
||||
* [Quantum Package](http://github.com/LCPQ/quantum_package) : Library of quantum chemistry methods
|
||||
* [QMC=Chem](http://qmcchem.ups-tlse.fr) : Massively parallel Quantum Monte Carlo program for Chemistry
|
||||
* [EZFIO](http://gitlab.com/scemama/EZFIO) : The Easy Fortran I/O library generator
|
||||
* [Other examples here](http://www.lct.jussieu.fr/pagesperso/reinh/IRP/IRPf90.html) : Programs developed by P. Reinhardt
|
||||
|
||||
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 1.5 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
|
Before Width: | Height: | Size: 26 KiB After Width: | Height: | Size: 26 KiB |
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
Loading…
Reference in New Issue