Index: soft/giet_vm/applications/classif/Makefile =================================================================== --- soft/giet_vm/applications/classif/Makefile (revision 588) +++ soft/giet_vm/applications/classif/Makefile (revision 589) @@ -1,24 +1,20 @@ -APP_NAME=classif -USE+= stdio.o -USE+= mwmr_channel.o - -USES=$(patsubst %,$(BUILD_PATH)/$(LIB_NAME)/%,$(USE)) +APP_NAME = classif OBJS= main.o -all: $(APP_NAME).elf +LIBS= -L../../build/libs -luser -BIN_NAME_PATH=$(BUILD_PATH)$(APP_NAME).elf +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml -$(APP_NAME).elf: $(OBJS) $(APP_NAME).ld - $(LD) -o $(BIN_NAME_PATH) -T $(APP_NAME).ld $(OBJS) $(USES) - $(DU) -D $(BIN_NAME_PATH) > $@.txt +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt %.o: %.c - $(CC) $(INCLUDE) $(CFLAGS) $($*.o_CFLAGS) -c -o $@ $< - $(DU) -D $@ > $@.txt + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< clean: - rm -f *.o *.elf *.txt core *~ 2>$(TRASH) - rm $(BIN_NAME_PATH) 2>$(TRASH) + rm -f *.o *.elf *.txt *.pyc core *~ Index: soft/giet_vm/applications/classif/classif.py =================================================================== --- soft/giet_vm/applications/classif/classif.py (revision 588) +++ soft/giet_vm/applications/classif/classif.py (revision 589) @@ -4,5 +4,5 @@ ################################################################################### -# file : classif.py +# file : classif.py # date : november 2014 # author : Alain Greiner @@ -30,6 +30,6 @@ ################################################################################## -######################### -def classif( mapping ): +###################### +def extend( mapping ): x_size = mapping.x_size @@ -60,5 +60,5 @@ mapping.addVseg( vspace, 'classif_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/classif/classif.elf', + binpath = 'build/classif/appli.elf', local = False ) @@ -84,5 +84,5 @@ code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/classif/classif.elf', + binpath = 'build/classif/appli.elf', local = True ) @@ -133,5 +133,5 @@ if __name__ == '__main__': - vspace = classif( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/convol/Makefile =================================================================== --- soft/giet_vm/applications/convol/Makefile (revision 589) +++ soft/giet_vm/applications/convol/Makefile (revision 589) @@ -0,0 +1,20 @@ + +APP_NAME = convol + +OBJS= main.o + +LIBS= -L../../build/libs -luser + +INCLUDES = -I../../giet_libs -I. -I../.. + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/convol/convol.py =================================================================== --- soft/giet_vm/applications/convol/convol.py (revision 588) +++ soft/giet_vm/applications/convol/convol.py (revision 589) @@ -4,5 +4,5 @@ ###################################################################################### -# file : convol.py (for the convol application) +# file : convol.py # date : may 2014 # author : Alain Greiner @@ -27,5 +27,5 @@ ###################### -def convol( mapping ): +def extend( mapping ): x_size = mapping.x_size @@ -54,5 +54,5 @@ mapping.addVseg( vspace, 'conv_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/convol/convol.elf', + binpath = 'build/convol/appli.elf', local = False ) @@ -67,5 +67,5 @@ mapping.addVseg( vspace, 'conv_code_%d_%d' % (x,y), base, size, 'CXWU', vtype = 'ELF', x = x , y = y , pseg = 'RAM', - binpath = 'build/convol/convol.elf', + binpath = 'build/convol/appli.elf', local = True ) @@ -119,5 +119,5 @@ if __name__ == '__main__': - vspace = convol( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/convol/main.c =================================================================== --- soft/giet_vm/applications/convol/main.c (revision 588) +++ soft/giet_vm/applications/convol/main.c (revision 589) @@ -39,4 +39,6 @@ #define FRAME_SIZE (NB_PIXELS * PIXEL_SIZE) +#define SEEK_SET 0 + #define TA(c,l,p) (A[c][((NP) * (l)) + (p)]) #define TB(c,p,l) (B[c][((NL) * (p)) + (l)]) @@ -125,5 +127,4 @@ unsigned int ntasks = nclusters * nprocs; // number of tasks unsigned int frame_size = FRAME_SIZE; // total size (bytes) - unsigned int nblocks = frame_size / 512; // number of blocks/frame unsigned int lines_per_task = NL / ntasks; // lines per task @@ -166,9 +167,9 @@ { giet_shr_printf("\n[CONVOL] task[0,0,0] starts barrier init at cycle %d\n" - "- CLUSTERS = %d\n" - "- PROCS = %d\n" - "- TASKS = %d\n" - "- BLOCKS = %d\n", - giet_proctime(), nclusters, nprocs, ntasks, nblocks ); + "- CLUSTERS = %d\n" + "- PROCS = %d\n" + "- TASKS = %d\n" + "- LINES/TASK = %d\n", + giet_proctime(), nclusters, nprocs, ntasks, lines_per_task ); #if USE_SQT_BARRIER sqt_barrier_init( &barrier, x_size , y_size , nprocs ); @@ -182,5 +183,5 @@ barrier_init_ok = 1; } - else + else { while ( barrier_init_ok == 0 ); @@ -250,5 +251,5 @@ /////////////////////////////////////////////////////////////////////////// // task[0,0,0] open the file containing image, and load it from disk - // to all A[c] buffers (nblocks / nclusters loaded in each cluster). + // to all A[c] buffers (frame_size / nclusters loaded in each cluster). // Other tasks are waiting on the init_ok condition. ////////////////////////////////////////////////////////////////////////// @@ -256,5 +257,5 @@ { // open file - file = giet_fat_open("misc/philips_image.raw", 0 ); + file = giet_fat_open( "misc/philips_image.raw" , 0 ); if ( file < 0 ) giet_exit( "[CONVOL ERROR] task[0,0,0] cannot open" " file misc/philips_image.raw" ); @@ -268,8 +269,11 @@ "for cluster %d at cycle %d\n", c, giet_proctime() ); + giet_fat_lseek( file, + (frame_size/nclusters)*c, + SEEK_SET ); + giet_fat_read( file, A[c], - nblocks/nclusters, - (nblocks/nclusters)*c ); + frame_size/nclusters ); giet_shr_printf( "\n[CONVOL] task[0,0,0] completes load " Index: soft/giet_vm/applications/coproc/Makefile =================================================================== --- soft/giet_vm/applications/coproc/Makefile (revision 589) +++ soft/giet_vm/applications/coproc/Makefile (revision 589) @@ -0,0 +1,20 @@ + +APP_NAME = coproc + +OBJS= main.o + +LIBS= -L../../build/libs -luser + +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/coproc/coproc.py =================================================================== --- soft/giet_vm/applications/coproc/coproc.py (revision 588) +++ soft/giet_vm/applications/coproc/coproc.py (revision 589) @@ -4,5 +4,5 @@ ################################################################################## -# file : coproc.py (for the coproc application) +# file : coproc.py # date : march 2015 # author : Alain Greiner @@ -22,5 +22,5 @@ ###################### -def coproc( mapping ): +def extend( mapping ): x_size = mapping.x_size @@ -55,5 +55,5 @@ mapping.addVseg( vspace, 'coproc_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/coproc/coproc.elf', + binpath = 'build/coproc/appli.elf', local = False ) @@ -61,5 +61,5 @@ mapping.addVseg( vspace, 'coproc_code', code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/coproc/coproc.elf', + binpath = 'build/coproc/appli.elf', local = False ) @@ -82,5 +82,5 @@ if __name__ == '__main__': - vspace = coproc( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/coproc/main.c =================================================================== --- soft/giet_vm/applications/coproc/main.c (revision 588) +++ soft/giet_vm/applications/coproc/main.c (revision 589) @@ -12,5 +12,5 @@ #include "stdio.h" -#include "mapping_info.h" // for coprocessors types an modes +#include "mapping_info.h" // for coprocessors types an modes #define VECTOR_SIZE 128 Index: soft/giet_vm/applications/dhrystone/Makefile =================================================================== --- soft/giet_vm/applications/dhrystone/Makefile (revision 588) +++ soft/giet_vm/applications/dhrystone/Makefile (revision 589) @@ -1,24 +1,21 @@ -APP_NAME=dhrystone -USE+= stdio.o -#USE+= mwmr_channel.o +APP_NAME = dhrystone -USES=$(patsubst %,$(BUILD_PATH)/$(LIB_NAME)/%,$(USE)) +OBJS = dhry_1.o \ + dhry_2.o -OBJS= dhry_1.o dhry_2.o +LIBS = -L../../build/libs -luser -all: $(APP_NAME).elf +INCLUDES = -I../../giet_libs -I. -I../.. -BIN_NAME_PATH=$(BUILD_PATH)$(APP_NAME).elf +LIB_DEPS = ../../build/libs/libuser.a -$(APP_NAME).elf: $(OBJS) $(APP_NAME).ld - $(LD) -o $(BIN_NAME_PATH) -T $(APP_NAME).ld $(OBJS) $(USES) - $(DU) -D $(BIN_NAME_PATH) > $@.txt +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt %.o: %.c - $(CC) $(INCLUDE) $(CFLAGS) $($*.o_CFLAGS) -c -o $@ $< - $(DU) -D $@ > $@.txt + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< clean: - rm -f *.o *.elf *.txt core *~ 2>$(TRASH) - rm $(BIN_NAME_PATH) 2>$(TRASH) + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/dhrystone/dhrystone.py =================================================================== --- soft/giet_vm/applications/dhrystone/dhrystone.py (revision 589) +++ soft/giet_vm/applications/dhrystone/dhrystone.py (revision 589) @@ -0,0 +1,132 @@ +#!/usr/bin/env python + +from mapping import * + +################################################################################## +# file : transpose.py (for the transpose application) +# date : may 2014 +# author : Alain Greiner +################################################################################## +# This file describes the mapping of the multi-threaded "dhrystone" +# application on a multi-clusters, multi-processors architecture. +# This include both the mapping of virtual segments on the clusters, +# and the mapping of tasks on processors. +# There is one task per processor. +# The mapping of virtual segments is the following: +# - There is one shared data vseg in cluster[0][0] +# - The code vsegs are replicated on all clusters containing processors. +# - There is one heap vseg per cluster containing processors. +# - The stacks vsegs are distibuted on all clusters containing processors. +# This mapping uses 5 platform parameters, (obtained from the "mapping" argument) +# - x_size : number of clusters in a row +# - y_size : number of clusters in a column +# - x_width : number of bits coding x coordinate +# - y_width : number of bits coding y coordinate +# - nprocs : number of processors per cluster +################################################################################## + +######################### +def extend( mapping ): + + x_size = mapping.x_size + y_size = mapping.y_size + nprocs = mapping.nprocs + x_width = mapping.x_width + y_width = mapping.y_width + + # define vsegs base & size + code_base = 0x10000000 + code_size = 0x00010000 # 64 Kbytes (replicated in each cluster) + + data_base = 0x20000000 + data_size = 0x00010000 # 64 Kbytes (non replicated) + + stack_base = 0x40000000 + stack_size = 0x00200000 # 2 Mbytes (per cluster) + + heap_base = 0x60000000 + heap_size = 0x00200000 # 2 Mbytes (per cluster) + + # create vspace + vspace = mapping.addVspace( name = 'dhrystone', startname = 'dhry_data' ) + + # data vseg : shared (only in cluster[0,0]) + mapping.addVseg( vspace, 'dhry_data', data_base , data_size, + 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', + binpath = 'build/dhrystone/appli.elf', + local = False ) + + # code vsegs : local (one copy in each cluster) + for x in xrange (x_size): + for y in xrange (y_size): + cluster_id = (x * y_size) + y + if ( mapping.clusters[cluster_id].procs ): + + mapping.addVseg( vspace, 'dhry_code_%d_%d' %(x,y), + code_base , code_size, + 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', + binpath = 'build/dhrystone/appli.elf', + local = True ) + + # stacks vsegs: local (one stack per processor => nprocs stacks per cluster) + for x in xrange (x_size): + for y in xrange (y_size): + cluster_id = (x * y_size) + y + if ( mapping.clusters[cluster_id].procs ): + for p in xrange( nprocs ): + proc_id = (((x * y_size) + y) * nprocs) + p + size = (stack_size / nprocs) & 0xFFFFF000 + base = stack_base + (proc_id * size) + + mapping.addVseg( vspace, 'dhry_stack_%d_%d_%d' % (x,y,p), + base, size, 'C_WU', vtype = 'BUFFER', + x = x , y = y , pseg = 'RAM', + local = True, big = True ) + + # heap vsegs: distributed non local (all heap vsegs can be accessed by all tasks) + for x in xrange (x_size): + for y in xrange (y_size): + cluster_id = (x * y_size) + y + if ( mapping.clusters[cluster_id].procs ): + size = heap_size + base = heap_base + (cluster_id * size) + + mapping.addVseg( vspace, 'dhry_heap_%d_%d' % (x,y), base, size, + 'C_WU', vtype = 'HEAP', x = x, y = y, pseg = 'RAM', + local = False, big = True ) + + # distributed tasks / one task per processor + for x in xrange (x_size): + for y in xrange (y_size): + cluster_id = (x * y_size) + y + if ( mapping.clusters[cluster_id].procs ): + for p in xrange( nprocs ): + trdid = (((x * y_size) + y) * nprocs) + p + + mapping.addTask( vspace, 'dhry_%d_%d_%d' % (x,y,p), + trdid, x, y, p, + 'dhry_stack_%d_%d_%d' % (x,y,p), + 'dhry_heap_%d_%d' % (x,y), 0 ) + + # extend mapping name + mapping.name += '_transpose' + + return vspace # useful for test + +################################ test ################################################## + +if __name__ == '__main__': + + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) + print vspace.xml() + + +# Local Variables: +# tab-width: 4; +# c-basic-offset: 4; +# c-file-offsets:((innamespace . 0)(inline-open . 0)); +# indent-tabs-mode: nil; +# End: +# +# vim: filetype=python:expandtab:shiftwidth=4:tabstop=4:softtabstop=4 + Index: soft/giet_vm/applications/display/Makefile =================================================================== --- soft/giet_vm/applications/display/Makefile (revision 588) +++ soft/giet_vm/applications/display/Makefile (revision 589) @@ -1,24 +1,20 @@ -APP_NAME=display -USE+= stdio.o - -USES=$(patsubst %,$(BUILD_PATH)/$(LIB_NAME)/%,$(USE)) +APP_NAME = display OBJS= main.o -all: $(APP_NAME).elf +LIBS= -L../../build/libs -luser -BIN_NAME_PATH=$(BUILD_PATH)$(APP_NAME).elf +INCLUDES = -I../../giet_libs -I. -I../.. -$(APP_NAME).elf: $(OBJS) $(APP_NAME).ld - $(LD) -o $(BIN_NAME_PATH) -T $(APP_NAME).ld $(OBJS) $(USES) - $(DU) -D $(BIN_NAME_PATH) > $@.txt +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt %.o: %.c - $(CC) $(INCLUDE) $(CFLAGS) $($*.o_CFLAGS) -c -o $@ $< - $(DU) -D $@ > $@.txt - + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< clean: - rm -f *.o *.elf *.txt core *~ 2>$(TRASH) - rm $(BIN_NAME_PATH) 2>$(TRASH) + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/display/display.py =================================================================== --- soft/giet_vm/applications/display/display.py (revision 588) +++ soft/giet_vm/applications/display/display.py (revision 589) @@ -13,5 +13,5 @@ ###################### -def display( mapping ): +def extend( mapping ): nprocs = mapping.nprocs @@ -38,5 +38,5 @@ mapping.addVseg( vspace, 'disp_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/display/display.elf', + binpath = 'build/display/appli.elf', local = False ) @@ -44,5 +44,5 @@ mapping.addVseg( vspace, 'disp_code', code_base , code_size, 'CXWU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/display/display.elf', + binpath = 'build/display/appli.elf', local = False ) @@ -69,5 +69,5 @@ if __name__ == '__main__': - vspace = display( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/display/lena.raw =================================================================== --- soft/giet_vm/applications/display/lena.raw (revision 588) +++ (revision ) @@ -1,901 +1,0 @@ -š˜›œ™˜–•š”••“”””–›œŸ¢§ŠŠ€¡šŒ‹rfXTS[\``adabdccdbdd`aeikolpsqvus{y{xx|zxyv{yzw}~y||}||{}~}|z}||}~~~|~|zy{{yy~~z{zy{~}}{|w -|zx|y|xw{v~xxxyxxxxxuxwrrpolhe]cmv†‘•˜šœ”‘’‘““”“˜”’’‘’“‘”“’••—”—˜•“”¢ÁÍÓÕÙØØͳƒa]cdlnnrtnrorwpppqpqrstuustluuwurvvplllq£€ -›š˜›œ™˜–•š”••“”””–›œŸ¢§ŠŠ€¡šŒ‹rfXTS[\``adabdccdbdd`aeikolpsqvus{y{xx|zxyv{yzw}~y||}||{}~}|z}||}~~~|~|zy{{yy~~z{zy{~}}{|w -|zx|y|xw{v~xxxyxxxxxuxwrrpolhe]cmv†‘•˜šœ”‘’‘““”“˜”’’‘’“‘”“’••—”—˜•“”¢ÁÍÓÕÙØØͳƒa]cdlnnrtnrorwpppqpqrstuustluuwurvvplllq£€ -œ˜˜™š—••–—’’–““””“™œ £§§Š¥ ˜Œ -pfXTSX\]`aba`b`acacb`begknmprstuswzzzw}y|yxw{zyx~}{}~}|}}}~{z|}z|~}~|~~}|~zxxzzzx{~xzyx||||}{{y}€}zw{yyzwzw}uwyzwyyvxvwurqrnkid_aku -Œ”˜šš•‘‘‘‘”’”•“’‘‘‘’‘’•’””—”–—–“’ œËÓÕØÙÚйŠb]aflmnqtoqqrtqopoprstttvutmtswusvuqlmot‰—k™˜˜•™˜“‘”““‘”“”–’—¡£ŠŠŠ£Ÿ—}rcUOQSVXbb]^]`]^a_^`^bcflknsustqrvyx{wyyxwy|{yyyzyz}||}z}|{y|zyzyz}|z{|zyz€zx|xzwy~~xzuzz}{}y{x|{}{{xvvw{uxwwvwxxyxxvxvutrpqmjhb`\krz‚‰Ž“–™™•”‘’“’‘””“’“’“”’’‘”””••””‘’®ÅÏÕ×ØÚÖÉ©u]^djkpkooosptqrsqrututssrrsqtvtswvuqrvwkY@0”—–•˜––”“–”’“‘‘”‘•›Ÿ£€€Š¥¢ž“Š€oeUQPRW[\\`^\c^a_^__`cfehlmqosuttwuwuzyxxzzxyyzxy|yz|}}~~{y}}{y€|{|{x|z{yww{y|xvuw{|}{uvxzzyyzyyyz{|{wxxwxtxwwsuvtxxvwxrutusnojggc^ajs| -ŒŽ”–›—””’‘•–””•“”–•”“’“”“”•”“““““’™žÉÑÕØ×ØÒŸ’h`bgimoqooqpqqqnprsuqtptrsssuvvuuvxwutcE-('•—•—••••”–”‘“•’”–›Ÿ¢£Š¥€¡Ÿ‘ -}sbTPOTXZY_\_^^``\^`\`befhlnqssrusxvxvxwxv{{z{wyxx{w{}|zz{{|{zwz|z{{xy|yzzyx|zyxywxxw{yyyyyzz~zzxxwwyz{yyxwwwxxwwvwuwzwwwxvtrlojkddb_dnzˆŽ‘–™˜–“”’“–—–˜”––•““”“—”‘“““‘”‘‘“¥ÁÌÓÕØÚ×Ì®}__aghlqonrornpnonqqsrrtrsssttvsty|}t^A+'')–••––•“–••—”““””–œ¢££££¡Ÿœ’†~naWNQTTZ\`^cacd^\`[]\ahfimmmqossttusuywyz|{zyyyxzzwy}yz{~}{zy|{{{zx{w{xzz||{z{ywywxzyzvw{y~~~{|y{yyzyy|zxxvyxxuxvyttwvuwzussrplffgf_^iu€†‹’™š™–––”˜˜™šš˜——•””–””’“‘“’‘”’’“Ž•ŽÇÐÕØÙÚÖÝk`ahhjnnnqqpqpporpspsprrrqvvsvtu}}seA4'$'*—–••–••”••“““’’–šž £££¢¡Ÿ—’‡zqeVRRSV][^abaaa_\_aZ\adfgklnrtustxuuxvuyzyxzyyxwzzzzyzy{{zyz{{}{xx|{}z|yz{{zzzyyzzzxzvy{y{~{~{y}yw{zyxyzxxwvvwvxxwwyxwzxuttromhjjda`dl{ -‹’—›š›™™—™š››š—–•“•”“’”””‘‘’’’“Œ¢¿ËÓ×ÙÚÙОŠbbbdenjkqnoupoqorqprrsuusttuyz{q[<(.*',+•”•’–•••“••”‘‘“›œ ¢ ¡  ŸŸ›— -}o`TONTS]^Yb_`d__]a\]\]dfijloqssstvwwv{wxzyyzzy|ywz{||{z}}||}y{}}{zx}|zx|}}~|z}|xvw{{zxwyz}}€|z{y{yzyzyvwywwvvswvyxxwxwyxuupqkijnde`_it„Š‹–—šž›˜˜™›š››˜–—›˜•”’’“–‘’‘°ÆÐÖØÚÚ×É©u_acfmjloopqppsptrsvtrwvvxxy{~|rW6'%$))"*””–”–”–˜˜˜”•“”—›ž Ÿ¡¡Ÿ¡›Ÿ›•ˆtgWOPVW[[Z__c`^``^\`\behkkoopotsqwwvwxvx{zzz|{}xyzyyzxy{}{{}zzz{{y{vy€{z{zyxz{~x{yx{|{vvyz}}€}{|z{{y}}wxtxzy{vwvvwyzxxswwtvtplkjfdd_]gp|„Œ‘”˜ššœ›˜›œžšœ———˜˜••’’”“‘‘‘’‘‘Œ‹™ºÌÓØØÚÚÑœ“b^bcikjnortqttqrrvrtswwux|}~qU7$')&,)&(•••”•–———–’•’•˜ž¡ž¡Ÿžž›››•‘‡ujXSPTUZ^^ea^b__[\a\]^fgihmmoqsqsstvwwxxzww{wzyzzzyxz{yyz|{wx{xyz{zy|{xxx|}yxxyyy{zyyvwxxy|~„|{y|yxy}wxuyvwwxsrwwvwwvvwuursrymgicad]ek{„Ž“–›œž›˜šœ›š›™––•–—“•”•‘‘‘’“‘ŽŒ©ÃÏÔØÚÜ×Ì°{agcjfmmmoqtppqtosu{vwx{{~sU7)$.-'(()*–”’•–•–—˜–––’“—œ¡¢ œžž›˜›•‹weWOQVXY\^f\^\]_^_\`^`cgfljpnnqrtsvwwyywywzyzwxxxyxz{yyz{y{xzxyv{wy|vz{uwyvuwyxxuyzxwyuwvy}z{||yzxxyzyy{xxwzstttuwuwtvstxvtrqqonigeh``dfv€‹Ž“–š›œœ™›™™™™™›š•“••“”‘’‘’’ŽŠ‰•¶ÉÑÖØÙÛÖęh_efgknkllqspqnqpvvzyy{}sT2/',*0)((*.•’’–˜—˜—™”––•˜› ¡ ¡Ÿœœœ–š™—‘‰rdWMLUTVZ`b`_\`a]^\]_cdfehnqqoqpwvwxruyzxyvwyzuwxwwxyxv{}}xyxxxxz}}{yywwwusvvsuutvuvwuvwttywy{z{zzyzz{wwvtvywtvttuvvvtstwwsstqumhedc`binwˆ’—›œœ›ž˜˜™š˜™™™—“”–””””‘‘‘’‘ŽŽ‹‹€ÂÎÕØÚÛÚÏž†_`dhlqoroqsqqponrwsxz{€sS6A)$&%&%'+.0“”•”—˜˜–—˜•––›ž  ¡  š™™™™š™’‰~m^POHMTZ\_^_`b``\]^\_bcbhjopmrrtqwuyuuuvwyvvwxxyyzyzxvtxwxxzvux{z|~|xwrrtssrutwwvwtsvvuuxrxuy|zzy{{z{vvuuuvvtxuuvwuwtuyvuusortsjdec`agmr} -Š“˜˜™›š›š™˜˜˜——˜™˜•––”••’“‘’“‘’‘Š‰’µÉÓÖÙÜÞØȧo_dgjhurtpsspqmusrtwz~~uT1%-(!!&$(&-/'–——––—˜—˜˜—˜šŸ¡££  ˜™–˜›œ™“ˆ~paTMKRYX\_\``_b^`]_]_cbcjjloqpqstvvutuwuvvtxxxyzuyyyyzxxx{wyuvwww|}}ytsusroprpuyvrssrquutxxxuyxyyy{~yxswuvxwwutvtttusrxvvtstmompfheccgnw| -‹‘––˜š››šš™˜˜š”™˜—˜–”–••“•””•“‘‘‘Ž‹‹‹‰ŸÁÎÖØÚÜÜÔ¿_bdikloprrqrppqswt{|pQ/" ''($())*/*7—˜——˜—š™™˜šž ¡£¢¡Ÿœ˜˜•˜šœœ”ˆ~pbTQLTWZZ^cbd\b^]^`\`abcfklorrrrsrvtwvwwwtvtwwwyxxw{wyzxwzwyxxwvy|{yz{xvrrnqrqtrtwuutttrtttzzxwyy{|xzvwtytsxwvxusuvsuutxvxwxplmmlkdfebfpy‹“—•˜œ™˜—•™–š˜—––—•’””–“’••–””‘’‘Š‹‡Ž±ÈÐ×ÙÜÝÛаv`dfkknlsrooqstruy||pS-!&'&($+'***'./•——”˜—˜™™›™¡€€€¢¡ ›˜˜——ššš“‹saTPPVVYZ\_`bbc^\[]\`_behhkmpqsnssvuyrxvxvutuwwwxxyxyyzyzwwy}xvwxx{y|uuxtqrqpnsmsutruttrsrsvxvywux}yywvuvuvxvuwvswwtususwwtusopmifde`bcnu|€†Œ“•˜˜™›–—˜˜šš—™—”–••––“–”—•“•““‘‘Š - -”·ÈÑÕÛÜÞÚͧqedflmknpssrusty{|qZ8#'!/)*#.,-)*)01™——•—š›š™œŸ¢¡¢¡¡  ™˜˜–˜šœ™’ˆ}n_UMQSYZY`_`_a]^`][[\^dfgjkkoosqssstwwvuxwvwsvrvyzzwvsxyxxxvxxvxvx|{xwutspqrpppprsuxpqoqqtrwxxv{yy{||xvxwwxxtuvtuuuusswuvvvtrpojkfghbdhmqy†‹‘‘”•˜—š––—–——–••”˜–“––—”’•“••”‘‘‘‘‹‡‡‰ªÆÑ×ÛÝÞÞÓ» -a_dfhklqsppsywz~sV1$!"$'2+/-(.)*/.*—˜—™œž›šž ¢¢¡¡¢ Ÿ›™”—˜˜˜™™‘†|r`SLLPXX[\^\]]^^]\[a`_cehgnjqnnptqouvuutzvuurupuuwutytvtuww{}zxxvuwxwusutrssqpupvtttopqootqtwwxwzx|y{xwtuvxwwuvtsrrvwtututwqornjpkjgbbdlsyƒˆŽ‘“•“•—–—“––˜—”•”™•“—•••”•”“’•‘ŽŽŽ‰ˆ†“·ÍÕÚÜÝßÚË©qZ]ehjkpssvt{{|mP2!""&)+,-.+,,)).)%š™š˜™š™› ¢¡ŸŸžœœ›™–—š™š›—‘‡p^NIKOVY[\_a[^]\^__^Z^behjkkqnnmotsssvrtwutsouwwvxyvyvrwxvvxxxxxtwytvuttsrtqntpoprrlnmnlppssswuvxx|xxxuuuuvxwsvwttusruvstuurrnmmmnkebacjtz†ŠŽ‘““–———”—•••••”••‘‘•˜––“•“’‘‘ŽŒ‹‰ -„†€ÄÑØÜÝßß×ő_Zdefilmotvy}mS0#&%&",37464-,,)&'-œ››˜™œšžŸ¢£ žœššš™˜™™šš›–‘†zm[RHJSRY_a^Z[]][\]\\^]_fhimomqprrntnpuutsusrrsrswuwvwvuyxvxuxuyvuwwwuwuuvtusqssqllooopnnompouvtx{xyxvuwvruuwvvuqvwuuuutuwutsqnlikjihgdfmry} -‡Œ‹’“”•”——”–•”“•“”’‘‘“•—•”“”‘‘ŽŠ‰ˆˆ„ƒ‘·ÎÕÚÝÞàÛβx[addgiioryyrV3&#&#'&+,..+*,(&(%%&˜š›š˜šš ££¡š™˜–˜—•™›™–™™™š™†~p]PILRT[[]\_`_^cY`[[`^aefimppllqrrtqprstwqrtrwwwwwvtuusxtxwvwxxvvwxuuwsu{wttssorpomomnkoknnnssutwvwyvttvuwrxy{ttyvtvttsuvvqprpkoijhhecejpu€‚†‰ŒŽ‘“‘–•—’”“’•“”’‘“”‘”‘•”’’Ž‹ŒŠ‰Šˆ‡ - -„‡¢ÂÒÙÛÝÞßØŗb]acdgior|oT6'#"$&(,0360,.,+)&&'#›—›š™šœ¢¥¢œ—”•”•”•˜œš™—˜œš˜‘Šzn\TGKTUYZ\]]^][__]]]^`dbhlknnnostqststturtstvvvxztwtsrwzwxwzuytwstyztvrstwtsqrqz|•‡”ˆ†|}pnmnorootsrspvvuvvuvxywtvutwytvtuusrtqkkiilgbbdhmu~‚ƒŠ‰‹Ž“•”•”““““’”’“•“’‘”’‘ŽŽŽ‹‰†‹†‡ˆ†‡ -†ŽŽËÓÚÝÝßÝѶz\`aekhrvnV3'&$&%(*-1130/+--$$('&›œ˜—œ£¡š˜”‘Ž‘“šœ›˜šœ—“Šs_SJJSUWZ^^`bc^^^]\]_`geiimpnqorqqsrsustvssuvyutxwyvsuu‚xxz|uvvswtw~wsurzvŒƒ‡„ˆ’§ ©§«¥°­­šŽ†pmjlmmpsrsstrvuyyxxwwqsutsrvtsrrpnljijiecafknw~‚†ˆ‰‰ŠŒŽ“““•“”‘‘’““”’““‘‹ŒŠ‹ŠŠ‡ˆ‰„‰‡ -†ÀÎ×ÛÞßßØÊ¡fjdhknslN4&$()#'(*.1340..)&(&%(&œššš˜œ¢€¥›•‘ŒŒŠŒŒ”œšš™˜™žœ—’‰~u`TMJPTVYZ^^^a]]_^\\^`ghfejmpnpqtrustvuuuvsuvuvzuuvtvvvuuyyxuwwxrtvu€ -„ŽŒ‹—¡ž ­ª¬©Ž­º±·º­®¢†umllnntrqttwzzxzywtysvvtwstvrqnomggfhcadgot|‚†ˆ†ˆ‹‰ŽŽ‘‘“”””‘‘’‘’““““ŽŽŒŠˆŠˆŠ† -‡‡†‡„ˆ‹®ÈÒÙÜÝßÞÕŒˆc`jktjU1 $$#%$),2,54230*###)&))šš˜˜šŸ€€¢™’Š‰† -‡‹•Ÿœ››šœ˜“‰r^QIMQRVX[_]`\[\_``]_ceghimqopnptrwrttsvttu|xwwwwwzuvsuvxy}vvwusstˆŒ’’’‘Žª££š¯µ°¬¯±®®¬¶œ»º­žrkfnmqppuwzxwwxtvsstttttqomnlnjfgecacgnw}ƒ†‰ˆ‡‰‰ŠŽŽ“’““‘“““’’’“ŽŽ‹Š‹‰‡†‡ - - - - - -ƒƒ -‰–ºÍÕÚÝßâÜϬvemrmR0$!#$$$%'/-,/-/.-'"#$%%%'š—™››¡£¢œ“ˆƒ€ƒ‚Œ•œžššœŸ›™‘ˆ~p^PIJNTQ[\_^]`[a\\__bbafikmoqrmorsvutrqstvwwuxtxxwxxvvvtvtvvuttt}†‡Ž•Š„‹ŠŒ˜¢§¥£§¬²°¯­³€Šš±°±¹µÀ¿º­’wgjkpprtvtsuvtuusvprrvpmnnkkjgggb`bfny~„ -Œˆˆ‡Š‹ŒŒŽ”‘‘’‘ŽŽ‰‹ˆˆ‰ -ƒ†„„„ -††‡ƒ - -ˆ¥ÃÑØÜßáãÚɛnon[3% &$%($)//,+,*,+(&**)$$#—š™ž¡¡£Ÿ™”ˆƒyw}ƒ‹—œœœ››Ÿœ™”ˆo^OFMNRTXY[^Z[]]]]a[^bejnjmompqqrsttvsssvyyxuuuvxsvrwouvvvvstxwzŠŽ‚Š“Š -„‘‘‘šŸ™ £§¬¬µ®­ª«©¬¶®³·ºžÂŸ¿²‹khmmkssusvtystrvsqrpqmpljhjghga`gfqx~ƒˆˆ‰‡ˆˆ‹‹ŒŽ‘‘’’“‘Ž‹‹Ž‹Š‰‡†‹ˆ„ƒ -‚„„‡„ -„ƒ†€‰µËÕÜÞßãá׿†pZ7'!#&(**-,0/1,,,'%%-/)'(%%(˜˜šž£Š¢œ”ƒ{rtx -–žŸœ Ÿžš•‹~r[NEFLNTXVXY\Y\^]Z^`a_belhmlnoqotquqsrtswrttwswvxuurrruvy| -„~uw -‡‰‰ŒˆŠŠ‘‘‰‘‘”œ•žŸ ª­±«®«±©²µ°³»Œ»ÀÆÂœš{hhkotsvwutrrtuqroqpmkjfiifibe`hfqv€†„ˆ‹Š‡‰ŠŒ‹‹ŽŒ‹ŠŠŒ‹‰‰‡‡ˆ†††ƒƒ -„ - -„„ -™¿ÒÛÞßâãàÒªc9"##""&'.0/+/,,,*''-/+&&$%*%šœž¡Š£—ˆ|oml|‹’˜žŸŸœžœ—’Œ€o\LCFJWVXVWZZ]Y[\XYaa_bgfjlllopporrqppotutvvsuvvtsroysƒymo{{‚„ˆ„„‡‘Ž“‰”™–Ÿ££ ¡­Š¢°°Š³±³Ÿ¶¹ÀŒœÂÂÂÀ»Œjempnpttnnpsqpsqoljjjgfgdd_^`egku}ƒ‡‹Š‰‰ˆˆŠ‹Ž‹Œ‘ŽŠ‹‰ŒŒˆ‡Š‰Š‰† -‡† - -„ -ƒ‚‚ -„„‡‚†¬ÌÕÛßáâãÞÄ]$#"#&&'#+0+,.,/.),(*,'(*)%%)šœ£€¥¡™”qd_hyˆ˜ž¢ž œž›ž™–Š‚s]NIELQOTZ\^YXY[Y\]^`_cdfemkmkprnpnptrrottsvsvvtoro}šŒ’‡€vvrrsv€x}|‹„†Œ”“”ŸŸšŠŸ£«­³¬šº¶ŽŸžžœÀÁŒÁÅÄÀŠyhmhkknoqnppnnppnliiiifcdb\]bglx}†‡Š‹Šˆ‡‡‹Œ‹ˆ‹Ž’Ž‰†‰‡†‡‡Š‰Š‡‡†† - -„‚ - -„„ -‡ -‡„‚»Í×ÜáäæáÅE" #%)'(/0,,.0'&$(+4+*$-*%-,œž£š£œ–†veYYm{Š’˜ ¡ŸŸ œž™“Œq^NDFJNNRUVWXWYYY][[^^bdfhjliloqplqorqqrrttssrrrrŠywwzwsvqqqsz€yx|ˆ{„ŠŽ–’•›¢››£ž©§®Žšž¹Žž¶®¹Ÿ¶žÂ¿¿ÂÆÆÀ·lefhmlklrnomnomlkhehcac^_Ycdmxƒ‡ŒŒ‰‰ˆˆŠ‹‹ŒŠ‹Ž‘‘‹Š‡„„ˆˆˆŠˆ‡ˆ -‡‰† - - - -„ -‡†ˆ†‚„ -ˆ¥ÅÖÜáåä،!!"#$%&(,./-.-(%%$*2*&&%&')1/Ÿ€ª§¡—“Œ€k[LTkzˆ“™ Ÿ¡Ÿžžžœ’‹~p\LBCIHMRVVWUZX[ZY]^_``d_fjjllmlnkrprrppvrsptprp~©hmtrstnrqpusu~{wz‚„‚‚†Œ -”“ž“–¡›¯Š¥¯¶ž¹·®¶¹¹ŒŒž¶¿ÁÁ¿ÁÃÄœ ucdefkpkmklllljkifhef`c^]_ekw~ -‰ŒŽŠ‰ˆˆ‡‰‡‰ˆŠ‰Š††„„† -†‡‹† -†ˆ‡† -†„‚ -‰‡ˆˆ‡ - -ƒ±ÑÜããÙ°> -# - $)(+1.+/0+$%#',,,'#$&).*$£šª€—Ž‡xcQCWj|Š’Ÿ Ÿ¡ ›œœ˜ˆo_JD@EKOTSSVWWXZY\[\_[__]eghjjmiilwrptrrspsrrqlq©‚Reqptmsmtpqlv}z~xx|~€~ -€‡„‹“‘‘˜—®©Š«­¯·µ­º»±žŸ·³»¿œÀÅÂÂÁÁÀÀµƒc]aekgfiikljlhfgbdcb`]Z^fow„ŠŽŠŠˆˆ‰‡‡† -‰Š‡†ƒ„ - -†‰‰‰†„‡ -† - -† - -†ˆˆ -‰‰†‰ˆˆ–ÇØß׶V"!#%%#)(/2,20/-"$)+.)#&&*.0- €ŠŠŸ˜’Š|mTCCSjz -ž¢ œžœœ—‘„|o\K@@IMQSVUYZXYZY[^[[^`befhhggkjnlonnnrsotsssrtqŠjahmntlntyqnpww|~xxz}„}~‚ˆˆ‡•—žŸ­«ª®­¯ŽŽ³··¹³¿Œ·Œ¿Á¿ÂÇÂŒÂÄÆßj\da_bdhgihhhfdfe`ba_\_fiy‡ŒŽŒ‰‰‡‡ƒˆ„„‚ -ˆˆ‰†„ -ˆˆ‰Š‰†‡† -‡†ƒ†† -ˆ‡‰„ˆ‰Š‰Œ±ÐÒ²\$!$&##%'.**/./)&((,-)%&&%032%Š¥€ž—Žƒs_FAGWkz†Ž› ¢¡œŸž–ƒ~o]G?@HNMSV\^]_Y]ZX\[_]bbafjlcfkklmnnmnqptsrqsrs„eeidmnmmpptqqqx€~y}}‚‚}v| -}|ŒŠ–™ž£Š­¬¥Ž®©±·­¯Ÿœ¹ŸÀ¹ŒÄÄÁÁÅÃÁÂÈÈÆ©kYY^_abegjfgeedbabc`Y^ckt -ŒŽŒˆƒ‚€~‚ -‹‹‰†††ˆ†ˆ‰Š† -†† -† -ˆ‡ˆ‰†‰‰‰‰‹ŠŽ‘£¿žQ'$'%$%')()*,/,*$)0//,,%*)+9=/ ¥¥¢™”ˆ{lSE@JZiz†‘š¡££  œ™˜†~nZEB?GMQUV[[XaZ[VZY\W\_bdchglkjjlkpmloonrrropn†{ehkmigdjllsrwsu}sz}yxƒŒ„ŒŽ‡š•¡€ž¬¥§µ·³±ºŸ¹œ¿ŒŒÁ¿ÀÁÄÁÀ¿ÅÅÇÈÈÉ­rSWUY[achcgdb_bcga][]bkwˆŒ’‘‘“ŽŠˆƒ}|zyz†Ž‹ˆ††‡‡ŠŠ‰‡†‡ - - -‡‡ˆ‡ˆˆ‹‡‹ŒŒ““—„H)%&'"')(+-+,-*+%"*5-),&&//;?0#VŠ£œ—Žƒp]IDCKZn{„”› ¢ ¡Ÿžœ—Žˆ{o[EAAIMQVTYX[]Z^Y\ZY[]``dchhiighknommopqqqrpp}²ifjhgecgjmnuzpt|tr{€}|~†ƒ‡ƒŠ’Š™• ›©Ž«±·²¶º¿»ºÀœœÂǟ¿ÁÂÄÃœ»Äʹ‰€eRV[_ecfbba`]b][Z[chw„‘‘–•’Œ -}ystquz„ˆŽ‹‰‡ -ˆ‹‹Œƒ -†„ -‡†ˆ‰ˆˆ‰Ž‰‹Œ””‚M*%$#&" %+23,+(%%!%-/0.',,05=3#L‡¢žš’ˆyeNOIDK[m{‡œž  ¢ œœš˜‘Š{nYEABHKLWV^WWXX[ZZ[\\]`aceefkliijqmlolqompuqoƒgifbbaginoksnwxrtz~y{x‚ -‚ƒ} -x‰Œ‘€­¥¯µ³³º¹²¹ŸŒžŸ¿Á¿ÁŸŒÀŸŽ·ÁÉÑ×ÜÝØÁqLS[cabc_\__`^]Z^ckz„Š“”“”’‘ -{tnhkmw}†ŠŠ‡ˆ‰ˆ‹Š - -††††ˆˆˆ‡ˆ‹‡ˆŠŒ“•Œc-$%$$$"%-+../+(#&(/10*)))-3B5# -B{šžš”oXFJMIHYmz‡‘˜Ÿ¡£¢£Ÿœ™˜’ˆ~m\J@EIQMV\^ZX\\Y[Y][\^_afgklkghilipmnoqpoorqumjdb_dcknnjkgwpynv|xxu{€||„ƒ„‹‹‹˜¡¡£Ž³°»œµ°œ¹²œÀ¿·Ä»œœµµŸÈÒÓÕ××ÚàãâºYLO[]b_\[[^_]\V_bgwƒ‹‘•’•‘‘ˆ~qi]ablv‚†Šˆˆˆ‰Š‰† -ˆ†ˆ† -‡‡††ŠˆŒŒ’”‘m;)$%'+"'*,+,)%$$(,2,.((*+5?G2$9i ˜™ -weQFIJLK]o|Š‘š ¡ ¡Ÿžœ—‘‡zlYLB=HLPSWVWXW]\X\][[]acddeijginorqosorpmnss~tjdaebeglsiinttrqrtywvq|y|„}||ƒ’€‘˜šŽ©««žº³°œŽ±ºŸžŒ¿Àº·ž³žÃÏÓÑÑ×ÒÓÕ×Úáä܌GKTZ][_[]]Z[ZW\eix‰’’’”’‘’ˆrcWSSam{‚ŠŽ‹‰ -‡†Š‰‡† -‡†ˆŠ‡‰ˆˆˆ‰ŠŒŠ”wE$*$(#&*(*1).-++%#//1'')$)0>JE0$:h‰•¡›”Š|kXFHKKHM[l|‡˜ž¢ ¡¢žŸš—„zjXIBBJNSVVU^[[[ZYYY\^_`aefggijhjkoomqpomrqtuukbdfdfklpnipsoqqoptjwt{x„vw} -ƒ‚}‹–¡€Ž·­ž»³ŽÀ¶°ŒÀ¶°ª°ºÅÐÓÔÎÐÑÐÔÏÒÖÕÜáàÇnFMT\Y\][X\[YTYbhxˆ‹““‘‘‰ƒwfPHINcs -ŠŒ‰ˆ†‰‹ˆ† -†ˆ† -‡ˆ‹ˆ‰‰‰ŒŒŒ”•„S)## -!##(+,/.+*'$$'00*%))'09>A<*8d—›‘Ž„s^MELLLMP\ly‡‘—Ÿ¢¢¢ ¡ž›” -ygbMBCINPVWWYYY[Xb_[]Y`[bffikijjmkpmooorotqtyjadaddgommjrrmpprjsnutz{€ -~ˆx‚ƒ„}‹‰š•¥§šž·³µœÁ¹¹º°­Š­¹ÉÐÒÏÑÐÎÎÑÎÐÑËÎÔ×ÞÞá¹UHMRVU[XX[XXWWbhu} -•”’‘Ž‡ƒvfO;8?Wlzˆ‹‹Š -‰‹Šˆ†‡ˆ - -ˆŠ††‡‰ŠŽŒ”‹c1#"#')...+.+)$$*,/+&%(,,4AF:6C_~Ž–ˆyeOGMNQPJRZl{ -šŸ¡¡¡ žŸœ– -zm]NDHJPPRTXX[ZY]`\ZY[\_bbdfihiikjnonoorqtruod_``giknenupnqpkokksw{~w‡|ƒ€‚}„‹‚‰‘—‘›Ÿ¥®Ž§¶³²·Ÿµ›¢ªŸÎÐ×ÐÍÉËÎÐÐÌÍËÑÓËÏ×ØÞÝڜOEJRTYVX\VVRXait~†“’‘‘‘‘ˆƒzhN3,1Ldq}ƒ‹Œ‹‰††‰‰ -„Š†‡†‰‡ -†‡†ˆŽ”’x<$ - "',-//./+$+-0+'&(-?@9EA;C^|Œ‘‹‹ˆ~mWJINOPLJN\l|ˆ™ž ¡ ž ¡œ•Ž -zk[MC@IKRSWTVX^\]_]\[\\bcdcfhjjljnonopqqptxkgbbcagjfhkqpkhujljknxt{tƒy„|‚ˆ€†‡ŠŽ–¡¡¡­³¬«º°¡  »ÆÒÒÑÐÍËÈÊÏËÍÍÉÍÌÎÒËÏÑÕáÝՒHGHPSXVWVWUY`isˆ“‘““ŽŽŒƒxlV9',GL\r„ŠŽ‘€šl\KJMUTQPPJLYi{†”›ž£¡ ¡Ÿ›–„xhYKBFJQXXX]YYZY[\Z^ZZa__beiiiljlmlnnrsrukjb`fkgdkjmkllbh_fjol{wzw{€~ -}†ˆ†ŠŒ‚{‰€‹ŒžŸ ²¡›ŽŽ®ÇÍÌÍÉÂÊËÐÑËÌÆÆÂœÂËÈÏÖ×ÒÎÐÎÐÖØßÝݐSDAHHMNNNV^jv€‡Ž’“‘“’”‘Œ†zmS*%" (4K^oyŠŠŠ‰ -ƒƒ‡‡†ˆ‹Œ‘‚Q# - #$&./03/--&"'20)%,&001/27JdˆŠ‰‘Šˆ˜ž žŸQMPSSRSTQPMPYfy†Œ–›Ÿ Ÿ¢Ÿž›— -xm^SB@GKRTTZWXZZ]Y[]]X^]bdegllmnmmlmozzjdf]dgjgifhhfgjkinos{}|t„Š‡}Œ€‚ƒ„{}w -„†~ƒ€ž¹ÁÄÂœÂú¿ÁŸÀÂÂÆÇÃœÄÉÍÃÊÑÌÍÌÍÏÏÍÎÏÐÑÊÓÓÓÓØâ׉:8=DMVew} -Ž”’‘“‘”„zjW?')" -&)@T`w}†‹ŠŠ‡„ƒƒ†‰‹‹’Šh,# !"$)*2.,,0.'&)/12&&2,,,.-1Df|Šˆˆ‹‰ˆ”¡¡ŸœKNQSSSSURRNTYly -‹–™›Ÿžžœš–†zkZSBCGNRVVWVV]_[YZY\[\]adbfhjlnomiisšla[]\^ejljcjgklginlnu|wz„ˆŠ‚„€‚‰ -ˆ{€€}€„x|‹¥°ŸŸÅÅÄž¿¿¹œ¿ŒÁÁŒŸÆËÌÅÌÎÄÌÍÏÍËÍÏÉÊÎÐÎÍÒÖÓÔÒÚÛÐf.8@KUfs{ -Ž“‘’‘“†{lYC*$#!!",BWov~ -‰Š -‚‚‚‚Š‰‹z?$#"(%&*,-/,.3+(&.2)$"**-5*,,:_|‹ˆˆƒ„™¡¡ ŸMLQUSRTVTQQR]iz‚‹•˜œšœŸ™œ—†~j\MCCGLRTVTWW[][[XXY[]^`cehfhmijigg– hZ]a]bfeiheghheggmrsqs€w†‡† -s - -‹ƒ - -y|tvtvw¡º²­¶ÂÃÃŒÀ¹¿ŒžÁ»°ºŸÆÊÊÊËÃÌÎÆËÉÌÉÎÑÍÍÏÎÎÍËÖÔÕØÝÖÚ³>6:FRas{†Œ‘’’““‘‘‘Œ†zo\B,$&&#!$5J\ny€ -‹‡ƒ‚„ˆŠŽ„U'%#$$%&-/-/3..)''//+%*-.)+&.7PtŠ‘‹ƒšœŸž¡ žROQURTQOQPNLZkw -–™Ÿœœœš‘†{k]RCCILPSSXZYZ[Z]ZYZ\\__bekikihlhgkŽ–`W^c`eicidhfhekkonuuoxu„Œ}v}‰ƒxututo -š«À¶·¹œ»œ¹ŸÁ¶Ÿº²žŒÄÅÄÈÊÊÌÌÆÒÉÄÎÎËÍÏÌÍÍÉÉÉÉÎÓ×ÕÜÝßÔtP8AO^nz -Œ‘“‘”““ƒ{mZB.$%$" - '9Obox€††€ -‡‹ŽŒj0####%-)/**0,.,%*/1.)+,10,&$.Nq‰‘Ž‰ƒ”šžœœ žTRQSSPRTRMNNXgy†Œ•™œŸŸ››ž›‘ˆ|n]MCCHMLSSWXXY][]][[\^ceedhfgkkgbcÄˆ\Z^`acbdfchihqpnpqpyuv|ƒ -Šx|}}|‡€ -‚{zvxhek’ªŠž¹Æ¹Œ±·ž¿ÀŒ·«œ¿ÂÅŸÃÇÂÇÊÊËÆÈÏÇÊÊÊÊÉÇÆÇÍËÎËÐÒÕÖ×ÞááÆh1>J_r|„‹‘“’“‘‘ -zl[E/(&%% ';Q_m‰ž«®™€„–z?%%#($',-6,*00-,++00&*-/3*% -#PgxŠ‘“”‘‡|iX>-$"! -!AŸÏÜͶœÍÕÝáâåæâÝs!$%'&-30++22.,,,-,*-./.,$"6c„‘Ž‰† -Ž—žŸŸš›˜š˜—š˜MPOQSTSUTRPJUgw€Š”™žŸžœœ—‘‡wnZF=>BFKQQUYWXXZXXZXY^^_aadggbcYzÔµžp\Z_^df_fkfkinjrkwwu~xs|xft‚~€xp|kcc¡šª°¹¥Ÿª­©¯Ž  š·µ¹³žŒ·¿¿ŒÃÀÁ»ÁŒŸ¹ž»ÅËÇÈÈËÊÆÄËËÂÉÌÌÌÌËÈÊÌÏÖÞà؋@CGMRUXZYXZ][\[[]]]`dfegfh`fÇŬ -[SX]\abhgZXmentxuxqphlt€ -ulu|mgdkœš«±¥œŸ£®€ °²«¯°°®·²Ã·À·Ž²·Ÿ³­®ºÆÆÇÁÀÃÄŒ·ÂÉÇÄÈÉÉÈÊËÏÌÊÊÉÈÊËÍÍÑÓÚÐuZq~Š”’•”“”‘‰ -q`O)!K¥ÓÖÀœ«Ì×Ù×ÓÐÐÑÎÊËÕÜæÜZ#!%%(,+//''((% ())/.,'.S|““ŒŠ‰Ž—›™———™™—˜•˜˜˜™STVXTYYVXVYUXiv~Š•šŸ¢ €¡¡žš“Š|k\KADDIORUWVX[[]ZYY\```acbfgh^ZqÖÃ¥`T^\`d``V^glpptultpepvw~ysxuh_nš››«©¢¡š•š®œ¥±²Ž¬š«Ž»¹Ž²¹³Œ·»°¬©µ¿»ÀÅÄÇœŸÅÄÁ»ÄÈÇÃÅÈÎÊÅÅ¿ÃÈÊËÊÍÌÍÎÑÕØ»xp{‰Ž‘’–“”“ˆjYC'2pŒÖл¡·ÌÖÔÔÒÒÌÁÊÉÍÓØÝåÝX !()00-'%#$+&&'(+.,&#)>n•‹†—›™™›—™—™—™––—™˜VWUWXW[YXWVUXfs„Š”œŸ£ ¢ ŸŸ›–Œ~l]LFCGKPTVY[Y[[Z\][Y]b_adefheb[ -ÔÄ¢wdY_Ya_]Q`llhpxnqsjssks~z -ƒ}vc[u‹–š¡˜™™¥ª——€µ±°¯®©³Žº²µŽ¯·±º®¥Š¯¿·¹œÃÅÃÂœŒÃÂßÅÉÆ»À°ŒÃÁÇÉÉËÆÌÊÌÍÌÒÕÕĖz†‘”’”‘Œ‰xgM;X¢ÍÖIJ«ÅÑØÔÑÐÎËÇÇÉÉÏÕÛÞâÚS -"(+031()%$$#&)-+*& - -1X‡“‘‹‰Š•›œ›˜™—™—™™—•”’—–WZYVX]YXXUWRZdx‹“šŸž  £¢¡ž“k\LCFFLTVV[ZY_][]b^Z\`cddejhh_Y ÐƎtbUVY\\Ychofrgkvk`pprux}yqtvaUx™œ’œš‹’§«•˜¥ª§µ­©¶·ª¬±¹²°²®ž¥¡Š±Œœ·²µŸœÁÃÂÁÁÁÃÄŸÈÊ¿¢Ÿ»ÇÇÆÅÊÆÈÇÆÉÉÈÈËÒÓ×ќŒŽ‘ŽŠ‚r`Y -Á×ÊŒ°²ÇÕÓÒÎÎÍÊÉÅÈÉÍÓÖØßáÖH%')++/1(,(')$,./0- -!Ix“Ž‰‰™š›š˜—–——–•—˜–••–YXZ[ZZ\\YYTVXcu”šž¡ ¢Ÿ¢¢•Œn\KBGHLMUUXZ[[Z\`_\ZZ]fbefehh_]žÑŒ‡lfXUV\^ehbdi[bqgbtupvvvrinud]zŽ”‰Œ”‹›ŸŽœ­«ŠŠ§²µ¯º«©«®µ¯±°¡­Ž°¯Œºž±ºŒŒÁ»ÄÈÂÃÆÆŸ©ž±œÂÆÇÇÊÆÇÈÈÅÃÂÅÉËÐÓÕǐ‹““ŽŽŒ„|tƒŽÒÖºº»ÌÓÑÑÏÊÉÌÆÆÈÊÌÍÒØÚÝÞÏ4' &((+020)'%)-)-,'3g†•“Žˆ—›š›š–™—••—–••””””\[Y[]YZZZVXTZgu‚‹“™Ÿ¡€¢  ž–Ž€oaKADGMMSX]]\\\]X_\XX\`_bedgbYZÇЬ}kj]T\^abb[d\bnlmpmquxxqksmec}–—–‰„ˆŠ‹€›Šªš©­°š®«§°­§²­¹°š©º·Ž®Ž»»µ¶Ÿº¹Ÿ¹¿ÆÈÆÆ¿› ž¿Œ¿ÄÆÄÇÆÈÇÅÆÄÿÃÆÈÌÍÑ­‹’ŠŠƒ‘µÍÖǹº³ÁÍÔÑÏÎÊÇÊÇÆÉÉÊÏÒÕÖÙÝÞœ%$*-+(**-,%"%%++,+$ -'Ny‘”‹“›˜œš˜—˜—–™—“–””””YZ]\[ZZY\XYZ_iv„Œ– Ÿ¢Š€£€€•}o^IEEHMSSUYXZ^]]X]\ZY]\`abec_VcÒƛ~ym__Y^aY^ZUfhmlaivuxpdjqkjc~ -’—š‡ŠŒ–‘{‹™›¢Š§®®«¥¢¢ŠŠ¹žª¯¢ ¥±°ªµ·°²®ªº¶¬±ŒŒŸŸÆÈÆŽŠ¯Ž»¹ÀÂÄ¿ÅÃÄÄÄÄÂœÂÁÃÌÎ萒Š†‹«ÉÕÌžŒ»µÈÐÒÏÍÌÈÇÈÆÉÈÊÊÎÑÔÕØÛÜÝ $#&-*+'*-+(&&"*,*)')Bm‹’‘‰Ž—š›™˜™———•——–—••“•”Z\YWZXZY]UYXahxƒŽ’šŸ £¥Š¥€¡™p^KCBHOUQWYZY]\Y\]\ZZ]\`ab_a]Uw×Ǖˆuq__`aZ]XXeXfbYiplqkcmskil†Œ‹Ž‘ˆ‰“—xŠ™Ÿ“¥±¬© ¡¢ ŸŽ±¹±™”Šµ¬©¬§¶Ž¬¯®§°µª°ÀÁŒŽ¹°€Ž»¿¹¹µ·¿ŒÀÂÁœ¿œ»ÂÃÁŒ¹¿º¿ÇɖŽŽž»ÎÑœº»³ŸÎÒÏÌÊÇÇÆÆÇÉÊËÈËÍÑÒÔÙÜÝށ#)0/.+,**%%!$(,-0-2:\Ž‘ŒŒ”™šœ›™——–š—˜–”••–””‘\ZZYXXYZ]XWY`hxƒ—ž£ŠŠ€§§¥š€p[KEEJQSSU\XX[Z[[ZUZ[^]bac`^YQ“ן †wt]``_ce_^]chbjlsogittsmg†’‹’ˆ‡‡‰›‚vŠ”—™¢ ¥š€€ ¡«­³§ ‘£°¬š«š¯«­±Š¶®¥²ž³»«¥›ª­µ»²°®Ž¶ºÀŒÀĺ·Œ»»ŸŸ»³ºžº¿Æ²ˆŒ˜¹ÇÎÁŸÂŒºÆÐÒÌËÈÆÆÇÇÇÇÊËÊÉÊÉÍÑÔÛÝÝÜ_*(*,/.++)$ %,'.+06BGHOSVXWVYYWY[W[YYZWXTMGEª×ÀÊ·¿«š–Š†˜†€mirlhs{ucqn‚‡ƒ€{ƒ|pmwz}‚uƒ‰‹Ž}h€ƒƒsojaZXR:_—£ž€x|vwt[J\suh^U6G6WV!E”—±ž˜ ±œºÃÅÃœ¿ÂÀÀÀÀŒ¿ÁÃÆÆÆÆÇÈÈÈÌËÇÉÊÉËÍÓ̲šdGNSWXp–¿Õ×[ -*&)&*&"#./-))8^‚‹‰–š›š˜›˜›™–•—–—•••—”““•”“•”’–‘X[ZYW_WZ]^^bisˆ’˜ ¥©Šš§§š€”†t_NA=DJNUUTWV]]WX]WYZXXYYUQHF§Íһƻµ¬œ‰xŒƒ£zcdkslxt\ho} -‚~|lp{w|{zu€ˆwf‰Œ€r[_`OD<97X‹”™Ž}€ncfQKNeI?BB:=+(+&) 2”Àª’š¥»ÅÆÁÃߌÀÃß¿Ÿœ¿ÃÁÆÆÆÇÆÆÆÊËÉËËÌÊÍË·œ€bPKLNR\i‘žÌ֙# -!&+)&,#&%,0(%*NqŒ‘‹‰ˆ”šœš™˜š™›—–•–——–••”•–•””–”•””’ZY\][YZXZ^`afo€‰“™£§Š§©Šš§£Ÿ’‡wbLD>FIOVUXWYZZXZ]VVXX[WWWTME‹ÙÃǻŜªš}l“fadjssqYdo| -~~|oyw{z€xp -‰ƒtf{ƒ -pVbiXWddOVlr}| -waC;59Iq\2F=+)*!&'##2y¶£Ÿ¹ÃÅÄÂÀÿ¿¿ÂÿÀ»ŒÁÀÂÅÄÆÆÇÄÄÄÌÌËÌÌÌDz†jXRTNOOVXl“²ÀÑÇ?2"%*),))&*+/*&-[Œˆ†Ž˜›œœ›šš™™š™™˜–•—’’”••–•”““”•••“W\\^]YZX\Yadep~ˆ“œ££©ŠŠš¥©€–‰wcI>@HKOTWUZYVUZZ[WZYY\Z\VUNFoÓÐÀÇÇŸ¯—}jyvykjiely\ghu~~}}{kt{|€yzvy„†‚„z_oƒƒtcn|gay}pLERVPvmLGE55ae=<>AF)#!(&+m³˜ˆÃÉÊÆÂÂœÀœŸŸÀÀÁ¿ŒŸ¿ÂÀÄÄÄÆÄÇ¿ÅÎÊÍÎàmXPNPWQSRYhw˜ŽŸÇÂ_ %"'+-)+,)%..&%!YZ' -cP >‰ª„y•Œ¿œž²°²¹¹¹ž¹žž·¶·ºŒŸ¹œœÀÀÀÄÆÃÀ”WRgf‚†~s{€œŸ¡¢ŸŸª³Ç›."$%')1/+/+*'!$033,+Fv‹†Œ› ž   Ÿžœ›šš˜–™š•••—•–•–——–•’’‘c_^\`\]XZY\]fnz‡‘— £¥¥€§£¥¥Ÿ•‰xaOA@EILTTWWUZZZYYYYYWUVY[\YRHFžÒÄùŮ©–„’trchmzvdcsuyy|ptok‚~{|ˆƒ]uhC70E^G+(&0+%*)ghcE*-,fj=LP. -'!fBM—£r˜»ÃŸ·ž±¯²·µŽŽ±žµ³ž¹žŒ»Œœ¿ÀÃÄÆ×MLXOe_y†‘›šœ Ÿ ž¥£©¶Ë¬2!#',12-++%+'*+1(")/a‚Ž‹Œ†‘Ÿ ž ¡¡¡Ÿœœœ›œš™œ˜™˜——”—–”––—•”–’’cc`]]__Y[]\`dny‡šŸ§Š¥€¥ŠŠ¥Ÿ“‡ycOA@FNNRVUWUXZZ\Z[ZXYXV[[[[TLH‚×ȿɹŧ™Š‡žtXgvz}‚{a]nswuswumm~v`W]x†[U=?6IR45&%54 &+LyAG-%3ftVR`$ D+eZ—žx{Ÿ¶Âö³¯®²¶µ³±¯²°±µŽ·¹Ÿ¿ŒœÀÁ«WM,Kycdcp‰—Ÿœ  ¡ ¡š¯œË«:!! %+*+2/01'%&'-/.%.=oŒ‰‰™Ÿ  Ÿ¡ žœ›˜™˜—š™˜—˜–•–—••”’”““aa``^^\\\]Z\cp{†™Ÿ¥¥ŠŠŠŠ¥¥›•ˆzeO?BDNRSVUVVXXWZXVUVZYY\\^]WQH^ÇÍΜ˰™¯ œ‚tYqtxzogsrvwqowrl~ƒ~q^Q\lZ;7>LC<42,7A# -#T^BM€& -uŸ‹my€¿ÄÀ»Œ·²¯±²®³±­«¬­®¬¶»»Àœ»ŸŒ±vA/+XhJ]‰jzlvš£€š­°œÄ€7% -!#&*-+,011*+&&)++*-:c‰Šƒ‹˜¡¡¢ž£žŸŸ Ÿžœ™š˜˜™˜—™˜—•˜––•“–“‘fbbb`__ZZY\Z^jv„œ¡Š€£¥§Š§¥›–‡{eL?=FLNRUUTWUWUUSX[UXYY_]^a^\VLZŸÙÉͳ–§­ª{Zu~{yurejtvvrpnrqu‚ztmdT;57GF:PLA71!)bM !:ZB,#+;^'$ -l -A“po­œÂÁŸŒº¹³Ž²±³Ž¬¬§¬±±®·ŒœŒ»º¶°¡mHLOA[cVmƒkwcŠ‘•Ÿ£§¯ÄŒc##% -%&)()2335.))$%+--)4Goƒ€‚~ ¢¡¡¡¡¡ž›žžŸœ››™™˜˜™–˜˜––—–”’”’‘“_aadca^\XYWW\jw„˜ ¥§¥Š§©Š¥œ•‹ycLB?GKIPTTVYYXYWVWXUWXY^_`_`\[SKuÍÕ͹²§Ž°zvwxz{qhisy|wvqrlt€yjhima]QM97IR6+% +FtC -%=ZA$,2+1+&MX -0 -E[vcbyŽÀ¿œ¿ž·Ž³¯­²³Ž­£¥¯³°²ž¹·¹³°»Œ°”ZDMaNUXUtq_|•¥¯¹Ã®J%#&$ '*/,)1/3,(%)%%/0,6;Zy€}{‚–££ ¢ŸŸœœžžžœ››ššœš™™™——˜––”•“Ž‘eccb]^^\[[WWZfu‚˜ ¡§Šš©šŠ€¡•‰zfK@>EGLQSQYVYXWWZZXWWZ]]_b_`_\WPN¢×ËŒÁ¶¹WŒunwxqlouzt|vwnquyyunXRSJBAMZP2'!+Ou0 %,<@?*+8*-)#UM#WwpzIt›ºŸŸœŸŒµŽ²­°°°³®š©«³¶Ž²žµ²±²ºŒŸ·¡uUGGqc^do†ut{›²À¿†>&&"%$&+0/-*/..0(()$*/--6Gh€vu‡œ¢££¡ŸœžžœžžŸžœžœš›š˜—™œ›™—˜—˜”—•“•“bacb]_]ZX[VUYct‚Š›£¥Š§Š¥©«¥Ÿ”ŠxcNA>CHKNTSZWVVUWYUZ\ZZ]^^bbeba]QMfÎÇÁŸ»¿{{ -mirneuww{rsnhrxsieqhYE9K@NMWZ>.,("-^d(#-U',,15LQPQ9fJ<``p|mp§šž¹·ž»·Ž±¯¯°®¯«ª«¬ªŽŽŽ²ŽŽ¹·»¿Ã¹­‡bPLNy\PK~~z€³Ÿ^,#$&&&!(/03/.0-0-$!(%,0*3;Rt€zt{ £€€ žŸŸŸžŸŸœœœ››šššš›™™—˜–—––“–““‘ccdb]\^^\XVTTcuƒšžŠ§¥§©§šŠ ”Œ}dM>QR]†n€œ¬³°®Ž·Ž­§š©®šš«­¬¬«­®¯ŽŒŒŒŒ¿¿ÂÆÁ»žwUL@!!"($')),/1/1202("&)+,+'2Ba{wx~–¢¥ £¡ ž¡ž Ÿžœœ›Ÿœ›œœš˜™™˜—–˜“•““`dc_^`\[ZXUTTbs•ž£ŠšŠŠªšŠ¢–‰{hN><045DSJ=4)*.?7FQP5(('&'),(&" >=WLAYlyŠ–«°©¯±³«§¥¡¯ª©¬­«ª«¬€­ºÀÂŒœŒÀÀ¿ÁÁ¿« -`OA3@^R:t}†Œ{f?!%"$%--/132/0/+'#!)/-).:Pt|ru -–¡¢ €¡ Ÿ£ŸžŸ Ÿžœœœ›™˜—˜˜—–•”—‘’“aa`__^]ZZZUPSaq‹”Ÿ£Š£¥Š©šš¡•Š{gL?=GDISRSZYYZZZXXYVY\\`]eifccc\RM€ØÔÏÅŸ—pqqsjisrkjiw‚€ytt_bhVLC?5/))=GB;F<3*F'Id^7!&+')(/&%"#Hd`NKzˆœ£§®®°¶µ¯§€¢©«¬¯¯š¥¬ª¢«¹ŒÀÄ¿ÁÀÃÁÁÂÄœ­ŒhVD4"DXBR~€”ƒd0'! !&&02/-1386/((##$+*(/=`y€zt|Ž˜Ÿ¡¢¡ ¡¢žžžžŸŸœœž˜ššœ›™›—˜™˜™—–••”‘c__`]`_WYWROTcr€Œ•¥§ŠšªšššŸ•‹~hM@=DJNTPYVXW\\YYXXUVY[_aegfhe_\VN¡ÙÓÖÎŽk_otlmssl]fx}|{whRHM47T?*'&&-I?AKP1)E(5buL#('+&#'$ - 9_qFWo’‰¯²®±³ž¹³¬££€§¯°ª›¥€°ºÀÀÄÇÁÀ¿ÂÂÅÁÁœ­šrTD4&'XGGz~ -‡^-&"#'(')2.3/050.*,%#(.)&+Nq‚{vƒ”šž¡ Ÿ žŸ›œžžœ Ÿœœš™›™™›™—˜—–•‘ab]baa^]YYSRQ^s‹–ž££§§©§šŠŸ•‹yeLBA?KOTTXZWY[XY[XXZY[__`fkjhfdbVOœØÖÐҐ^]mmkosqbet}||{los?&0'?F-$((()HO7DS1'F0"Mpw9*&'%# -3sl^U”—µ°±Žºº·°£› £©³­¢•Ÿš±µº¿ÀÂÆÄÃÀÂÃÆÇÆötWK1&$4LAk‡’ŠE+-*'(''.-313=57-'%&(*($*4[{†€v|Œ•”• ¡  ¢¡Ÿž››œœžŸœ›ššœ™—˜™˜˜š—–••“_aab`\][YYVRSbr€Œ•€€§šš§¥ŠŸ˜Š}gRD>BHLWTVX[Z[\[XYWZZ]`_bcefggccZS -Û×ÓÂo]_cihjlbiuush{pjrpM$"1N2''$%+&5KB8J@'I3+R„[TV1 - --{Ž[^‘©“x™ž­³»œ¿±Š ›Ÿš°²šœžŠšŽµ»ÀœÀÇÅÄÄÆÈÉÉÉÇŒŠ„\N5 &&L=Y‘ž†:(%&$'))+/007451('&$&,(+-Dl„ -~{‰‘”•˜ž¡¡  Ÿžœ›œ›ŸŸŸ››™™˜˜™š˜—™–––“”Ž[_`]^[\Z\\WPUbs€•Ÿ£šŠ¥ª§š¥ –|hRA;GHLSRVXY[ZY]ZXZZ[]^^caekmfec]XgÏ×Øš`ccbckhlnwtyxYigg_YI#&IQ%"!+)*(*3K<<=4K9-0?ˆ;,1' '{‘lj–±žšz³­šœ·µ¬€žœ¢¯¶€•š£§­µºœÀ¿ÃÈÆÄÆÈÊÐÏÎÍÁ¯fR=!#&9EF•£‚5&)#+''-.0/2198,%#%&),$)4Tyˆ{€‘•“‘“‘•—˜œŸ›œœ››œ ››ššš——˜˜™š–––“’\_^`__]\XZWRSasŒ–¡ŠŠ§šª§š¢—Œ~jRC?EFLUTVZ[[[]\Z\\[[]\Y`€jhjgifaXY·Ûؓgdkkfh^d~ypmjMDMF:CF0(UD$$"4(4(*(:A45;M7<-5@" -!iœkk˜¶¢žƒŽ¢¡š»­±ŠŠ§¡¡§¯™Ž› š¬³µœœÅÀÅÆÆÅÅÈÌÍÎÏÏȹ™pVC' -"-A:v˜©Š7-.*,04./-03:62*&((,0."(;f -ŠvŠ–›•”‘“‘“”–™›š™œšœœŸŸššš›œ—™˜———–”•’’\``[_^\[[XVTT`q‹˜¥Š§§©ªš§£–Œ|hSDACHJPSWZ]\]`\^ZY[YYYa‡•dfkhhec_]ˆà؃hfoohYd|yt~kZVEGG+57$*d6%$--.AN#!""GJ<5*54',1).A0 *\?@<%.„=8† -lz¬¥Š®º·°±ˆ ©œÂ¯ Ÿž”•¡¥Š¥«Ž·Ÿ¿ÀÁÃÄÈÇÉÊËÍÎÐÐÑÐʹ•nW>) !$/@z¢“`6)'-12/2516:31'(+-0-&*U|‹ -~‚’ ¡žŸžžœ—–•“•“’’‘ŽŽŒ‹Ž’’”•˜˜“•’”””“–““’Ž\`^]\[Y[UTSOM^q~‹•Ÿ¥šš©ª©©Š —Š€gTBEFRQUVXZ][]\^^^^^[]`bugminnnopmijm®sl_wz~xzzeM,,+2YG#%!/X3$,L1',*%;87%*?(H+ -[b,}‰lz€œ ª­»¶ž°y©µŸ³¥™˜œ‘–š™¢¥Ššªª°ŽœœœÁÄÂÊÈÈÈËÍÏÍÓÓÓÍ¿œzWI0&" +I_€£^.((-00660252/.)&(/,%$0`„‹ -~Šš¢¢žžž›š›œ™—••”•”ŒŒŽŽŒŒŽ‘“’”‘“‘•”’’‘Ž\^]Z[\YVYWSOR`q‹’ž¥Šš©©ªšŠ ˜~fPEAHOQWU[\[[^]a^[\]\_bbikihjkiikhkszq -flnz‚~~wsgN//@!T4!>('/E,KD("+)!I+F)%&3X-,dt’op› œš °ºµžŽžy©»Ž€š”’••—š€Š€šª­¯³ºŸÀÁÅÂÃÆÆÇÊÌÏÎÑÑÒÏħ‚_R=(#!$NQ¢¥Z47$.42448794***--0("/Ot‡ -ž žž››¡ œ›™••–‘‹‹‹Œ‰‹‹‰ŒŽŽ““•–“’[_Z`][\VXZUPS]q‹“ §§š©©¬«š¢—‹~eSDCHKNUW\Z]Z_^`_^[[_a`dfllkihgdcbh‚lObk`{s}{rxq\C#B< - -`:-="-#$3ZV2#!1"&V 2A.-(q7 Tjjšª—›š§ž¹µ¶¬’°±¡¡—’™žš™žŸ€§§©ª¯¬²¹»ÀÂÀ¿ÁÁÅÆÉÇËÎÏÑÑËƳŠcS>' -!%AG™šk:/(,1/149:72)&+*-.&%0^{‡‚„’žžŸœ›››šœ Ÿž  š—–—”‘ŽŽŽŒ‹‹‹‰ˆˆ‰‹‹Œ“•‘‘\_\]ZYZUWYVOR\qŽ˜ž€€šª©ª©§£˜Š{dSE@FMMTWZ\]Y^[^^\_]^`cedjkmomplomtˆPk’œfpvt~qkt\4.a2dK0#-';8]N=,$2!,P -[1'L?"$ -C^Z¬œŸ¡™›§º»Ž¹°«²ª •’™žŸ¡¥¬©©¬«©®µžŒÁÁ¿ŸÂÄÆÆÈÊÍÏÑÐÏË·fR=%#%e# -#dZ" %$>WNB4$$%0'8B -(c*$U&/%.uS‡Ž Š¬Šœ™©¹ºžº²±­Škx†“šžŸ¢Š©ª¬­¬«¬±²¶º¿¿¿¿ŸÁÂÆÇÈÉÎÑÏËɹ–hF3%!"17†®A?/<;1257;2*(.+-2*$2Qsƒƒ}šžžœžšš›žžŸ£¡žž›˜˜˜•’Œ‹ŠŒ‰ˆ‰Šˆ -ˆŠˆ‡ŒŒ^[]\XYXXWYUSP\n‡–ž€§©©«ªª§¡™Œ|fREAHMOSWY]^^\W]\\Z[_`beiimmlnml—·“u$*/?p|wyndjP+@KY - 4oI -&+59.-0$ %%+,7* ->^(8H5##l[q¹§¢­³£”’§»œÀŒ¹§bBRbhv~€ˆ”Ÿ€š¬¯­ªª©ª°±·¿ÁŸŒ»¿ÁÄÅÄÇÌÌÌÈŸª‹^6+'!0;u±‹G438395;A@2+(-*-/')5_~„yƒ“œ›™››™›šš™œœžžŸ™———•—“’’ŽŽŽŽ‹‰‡ˆ‰Š‡‡ - -†Y[ZZ[[ZZ\XUST\p~Œ–ž¢šª««ª«Š€˜|iRFCIMLQVYX^_^_]\\[^\^adhlllonnrǙS5 9ˆ«±p\\L)1P[6!"H}A -+#),./4&&0''6@6,@L1@) -Sbd§¬€¬·»œ”˜²»ÁÁŸ›^Yab]WZMVcnƒ•¡ª±¬ªª«Šª±µŒœœ·¹»ŸÀÅÅÇËÊź¢ŠiK3*# 1B[µ_/.>6418>7,(()/--&)Ah†€yŠ˜›šš˜˜šš˜˜™™—›œ›ž—”•™–—••”‘‘“Œ‡‰ˆ‡††‡†‚‚Z]\Z\[]YZYUTN[o–£š©¬ª¬«ª¢šfNDBGLLXTX\_\Z[`_\^\Z__dlijlosrz±•K2)(`¥›jDC@0Y,L87: -;ˆt\ššŠ­ŽÁ¶–•¢·»ÀŒ’s{Šˆˆ~sgR9:;K^•Š©©­©Šš«·»Ÿœ¶ž¹»œÄޟ -m`S@3/" "$.8N°—l/*4;;59500.)+,3,*)Lt -||‘› ˜š˜˜˜™—™–—˜™˜™››š–””•–••“–”—“”‘‹Š‰‰Š -†__\\_[[\\XVTQZm~‹“ŸŠšŠª©¬«©£˜Œ€jPDGINPRVX[a]]ZXYZY]Z]bbejikmwƒ€‚–k4& -#_‚sQY7L?1PR2$,RNYV!.G81D>B'+! -#GO_#K*#s’bŽ· ©³ŸÂŠ¯ŒÂžƒn~‰‹‡–“ƒpbMD;7@Z -œ¢£ €š¬µº»º¶ž¿Œ¹ŸŽŠˆjZJFN\YWJ,($")8L¯•w8/.B>9=6.%,*(+4.+/X -}z„“œœš™˜—˜˜˜—–––˜™™™šš–—•”•–•—••—˜–”’ŠŠ‰†„€‚}[Z^[`a]]ZXXNPZmzŒ›¥ª¥ªš«««¥˜ŽiRDGINQXVYa^[\[\YTZX_\]b`cgh}“† -h2K@ axwJJK7/?]H)+O]*Au$#&;/"&A[5 -!""2Ef(:O“xµ¥€¯ºÄºš–ªŒÃ³rkuu‚€€bŠ—‹sxYXQJGJ`œŸ ¢§²·ŒŒž·¹¶°¯ŽjPS_^jl{e\L2/"#%:Bª–sA+.B05::.*-*..0007dƒ„{{™›š™š˜——˜˜–•—••—˜™™˜––•””–•——•–—”•’’‘Œ‹†„€}Y]]^a]^Z[VRNL[o~‹”Š©©š©ª¬­¥™‚lSC@ILPUX\\\Z]Z][X^ZZ[]c`cemŒ”“Œ˜ª|ŒYsl€T:4+7JnC:BeB(h6&(N( 9a?! - )"!#0E -2Œpn±«£­ºÁÄ° £·Å§_\d`aghb3ZˆiVZ^p^e\__t‹“•œœ€²¹Ÿ¿Œž»³€‘qlejhOP_YHF@5;%$)?>Š™qT(+@29:4+(),-/-(2Gs„‚y|™›™˜—–˜•—–––•••—–™™™—–•–””””’•–™˜—™“‘“’Š„ƒƒ~Y]\_]\ZY[TSLKXp}‹”žŠ««©«««©¡›’„jTC@GKLVVYZ[][X[ZYYTX[Y^do„‰“•““ŠšŸ›nD;6)>3;MlO/JEh7#JJ#,S$ -P_'$&#&&# &'iŠ`³£š³ÁÇÁ²š³Ä›MNPKR;994'3E/)/Km[uolms‹”—•¢¯ŒŒÀŸ»¹Ž™ƒtlL=0+-558>8@)% -'D:€kY.*C4:4.*))*).*"0Z€‡y†”œ››™˜•–•˜—–•““–––————•”“““–—“––•—–”ŽŒŽŽŒŠ‰ - -€X^\[Y[X[WXPOHWo}Š‘ž€š¬«­«¬š£™kSIBCJLRSY][][Z[VWX[UUVg‹›™†‹Ž““Œel€Q$ (GIMbw:7YFm5!)EC+']$ -$0l]/"#'' -D•o~»€©®ŒÆĺ¶³Â‘BB?8,1,,)(),-+$%3lvvsw†“— ¯»ŸÂĺ¥Q<1),+('-0/2:7#% -"E3 ¥pYA)=966.'),*,0*-e„„}}Š–™š˜™—––•’–—–•–•–—–˜˜˜””“•’””’“””–•“’ŽŠŒŠŠ‡ -ƒV[YVZWUTTTLHHQh|Š”ž£©ª­¬¬ª© —„jSF=DJMOMXV_[YXWYWXTPO^’ŠÌŽ‚‹‹’‘ŽzU0NB -%VgFLpCTCRRz4!'E#A+e'# - -=mi> - %%$~€l³¬£«²œÈÀº»œ˜A87+*++-'$%%7TK0$!!4d~yuw~ƒŠ– ±ŒÆÇÉĬo>1,0+<<-)+2302)&% '<1˜¥nZ>6;861)'**+-0(!7o‰ƒ -•œšš——•’–“““•“–—““•––•–”•“”•’“’‘”““‘ŽŒŠ‹‰ˆ‡ -†„VUXTUWRSROMDCNgzˆ’Ÿ§ª©©¬««©¡—}kQ@>AJNRRVUWZUUWTWRPKI”Á¿Âs„ˆ‹““wqA@0" -bl9+f9,MSHlw, --A%58j3'&!!#CeVK0! - -X‘^š»€š­ŽÄÆ»ÁšAB9-'())('$,2XŸ i7! #Ap{tu}‡Œ“ž°¿ÊÌ͹d,+&.5Fh{S)!(./.$*'!'A.”­rS:4@>4/'&))*/*)*N{Š‡€‹—œ—š—•–”“’’•’“’˜“’–˜•“”””’–•““’‘‘’Ž‹Šˆ‡ƒƒ - -‚‚U[YTSVRRQMHGBMf|‰” šª©¬««¬©¡—Œ~kRA@EMOSVYXXXW[VZTROMJŸ¶Â“u‚‰“‡Yr?9&(Lc6#WH -!HmXfT)",/ )$[L(&#%&)-%8G+ -*‡qpŒ¥š±¯·ÊÅÁÅ¢MKB1'!/F361 -/DJ·Ä±Š@/QAgrmq{‡‡”ž®ÄÐÓˀ5+*&+= -kœx@&#,,.((' -,A(‘ªqVJ:E780&'(1/(&&5bƒ‹ -™™˜—˜–—‘–•’“’“”•““•’“••””“’”“‘’Š‰ˆ‡„‚„‚€}[YXVVWUSNKIC?Pi}ˆ•Ÿª¬¬©¬­®­©—|kR@AHKSYVYZZXWZ]ZXSQM;n­¯²”ŠŠŽpŽO+*!0VT&%CA4#'KrMgO-'%#"&!@g3' -#$.(!,+ /<_‡\®¶€­µ·ÄÈÆƳZYN:,(&9]FBQ/:U:·Çƹ€@d[Zlgnu~€„’¢¶È×Õ¥T=0B+.>RešQ2&-'*(&/'+F(‘©JVMgzˆ” šª¬¬®±®«¥™‹~mVCBIKVYY]\[^\^]Y]XT@'] Gnºžœ“ŽgBD(")VY0#C?/I'/TmL€N&&(')" 1q;%&#%/#" -9oU~¯—Ÿ°ÀÈÅÁ·m^k`PI2%?]k;HNJ5qÌÎÌÈ£ZPlVcekpx~‰˜¥žÍÕ̃Sf;WQJS:‚¥X6$"!'%%%"0F&‹­ˆFXAP06)&+,.-)*,Qzˆ -‰“™—˜—–˜’““““‘‘“””•’’–“’’’Œ‘ŒŒŒˆ‰ -†ƒ|}y{~†Ž˜]ZYWYXXPSNGB=Lez‰”ž§¬¬«°°®¬§›Œ|lWIDKNSYZ]_\^aY_bnH51'0™t¡µÑØžh+#$" -)LL34/B;3@=CiqPƒX$%,(4&#)Q/&,$",'" -!'*ih[£– ªžÂÆÂÁžoelwtqhS)1]leA4>nžÉÊÇœšw_qffpipy€ˆ—ŠÁÔØÄjdjGTTBj«€‡T4)&&'##"":D+ -¬ŠDRHM10).-*5+&%-_‚‰ -„Ž˜š˜–••–‘””’““’‘“””‘’’“’‘“ŒŽŽŒ‰Œ‡‚ƒ‚|}z€ -— ©X\ZZWYWQRPIB,F9Np€“¥Âïß3A #$F]MF:&AHMLUBndB~f./'$0%!%4)./$$(& -*S‡X²“«±ŸÃÄÀ±mjolq{kNIZjzun„°ÁÇÌȬ -‰vixkjpuvz‚”©ÈÚØžhUpƒq\`|¬­¡~R3,+',,$/)=>,t®‘KPOL7(++&(0.)%:j -„‚ -’›——––•“”“‘’‘“œ“‘”’”••“’’‘‘‘Ž‹‹‡‡††‡€}{‹“š¢š¬Ž\[]XYYWPPPKA>Kh{‰”žŠ«­¯®±¯¯§œoYLLLQUZ_bebdep-#%3e|’€¶¬ÏJ+,X();`|hQ Q-THDItu;ŒoO45#& - (*(2,))2& - -1‚dq¿§£°žÅÆñceqsxuƒ‰ -ua[]n|‰“œª±²­­˜ˆxxyqlluwt‡”«ÄÛصfdq‡‡š¡–„bA'87//+)3,B<-t«œZMX75.#)$)//#.Kw‡„~‹–š–”˜”’”’’’’•šŸ’”‘“””’‹‰‹‰‡ƒ -†€}‚Š˜Ÿ€®°³·»a_\[_\UPOIHE=Jez‰•ŸŠ©­®°°°¯ª‚mYJIOUW^_eegdtj"!@_“’‰Œ†™°w10&'V``eT?V/ -,f(WH>Jf‚Y`SAI$& $&(&(%(-( - -_„V¡¶¡«·ÀÈÄŽa]kxw||‚†‡‡‚tztalXs~{y‘¡Š©ž -rqputwxƒšÂÛÜ»Š‘ -‹{t‚‚`L?41MB/0+&3-A6(m£ŸgEV>7&)*(*5,+K^{ -~Œ˜˜•—–•‘“’’‘”š’’’““••’‘Œ‹†„ˆ‡ƒ€ƒƒ‚ˆ“Ÿš®²µ··žŒ\[__Y[TPMKF@1dX$#',`5RY)Cglk~Ud{) %'("&(%$-+" -:‡bm¶žš²ŒÄÆž^Vet{} - -‡‡†ˆ‡ˆ|ms_wxorŒ•–‹~povzsut‚¢œÚÝÀ¡“‰ƒ€lhjgO@=LJLA-.&"-0H;,i¢§uBY>.)*+#00),Jn„‚†“›š—””•““”’’‘’‘‘”‘“‘‘Š‹‰‡‡ƒ‚‚€ˆ•žš®³µ»º»¹ºº]_^[YYRPILGAE]_y{x„9-+#*+#*('.*# -"vƒ]’€£®²ÁÈ»aJ]kv{€‰‡Š‹Žˆ„‡ƒ€x|‚€Œ’•‘Œ‹srz|wuszŸŸÖÞƪ™‘†|w{tviUMUWSF-0!%(.?:(g¯}EP7),'#%:.%'Pzƒ~z‰˜š——“•’“’“‘“’‘‘’‘‘‘ŽŽ‰Œˆ -‡„‚€Œš¥¯¶ž»Œœ»Œ»žº[][ZVTPLILE=5F_v‡” Š¬¬¯°±²­¬Ÿ’„rZFELSV[_abaa_x‘Œ ž„gHB5!'''%(,)%%HŽiq³¡ªµœÉÄeHVenu‡Œ‘‘‹ -‰‡„†ˆ’—›œ˜™› -xy}~wstv‹¡œÑÜ̵©›”‰„€wtoa__`YJ15"'+1<7*c¬€FD6+/,(*9)"+[€‚~}Ž˜–˜•‘––’’”‘‘‘’‹‹ˆ‡ˆˆ„|ƒ¢¯¶¹œŸœŸ»»º»¹»\YWTSOMJIF@5.=]x‡’œ£©®°°²²²ªž’„rWGGNPT[]adabcg›Œnl\94L[@0 (H/?DY]UQ^?&!!2B93hp_eYSd?[/*&$&$$#,)))" -*~z]­°ŽœÈÉv?Tbgo{|„’’˜™˜˜–‘•‘—š £ž¢šŸ—ƒx|ƒ}tvuv‰¶ÑÝ̹±Ÿ—“ˆzwwpjihaP64$)+5>8)_œ± -JG:+-&!*/&%3h„‚˜˜•–—‘’‘‘‘’’’‘‘“‘ŽŽ‹‹Š‡ˆ††}|€•ŠŽœ¿ÀÀ¿œœŒºº»Œ»[UQPRMIEHF=63[jnQ.Fa5 -"-2OQ10}Žm>OQ’G#')&+%#%(.,+&%U‹]mš¬¶ºÄ͉8IZglqx‚ŒŽ“•› ›ž¥¥žžžŠ§€¢ž£ž‘‚†ƒ|wvvu‡ ¶ÏÛÑ»±§›”‘‚}xsmke`T51(+.6:2$X°G@5&1%",,#$?q~‡–™•–—”“’‘‘‘Ž”’’‘ŒŽŒŠˆ‰ˆ†}€˜ªŽœÂÂÁÀŸŒœ»ºŒ»ºŒTRQOMKKEEE:63BXvƒ‘£©­­®²°°šž“„r[IEJRUY]accfgngb‚‰u„’‚Z520.Oagqruˆ“•š£› ¥©¥¡¡¢¥¥¢¡¥€ —Ž„†zuwur€–¶ËÛÔŒ°¬ –‹ƒ}|wroleT;.%)3/?2 R°–O83#1)%-*%*Rx -Œ˜š˜•–““’’‘‘‘‘Ž‘Ž‹Šˆ‰ˆ„„‚~‚–©¶œÃÄÿœœŒ¹žºŒŒœQTYPMLKIDB:43?Vr„”žŠª«­¯±¯¯©ž”ƒmXIELRTWX^bjt‚ŠŒ—˜ƒjbO:36>2L]GlfSgpW*!**0S_gk\P -“h?l[LF (+$&&'%"#aŽ\m°«ŒŒÉ¹?/BTejntv{‚‡•™ £¢§ª¥¬ª§¥¢£ª©§ž”Ž‰ƒ†ƒ}u{rs}“±ÊÛÖ®š§™ˆ‚~ysroi[;0)+25@+ -Mš«˜X4& -5!*0(&-bƒ~€”š™–•–’”“”“‘•‘‘”‘ŽŽ‹ŒŠˆ‡ -†€€•Š¶œÃÅÃÄÁ¿¿Œ»º»ŸŒœ¿NPWMJHGFC>;3/>_t†’œ¥©¬®®°±¯ªœ“‚qYEDJNQY]g~”Œ‚ƒ‡€J27M:18869WSLkQs{Y:)+%!#$):EInxwD'$CƒxbG)*(*''&(#0‹uf²žŸÆÊT"2FWhjpsv~ˆŽ”™Ÿ€ŠŠ®š£¬ª¬ªš©ªŠ¡™ŽŠŒˆ„~yyuw}ŽªËÚÕÄ®¢›–Œ‚|zvwvnkX73&376C)#@™©šm4+#/$,,$$Zt‰‘ž¥©«­«®³°§ž”„pVHDIOS^u|sjpxtx`K78218Xu -’ŸŠ«ª­®²®­©ž„m[HCLNU_daegnzeYPYPSPB<01?Xe2Gyo:@B+-&''&&.)(?K0I% -"Xwd]*&$% )" -7‹xk»¹¹ÄŠ'#,8Qblmrqrz‚„Œ”›€§š¬«®°«ªŠ©§¥ ›—‹‹‹‡ƒ|zsx{Ž¢ÇÜÝË®¢š™—Žˆƒ{yuvsgQ11&1,7L) 5‘¢‘2#$4,(&&W~‰ -“›—–’•–•’‘‘ŽŒŒ‹ŽŠ‰ˆ„€|™®¹¿À¿ÀÀÀÁÁ¿ÀÀŸÁÂÆÆÈÈIFGEDCA@A?851;Xtƒž¢©«®®®®­šœŽƒrXHELPWXbcdglvTPGHZ^C^E/@^j:0Sˆ`c:FB,$%(/,)-))6-,K'#Vtx‹c+ ! -# -^ -gq¹¹Ÿ»ÃF!'+>Tdimsvwzz€‰ŠŠ‘™ ¡Š©¬¬¯¯§€Š€¥›—’Žˆ‡‹„ztuz|ˆ€Ã×ÛÏ® ž›“Žˆ„|{vwsdJ2.&0+8L$ -2¢ƒ™:#'&8,(#0b„‚‰–š–•’•““”‘Ž‹Ž‹‰‰‡†„|xŽŠ·¿Ã¿¿ŸÀÁÀÀÁÁÂÅÆËÊÊÊHHB@?A>>=:52.+5Xp^–†I - - -.†rjˆŒ»ÃËz'&.-:Sanmnwzy|ƒ‡‡‹‘–Ÿ¥ª¬«¯©Š§£Ÿ›˜ - -‡xpvw~‹ºÕÜÒ°¡ —•ˆ -~yvtpeC4))*(7K$+©‡šQ! -#<0,(>r - -–¥Ÿš—–••–’’‘Ž‹ŽŠŒŒˆŠˆˆ†ƒ~}{ƒž³ŒÁÁÀ¿À¿ÀÀÁÀÃÆÇÊÊËËËÊCBCACCC>:;4.-:Tsˆ™¢¥ª©§ª««¥ž‘ƒrWCDKU_V[^bdfe^‘ƒfDNgY?l\6678,P€Sd.72,*6'()%%%2]%#3##WkTd£†C" - -!U„bp¯ºÅί, -(1,;P`iostxz‡ŒŒ‘•œŸ£š§©ªš¢€¢Ÿš–ŽŠƒ€‚{urrw{Š—­ÐÝÔ±š˜Œ -zxto]=-#-(/B2f -`|9233,9')"%) 1D120%5\€sAe™Š,!%ztcÆÅÊÍQ - -,:.?N\eksvvz|ƒ‚Š”“—ž¡šŠ§Š§¡€Ÿ™’Ž„||{€zsspt}„•¬ÍÛض™™—“ŠŠzxumX7*'/00=L! -"| ‡p4 -(1/$+b€ -ƒˆš›˜——”“•’‘Ž‹Œ‹Š‰‰‡Š†„ƒ}}‰¡µŸÁÀÀŸ¿Ÿ¿¿ÁÃÆÊÌÏÏÍÌÉÉÈIBCCED@?;92*(<[r„š Šš§Š­­­¢›‚pXAB@ezTUiˆ›‰~N#/EuXiQ.,4jJ>CŽ|lfV,1=14$ !%$7MCE(BJh•M7s‘<HˆjkŠÇË̋ - -.?+7LZdiowvzz~ -‡‹“”˜—œ¡ŠŸ€Š£€ œš”Ž{|{zxvnnsw~–­ËÙÛÁœ”‘Šˆ‚|zyrlN4"%/71=O! -&p „’x9+0*#=k -„‚Œœ››œ–˜–•””“’ŽŒŒŒ‰ˆ‹‡ -ˆ„ -{€˜°œÁÂÁ¿Ÿ¿ŸŸÂÅÈËÌÐÐÏÍËÈÇÈFFDDHDE=783+):Rr -Žš£Š§ŠŠš««¢›„qSBB@Vˆgk– -iwx<,Ar{TcN541PWpGa|g{M~458-2$ - - -#0PlP;(M[°°j&Kx2 y{lwžÇÊš' - -3D0:J^bjruwwx -Š’‘–š–š  ¢¡¢ œš–‘Œ}xy{utooqt‚“©À×ß̔—“‹‡ -|xxsbH0%()69AO" -#b“7))&#Ix‡ƒ“š™›––”“”•”‘’’ŽŽŒ‹ŠŠˆ - - -€~|‹€ž¿ÂÁ¿ŸŸŸ¿ÁÅÈËÍÏÏÏÐÌÌÈÉÉGFFAB@@=:5/,#2Tt‚’›€¥§šŠš«ª¥œƒpUB@@Ii‰~pbgtnF5Ux`HZL`2EYOs:lkiM{4&+21% -"30=dT1FXp^©µ$1J< -jn”ÈËÁ@ - - -1N3CJS_qkduyk;=RGLgXAKTAC{68eEr˜Q>_%,#-.*#!3I9D[ˆbK6^S.%(,Svgo’Æ€‘' - -;\5>IU`imruxz~z€ -Š‹Ž‘–—˜˜œ˜”ŽŠ‡ymjuz~xtrox~Šž®ÓåØŠ‹ŒŽ -€{usjP'#&+%6>B<-!B‹›Œb)# -!Fq‰ˆ„‹š˜–”””‘’‘Ž‘‘Œ‹‰ˆ -„}‚š²ŸÃÂÀÁ¿À¿ÄÉÌÐÏÏÎËËÌÍÎÎÎÎÍJGGEEDA<52/%,Oo€‘œ¢Šªšª©¬¯§Ÿ’ƒpYA;FXqzk`cijS:CS@YtIGG@4ie'>wCke1q&#(2?+!+8I_dR‘uTN9" -%$u -xcbŠ•–„7 -!!$<^=>ISeiostty{‚‡†‡‘““—–˜˜˜’Œ -„ncmz€zst| -ž±ÐåØ€‰‹Œ‹ƒ}xvpe<&$'-)9A??+ 0 -Ÿ”“m-# -#Y{ŒŠ†š—–””“‘”’‘”ŽŒ‘‹† -‚{}Š€ºÀÅÁÀÀÁÀÃÆÊÍÎÏÍÌÊËÌÍÍÐÏÍÍLNHGEDA>;40%!0Sq£Ššªª¬­­§ž“„pVDF^{zb]afkhM@8TOphEL;*%(}¡•r6!#bƒ‹Š -–™™–––”‘‘‘ŽŒ‹ŠŠ‰‚‚{€–¬ŸÂÂÂÀÀÁÀÄÉÍÎÍÎÍËËÌÌÏÎÎÏÎÌQJGKEG@>:65("9Vrœ¢ŠŠšŠ©­®š¡“‚s_Wde_VVZ^jogK:7V_j^J>%:ap@,+nUD‰Š0[o&-('.G -+=0$ -SbC  -$¡Š©š°²ªk. - -"%$ -@^E\u -œ¡£šššª­¬© ‘ -ubSBDKQV\^emdJA@VVygI: -E’Y;A)d^Q€ŠFCˆ*)*?3F -")53)v„( -!#% -,«¬·°·µŠb) -") <^KCRWdjnnruuy€ - -ŽŠŽ‘‘“••–•–ŽŠƒ{ly|p7*?Y_mpr}ž¹ÅŠ‘Œ‹Š†xuqX*#&&,00:D3=')! -g›Ÿ€~B$%?vŠŽš™—••–“ŒŠŒŠ‰Š‹‡ˆ‚zŒ¥ž¿ÃÂÀÂÁÄÈËÌÌËËÌÍÏÎÎÐÐÏÑÏÎÍGGFDEEG?:8934GfzŠ’›¡Š§šª©¬­Š¡“ -v_F>FLQV[^efUFNCTY€\D$!gx9BR6V`SvŸ`5Œ-&%E7:. - -#>E„t*&'*$_›£ž·¿œv - - &(& -=hOFV[ahmnrvwx}„ˆˆ‰ŽŒŒŽ“••”••–ŠmrwkQG[]RQcmw°ž¡›‹Š‡ƒ{xm>(%'&,)0==9>'*(S› xˆE4OŽ‹‡‘˜˜–“’’‘Ž’ŽŽŒ‹ŠŠŒ‰‡‡€“­»ÂÃÂÂÁÃÆËÍÌÎÌÍÍÏÏÑÐÐÐÑÑÏÍÎEJEDCEB><><::Ok~”¢Šš€©«­­© •ƒtYG?IPTZ\cfmVQIHPDTC9O_7TV+WmUo‡ƒ>; -'(ht-# -"bn12.316In‚“Š°–: - -)()#'#%AkQDY^igpqquwx}}ƒ†ˆ‡ŒŒ‡Ž‘‘•—”—’ŒŒ‡wnqtvvxwleamu‘µ­¡—Š -~xw],(-,$/,3AB9@%)* -@–¡€ŒQ 5cˆ‹“š˜—•”‘‘‘‘‘’’ŽŽŒŠŒˆˆˆ -‚}ƒœ°ŸÂÂÂÂÁÆÉÎÍÎÎÎÎÎÍÐÒÑÐÑÐÏÍÍÍDICGB@B@89??EUn‚Œ•œ ££€Šš¬°¬¡’‡v^G>GOQX[cqjVE.BTCE3 -=y](,$ -3‘€~ŠY)5sŠ‰‹˜™—••”“‘‘ŠŠˆ‰ˆŠƒ~‰¡·ÀÂÂÂÂÅÉÊÏÏÍÍÎÍÍÏÒÒÑÏÑÐÍÎÍÐCGDC>FEA:ADEA@<54?Taw†—œŸ¢€¥š¬®¯ª¡–‰x^HAENUW\c|m@,8S=Tkw>0*/=DNdz‡‘™œ¢£€€Šª¯­©¢•‡u]JAGJOUVq‹pdC8A>>B;755>Rcx -˜žŸ€££š©¯¯«£—ˆx_H=AKNUhŒnjf57?Nzh$)M-3-A8D9K@Rn;KmtŠvR7|P21$ -4Ibˆ–ªŸŽ\^Qc«h! %0'(%',@2(* -3b^\U`fknrtyws|~‚€‚‚ -ƒ - -‰‹‹‹•‹Š‘›±ÍÈŽ©ÄÈÀž¥–ˆˆ†€o.((*)*&/;8CL;B4;-) O•‹~Qiv‰ŒˆŽ—•”•”’ŽŽ‰Š‡Œ‹‹Œˆ‡ -|ƒŸ¶¿ÂÂÃÈÍÐÐÏÎÌÎÎÏÎÐÍÎÐÑÒÑÑÒÑÑÓA>>><8<<98:DJ`s„• £¥Š©š«­¬¢˜Šu]F=EKKZqavc47QfxK$/;F<8?/R=>@Ak5DjzoptW—/,6?P`]u‘ŽŸrXPX“‰'!)*1.(,'3?<)(#,^[eJ`ekprvuwvz|†€„~ƒ‚ƒˆ‹Š‰Š‹‘‰‰Œ’’– ŽÏÊŽ¥»É¹€ -‡‚{T(')*()*/96HI>B-92*"QŽ•zQu}ˆ‰‹‘–’—”‘”“”Ž’ŽŒŒŒŒ‹ŒŒ‡‰ƒ~||†£·ÁÂÃÆÌÍÐÏÏÎÍÏÏÏÍÏÍÎÐÓÓÒÑÑÒÑÓ?<<;;<;;45HH:=?XS-5j„j†n$!Csq_c€›§ÀXPV{Š' 5>-*%-+.??0& (`X`IVegqpsuwx{~‚ -ƒ~€€ƒƒ„‡ˆˆ -Š†‡ˆ‰Š‘– µÉλ¶ÌÈ»ŠŠ‚‚v1$&'5+((36=:86:=JZtƒ‘–ž¢€Š§ª¬¯°«Š–‰vbB=AHoYZarT9=*gX/3/E76H=UKQF>FGUQ,=wq}A - Ct‡¢Ÿ¡ºŸ¥S^Xq«L'"!FO,*"/*/;J5##)YS`LS`flruvwvx€~€€‚‚}‚„„‚ -€†ˆ‡„‡“˜–——€šœÀ«Ÿ©£~x|ƒ€Y+&$+5)(..;BY -_SXcS2$4go351:6/;:JdR[OLE;gL/@Sq~t.#gZq¥ÅÅÉìY^Ocž{ -! "@T&(".-2@?6'"*\L\FMZfoquwxtyz{}„ƒ€€€ƒ}zwvy}††ƒ†‚zyw„ƒŽ‘ˆƒ‹€fs‚„z3)&(-++-//?9CI@H<4<( - 0 -lm~ˆŒ‰‹•—•—•’ŒŽ‹Ž‘‹‹ŒŠ‰‰‡†ƒ{xŠºÁÇËÍÑÑÐÏÍÏÐÏÑÐÏÑÑÓÒÔÔÔÔÒÔÓÓ112215;:637@IYu†“œ ¥§Š«ª­¯­­£—ˆt]A:N|mNR`x†I+%E2U;66=:2-3OwVa^OEK9+:2 - *x›l{‚Œ‹‡•––•““‘ŽŒŽŽŠŒŠŠŠ‹‰„€zx‘«ºÄËÍÑÒÐÑÑÑÐÏÍÐÏÐÑÒÔÔÓÕÔÓÓÓÔÕ201368;6537-0X„odZeQM7Fls]:YDC|€q—ŒÃÑÆ -R`WuºW(*,!(@1!&'-43>G!'Z>WICValmvyuvswy~ƒ -ˆ† -nUUIFLQVW]d[WTNKQ\fjnbZS_pktƒŠ}8%'&*.''-.<=3K>CI7#B<#%)kšy‡ƒ‹Ž˜•”“““’‘‘ŽŽŽŽ‹ŽŒ‹‰ŠŒ‹Š†‚}y{“°ŒÅÌÐÒÒÒÐÑÐÏÎÏÐÐÐÑÑÒÒÓÕÖÔÔÕÔÓ-00135;757:LObv‰‘š ššª««­°°«¡– -t[Hp -XHLd‡‚rA.D5+!6=;D6@<2Vx\X\_dUL\†Y8C3Pz{}ÄÜѳ_[Op°†&&))'$%74&'-.30;G+%&X?PJEQ[impvqqswx}~|€Šˆ‰†wqsmc\Z^cilkklhikjs}€„}sw}ˆ„Y'''(.+&'./@23JC?K7(@D$$'^—~ -‹Ž——–•’“’“‘“ŽŽŒŽŠ‹Œ‹Š -ƒ~z~™±ÀÊÏÒÒÒÑÑÑÏÐÏÐÒÒÑÒÐÓÓÔÕÖÔÓÔÓÓ/021326537AQUfy‡‘š šªª«¬°±¯ª •‡p]zYDGUx -ofJ98A+.&-)F78I-\œuAT[Z_`WXBSUI[r‘†{qžÝÁ[\kŸ¬3'-.,)#(53%'/5425D0%*T7LI8HU\chljkpoptwt{ƒƒ†Œˆ†|tsorswrq{‡‰•‘‹Œ”‘|ƒˆŠƒl)$$$'0)%#'+;&(?UALI888Q*(*P˜“Œ–Œ——˜—–˜•”“’“•‘’Ž‹‹ŒŽ‹‰Œˆ„zw~ »ËÑÖÔÔÒÓÐÒÒÒÔÔÓÓÔÕÕÔÓÓÏÐÑÎÎÍÍ3,/00.11.2AMTZr -‘™ž¥š®¬®¯¯±ª£Ÿ€ƒc?7=Gh’i\eQ/9br2))%>[4SGH‹kp2IV6Zwcc[i`”ˆŠf‘Ïg‡¡Áw...+/22/''.--.*-;04=;(,GBLC6@N[aefghlntsxuyƒ -ˆ†‚}{xrpqtvts}€ˆ†ƒ€}€‰‹‚{I%))%*/(+'/+5)*CN;KF=;2U*))P–˜–‘”–––•’“–“”“”‘’’‹ŽŒ‹ŒŠ‹„€|t~ ÁÐÕÖÖÔÓÓÑÒÔÕÔÕÔÕÖ×ÕÒÐÐÎÍÌÌËËÌ*(,-./0/.1DNXWpƒ–›£¬­­¯¯®²«¢–‰qX@:AR‹{[`mL/-~k%'+)TS+KJL uTƒVToD;S{_|esž -fÁ{Š Áˆ<,2-,/3/8.-0/)212295>>2)>CED7AET\^_filnrrzz|~‚„ -~|yytvrnnouwzzzus~Š‰‰Y7 )').),1,-/5*+GKJU`_]egllnuvw}{€ƒ„‚~{zwytsnlijmlilp€’‡ˆ -d>/%%!$)%/05*-0*-VGEIFB46O/*+JžŒ““Ž‘––””•”•”“•”“—•’‘ŠŠ‰‰†ƒ}wp{¢ÅÒØØÖÔÔÔÔÔÖØØ××ÔÑÐÍÌÌÌÌÍÍÍÏÐÏ,),0)**&*7PWSUm~ˆ–£«¬­­¯°±ª¡—ˆsZA5?l†W]eH*0EN&'$6Y7.%7s¬‰XDŠpyXLGfx‚r_Jt`vj²·Ž©¶I)*.-,+/23/&(/(+1/3312260-0@8L77BFNVZ\a_hjosvwy{€‚„€|~zyzw{}xtqtw{‹‘‡†7?+%'%%-.-;61-/-+YHDKO>39O25-E‘€Ž–‘Œ”•—˜”˜”–••–•———”“’Œ‹‹ˆˆˆ€}vnx¢ÅÔÙØÖÔÖÕÕÕ××××ÔÒÐÏÍÍÎÏÏÐÏÐÑÑÑ.)-,+)+('A_\Z`o|†Ž˜¢©«¬¬¬¯°ª£—Šw\A677M9(->‘ ™ŽŒ—“——–•““–••’•””’‘‹‹‰‰‡†yuqw£ÇÖÙÚÙÖÕÕ×ØÖ×ÖÔÓÐÐÏÐÑÑÏÑÐÒÑÓÑÑ-++*('%')I^a\ar~ -‹–¡šª«¬¬­¯ª¡™‰w\C8=\{_]UH8JDR/+&!BM,;11vš|^z[˜|emhATm}[9o`wxÅÑǃ5&'+/)*).111#)2'-.(+042366+(337=/7==LOZ]`dfotrw{|~€‚‚ƒ‡†‡‘•šŸœ–””•‘‹ˆˆ4'B)!%*),,818*1'+-^JBJKD=BJ;(35‘Š–‰Ž—–˜˜™—”“–“”‘‘”“”‘‘Œ‹‰ˆ -„~xvptšÉÕÚÚÚ××Ö×ÕÔÔÔÔÒÑÐÒÓÓÒÑÒÑÐÐÐÏÏ)*'))**+3P\]\at{†‹—£šª¬ª«­­§ •‰v]I:>PogbHA?\OH/'!$IL%05,bƒfblc{‡jl]LJP}kayIh_¢Î“5,),.10-,-33-'*3+-0'&&20059,(/83>,1@6:GSU\`eirvwy|€€€ƒ„ -‡‹’Œ˜žŸ€£˜“–‘ŒŠŒf'7'%'*(/54=.*.*,/dLEQEB;CL<024‘Š—Ÿ‡“”›˜˜—˜–•–’’“‘“–”‘Š‰ˆ‰†„ysox¬Ê×ÚØÙ×ÔÔÔÕÒÒÓÒÒÓÓÒÓÔÑÏÏÏÎÎÎÌÍ$(')+))-1K__Zcu{„—¡ª©©¬¬«­« —ˆs\F7AN`]_LAFLXC2,#"OH&+4<]|`Qfqj~uymcIF„ijGZb„ŸH.2(),)*+&590+%+4'+1'')+1-040+-625.0B8*6FJSZ\dlqzzz{† -†‹Ž”™•”™¡¥£ ¢›š’ŒˆD#/8%&)(/1607'74',5aMGSM<HSV\gottx{}~„ŠŠˆ’š  šž¡›£ ¡šŽŒ{)$:/',.(.0843&;,+-9fSGVI=DB@7C)0•Š–š‰’”š˜—–’““‘‘‘’“Ž‰‰‡‡‡ƒ~{tn -ŒÑÚÜÚØÓÒÓÒÔÓÖÕÕÖÔÒÐÎÎÍÍÌÍÌÌÌÊÇ''.-%%**7JQWX`s~‚˜£©©ª©¬¬¯«¡™ˆv]C:BM\dD5536w;03+)CD'2)>lve801Eg€~h~~fu~{Š_YWQ?9F--.6*).,655+'-8)-*2'')+220./06/5:.;@/'%+9FKR`jotwz| -ˆ‰” £ Ÿ¢žŸž£š¥™ŒŽŒa&&8-.1..0/6:+&2**-7eQJXF?LDC9D5/“š˜ˆŽ•—˜˜–”““’“‘‘‘‘ŽŠ‰ˆ† -†‚}zqqŒÀÔÜÝÙÖÒÒÒÒÔÔÕÖÕÕÓÐÏÌËÍËÊÊÉÈÄŸµ*%,-)'(&0BOW]gx„™£šª©«¬­®ª£™‰vYB7?J\c/,0+=mM)5:)B<%.&)k€}D.=GXgpw„‚gms -Œ^XX^4<20),.-()*437*&/;)+*5-&+&*24-3+0539.6>@+&$)4@IWdkmnuz{|ƒ‰ˆŒ—œ £€¡Ÿ¡ ”ˆ€W!&7,032//17?).+.,-AhQEUB>JDE6G-0”£—ž‹‘’–“”’“‘’““’‘ŽŠ‹ˆˆ -„ -„{wpr–ÅÖÝÝÙÕÒÑÓÔÔÖÖÖÔÓÐÎÌÌÍÊÉÅÁœµ©–y*(&&%"',,8JX^jy{‡™£š§Šªª®¬«£™ŠvY?5:HmF1(*:MMG*6:3?<(++"_|`0IFTe[smŽŠ†l€šFP]Y1-0,/.-..19=?.&.;*,1/1)+.+,3276/246/5B@7,)'+0BGQUYcnntt{‚‡‰“‘œŸŸ€›™š˜—ˆ‡{W&*63342320<;/8*.-/BbRORIDNKH?K35• ”—ˆƒƒ‰‹ŒŒ’Ž’‘‘‰‰† -†‚ƒzupt£É×ÜÛØÕÒÒÔÔÓÕÕÕÓÒÏÍÌÌÊÇùš•xZ@."&)((%"*'0FX[`s|Š”œ¡§Š§š«¬¬š¢˜‡sY<-DwpMf)%>[=B4679=5&*. P”k9DG;UntVj -bz€—•v„x|?(%),,-.,1:A:%%2>+*)01((+$(./531:9:13??A610,42889=GRWbjpt{„ŒŽ‹“šœ—‘†„tG()-.1.232/<3.1.)/7BaVQPKCPNK;J4<›ž˜‘xv|„„‰ŒŠ‘”‘‘Ž‹Š‰‰ -‚‚zrn}±ÌØÜÙ×ÔÑÓÓÓÓÓÓÑÑÎÎÌÉÃœµ§ŽhD+''#(%*)$$%$$4BVUWk|†“˜¢Š§Šš©ª®©ž–„lS6K·ag‚&$1JA0951@,-()("A”ˆ‹Z[O6Fu€YJnazŒ› -‘¢™s6,+-,---3FC<)%/?*-**1)),))--4756884-4 -zwHJ83W€SFyzN„•ˆcB_šo?$"&(,(0EG;#!27*+)*.+'-)(-)0650433,-0462,''" .6CCEay‚˜ ¥Š¥§§ª¬§œ‚€µ·SC:1h:"!%HS=0:;10S30.)Ewyi‚‡U5#4ds”^S_qˆduW2lžžŒ>)++07AM1()??**.)+0)'*(*+/15/06.)+0BHQ_ioxwwrvxy}|}„†‹ŒŽŒ‹ŠŒŽ”™£¬³ŸÀÃÆÆ©uK85.-.1*%(,.@DY\FMSGDNJFC?PŠ‘tkoulikfnjikljmmpswy{~~‚‚~|xsnsšÊÓÖÒÌÎÍÍÐÏÏÏÎÊÇÃœ±¡‚V3'!#'2=FHD><:70--&%+8>;AXn}‰–Ÿ€¥¥£¥Šš¢œ“’žžH8K4L -'#"‹f" # -0MA$5-,-U_=;65(GƒoRxr{€‚šCNLgZ\{e@t€žuGŸt,%-/MUeiqqtsrrswz|€€€‚ƒ‡ˆ‡‚‡‚†‡‡”¢¥®¶œÁÃÆÆÆÇÇÈÆž†M/') # )4OKaCLJCBPI;E7c§ -w{‚|‚~wwtpnhhbbba^^cfhkggjkkjlfdp«ÇÐÑËÉÊÍÏÏÐÎÐÎÇœ± xQ2"!*16>FMLJRxqcUHA8//702*.>Yp -•Ÿ££Š£€Šš°»ª“rW>A^|5!$#"&6L;K -#)AcHC7L$n}mH8O\w•SGU_Onkfi`s•¡dIOšG%-0=I)&(?D'++&+&1-*)+(*0682421-(98j Ž†}‚„€‚†{|yvupjje`^]]\W]`\\^]fgaXUe¡ÂÎÏËÉÌÎÍÎÏÏÎÌŶ¢w@&')0:9?@@DHMLMML†€~peTJDH<2+*=Um„•¡££¥¥¢©Š£™‰sZXz†–%'"$%%!+9_W -#7|WD`O*!'Dinc` -a?=mihhOvu‚rv‘?*b€f+/=;)"F?-,2(+%3081-*--.28?<3/+4GY_fgjqqtvyvvy~~‚‚ -‚ƒ„„ˆ†‹‘–žŠª²ž¹»¹»ÀÁÁÅÆÈÈÉÍÐÐÆ: #42K^8CF=>F>C56}œ‹ŠŒŒ‡‰‰†‚‚~}zvrpkib_Y[TQXftqiUCQšÄÎÍÌÌÐÒÏÍÎËÁ±ŸzK+'7@HFCHHLPQKRN -‚‡„vh]RQF8'%>J#6*7’‡ -”ŒŒŒŠ‡ˆ††„€ƒ~{ysppjhcZao|}kVHp­ÊÐÑÑÑÓÓÐÎÌÆŠn8+#5NNKEEFPTXXSLHNz‰“Ž‡zoaN=,!5Tp„•¢Š©ŠŠ¥§«šŸ”ƒÌ¡QSD3&!# $#':25Kd\C?I38@Psc)$B‚>3>53M]L`nzƒ‚„Š”U -O§W+P¢90/%%&A@0.,1.)-2:7-.-+94:?OK0),LNfijpvsrlr~} -ƒ„ƒ~€‚ƒŠ•˜œŸ¡¥­¯Ž³µºž»œÁÃÁÇÈËÌÏÐÑÓÓ²S%2L1483AD?8#7“’‡ƒ‘Ž‹ŒŠ‰‰Šˆ‰„‚‚€{zwwrqoncit}|kYS‰»ÌÓÓÒÒÓÔÐÊȹV'$4MSRMMGNX[_WSNKUxˆŽ•’‘‡{oYA2"8Sl„–Ÿšš©§§š«§Ÿ“†¥×fO-0-(-))*6H(!8F:82,5ESQJ4 -%j„-49F::Z_QTi‚‚}šŠ -*&‹ª-0+-/,,/9:++/.?;5EUY7&'DIijjpxngoz„€}‚„‚‚‚†ˆŒ‘”˜œ €ª¬¯°³··¹»Ÿ¿ÀÅÇÊËÍÎÑÒÕÔ¯I1F555:HFA=(AœŽˆ†‘‹Œ‹‰ˆ‹ˆ†‡ -ƒ -‚}{}xxvplowz{nbd›ÂÎÓÓÒÓÓÓÎÈœ«~?#-DQQSOLLW_a^VQQQ[xu~Œ“•”‹„€hN4#8On -–Ÿ©«šš§©¬¥ž“‰«Ñl€† -")2405:D5$@G5.5971)'-2),brC'8IFAFgZPZ|Šˆne?f€~UO•1+'.-E@451430159?2342GA6J\^D-'@Noommoen~{|‚„ -€ƒˆŒ’–›šŸ¡€¡ª«°­°žžžœœÀÄÆÈÌÍÎÑÐÔ×Ô¥>30)/4A7C@%G¡ˆ‡‡‹†Œ‰‰‰‡ -†„„‚€}{{xxrrpt{|wisªÈÑÓÔÓÓÓÓÍó—j3+//,*6=8KccN)$638+.+(,-6620+$6;9Wmj\6#7Kaagu||xx}~ƒ‚ƒƒ‚ -„ˆ‡“š™›Ÿ£šš«°­²ž·»ŒÀÁÃÈÉËÎÏÓÓ×ÚÛ¿M%%+3'4,&o˜†ˆŽŒŽŒ‹‰ŽŒ‰‰‰‰‡†† -€ -|zx}vz‚ƒ|¡ÄÓØÕÓÔÓÔÎÅ­€SADPYSTZW\djkaUUUW`^_ -*Ig}›Ÿ¥€—†sD .Mp‹—£©¬­­ª¬®© —ŠŠªjQH -'!''.V**'7.)%:pW%A5%YE#-Y6OS6ZVJ8JXtQnxq†¥˜]!]m³" - -;7/<),($'.C=-/8%01;\lma; .E]lot{}z|x}~ƒƒ„„„‚ƒ„ -Œ’•—™››Ÿ£€§š¬®²Ž¶»Œ¿ÂÄÇÉÊÎÍÑÔÖÚÝٛ&!)A#4$&}‘†‹Ž‹Œ‹ŠŒŽ‰†Š††‡„ -„ƒƒ~{|{vw~‡‡ˆ®ÈÔ×ÓÔÕÒÐΡhDDLRUOZ[Z`ih`VQTW]_a^"0Rw–€š©œzH!'HnŠ–¢ª©ªª®®¬©¡™|mžZA -$)$&+C:(%+.(*';t[&<<& -/RA'R5:]OO`d[BLiO{f -¢‘a37†„Ç)$<92B**'&,+:A,0.%11Idjl\8 +I`jmw|xz{}{}€‚„ƒ„ -„‡‰‰Œ‹‘”š˜žŸž¢Š©¬­³°¶Œ»ŸÁÄÇÊËÍÍÒÒÔÙÜÛÎU%$*#- -(„}†‘Ž‹Œ‰ˆˆ††† -†ƒ - -‚‚}}ywur{—¢ªŒÊÕÖÔÖÕÑÐ̺ŒYELQTOT\_dgh]WONS^^_\_(Gx”¥ŠŠž’{I -Cq‡–¡©­­šš­¯¬£šŽ{gžD+#(%"117-%'-)#%'=zR"7I* - -".UMN@+CPM`ikY@SKq -Œ€˜p.:":˜œÈ0! -C55E++))+0;5()+&,0O\biZ@%,O]mmvzsx|yz€}„ƒ„„ƒ„Š‹‹“’—˜›› €Š§ª¯°°µž¹œÃÂÇÈËÎÏÐÒÕØÚÛ۟$"( $ -0‹—~‡‘Œ‹‹Š‰ŒŠ‡ˆ‡‡„‚†€{xvwqy‰šªµŒÈÏÕÖÖÕÓÑÌÆ©yPKPWUOX^afidZSMQU_``]_ -)>n“¥©©¥—}: -#Do‰–ž¬¯­««®®ª¥œ{af€%#+&#)8/+())*)&&M‰K!-M*$.)7NVK+F=XUi`YIRGb–‰”/&J+‘°º" - -A29S()(&+,83()3.0 -Bo†—£¬¬¬¬«®±¯Š›¢vN'1!$36*%,"!,+&$6~€C!;9 94(<,..>EF]_kZNEBhˆ„l—€l.%&Žb) -(M4;H'2+(*,;8+%'20OVYaqkM'.V^lwyvxz€}€{€‚„Šˆ‰Š‘’••œŸŸ¢¥Šª®¯³žžŒŸÂÅÇÊÍÌÐÒÒÓÖÙÜÜÆ4$ -R‹‰ŽŒŒ‡‡‰††‚}€€|zvtut‘·ÆÌËÆÊÎÖØÖÖÖÒ˹™kSSTRQZ`cgjj^TTPV^^_\\db -0`Œ˜¥©¥”xA"@k‡—¢ª¯¬­«®°®§œnG%.$+9,''&'#/ - -$X}w@%(+4"D0,-3&-'-E@M`pWED6b˜zw—x†n;2•–J} --J7?>+0,,(../3+-68LagpplO#6Tajwzz{z€~}~~~~„‰ˆˆŠˆŒ‘•–™œ¡Ÿ¢§©¬­°··ºÀÁÄÈÌÍÐÏÏÓÓ××ÛÛØt -`‰‰‹ŽŽŽŒŠŠŠƒˆ -‚‚€€}zy{yzq|ªÆÒÔÒËËÏÕ×Ø×ÔÏĪ -_RTSTU[^ijjiZROSYba_][_Z+Y -™ŠªŠ˜}B ,0!*&3('=8CO|g127e‘ -Ž—SYˆXyª„‡µ-/@1;52/40)*.+.1/1F^lqrrlQ$?Qbmyyz€}~~|€~€ -†‡‡‡Š‰Ž‘“–œšœžŸš«ª®±··ºŸ¿ÅÊÊÍÐÏÑÓÔÔÕÙÝÛŠ - -m -Œ‰–ŒŒŒ‰ŽŠ‰ˆ -†††‚€yy{wts‚¹Î×ØÕÏÎÑ×ÙØ×Ô̺™qYXSQOS\bfhh`XROV^_c]^_aU'P›§«Š˜J -:m -™£®¯­«°¯±®§œ‘€„X(+35/'#&%''"7miUX0#!%*:=#1 -(:3?765os:>To -†’š -V€G‘œvyh#$4<*539-23,3))*+:=QlmssplF&IUcorwx}€}}~€€„„†ˆ‰Œ”•˜–œšž §ªŠ®²Ž·¹œ¿ÂÇÇÎÌÎÏÒÓÔÕØÚÝÉ; r‰ˆ—‹‰ŠŠ‹†‰†ˆ„ -}~{yvssqÁÒÚØÓÐÑÓ×ØØÖÑƬˆe[XTQNX[dijcXVSSZa`__a][L -*Sš©®š™‚R - -:h†•€ª¬­«­¯®¯§œ’wU/68*'$'(&$''$-qT-\Q=($(1E7"0 '83 -8?2Hohi[as„‡ -Y‚†˜Ž†- -64;4+606)1/*5-+.2=C[pstqne>&NTcrsvz{~€‚€€€‚‚‚€ -‡‡ˆ‡‹‹’’”˜—›¡©«®°²ž»œÁÃÅÈÍÌÍÏÑÐÒÕÕØÚÔh'}€Š‰–ŠŒ‹‹‹Š‰ -††‡‡ƒ„€{xuurušÅÓÙ×ÑÎÏÔØØÖÓÍ»œ}e`_ZVVW^hmc_XSRX`ca_[WWNO&R€—¥«Š˜ƒX#;f‡—£­««¬«ª««¢™’ -p^964#%%*$''();B=%+oMA*'%1G4#'&"(79 -7R/*>Djw~w~vIZz›ž‹f66Q&>//:.645.+5)**7?J`qusqsh8&NVctyz|x}€„„}~€‚‚ƒ†‹ŠŠ’•”˜š¡£¥©«­²·»Œ¿ÃÃÈÌÊÌÎÑÒÒÔÕ×Ùۜ(|‚ˆ‹’Š‹Œ‹ˆˆ†‡ˆ -ˆ† -‚€~|xzut| ÇÕÖÒÌÌÐÕÙØÖÒÇ®‹uib]]XZY_gig_YSUW^`_][VSLH"N•€ªŠ›„b("7d -–£ª«Š§Š¢¥š¢—yz9*.%(($&/*'BU+('1RMN',$938)&)%*@',;R6''0IvŠ|rˆxdNI\|n–¡„„cNX8123BJ1+01('*>@Mbrsrqsf4+P]jru{{y~‚‚†ƒ~‚{z|€‚ƒ -†„ˆ‹ŒŽ‘•–š˜˜œŸ€£¥®µµŒ»œÃÅÈÊÊÌÎÐÒÒÕÔÖØÙŸ+4{ -ŠŠ‘•ŠˆŠŠ‡‡‡‡„† - -‡ƒ‚‚{|yvvu€ÉÔ×ÐÊËÐÖÙØÕÌŸ›|pod^UXY^\fgeZTQS\a]cX[UOPI#Iv˜¥«§œˆb#9a‚—£«¬ª©©š­ª£™Ž‚ -t86%$&(%$--&93',-,SOC,(36'3*,*+'9/.QQ-( -'Drs~||VZ ->A,4OW_|{m€nhO13**1(*0>KWiuqtvr`;3T^muw|}{{„ƒ€€}|||‚€† -„†Ž’’’—™˜¢€¡Š­³Ž·ºŒÁÃÅÈËÊÌÎÑÒÔÓÖ×ØÐO>{†‹‰•Œ‹‰ˆ‹Š -†„††‡‡ -€‚{xuvxx­ËÓÕÎÊËÏÖÙ×Óȯ‹slocaZZV\afd[TQOW_a_YWYPPUR!Ap–¡«©£`(#9e‚˜£©ª¬¬­«®«¥‹Z3/+)%0'(,%')(04**GE:.+:,$33*&"#61(]H!2*2,),:<'!%6",^I"2P=O\thpw`z€s',a 0*->1*@28Pk8-))'2?KSboquvxvR,I[cy{z||€€ƒ€„‚}}}}‚ƒ„ -ˆ‹Š–––˜œŸ¡¢š§«²¶»Œ¿ÁÃÆÈÎÍÍÏÐÓÓÓÓ×תSw‰‹ˆŠˆŒˆ -†‡ -† -† -ƒ€}{y{|w‚¥ÁÎÒÍÇÊÑØÙÔÊ»–tnkif`[TR\\_ULNQX^c`]U[VSSWZ - -!5hš§š Žf-(=c“£š¬­­¬­­®šˆa/-(1#'#%-$)5@9%,*;7870#)'.K%!&.3BJCN,NSN[XrleXg‹X(e$,!&825(;13*?8+'#%8FMZdotuywlF,Naixzy€„„„† -}|€‚€„ -†‡‰Œ‘’“•™œžŸ¡¢§«±³·œŸÀÄÅÆÊËÌÎÏÑÔÔÓÕÖÅ3Wz‰Ž‘ŽŠŠŠ‰Œ‡‰‰†ˆˆ -„€|z~€|~•³ÅÇÆÆÊÓÚØÒȲokifacZUU[`RHDO]``[]UUYWVSWZ - -1bŠ›©§Ÿk6+:`’ §­¬«¬¬­«Š›Š“s/9$/$"*-)GQ8-&'-:343,...*80!$/4$W<6ZC$_^[WvnL7Tw‡JY/0 -*72')6:-,,4*)&-9HPadpovvue92P^my|{‚ƒ‚‚€ƒ‚„ƒ‚~€~ƒ€ƒ„ŠŠ‹Š”“•–›ž   ¥©°²·º¿ŸÄÅÅÉÊÍÍÏÐÓÑÓÓÕÑg]~ŠŠ†‰Š‹‹Šˆ‹‰‰‰ˆ††ƒƒ€|€}€€ -–¯¶·œÊÔÚÖÏÇ« -lhed^[SSW^XL=GW`a\]VRUUUWY[T$# -+X†›§š¡ŽpA,?^€¡©««¬«¬®­€›‹˜l1P*( $!,8NJ1%&$*89:,,*732'2H%0*8=B66I`$%x›n†oj[?;qs{nT† -(30,225*-).)#'3EKSeiosuso[0@Watx~ƒ‚ -ˆ‚€€€€}~}~‚„ -‡‹Œ‘•–˜šœ¢ŠŠ«®¶¶œŒÂÃÄÈËÌÌÑÐÒÓÒÓÔӚcƒˆ‚v - -ˆ‰‹ŒŒ‰‰‰ˆ‰ -„‚}€ƒ„ -„† -œ ¶ÌÕÛÕ΀~kec][UPW^WSGCN\g`\[SNSXZUZYJ! - -(S™¥š¢‘yJ1=]“¡§«©ª««¬¬€š†žn9T.'"%1HK5/((&%+=2>-.4:=8*&<4,#:`,'-5eD&.NMmrpG.0Xt•ƒ•p*/'$1-))**$*%*5CT_hmpurrlJ*HXlv{~€ - -ƒ„ˆ†„‚‚€€|~}~}„‡„‡‰‰Œ‘‘”––œš €©«²³¶»ŸÁÃÄÆÊÍÎÐÓÑÒÑÓÓÕ¿n‰‡uirux}‡‹‹Ž‰ŒŠŠ‰‡‡†ƒˆˆŠˆ†‚| -”·ÎÚÛÖÌ»™wheaWXPRXWTJBJT`c]WTQQRWXV^QC -#$O˜¢ ŸwK0<[}Š©©ª««­«Šž}—t:Q1&&',/-,,)%,&03<;1.<40321:+"!DU*!*@lS?)-,-T -e+.BP{ªœ3&)1&'42***#%(&,=EUehjqvqqa51R[rx}|€€‚ƒ‚ˆŠ„‚„„„€}€ƒ„„„†‰ŒŒŽ”•—™›Ÿ¢šª®±³ºœÀÁÅÇÉÌÏÏÐÐÓÓÓÓÕЇˆzaVd`ikuv}€†ˆ‰ŽŒ‰‰ˆ -„ -‹‰† -}‡•¿ÑÜÚÔÉ°Žqgd_[SNV\WHGGQXa]\YTOSVZVUUJ: - -%U‚”Ÿ¢ xL6X|œ§Š«ª«¬®®Š“}xhFO: #%-2*-,&&-6669,-;D;*%!.+#!'H#0<.GOa]XXYUQU_aXVPG82 - -&=rŸª­«žƒW46Vx‹™£Šª©¬¬®®š “‚vcGME!")6)#'&'+9:*:6,-87?.*&%!+"*+*<@f^]|ŽI+@A(42)6n@Zp1#+*','($#!"(/?BL^ikkjonnQ%7N_xz{}~† -††Šƒƒ††„„‚~}€}€ƒ‡†ˆˆŒŽŽ””–˜šž¡£€§ª°¹ž»œÀÆÉËÍÍÑÓÑÒÓÖÖÙÐiAHDM=?@EKLSUV^\bjlou‚‹•œ™ -w{~–ŸÐÚÛÓŪˆp^RJBGNXVL8)+@/+,99=28."%+,/.-. -)TKho‡‰l1E[lj65(&'.4/$%+%$$"#&%.5HK\jnokqmhA!*Ocu{}}{}‚„ƒ‚ˆƒƒ††ƒ‚€|z}ƒ„‚ˆ„ˆŒŒŽ”˜˜œž¢££Š­³µ¹ŒÁÃÆÉÌÌÏÐÑÒÒÓ×ÖØ¢ALRUWQKJMD??9;=<>??@R]p|‚Œ™§¢’“¬Ê×ÚÕƧˆjRD54>INIHDHZa^PRUXQRW__VWPD3//" -3s™Š°°€”v99SvŒ›¢Š«ª¬ª¯¯©£—sFrQL? -,"&!!,G21$'D.(.<3=770,#2'21'#**&Y[t|z‹cuZSbV,##'-/%$(&!" #!(4P`j“¶Œ²—›¶ÍÖØпvVF8/6HKHBFNWdcYTQQRSS[^`ZUI73.,)(*0/:r™§±²ªžv=;Vw‹š¢§ªªª«±°ª£—mNxI80!0%#*#,57*4,*9-%3@3533*52+##33).'-Ue†h€kWRAaF" (/%'(.,$& -#!):CQ\diimmnZ. -Phwy}}€ƒƒ‚†„ˆ‚††‚ƒ€€€}€‚€ƒ -†ŠŽ“““–˜™ž£š­¬±Ž·œÁÃÆÉËÌÍÏÒÒÓÖ×ÖÒnJV[`_]ZURPHA<:2,($&!+2M|°ÃÁ¶ ŸŸÏÕÕ̳‹aF>16>FJF?JU\ebYQRLOQU]b]YNC43+*,?A?;Ek“«²µ±¡uE=Xs‹—£§¬«š«°°«¡–dUƒP6/!0#'+50&)+4$(,7&9;53133--"% -$=*(6(''Kn•ˆ{xI^o{L!"-* $#!$! !#)9?IWahhljpd5"&D`txy~~~€~€‚€„„‰„ˆ†„‚‚‚ƒ€~}€ -‚‚ -‚‡Š‰Œ”••˜›Ÿ¢©¬¬³µžœÁÂÄÈÊÍÎÍÑÓÓÕÕÖՕLU\c`a`]YSQLFC40*&" -"$O™ÂÊÈ­”¥ÅÒ×ÒâoK724O\eaYPLKNHS[ed^VJ:9/.0IPMIKSlŠ³·° }P@Ws‰™£«ª¬©«²³š€dY€X4($-).B6'($+1.,+5.=069682)('&'#$4-G1(#$Hz|Š†afQbo&'.%%%# # &$#0EDR^jliong?%"4Vnyv}~||„€‚‚‚ƒ‚‡„ˆ†‡„‡„€€€‚‚‚†ˆŠˆ“”–“–š¡ŠŠ©°°¶Œ¿ÂÄÆÈÊÌÐÎÐÒÔÓÖØ·QQ[]ccdb^YXQOIA52$'" -QŠÇÍÇ¢•³ÈÑÓʲF71/8?DEA@KWbh\MIKKKKR`ig\QJC>703TVRQVZq¥²µ±€†YGYsŠ˜¢©¬¬ª¬³Ž¬£k_vU>!#'4/0*'*()))+*-49(;=:65&(&$.-2<:2-&*HWae^QLIDHKRZfm`[RHG<539MTQU\ez’Š¯µ³šŠbD[p‰˜€ª¬®¬¬²³­¥`crQ='*('&*+&'$/50+)')'.=>1-79#(%(73"5<6/3@4A>Fgsm@-))'$)#&# - -"*(4@JL`frljc: - -3Octuwxz~|‚‚„ƒ† -„ƒ„‡‡ƒ -€}‚„ -‚„ˆˆˆŽ•˜››žœ¡§ª³³¶ŒœÁÆÆÊÌÍÎÏÒÓÏÒÖӃGT\ceeea^WYULLH>90()0O’»ÇÆŸºŸÄÀ¯‹T3-+-9>A9=FP^c\TGCEEFLX`ii_XMLI<55;MRV]cn“š°Ž²©gFYq‡›¢š«¬¬¯³±¬¥‘MolQ1#-&*(()(*&+50+,*('557,*DN(/' 7P.'5F.)LK/OP]KrŒN')(&(+$$$ $'/AAIZ^joh]1 -$7M^ortwzw~~}ƒ€„€~„€€„ˆ‡ƒƒ†‡ -„„ -‚€ƒ -‚ -‚ƒˆˆˆ‰‹’•š› šžŠ«¬¯³»œŸÃÆÉËÌÏÑÑÓÏÓÕÕ«LOT]chea`WZWQQICD>68;K‰ºÈÉÉÁ·¯ „]>.-/6=>89GS]`_UPHECHIS^flaWXNF@65@??O]hkr€š®±­ŠŒiIZqˆ™ ©««¬±³²«€”LthN&$.(,',&0/'-5-%+'*6F?@&1MP*%,9TN./Q+6=X9Mxx6BLY,*%%&(&" -"--BYH(5NZQ0&,%U:#)4s67/IJRŠnE.=>%(*!")%$,=FGA5-)$'9HX[clpnru|yxz€}}€|„ƒ€‡ -„†‡ˆŠŠ‰ˆ‰‡†„„„‚‚ƒ‚††Š‹Œ‘“”—šš¡£Šš©¯²¶»ŸÁÄÆËÌÎÑÒÑÒÕÔӓFMY[^]a`_Z`\^WTVXZVR^Š³ÆÅŽ‘]IHA<6@BFB?BO^fi_UKD;;:GTYgigb]XO@48??=2$8ITVZi™ª±°šqPYo -”¡ª«®°°²³«€šfKV:$(&*0/-$<3&,(K()+(;;WC 7Kh[Q-)&;Z!+7Sn409Qfrm,.:"$+%,#%&(,*(* "*3@QY]agmnuqrsvxzw|~€~‚€‚‚ƒ -„„ -‡‡Š‡‰ŠŠ -„ -‡†€ƒ‡ - -ƒ††ˆŠŒŽ’”–™™ž£¥«ª®°¶žŒŸÄÆÈËÏÌÒÑÒÔÓÓ·LMRW[]`dc^ba]X[^bca[]xš¥ˆ^KKLD@DCGD?CMYck_TKEF;:@N_cnjka_VH:8=<:3/%1;LTXdz—©®®Š’wX[m„”Ÿš«®±°³Ž­¥œq:H()(#&**./82--,U((+,24Z;"4Vlgc80*.c7('5lGC2Mom}†V05#!%#$),$%" -#'*:>FMRU`impvsuwxvwuyz||y~‚‚‚‚‚„‰ -†ˆ‰‰Š† - -†„†€‚‚‡ -„ - -ˆ‰‹Ž’—˜˜š¡£«­­²µ¶»œÂÄÇÊÌÐÑÑÒÔÔÕÈ[INRY\]bcdfb]`bdiieabl‚x_NHFCHINIF@@KW_ceWM@<;5;G]dimnj^^PB::4671'*/2AKQYs’£¬«Š’xb^n“¢š«®¯¯°Ž¬¡›y5E#,'&6)%+3:213/Z1')+:=[1!*Qbmg@##LWh -<>f:@8ulSXhP-%*..,# $.6:@KMTTaelppnpqtvuwuwwu{}y|~€~~€„ƒ„ƒ„ - -ˆ‰‹Š‹††Š -‰ -ˆƒƒ†„†ƒ -‡ -‰“––—  Š«®²¶žºŒ¿ÂÇÇÊÌÑÒÑÒÓÔÑ}FKRT[[_feggabeloljggdihaWNPPNVQOLC?CP[abUNCA?76BTcggpnhdZKB:5462-/02/9GMQo¥¯±ª—~g`m€“Ÿš¬¯¯°²²«¢šp6B-.)(,/!)1;653-GE)%*1QR*$%L_VvQ" -6]v>(CN[3=`fqCaS2"#/$ &.1=ENNY`^fimoopqsstvzxtwswx|}€}|| -†‚‚ -†‚ƒ„ˆ‰ˆ‡‰ -Š‡‡‡‹ - - -ƒ„ƒ‰ -‡Š‹‹‹“•’˜š ¡¢©©¯±µ¹ºœÁÂÇÊÌÑÑÐÑÒÔӟFEPSZ[_dfkgfhlonjhijda_ZVST\[]TOJFJLVb\YJHHE=>9M\ikrthc^SA=6244/0--5:6CAD@ES`moqpdcVH=3220,,)(+00/89>g–»ÇÈÅŸnfpƒ– «­­°²Žµ®œf?.6+0%0+(&-56.158(MC#',mP)*'Ql2_V1!Sd]A -BQu-$DXo?#4$")**'+(7FQX]ffjkhjlptssuwxsyvwzww}y~|~}€€€ -‚„„„ˆ‡‡†‰‰‹ˆ‰ˆ‹ˆ‰ˆ -ˆ†Œˆ‰ŒŒŽŽ’——œ¡¢¥ª­°±µ·žŸÃÅÇÈËÍÏÏÎÒÓÈ]@LRUabchfjoqqrmjkkjgf`_[]gjg^VPLRW[[SK?=?A=GFNblqnj`VPB:5213./-1)2/+36?mžÃÈÉÇï}ep€•Ÿ©­«°°±±¬¢}b;1(06*)&'301339=+4U%7I&+&Uo:I‡v3!%Ob23 -8AdV"BBhWFC& &+/7GOU^`ehjmlklprusqwtrwwx|ywxzz}{€€~€‚‚ƒ‚‡ˆ„ˆ‰‰‹Š‡ŠˆŒ‰ˆ‹ŠŠŠŽŽ‘‘—–›ž¡¥¢§¬°­Ž¶žœÄÂÆÈÊËÎÏÐÒÓÏ}@IOWVWccdiqrrrnokjjhfbbdknmhaXURXYZ\OHA@BBACO_hrtrkeZSF;4.36.,14G(-.-60;o¬ÃÇÉÈÁµŽcq‚“žªª«¯¬°±­¢vF1(+.)0'2;7024;<4'W1'<}C*',`r1HaŠE#$:i<64(L>]0:>aWdm- -#,9DMR]`agdjmmolosxutustvzyy{ywxy}z}{ -‚ƒ€„„‡††Š†ˆŒ‰‹ŠˆŒŠ‹‰ŠŠŠŒŽ’‘–™œŸ¡ ¡š¬«®³·ž»¿ÂÆÇËËÎÏÐÐÒӟBEOW`]`^fkorooqpnkkffihmrunf]UUX`XSQMMJFLAEMZitwvrebTK<2,(,091>DN,,/.3/8j®ÁÅÈÆÁž“doƒ”Ÿª¬­¯®°²©¡n`?,+'((1-/3074,+5Vm#PBƒr+"?lf+67AM9;'@PXIrl1 - (5>DOS^]aiiionnpqqwustvxyzwy{zwx€}‚~}zƒ‚€ -ƒ€‚††‡‰‹‰Š„‰Šˆˆ‰ŠŒˆ‹Ž’‘“’—˜œœ›¢¥«š¯Ž·ž»ŸÁÄÆÉÊÌÍÑÐÑÒºMELPSW]_bjlonquvqkkjoonwwvmc[TUWXOMGJNKLHEO[ir|zwkdUL;12'-.08;ITS%*++1,6]ªÁÄÅÄŸŽ’bqƒ–Ÿ©¬®®¯°²­Ÿ^S450"!.6$:.9:5>=FG,.B>yX0412[o!IEKuV*8{e) (9MA8*(.Y>Osg6-:EKJPW`bgkljnqqqtsssvuvuwxvvzyxx|{~~y}|}„ƒ -‰‰ˆ‡‰‰ƒ‰Š‹Š‰‹ŠŒŽŽŠŒŽ””“•˜šŸŸž ¢§š«°Ž¹»œÀÁÆÇÉËÎÏÎÑÔÊhOPTXQS[ffjjpx|vqrqopx}€ztk`TWRNJEGHSQQLLGV^lx}yvkXJ@1,()++1=GT]X%.++0(.W¡ÁÄÃÿ²†du‚–Š¬¯°¯°²¬€^W76&!3: -8%AC5<8?E6/QLD-@$2Vk%9E>TzD1ƒS",%)IU]\` Index: soft/giet_vm/applications/display/main.c =================================================================== --- soft/giet_vm/applications/display/main.c (revision 588) +++ soft/giet_vm/applications/display/main.c (revision 589) @@ -16,5 +16,4 @@ #define NLINES 256 #define NIMAGES 1 -#define NBLOCKS (NPIXELS*NLINES/512) // number of blocks per image #define INTERACTIVE 1 @@ -69,5 +68,5 @@ { // load buf0 - giet_fat_read( fd, buf0, NBLOCKS, image*NBLOCKS ); + giet_fat_read( fd, buf0, NPIXELS*NLINES ); giet_tty_printf("\n[DISPLAY] Proc[%d,%d,%d] load image %d at cycle %d\n", @@ -85,5 +84,5 @@ // load buf1 - giet_fat_read( fd, buf1, NBLOCKS, image*NBLOCKS ); + giet_fat_read( fd, buf1, NPIXELS*NLINES ); giet_tty_printf("\n[DISPLAY] Proc[%d,%d,%d] load image %d at cycle %d\n", Index: soft/giet_vm/applications/gameoflife/Makefile =================================================================== --- soft/giet_vm/applications/gameoflife/Makefile (revision 589) +++ soft/giet_vm/applications/gameoflife/Makefile (revision 589) @@ -0,0 +1,20 @@ + +APP_NAME = gameoflife + +OBJS= main.o + +LIBS= -L../../build/libs -luser + +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/gameoflife/gameoflife.py =================================================================== --- soft/giet_vm/applications/gameoflife/gameoflife.py (revision 588) +++ soft/giet_vm/applications/gameoflife/gameoflife.py (revision 589) @@ -4,5 +4,5 @@ ################################################################################## -# file : gameoflife.py (for the gameoflife application) +# file : gameoflife.py # date : february 2015 # author : Alain Greiner @@ -26,6 +26,6 @@ ################################################################################## -########################## -def gameoflife( mapping ): +###################### +def extend( mapping ): x_size = mapping.x_size @@ -54,5 +54,5 @@ mapping.addVseg( vspace, 'gol_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/gameoflife/gameoflife.elf', + binpath = 'build/gameoflife/appli.elf', local = False , big = True ) @@ -78,5 +78,5 @@ code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/gameoflife/gameoflife.elf', + binpath = 'build/gameoflife/appli.elf', local = True ) @@ -118,5 +118,5 @@ if __name__ == '__main__': - vspace = gameoflife( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/ocean/Makefile.config.giet =================================================================== --- soft/giet_vm/applications/ocean/Makefile.config.giet (revision 588) +++ soft/giet_vm/applications/ocean/Makefile.config.giet (revision 589) @@ -3,5 +3,5 @@ # Default plateform architecture and default CPU #------------------------------------------------------------------------------ -GIET_DISTRIB= $(PWD)/../.. +GIET_DISTRIB= ../.. #------------------------------------------------------------------------------ @@ -67,5 +67,5 @@ clean: - $(RM) -f *.c *.h *.o *.pyc $(TARGET) + rm -f *.c *.h *.o *.pyc *.elf *.txt core *~ Index: soft/giet_vm/applications/ocean/Makefile.giet =================================================================== --- soft/giet_vm/applications/ocean/Makefile.giet (revision 588) +++ soft/giet_vm/applications/ocean/Makefile.giet (revision 589) @@ -1,3 +1,3 @@ -TARGET = ocean.elf +TARGET = appli.elf OBJS = jacobcalc.o jacobcalc2.o laplacalc.o linkup.o main.o multi.o slave1.o slave2.o subblock.o giet_utils.o Index: soft/giet_vm/applications/ocean/giet_utils.C =================================================================== --- soft/giet_vm/applications/ocean/giet_utils.C (revision 588) +++ soft/giet_vm/applications/ocean/giet_utils.C (revision 589) @@ -1,279 +1,2 @@ -/* Définitions des fonctions standard (simplifiées) utilisées par ocean pour GIET */ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -#include -#include -#include -#include - -EXTERN_ENV - -#include "decs.h" -#include "giet_utils.h" - -FILE * stdout = ""; -FILE *stderr = "STDERR : "; - -extern double ****main_q_multi; -extern double ****main_rhs_multi; -extern double ****main_psi; -extern double ****main_psim; -extern double ***main_psium; -extern double ***main_psilm; -extern double ***main_psib; -extern double ***main_ga; -extern double ***main_gb; -extern double ***main_oldga; -extern double ***main_oldgb; -extern double ****main_work1; -extern double ***main_work2; -extern double ***main_work3; -extern double ****main_work4; -extern double ****main_work5; -extern double ***main_work6; -extern double ****main_work7; -extern long *main_imx; -extern long *main_jmx; - -extern double *main_lev_res; -extern double *main_lev_tol; -extern double *main_i_int_coeff; -extern double *main_j_int_coeff; -extern long *main_xpts_per_proc; -extern long *main_ypts_per_proc; -extern long main_xprocs; -extern long main_yprocs; -extern long main_numlev; -extern double main_eig2; -extern long main_im; -extern long main_jm; - -double ****work1 __attribute__ ((section("seg_ldata"))); -double ***work2 __attribute__ ((section("seg_ldata"))); -double ***work3 __attribute__ ((section("seg_ldata"))); -double ****work4 __attribute__ ((section("seg_ldata"))); -double ****work5 __attribute__ ((section("seg_ldata"))); -double ***work6 __attribute__ ((section("seg_ldata"))); -double ****work7 __attribute__ ((section("seg_ldata"))); -double ****psi __attribute__ ((section("seg_ldata"))); -double ****psim __attribute__ ((section("seg_ldata"))); -double ***psium __attribute__ ((section("seg_ldata"))); -double ***psilm __attribute__ ((section("seg_ldata"))); -double ***psib __attribute__ ((section("seg_ldata"))); -double ***ga __attribute__ ((section("seg_ldata"))); -double ***gb __attribute__ ((section("seg_ldata"))); -double ***oldga __attribute__ ((section("seg_ldata"))); -double ***oldgb __attribute__ ((section("seg_ldata"))); -double ****q_multi __attribute__ ((section("seg_ldata"))); -double ****rhs_multi __attribute__ ((section("seg_ldata"))); -long *imx __attribute__ ((section("seg_ldata"))); -long *jmx __attribute__ ((section("seg_ldata"))); -double *f __attribute__ ((section("seg_ldata"))); -struct Global_Private *gp; - -double *lev_res __attribute__ ((section("seg_ldata"))); -double *lev_tol __attribute__ ((section("seg_ldata"))); -double *i_int_coeff __attribute__ ((section("seg_ldata"))); -double *j_int_coeff __attribute__ ((section("seg_ldata"))); -long *xpts_per_proc __attribute__ ((section("seg_ldata"))); -long *ypts_per_proc __attribute__ ((section("seg_ldata"))); -long xprocs __attribute__ ((section("seg_ldata"))); -long yprocs __attribute__ ((section("seg_ldata"))); -long numlev __attribute__ ((section("seg_ldata"))); -double eig2 __attribute__ ((section("seg_ldata"))); -long im __attribute__ ((section("seg_ldata"))); -long jm __attribute__ ((section("seg_ldata"))); - -unsigned int nclusters_x __attribute__ ((section("seg_ldata"))); -unsigned int nclusters_y __attribute__ ((section("seg_ldata"))); -unsigned int procs_per_cluster __attribute__ ((section("seg_ldata"))); - -volatile long heap_inited = 0; -volatile int run_threads = 0; - -//Entry point for all threads (except main) -// waiting allocs and inits of main then copy read-only tabs in ldata segment (replicated) -// some read-write tabs are also replicated, but not entirely : only pointers -__attribute__ ((constructor)) void thread() -{ - unsigned long size; - long id = (long) giet_thread_id(); - - unsigned int cx, cy, lp; - - giet_proc_xyp(&cx, &cy, &lp); - giet_shr_printf("Thread %d (%d:%d.%d) waiting\n", id, cx, cy, lp); - - if (lp == 0) { - - giet_procs_number(&nclusters_x, &nclusters_y, &procs_per_cluster); - heap_init(cx, cy); - - while (heap_inited != id) { - asm volatile ("nop\r\n"); - } - heap_inited += procs_per_cluster; - - - size = nprocs * sizeof(double ***); - rhs_multi = (double ****) G_MALLOC(size, id); - q_multi = (double ****) G_MALLOC(size, id); - psi = (double ****) G_MALLOC(size, id); - psim = (double ****) G_MALLOC(size, id); - work1 = (double ****) G_MALLOC(size, id); - work4 = (double ****) G_MALLOC(size, id); - work5 = (double ****) G_MALLOC(size, id); - work7 = (double ****) G_MALLOC(size, id); - - size = nprocs * sizeof(double **); - psium = (double ***) G_MALLOC(size, id); - psilm = (double ***) G_MALLOC(size, id); - psib = (double ***) G_MALLOC(size, id); - ga = (double ***) G_MALLOC(size, id); - gb = (double ***) G_MALLOC(size, id); - oldga = (double ***) G_MALLOC(size, id); - oldgb = (double ***) G_MALLOC(size, id); - work2 = (double ***) G_MALLOC(size, id); - work3 = (double ***) G_MALLOC(size, id); - work6 = (double ***) G_MALLOC(size, id); - } - - while (run_threads != 1) { - asm volatile ("nop\r\n"); - } - - *gp[id].lpid = lp; - - if (lp == 0) { - int i, j, k; - - xprocs = main_xprocs; - yprocs = main_yprocs; - numlev = main_numlev; - eig2 = main_eig2; - im = main_im; - jm = main_jm; - - size = numlev * sizeof(long); - imx = (long *) G_MALLOC(size, id); - jmx = (long *) G_MALLOC(size, id); - xpts_per_proc = (long *) G_MALLOC(size, id); - ypts_per_proc = (long *) G_MALLOC(size, id); - - size = numlev * sizeof(double); - lev_res = (double *) G_MALLOC(size, id); - lev_tol = (double *) G_MALLOC(size, id); - i_int_coeff = (double *) G_MALLOC(size, id); - j_int_coeff = (double *) G_MALLOC(size, id); - - for(i=0;ibarrier, nprocs) - - giet_exit("done."); -} - - -const char *optarg; - -int getopt(int argc, char *const *argv, const char *optstring) -{ - return -1; -} - -//give the cluster coordinate by thread number -// if tid=-1, return the next cluster (round robin) -void clusterXY(int tid, unsigned int *cx, unsigned int *cy) -{ - unsigned int cid; - static unsigned int x = 0, y = 0; - - cid = tid / procs_per_cluster; - - if (tid != -1) { - *cx = (cid / nclusters_y); - *cy = (cid % nclusters_y); - return; - } - - if (giet_thread_id() != 0) { - giet_exit("pseudo-random mapped malloc : thread 0 only"); - } - - x++; - if (x == nclusters_x) { - x = 0; - y++; - if (y == nclusters_y) { - y = 0; - } - } - *cx = x; - *cy = y; -} - -void *ocean_malloc(unsigned long s, int tid) -{ - void *ptr; - unsigned int x, y; - clusterXY(tid, &x, &y); - ptr = remote_malloc(s, x, y); - giet_assert (ptr != 0, "Malloc failed"); - return ptr; -} - -void exit(int status) -{ - if (status) { - giet_exit("Done (status != 0)"); - } else { - giet_exit("Done (ok)"); - } -} Index: soft/giet_vm/applications/ocean/jacobcalc.C =================================================================== --- soft/giet_vm/applications/ocean/jacobcalc.C (revision 588) +++ soft/giet_vm/applications/ocean/jacobcalc.C (revision 589) @@ -1,339 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* Does the arakawa jacobian calculation (of the x and y matrices, - putting the results in the z matrix) for a subblock. */ - -EXTERN_ENV - -#include -#include - -#include "decs.h" - -void jacobcalc(double ***x, double ***y, double ***z, long pid, long firstrow, long lastrow, long firstcol, long lastcol) -{ - double f1; - double f2; - double f3; - double f4; - double f5; - double f6; - double f7; - double f8; - long iindex; - long indexp1; - long indexm1; - long im1; - long ip1; - long i; - long j; - long jj; - double **t2a; - double **t2b; - double **t2c; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - double *t1e; - double *t1f; - double *t1g; - - t2a = (double **) z[pid]; - if ((gp[pid].neighbors[UP] == -1) && (gp[pid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[pid].neighbors[DOWN] == -1) && (gp[pid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[pid].neighbors[UP] == -1) && (gp[pid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[pid].neighbors[DOWN] == -1) && (gp[pid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - - t2a = (double **) x[pid]; - jj = gp[pid].neighbors[UPLEFT]; - if (jj != -1) { - t2a[0][0] = x[jj][im - 2][jm - 2]; - } - jj = gp[pid].neighbors[UPRIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][im - 2][1]; - } - jj = gp[pid].neighbors[DOWNLEFT]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][1][jm - 2]; - } - jj = gp[pid].neighbors[DOWNRIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][1][1]; - } - - t2a = (double **) y[pid]; - jj = gp[pid].neighbors[UPLEFT]; - if (jj != -1) { - t2a[0][0] = y[jj][im - 2][jm - 2]; - } - jj = gp[pid].neighbors[UPRIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][im - 2][1]; - } - jj = gp[pid].neighbors[DOWNLEFT]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][1][jm - 2]; - } - jj = gp[pid].neighbors[DOWNRIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][1][1]; - } - - t2a = (double **) x[pid]; - if (gp[pid].neighbors[UP] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[0][0] = x[jj][0][jm - 2]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][1][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][0][1]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][1][jm - 1]; - } - } - } else if (gp[pid].neighbors[DOWN] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][im - 1][jm - 2]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = x[jj][im - 2][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][im - 1][1]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][im - 2][jm - 1]; - } - } - } else if (gp[pid].neighbors[LEFT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = x[jj][im - 2][0]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][1][0]; - } - } else if (gp[pid].neighbors[RIGHT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][im - 2][jm - 1]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][1][jm - 1]; - } - } - - t2a = (double **) y[pid]; - if (gp[pid].neighbors[UP] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[0][0] = y[jj][0][jm - 2]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][1][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][0][1]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][1][jm - 1]; - } - } - } else if (gp[pid].neighbors[DOWN] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][im - 1][jm - 2]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = y[jj][im - 2][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][im - 1][1]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][im - 2][jm - 1]; - } - } - } else if (gp[pid].neighbors[LEFT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = y[jj][im - 2][0]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][1][0]; - } - } else if (gp[pid].neighbors[RIGHT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][im - 2][jm - 1]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][1][jm - 1]; - } - } - - j = gp[pid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) y[j][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) y[j][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) y[j]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[pid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) y[j]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = (double **) x[pid]; - j = gp[pid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) x[j][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) x[j][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) x[j]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[pid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) x[j]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = (double **) x[pid]; - t2b = (double **) y[pid]; - t2c = (double **) z[pid]; - for (i = firstrow; i <= lastrow; i++) { - ip1 = i + 1; - im1 = i - 1; - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2b[ip1]; - t1e = (double *) t2b[im1]; - t1f = (double *) t2a[ip1]; - t1g = (double *) t2a[im1]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - indexp1 = iindex + 1; - indexm1 = iindex - 1; - f1 = (t1b[indexm1] + t1d[indexm1] - t1b[indexp1] - t1d[indexp1]) * (t1f[iindex] - t1a[iindex]); - f2 = (t1e[indexm1] + t1b[indexm1] - t1e[indexp1] - t1b[indexp1]) * (t1a[iindex] - t1g[iindex]); - f3 = (t1d[iindex] + t1d[indexp1] - t1e[iindex] - t1e[indexp1]) * (t1a[indexp1] - t1a[iindex]); - f4 = (t1d[indexm1] + t1d[iindex] - t1e[indexm1] - t1e[iindex]) * (t1a[iindex] - t1a[indexm1]); - f5 = (t1d[iindex] - t1b[indexp1]) * (t1f[indexp1] - t1a[iindex]); - f6 = (t1b[indexm1] - t1e[iindex]) * (t1a[iindex] - t1g[indexm1]); - f7 = (t1b[indexp1] - t1e[iindex]) * (t1g[indexp1] - t1a[iindex]); - f8 = (t1d[iindex] - t1b[indexm1]) * (t1a[iindex] - t1f[indexm1]); - - t1c[iindex] = factjacob * (f1 + f2 + f3 + f4 + f5 + f6 + f7 + f8); - } - } - - if (gp[pid].neighbors[UP] == -1) { - t1c = (double *) t2c[0]; - for (j = firstcol; j <= lastcol; j++) { - t1c[j] = 0.0; - } - } - if (gp[pid].neighbors[DOWN] == -1) { - t1c = (double *) t2c[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1c[j] = 0.0; - } - } - if (gp[pid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2c[j][0] = 0.0; - } - } - if (gp[pid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2c[j][jm - 1] = 0.0; - } - } - -} Index: soft/giet_vm/applications/ocean/jacobcalc2.C =================================================================== --- soft/giet_vm/applications/ocean/jacobcalc2.C (revision 588) +++ soft/giet_vm/applications/ocean/jacobcalc2.C (revision 589) @@ -1,341 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* Does the arakawa jacobian calculation (of the x and y matrices, - putting the results in the z matrix) for a subblock. */ - -EXTERN_ENV - -#include -#include - -#include "decs.h" - -void jacobcalc2(double ****x, double ****y, double ****z, long psiindex, long pid, long firstrow, long lastrow, long firstcol, long lastcol) -{ - double f1; - double f2; - double f3; - double f4; - double f5; - double f6; - double f7; - double f8; - long iindex; - long indexp1; - long indexm1; - long im1; - long ip1; - long i; - long j; - long jj; - double **t2a; - double **t2b; - double **t2c; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - double *t1e; - double *t1f; - double *t1g; - - t2a = z[pid][psiindex]; - if ((gp[pid].neighbors[UP] == -1) && (gp[pid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[pid].neighbors[DOWN] == -1) && (gp[pid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[pid].neighbors[UP] == -1) && (gp[pid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[pid].neighbors[DOWN] == -1) && (gp[pid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - - t2a = x[pid][psiindex]; - jj = gp[pid].neighbors[UPLEFT]; - if (jj != -1) { - t2a[0][0] = x[jj][psiindex][im - 2][jm - 2]; - } - jj = gp[pid].neighbors[UPRIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][psiindex][im - 2][1]; - } - jj = gp[pid].neighbors[DOWNLEFT]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][psiindex][1][jm - 2]; - } - jj = gp[pid].neighbors[DOWNRIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][psiindex][1][1]; - } - - t2a = y[pid][psiindex]; - jj = gp[pid].neighbors[UPLEFT]; - if (jj != -1) { - t2a[0][0] = y[jj][psiindex][im - 2][jm - 2]; - } - jj = gp[pid].neighbors[UPRIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][psiindex][im - 2][1]; - } - jj = gp[pid].neighbors[DOWNLEFT]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][psiindex][1][jm - 2]; - } - jj = gp[pid].neighbors[DOWNRIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][psiindex][1][1]; - } - - t2a = x[pid][psiindex]; - if (gp[pid].neighbors[UP] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[0][0] = x[jj][psiindex][0][jm - 2]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][psiindex][1][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][psiindex][0][1]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][psiindex][1][jm - 1]; - } - } - } else if (gp[pid].neighbors[DOWN] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][psiindex][im - 1][jm - 2]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = x[jj][psiindex][im - 2][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][psiindex][im - 1][1]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][psiindex][im - 2][jm - 1]; - } - } - } else if (gp[pid].neighbors[LEFT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = x[jj][psiindex][im - 2][0]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = x[jj][psiindex][1][0]; - } - } else if (gp[pid].neighbors[RIGHT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = x[jj][psiindex][im - 2][jm - 1]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = x[jj][psiindex][1][jm - 1]; - } - } - - t2a = y[pid][psiindex]; - if (gp[pid].neighbors[UP] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[0][0] = y[jj][psiindex][0][jm - 2]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][psiindex][1][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][psiindex][0][1]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][psiindex][1][jm - 1]; - } - } - } else if (gp[pid].neighbors[DOWN] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][psiindex][im - 1][jm - 2]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = y[jj][psiindex][im - 2][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][psiindex][im - 1][1]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][psiindex][im - 2][jm - 1]; - } - } - } else if (gp[pid].neighbors[LEFT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = y[jj][psiindex][im - 2][0]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = y[jj][psiindex][1][0]; - } - } else if (gp[pid].neighbors[RIGHT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = y[jj][psiindex][im - 2][jm - 1]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = y[jj][psiindex][1][jm - 1]; - } - } - - t2a = y[pid][psiindex]; - j = gp[pid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) y[j][psiindex][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) y[j][psiindex][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[LEFT]; - if (j != -1) { - t2b = y[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[pid].neighbors[RIGHT]; - if (j != -1) { - t2b = y[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = x[pid][psiindex]; - j = gp[pid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) x[j][psiindex][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) x[j][psiindex][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[LEFT]; - if (j != -1) { - t2b = x[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[pid].neighbors[RIGHT]; - if (j != -1) { - t2b = x[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = x[pid][psiindex]; - t2b = y[pid][psiindex]; - t2c = z[pid][psiindex]; - for (i = firstrow; i <= lastrow; i++) { - ip1 = i + 1; - im1 = i - 1; - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2b[ip1]; - t1e = (double *) t2b[im1]; - t1f = (double *) t2a[ip1]; - t1g = (double *) t2a[im1]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - indexp1 = iindex + 1; - indexm1 = iindex - 1; - f1 = (t1b[indexm1] + t1d[indexm1] - t1b[indexp1] - t1d[indexp1]) * (t1f[iindex] - t1a[iindex]); - f2 = (t1e[indexm1] + t1b[indexm1] - t1e[indexp1] - t1b[indexp1]) * (t1a[iindex] - t1g[iindex]); - f3 = (t1d[iindex] + t1d[indexp1] - t1e[iindex] - t1e[indexp1]) * (t1a[indexp1] - t1a[iindex]); - f4 = (t1d[indexm1] + t1d[iindex] - t1e[indexm1] - t1e[iindex]) * (t1a[iindex] - t1a[indexm1]); - f5 = (t1d[iindex] - t1b[indexp1]) * (t1f[indexp1] - t1a[iindex]); - f6 = (t1b[indexm1] - t1e[iindex]) * (t1a[iindex] - t1g[indexm1]); - f7 = (t1b[indexp1] - t1e[iindex]) * (t1g[indexp1] - t1a[iindex]); - f8 = (t1d[iindex] - t1b[indexm1]) * (t1a[iindex] - t1f[indexm1]); - - t1c[iindex] = factjacob * (f1 + f2 + f3 + f4 + f5 + f6 + f7 + f8); - - } - } - - if (gp[pid].neighbors[UP] == -1) { - t1c = (double *) t2c[0]; - for (j = firstcol; j <= lastcol; j++) { - t1c[j] = 0.0; - } - } - if (gp[pid].neighbors[DOWN] == -1) { - t1c = (double *) t2c[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1c[j] = 0.0; - } - } - if (gp[pid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2c[j][0] = 0.0; - } - } - if (gp[pid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2c[j][jm - 1] = 0.0; - } - } - -} Index: soft/giet_vm/applications/ocean/laplacalc.C =================================================================== --- soft/giet_vm/applications/ocean/laplacalc.C (revision 588) +++ soft/giet_vm/applications/ocean/laplacalc.C (revision 589) @@ -1,113 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* Performs the laplacian calculation for a subblock */ - -EXTERN_ENV - -#include -#include - -#include "decs.h" - -void laplacalc(long procid, double ****x, double ****z, long psiindex, long firstrow, long lastrow, long firstcol, long lastcol) -{ - long iindex; - long indexp1; - long indexm1; - long ip1; - long im1; - long i; - long j; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - - t2a = (double **) x[procid][psiindex]; - j = gp[procid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) x[j][psiindex][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) x[j][psiindex][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) x[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[procid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) x[j][psiindex]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = (double **) x[procid][psiindex]; - t2b = (double **) z[procid][psiindex]; - for (i = firstrow; i <= lastrow; i++) { - ip1 = i + 1; - im1 = i - 1; - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2a[ip1]; - t1d = (double *) t2a[im1]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - indexp1 = iindex + 1; - indexm1 = iindex - 1; - t1b[iindex] = factlap * (t1c[iindex] + t1d[iindex] + t1a[indexp1] + t1a[indexm1] - 4. * t1a[iindex]); - } - } - - if (gp[procid].neighbors[UP] == -1) { - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1b[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1b[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2b[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2b[j][jm - 1] = 0.0; - } - } - -} Index: soft/giet_vm/applications/ocean/linkup.C =================================================================== --- soft/giet_vm/applications/ocean/linkup.C (revision 588) +++ soft/giet_vm/applications/ocean/linkup.C (revision 589) @@ -1,190 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* Set all the pointers to the proper locations for the q_multi and - rhs_multi data structures */ - -EXTERN_ENV - -#include "decs.h" - -void link_all() -{ - long i; - long j; - - for (j = 0; j < nprocs; j++) { - linkup(psium[j]); - linkup(psilm[j]); - linkup(psib[j]); - linkup(ga[j]); - linkup(gb[j]); - linkup(work2[j]); - linkup(work3[j]); - linkup(work6[j]); - linkup(tauz[j]); - linkup(oldga[j]); - linkup(oldgb[j]); - for (i = 0; i <= 1; i++) { - linkup(psi[j][i]); - linkup(psim[j][i]); - linkup(work1[j][i]); - linkup(work4[j][i]); - linkup(work5[j][i]); - linkup(work7[j][i]); - linkup(temparray[j][i]); - } - } - link_multi(); -} - -void linkup(double **row_ptr) -{ - long i; - double *a; - double **row; - double **y; - long x_part; - long y_part; - - x_part = (jm - 2) / xprocs + 2; - y_part = (im - 2) / yprocs + 2; - row = row_ptr; - y = row + y_part; - a = (double *) y; - for (i = 0; i < y_part; i++) { - *row = (double *) a; - row++; - a += x_part; - } -} - -void link_multi() -{ - long i; - long j; - long l; - double *a; - double **row; - double **y; - unsigned long z; - unsigned long zz; - long x_part; - long y_part; - unsigned long d_size; - - z = ((unsigned long) q_multi + nprocs * sizeof(double ***)); - - if (nprocs % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - z += sizeof(double ***); - } - - d_size = numlev * sizeof(double **); - if (numlev % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - d_size += sizeof(double **); - } - for (i = 0; i < numlev; i++) { - d_size += ((imx[i] - 2) / yprocs + 2) * ((jmx[i] - 2) / xprocs + 2) * sizeof(double) + ((imx[i] - 2) / yprocs + 2) * sizeof(double *); - } - for (i = 0; i < nprocs; i++) { - q_multi[i] = (double ***) z; - z += d_size; - } - for (j = 0; j < nprocs; j++) { - zz = (unsigned long) q_multi[j]; - zz += numlev * sizeof(double **); - if (numlev % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - zz += sizeof(double **); - } - for (i = 0; i < numlev; i++) { - d_size = ((imx[i] - 2) / yprocs + 2) * ((jmx[i] - 2) / xprocs + 2) * sizeof(double) + ((imx[i] - 2) / yprocs + 2) * sizeof(double *); - q_multi[j][i] = (double **) zz; - zz += d_size; - } - } - - for (l = 0; l < numlev; l++) { - x_part = (jmx[l] - 2) / xprocs + 2; - y_part = (imx[l] - 2) / yprocs + 2; - for (j = 0; j < nprocs; j++) { - row = q_multi[j][l]; - y = row + y_part; - a = (double *) y; - for (i = 0; i < y_part; i++) { - *row = (double *) a; - row++; - a += x_part; - } - } - } - - z = ((unsigned long) rhs_multi + nprocs * sizeof(double ***)); - if (nprocs % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - z += sizeof(double ***); - } - - d_size = numlev * sizeof(double **); - if (numlev % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - d_size += sizeof(double **); - } - for (i = 0; i < numlev; i++) { - d_size += ((imx[i] - 2) / yprocs + 2) * ((jmx[i] - 2) / xprocs + 2) * sizeof(double) + ((imx[i] - 2) / yprocs + 2) * sizeof(double *); - } - for (i = 0; i < nprocs; i++) { - rhs_multi[i] = (double ***) z; - z += d_size; - } - for (j = 0; j < nprocs; j++) { - zz = (unsigned long) rhs_multi[j]; - zz += numlev * sizeof(double **); - if (numlev % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - zz += sizeof(double **); - } - for (i = 0; i < numlev; i++) { - d_size = ((imx[i] - 2) / yprocs + 2) * ((jmx[i] - 2) / xprocs + 2) * sizeof(double) + ((imx[i] - 2) / yprocs + 2) * sizeof(double *); - rhs_multi[j][i] = (double **) zz; - zz += d_size; - } - } - - for (l = 0; l < numlev; l++) { - x_part = (jmx[l] - 2) / xprocs + 2; - y_part = (imx[l] - 2) / yprocs + 2; - for (j = 0; j < nprocs; j++) { - row = rhs_multi[j][l]; - y = row + y_part; - a = (double *) y; - for (i = 0; i < y_part; i++) { - *row = (double *) a; - row++; - a += x_part; - } - } - } - -} Index: soft/giet_vm/applications/ocean/main.C =================================================================== --- soft/giet_vm/applications/ocean/main.C (revision 588) +++ soft/giet_vm/applications/ocean/main.C (revision 589) @@ -1,696 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/*************************************************************************/ -/* */ -/* SPLASH Ocean Code */ -/* */ -/* This application studies the role of eddy and boundary currents in */ -/* influencing large-scale ocean movements. This implementation uses */ -/* dynamically allocated four-dimensional arrays for grid data storage. */ -/* */ -/* Command line options: */ -/* */ -/* -mM : Simulate MxM ocean. M must be (power of 2) +2. */ -/* -nN : N = number of threads. N must be power of 2. */ -/* -eE : E = error tolerance for iterative relaxation. */ -/* -rR : R = distance between grid points in meters. */ -/* -tT : T = timestep in seconds. */ -/* -s : Print timing statistics. */ -/* -o : Print out relaxation residual values. */ -/* -h : Print out command line options. */ -/* */ -/* Default: OCEAN -m130 -n1 -e1e-7 -r20000.0 -t28800.0 */ -/* */ -/* NOTE: This code works under both the FORK and SPROC models. */ -/* */ -/*************************************************************************/ - -MAIN_ENV - -#define DEFAULT_M 514 -#define DEFAULT_N 4 -#define DEFAULT_E 1e-7 -#define DEFAULT_T 28800.0 -#define DEFAULT_R 20000.0 -#define UP 0 -#define DOWN 1 -#define LEFT 2 -#define RIGHT 3 -#define UPLEFT 4 -#define UPRIGHT 5 -#define DOWNLEFT 6 -#define DOWNRIGHT 7 -#define PAGE_SIZE 4096 - -#include -#include -#include - -#include "decs.h" - -struct multi_struct *multi; -struct global_struct *global; -struct locks_struct *locks; -struct bars_struct *bars; - -struct Global_Private *main_gp; -double ****main_psi; -double ****main_psim; -double ***main_psium; -double ***main_psilm; -double ***main_psib; -double ***main_ga; -double ***main_gb; -double ****main_work1; -double ***main_work2; -double ***main_work3; -double ****main_work4; -double ****main_work5; -double ***main_work6; -double ****main_work7; -double ***main_oldga; -double ***main_oldgb; -double ****main_q_multi; -double ****main_rhs_multi; -double ****temparray; -double ***tauz; -long *main_imx; -long *main_jmx; - -long nprocs = DEFAULT_N; -const double h1 = 1000.0; -const double h3 = 4000.0; -const double h = 5000.0; -const double lf = -5.12e11; -double res = DEFAULT_R; -double dtau = DEFAULT_T; -const double f0 = 8.3e-5; -const double beta = 2.0e-11; -const double gpr = 0.02; -double ysca; -long oim; -long jmm1; -double tolerance = DEFAULT_E; -const double pi = 3.141592653589793; -const double t0 = 0.5e-4; -const double outday0 = 1.0; -const double outday1 = 2.0; -const double outday2 = 2.0; -const double outday3 = 2.0; -const double maxwork = 10000.0; -double factjacob; -double factlap; - -//TODO : répliquer ça : -double *main_lev_res; -double *main_lev_tol; -double *main_i_int_coeff; -double *main_j_int_coeff; -long *main_xpts_per_proc; -long *main_ypts_per_proc; -long main_xprocs; -long main_yprocs; -long main_numlev; -double main_eig2; -long main_im = DEFAULT_M; -long main_jm; - -long minlevel; -long do_stats = 1; -long do_output = 0; -long *ids_procs; - - -__attribute__ ((constructor)) int main(int argc, char *argv[]) -{ - long i; - long j; - long k; - long x_part; - long y_part; - long d_size; - long itemp; - long jtemp; - double procsqrt; - long temp = 0; - double min_total; - double max_total; - double avg_total; - double avg_wait; - double max_wait; - double min_wait; - double min_multi; - double max_multi; - double avg_multi; - double min_frac; - double max_frac; - double avg_frac; - long imax_wait; - long imin_wait; - long ch; - unsigned long long computeend; - unsigned long long start; - im = main_im; - - CLOCK(start); - - while ((ch = getopt(argc, argv, "m:n:e:r:t:soh")) != -1) { - switch (ch) { - case 'm': - im = atoi(optarg); - if (log_2(im - 2) == -1) { - printerr("Grid must be ((power of 2)+2) in each dimension\n"); - exit(-1); - } - break; - case 'n': - nprocs = atoi(optarg); - if (nprocs < 1) { - printerr("N must be >= 1\n"); - exit(-1); - } - if (log_2(nprocs) == -1) { - printerr("N must be a power of 2\n"); - exit(-1); - } - break; - case 'e': - tolerance = atof(optarg); - break; - case 'r': - res = atof(optarg); - break; - case 't': - dtau = atof(optarg); - break; - case 's': - do_stats = !do_stats; - break; - case 'o': - do_output = !do_output; - break; - case 'h': - printf("Usage: ocean \n\n"); - printf("options:\n"); - printf(" -mM : Simulate MxM ocean. M must be (power of 2) + 2 (default = %d).\n", DEFAULT_M); - printf(" -nN : N = number of threads. N must be power of 2 (default = %d).\n", DEFAULT_N); - printf(" -eE : E = error tolerance for iterative relaxation (default = %f).\n", DEFAULT_E); - printf(" -rR : R = distance between grid points in meters (default = %f).\n", DEFAULT_R); - printf(" -tT : T = timestep in seconds (default = %f).\n", DEFAULT_T); - printf(" -s : Print timing statistics.\n"); - printf(" -o : Print out relaxation residual values.\n"); - printf(" -h : Print out command line options.\n\n"); - exit(0); - break; - } - } - - MAIN_INITENV - - jm = im; - - printf("\n"); - printf("Ocean simulation with W-cycle multigrid solver\n"); - printf(" Processors : %1ld\n", nprocs); - printf(" Grid size : %1ld x %1ld\n", im, jm); - printf(" Grid resolution (meters) : %0.2f\n", res); - printf(" Time between relaxations (seconds) : %0.0f\n", dtau); - printf(" Error tolerance : %0.7g\n", tolerance); - printf("\n"); - - xprocs = 0; - yprocs = 0; - - procsqrt = sqrt((double) nprocs); - j = (long) procsqrt; - - while ((xprocs == 0) && (j > 0)) { - k = nprocs / j; - if (k * j == nprocs) { - if (k > j) { - xprocs = j; - yprocs = k; - } else { - xprocs = k; - yprocs = j; - } - } - j--; - } - - if (xprocs == 0) { - printerr("Could not find factors for subblocking\n"); - exit(-1); - } - - minlevel = 0; - itemp = 1; - jtemp = 1; - numlev = 0; - minlevel = 0; - - while (itemp < (im - 2)) { - itemp = itemp * 2; - jtemp = jtemp * 2; - if ((itemp / yprocs > 1) && (jtemp / xprocs > 1)) { - numlev++; - } - } - - if (numlev == 0) { - printerr("Must have at least 2 grid points per processor in each dimension\n"); - exit(-1); - } - - main_imx = (long *) G_MALLOC(numlev * sizeof(long), 0); - main_jmx = (long *) G_MALLOC(numlev * sizeof(long), 0); - main_lev_res = (double *) G_MALLOC(numlev * sizeof(double), 0); - main_lev_tol = (double *) G_MALLOC(numlev * sizeof(double), 0); - main_i_int_coeff = (double *) G_MALLOC(numlev * sizeof(double), 0); - main_j_int_coeff = (double *) G_MALLOC(numlev * sizeof(double), 0); - main_xpts_per_proc = (long *) G_MALLOC(numlev * sizeof(long), 0); - main_ypts_per_proc = (long *) G_MALLOC(numlev * sizeof(long), 0); - ids_procs = (long *) G_MALLOC(nprocs * sizeof(long), 0); - - imx = main_imx; - jmx = main_jmx; - lev_res = main_lev_res; - lev_tol = main_lev_tol; - i_int_coeff = main_i_int_coeff; - j_int_coeff = main_j_int_coeff; - xpts_per_proc = main_xpts_per_proc; - ypts_per_proc = main_ypts_per_proc; - - for (i = 0; i < nprocs; i++) { - ids_procs[i] = i; - } - - imx[numlev - 1] = im; - jmx[numlev - 1] = jm; - lev_res[numlev - 1] = res; - lev_tol[numlev - 1] = tolerance; - - for (i = numlev - 2; i >= 0; i--) { - imx[i] = ((imx[i + 1] - 2) / 2) + 2; - jmx[i] = ((jmx[i + 1] - 2) / 2) + 2; - lev_res[i] = lev_res[i + 1] * 2; - } - - for (i = 0; i < numlev; i++) { - xpts_per_proc[i] = (jmx[i] - 2) / xprocs; - ypts_per_proc[i] = (imx[i] - 2) / yprocs; - } - for (i = numlev - 1; i >= 0; i--) { - if ((xpts_per_proc[i] < 2) || (ypts_per_proc[i] < 2)) { - minlevel = i + 1; - break; - } - } - - for (i = 0; i < numlev; i++) { - temp += imx[i]; - } - temp = 0; - j = 0; - for (k = 0; k < numlev; k++) { - for (i = 0; i < imx[k]; i++) { - j++; - temp += jmx[k]; - } - } - - d_size = nprocs * sizeof(double ***); - main_psi = (double ****) G_MALLOC(d_size, 0); - main_psim = (double ****) G_MALLOC(d_size, 0); - main_work1 = (double ****) G_MALLOC(d_size, 0); - main_work4 = (double ****) G_MALLOC(d_size, 0); - main_work5 = (double ****) G_MALLOC(d_size, 0); - main_work7 = (double ****) G_MALLOC(d_size, 0); - temparray = (double ****) G_MALLOC(d_size, -1); - - psi = main_psi; - psim = main_psim; - work1 = main_work1; - work4 = main_work4; - work5 = main_work5; - work7 = main_work7; - - d_size = 2 * sizeof(double **); - for (i = 0; i < nprocs; i++) { - psi[i] = (double ***) G_MALLOC(d_size, i); - psim[i] = (double ***) G_MALLOC(d_size, i); - work1[i] = (double ***) G_MALLOC(d_size, i); - work4[i] = (double ***) G_MALLOC(d_size, i); - work5[i] = (double ***) G_MALLOC(d_size, i); - work7[i] = (double ***) G_MALLOC(d_size, i); - temparray[i] = (double ***) G_MALLOC(d_size, i); - } - - d_size = nprocs * sizeof(double **); - main_psium = (double ***) G_MALLOC(d_size, 0); - main_psilm = (double ***) G_MALLOC(d_size, 0); - main_psib = (double ***) G_MALLOC(d_size, 0); - main_ga = (double ***) G_MALLOC(d_size, 0); - main_gb = (double ***) G_MALLOC(d_size, 0); - main_work2 = (double ***) G_MALLOC(d_size, 0); - main_work3 = (double ***) G_MALLOC(d_size, 0); - main_work6 = (double ***) G_MALLOC(d_size, 0); - tauz = (double ***) G_MALLOC(d_size, 0); - main_oldga = (double ***) G_MALLOC(d_size, 0); - main_oldgb = (double ***) G_MALLOC(d_size, 0); - - psium = main_psium; - psilm = main_psilm; - psib = main_psib; - ga = main_ga; - gb = main_gb; - work2 = main_work2; - work3 = main_work3; - work6 = main_work6; - oldga = main_oldga; - oldgb = main_oldgb; - - main_gp = (struct Global_Private *) G_MALLOC((nprocs + 1) * sizeof(struct Global_Private), -1); - gp = main_gp; - - for (i = 0; i < nprocs; i++) { - gp[i].pad = (char *) G_MALLOC(PAGE_SIZE * sizeof(char), i); - gp[i].rel_num_x = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].rel_num_y = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].eist = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].ejst = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].oist = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].ojst = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].rlist = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].rljst = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].rlien = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].rljen = (long *) G_MALLOC(numlev * sizeof(long), i); - gp[i].neighbors = (long *) G_MALLOC(8 * sizeof(long), i); - gp[i].rownum = (long *) G_MALLOC(sizeof(long), i); - gp[i].colnum = (long *) G_MALLOC(sizeof(long), i); - gp[i].lpid = (long *) G_MALLOC(sizeof(long), i); - gp[i].multi_time = (double *) G_MALLOC(sizeof(double), i); - gp[i].total_time = (double *) G_MALLOC(sizeof(double), i); - gp[i].sync_time = (double *) G_MALLOC(sizeof(double), i); - gp[i].process_time = (double *) G_MALLOC(sizeof(double), i); - gp[i].step_start = (double *) G_MALLOC(sizeof(double), i); - gp[i].steps_time = (double *) G_MALLOC(10 * sizeof(double), i); - *gp[i].multi_time = 0; - *gp[i].total_time = 0; - *gp[i].sync_time = 0; - *gp[i].process_time = 0; - *gp[i].lpid = i; - } - - subblock(); - - x_part = (jm - 2) / xprocs + 2; - y_part = (im - 2) / yprocs + 2; - - d_size = x_part * y_part * sizeof(double) + y_part * sizeof(double *); - - global = (struct global_struct *) G_MALLOC(sizeof(struct global_struct), -1); - - for (i = 0; i < nprocs; i++) { - psi[i][0] = (double **) G_MALLOC(d_size, i); - psi[i][1] = (double **) G_MALLOC(d_size, i); - psim[i][0] = (double **) G_MALLOC(d_size, i); - psim[i][1] = (double **) G_MALLOC(d_size, i); - psium[i] = (double **) G_MALLOC(d_size, i); - psilm[i] = (double **) G_MALLOC(d_size, i); - psib[i] = (double **) G_MALLOC(d_size, i); - ga[i] = (double **) G_MALLOC(d_size, i); - gb[i] = (double **) G_MALLOC(d_size, i); - work1[i][0] = (double **) G_MALLOC(d_size, i); - work1[i][1] = (double **) G_MALLOC(d_size, i); - work2[i] = (double **) G_MALLOC(d_size, i); - work3[i] = (double **) G_MALLOC(d_size, i); - work4[i][0] = (double **) G_MALLOC(d_size, i); - work4[i][1] = (double **) G_MALLOC(d_size, i); - work5[i][0] = (double **) G_MALLOC(d_size, i); - work5[i][1] = (double **) G_MALLOC(d_size, i); - work6[i] = (double **) G_MALLOC(d_size, i); - work7[i][0] = (double **) G_MALLOC(d_size, i); - work7[i][1] = (double **) G_MALLOC(d_size, i); - temparray[i][0] = (double **) G_MALLOC(d_size, i); - temparray[i][1] = (double **) G_MALLOC(d_size, i); - tauz[i] = (double **) G_MALLOC(d_size, i); - oldga[i] = (double **) G_MALLOC(d_size, i); - oldgb[i] = (double **) G_MALLOC(d_size, i); - } - - oim = im; - //f = (double *) G_MALLOC(oim*sizeof(double), 0); - multi = (struct multi_struct *) G_MALLOC(sizeof(struct multi_struct), -1); - - d_size = numlev * sizeof(double **); - if (numlev % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - d_size += sizeof(double **); - } - for (i = 0; i < numlev; i++) { - d_size += ((imx[i] - 2) / yprocs + 2) * ((jmx[i] - 2) / xprocs + 2) * sizeof(double) + ((imx[i] - 2) / yprocs + 2) * sizeof(double *); - } - - d_size *= nprocs; - - if (nprocs % 2 == 1) { /* To make sure that the actual data - starts double word aligned, add an extra - pointer */ - d_size += sizeof(double ***); - } - - d_size += nprocs * sizeof(double ***); - main_q_multi = (double ****) G_MALLOC(d_size, -1); - main_rhs_multi = (double ****) G_MALLOC(d_size, -1); - q_multi = main_q_multi; - rhs_multi = main_rhs_multi; - - - locks = (struct locks_struct *) G_MALLOC(sizeof(struct locks_struct), -1); - bars = (struct bars_struct *) G_MALLOC(sizeof(struct bars_struct), -1); - - LOCKINIT(locks->idlock) - LOCKINIT(locks->psiailock) - LOCKINIT(locks->psibilock) - LOCKINIT(locks->donelock) - LOCKINIT(locks->error_lock) - LOCKINIT(locks->bar_lock) -#if defined(MULTIPLE_BARRIERS) - BARINIT(bars->iteration, nprocs) - BARINIT(bars->gsudn, nprocs) - BARINIT(bars->p_setup, nprocs) - BARINIT(bars->p_redph, nprocs) - BARINIT(bars->p_soln, nprocs) - BARINIT(bars->p_subph, nprocs) - BARINIT(bars->sl_prini, nprocs) - BARINIT(bars->sl_psini, nprocs) - BARINIT(bars->sl_onetime, nprocs) - BARINIT(bars->sl_phase_1, nprocs) - BARINIT(bars->sl_phase_2, nprocs) - BARINIT(bars->sl_phase_3, nprocs) - BARINIT(bars->sl_phase_4, nprocs) - BARINIT(bars->sl_phase_5, nprocs) - BARINIT(bars->sl_phase_6, nprocs) - BARINIT(bars->sl_phase_7, nprocs) - BARINIT(bars->sl_phase_8, nprocs) - BARINIT(bars->sl_phase_9, nprocs) - BARINIT(bars->sl_phase_10, nprocs) - BARINIT(bars->error_barrier, nprocs) -#else - BARINIT(bars->barrier, nprocs) -#endif - link_all(); - - multi->err_multi = 0.0; - i_int_coeff[0] = 0.0; - j_int_coeff[0] = 0.0; - - for (i = 0; i < numlev; i++) { - i_int_coeff[i] = 1.0 / (imx[i] - 1); - j_int_coeff[i] = 1.0 / (jmx[i] - 1); - } - - /* - initialize constants and variables - - id is a global shared variable that has fetch-and-add operations - performed on it by processes to obtain their pids. - */ - - //global->id = 0; - global->trackstart = 0; - global->psibi = 0.0; - - factjacob = -1. / (12. * res * res); - factlap = 1. / (res * res); - eig2 = -h * f0 * f0 / (h1 * h3 * gpr); - - jmm1 = jm - 1; - ysca = ((double) jmm1) * res; - im = (imx[numlev - 1] - 2) / yprocs + 2; - jm = (jmx[numlev - 1] - 2) / xprocs + 2; - - main_im = im; - main_jm = jm; - main_numlev = numlev; - main_xprocs = xprocs; - main_yprocs = yprocs; - main_eig2 = eig2; - - if (do_output) { - printf(" MULTIGRID OUTPUTS\n"); - } - - CREATE(slave, nprocs); - WAIT_FOR_END(nprocs); - CLOCK(computeend); - - printf("\n"); - printf(" PROCESS STATISTICS\n"); - printf(" Total Multigrid Multigrid\n"); - printf(" Proc Time Time Fraction\n"); - printf(" 0 %15.0f %15.0f %10.3f\n", (*gp[0].total_time), (*gp[0].multi_time), (*gp[0].multi_time) / (*gp[0].total_time)); - - if (do_stats) { - double phase_time; - min_total = max_total = avg_total = (*gp[0].total_time); - min_multi = max_multi = avg_multi = (*gp[0].multi_time); - min_frac = max_frac = avg_frac = (*gp[0].multi_time) / (*gp[0].total_time); - avg_wait = *gp[0].sync_time; - max_wait = *gp[0].sync_time; - min_wait = *gp[0].sync_time; - imax_wait = 0; - imin_wait = 0; - - for (i = 1; i < nprocs; i++) { - if ((*gp[i].total_time) > max_total) { - max_total = (*gp[i].total_time); - } - if ((*gp[i].total_time) < min_total) { - min_total = (*gp[i].total_time); - } - if ((*gp[i].multi_time) > max_multi) { - max_multi = (*gp[i].multi_time); - } - if ((*gp[i].multi_time) < min_multi) { - min_multi = (*gp[i].multi_time); - } - if ((*gp[i].multi_time) / (*gp[i].total_time) > max_frac) { - max_frac = (*gp[i].multi_time) / (*gp[i].total_time); - } - if ((*gp[i].multi_time) / (*gp[i].total_time) < min_frac) { - min_frac = (*gp[i].multi_time) / (*gp[i].total_time); - } - avg_total += (*gp[i].total_time); - avg_multi += (*gp[i].multi_time); - avg_frac += (*gp[i].multi_time) / (*gp[i].total_time); - avg_wait += (*gp[i].sync_time); - if (max_wait < (*gp[i].sync_time)) { - max_wait = (*gp[i].sync_time); - imax_wait = i; - } - if (min_wait > (*gp[i].sync_time)) { - min_wait = (*gp[i].sync_time); - imin_wait = i; - } - } - avg_total = avg_total / nprocs; - avg_multi = avg_multi / nprocs; - avg_frac = avg_frac / nprocs; - avg_wait = avg_wait / nprocs; - for (i = 1; i < nprocs; i++) { - printf(" %3ld %15.0f %15.0f %10.3f\n", i, (*gp[i].total_time), (*gp[i].multi_time), (*gp[i].multi_time) / (*gp[i].total_time)); - } - printf(" Avg %15.0f %15.0f %10.3f\n", avg_total, avg_multi, avg_frac); - printf(" Min %15.0f %15.0f %10.3f\n", min_total, min_multi, min_frac); - printf(" Max %15.0f %15.0f %10.3f\n", max_total, max_multi, max_frac); - - printf("\n\n Sync\n"); - printf(" Proc Time Fraction\n"); - for (i = 0; i < nprocs; i++) { - printf(" %ld %u %f\n", i, (unsigned int)*gp[i].sync_time, *gp[i].sync_time / ((long)(*gp[i].total_time))); - } - - printf(" Avg %f %f\n", avg_wait, (double) avg_wait / (long) (computeend - global->trackstart)); - printf(" Min %f %f\n", min_wait, (double) min_wait / (long) (*gp[imin_wait].total_time)); - printf(" Max %f %f\n", max_wait, (double) max_wait / (long) (*gp[imax_wait].total_time)); - - printf("\nPhases Avg :\n\n"); - for (i = 0; i < 10; i++) { - phase_time = 0; - for (j = 0; j < nprocs; j++) { - phase_time += gp[j].steps_time[i]; - } - phase_time /= (double) nprocs; - printf(" %d = %f (fraction %f)\n", i + 1, phase_time, phase_time / (long) (computeend - global->trackstart)); - } - } - printf("\n"); - - global->starttime = start; - printf(" TIMING INFORMATION\n"); - printf("[NPROCS] : %16ld\n", nprocs); - printf("[START1] : %16llu\n", global->starttime); - printf("[START2] : %16llu\n", global->trackstart); - printf("[END] : %16llu\n", computeend); - printf("[TOTAL] : %16llu\n", computeend - global->starttime); // With init - printf("[PARALLEL_COMPUTE] : %16llu\n", computeend - global->trackstart); // Without init - printf("(excludes first timestep)\n"); - printf("\n"); - - MAIN_END - -} - -long log_2(long number) -{ - long cumulative = 1; - long out = 0; - long done = 0; - - while ((cumulative < number) && (!done) && (out < 50)) { - if (cumulative == number) { - done = 1; - } else { - cumulative = cumulative * 2; - out++; - } - } - - if (cumulative == number) { - return (out); - } else { - return (-1); - } -} - -void printerr(char *s) -{ - fprintf(stderr, "ERROR: %s\n", s); -} - - -// Local Variables: -// tab-width: 4 -// c-basic-offset: 4 -// c-file-offsets:((innamespace . 0)(inline-open . 0)) -// indent-tabs-mode: nil -// End: - -// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=4:softtabstop=4 Index: soft/giet_vm/applications/ocean/multi.C =================================================================== --- soft/giet_vm/applications/ocean/multi.C (revision 588) +++ soft/giet_vm/applications/ocean/multi.C (revision 589) @@ -1,795 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* Shared memory implementation of the multigrid method - Implementation uses red-black gauss-seidel relaxation - iterations, w cycles, and the method of half-injection for - residual computation. */ - -EXTERN_ENV - -#include -#include -#include - -#include "decs.h" - -/* perform multigrid (w cycles) */ -void multig(long my_id) -{ - long iter; - double wu; - double errp; - long m; - long flag; - long k; - long my_num; - double wmax; - double local_err; - double red_local_err; - double black_local_err; - double g_error; - - flag = 0; - iter = 0; - m = numlev - 1; - wmax = maxwork; - my_num = my_id; - wu = 0.0; - - k = m; - g_error = 1.0e30; - while (!flag) { - errp = g_error; - iter++; - if (my_num == MASTER) { - multi->err_multi = 0.0; - } - -/* barrier to make sure all procs have finished intadd or rescal */ -/* before proceeding with relaxation */ -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->error_barrier, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - copy_black(k, my_num); - - relax(k, &red_local_err, RED_ITER, my_num); - -/* barrier to make sure all red computations have been performed */ -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->error_barrier, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - copy_red(k, my_num); - - relax(k, &black_local_err, BLACK_ITER, my_num); - -/* compute max local error from red_local_err and black_local_err */ - - if (red_local_err > black_local_err) { - local_err = red_local_err; - } else { - local_err = black_local_err; - } - -/* update the global error if necessary */ - - LOCK(locks->error_lock) - if (local_err > multi->err_multi) { - multi->err_multi = local_err; - } - UNLOCK(locks->error_lock) - -/* a single relaxation sweep at the finest level is one unit of */ -/* work */ - wu += pow((double) 4.0, (double) k - m); - -/* barrier to make sure all processors have checked local error */ -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->error_barrier, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - g_error = multi->err_multi; - -/* barrier to make sure master does not cycle back to top of loop */ -/* and reset global->err before we read it and decide what to do */ -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->error_barrier, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - if (g_error >= lev_tol[k]) { - if (wu > wmax) { -/* max work exceeded */ - fprintf(stderr, "ERROR: Maximum work limit %0.5f exceeded\n", wmax); - exit(-1); - } else { -/* if we have not converged */ - if ((k != 0) && (g_error / errp >= 0.6) && (k > minlevel)) { -/* if need to go to coarser grid */ - - copy_borders(k, my_num); - copy_rhs_borders(k, my_num); - -/* This bar is needed because the routine rescal uses the neighbor's - border points to compute s4. We must ensure that the neighbor's - border points have been written before we try computing the new - rescal values */ - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->error_barrier, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - rescal(k, my_num); - -/* transfer residual to rhs of coarser grid */ - lev_tol[k - 1] = 0.3 * g_error; - k = k - 1; - putz(k, my_num); -/* make initial guess on coarser grid zero */ - g_error = 1.0e30; - } - } - } else { -/* if we have converged at this level */ - if (k == m) { -/* if finest grid, we are done */ - flag = 1; - } else { -/* else go to next finest grid */ - - copy_borders(k, my_num); - - intadd(k, my_num); -/* changes the grid values at the finer level. rhs at finer level */ -/* remains what it already is */ - k++; - g_error = 1.0e30; - } - } - } - if (do_output) { - if (my_num == MASTER) { - printf("iter %ld, level %ld, residual norm %12.8e, work = %7.3f\n", iter, k, multi->err_multi, wu); - } - } -} - -/* perform red or black iteration (not both) */ -void relax(long k, double *err, long color, long my_num) -{ - long i; - long j; - long iend; - long jend; - long oddistart; - long oddjstart; - long evenistart; - long evenjstart; - double a; - double h; - double factor; - double maxerr; - double newerr; - double oldval; - double newval; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - - i = 0; - j = 0; - - *err = 0.0; - h = lev_res[k]; - -/* points whose sum of row and col index is even do a red iteration, */ -/* others do a black */ - - evenistart = gp[my_num].eist[k]; - evenjstart = gp[my_num].ejst[k]; - oddistart = gp[my_num].oist[k]; - oddjstart = gp[my_num].ojst[k]; - - iend = gp[my_num].rlien[k]; - jend = gp[my_num].rljen[k]; - - factor = 4.0 - eig2 * h * h; - maxerr = 0.0; - t2a = (double **) q_multi[my_num][k]; - t2b = (double **) rhs_multi[my_num][k]; - if (color == RED_ITER) { - for (i = evenistart; i < iend; i += 2) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2a[i - 1]; - t1d = (double *) t2a[i + 1]; - for (j = evenjstart; j < jend; j += 2) { - a = t1a[j + 1] + t1a[j - 1] + t1c[j] + t1d[j] - t1b[j]; - oldval = t1a[j]; - newval = a / factor; - newerr = oldval - newval; - t1a[j] = newval; - if (fabs(newerr) > maxerr) { - maxerr = fabs(newerr); - } - } - } - for (i = oddistart; i < iend; i += 2) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2a[i - 1]; - t1d = (double *) t2a[i + 1]; - for (j = oddjstart; j < jend; j += 2) { - a = t1a[j + 1] + t1a[j - 1] + t1c[j] + t1d[j] - t1b[j]; - oldval = t1a[j]; - newval = a / factor; - newerr = oldval - newval; - t1a[j] = newval; - if (fabs(newerr) > maxerr) { - maxerr = fabs(newerr); - } - } - } - } else if (color == BLACK_ITER) { - for (i = evenistart; i < iend; i += 2) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2a[i - 1]; - t1d = (double *) t2a[i + 1]; - for (j = oddjstart; j < jend; j += 2) { - a = t1a[j + 1] + t1a[j - 1] + t1c[j] + t1d[j] - t1b[j]; - oldval = t1a[j]; - newval = a / factor; - newerr = oldval - newval; - t1a[j] = newval; - if (fabs(newerr) > maxerr) { - maxerr = fabs(newerr); - } - } - } - for (i = oddistart; i < iend; i += 2) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2a[i - 1]; - t1d = (double *) t2a[i + 1]; - for (j = evenjstart; j < jend; j += 2) { - a = t1a[j + 1] + t1a[j - 1] + t1c[j] + t1d[j] - t1b[j]; - oldval = t1a[j]; - newval = a / factor; - newerr = oldval - newval; - t1a[j] = newval; - if (fabs(newerr) > maxerr) { - maxerr = fabs(newerr); - } - } - } - } - *err = maxerr; -} - -/* perform half-injection to next coarsest level */ -void rescal(long kf, long my_num) -{ - long ic; - long if17; - long jf; - long jc; - long krc; - long istart; - long iend; - long jstart; - long jend; - double hf; - double s; - double s1; - double s2; - double s3; - double s4; - double factor; - double int1; - double int2; - double i_int_factor; - double j_int_factor; - long i_off; - long j_off; - long up_proc; - long left_proc; - long im; - long jm; - double temp; - double temp2; - double **t2a; - double **t2b; - double **t2c; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - double *t1e; - double *t1f; - double *t1g; - double *t1h; - - krc = kf - 1; - //hc = lev_res[krc]; - hf = lev_res[kf]; - i_off = (*gp[my_num].rownum) * ypts_per_proc[krc]; - j_off = (*gp[my_num].colnum) * xpts_per_proc[krc]; - up_proc = gp[my_num].neighbors[UP]; - left_proc = gp[my_num].neighbors[LEFT]; - im = (imx[kf] - 2) / yprocs; - jm = (jmx[kf] - 2) / xprocs; - - istart = gp[my_num].rlist[krc]; - jstart = gp[my_num].rljst[krc]; - iend = gp[my_num].rlien[krc] - 1; - jend = gp[my_num].rljen[krc] - 1; - - factor = 4.0 - eig2 * hf * hf; - - t2a = (double **) q_multi[my_num][kf]; - t2b = (double **) rhs_multi[my_num][kf]; - t2c = (double **) rhs_multi[my_num][krc]; - if17 = 2 * (istart - 1); - for (ic = istart; ic <= iend; ic++) { - if17 += 2; - i_int_factor = (ic + i_off) * i_int_coeff[krc] * 0.5; - jf = 2 * (jstart - 1); - t1a = (double *) t2a[if17]; - t1b = (double *) t2b[if17]; - t1c = (double *) t2c[ic]; - t1d = (double *) t2a[if17 - 1]; - t1e = (double *) t2a[if17 + 1]; - t1f = (double *) t2a[if17 - 2]; - t1g = (double *) t2a[if17 - 3]; - t1h = (double *) t2b[if17 - 2]; - for (jc = jstart; jc <= jend; jc++) { - jf += 2; - j_int_factor = (jc + j_off) * j_int_coeff[krc] * 0.5; - -/* method of half-injection uses 2.0 instead of 4.0 */ - -/* do bilinear interpolation */ - s = t1a[jf + 1] + t1a[jf - 1] + t1d[jf] + t1e[jf]; - s1 = 2.0 * (t1b[jf] - s + factor * t1a[jf]); - if (((if17 == 2) && (gp[my_num].neighbors[UP] == -1)) || ((jf == 2) && (gp[my_num].neighbors[LEFT] == -1))) { - s2 = 0; - s3 = 0; - s4 = 0; - } else if ((if17 == 2) || (jf == 2)) { - if (jf == 2) { - temp = q_multi[left_proc][kf][if17][jm - 1]; - } else { - temp = t1a[jf - 3]; - } - s = t1a[jf - 1] + temp + t1d[jf - 2] + t1e[jf - 2]; - s2 = 2.0 * (t1b[jf - 2] - s + factor * t1a[jf - 2]); - if (if17 == 2) { - temp = q_multi[up_proc][kf][im - 1][jf]; - } else { - temp = t1g[jf]; - } - s = t1f[jf + 1] + t1f[jf - 1] + temp + t1d[jf]; - s3 = 2.0 * (t1h[jf] - s + factor * t1f[jf]); - if (jf == 2) { - temp = q_multi[left_proc][kf][if17 - 2][jm - 1]; - } else { - temp = t1f[jf - 3]; - } - if (if17 == 2) { - temp2 = q_multi[up_proc][kf][im - 1][jf - 2]; - } else { - temp2 = t1g[jf - 2]; - } - s = t1f[jf - 1] + temp + temp2 + t1d[jf - 2]; - s4 = 2.0 * (t1h[jf - 2] - s + factor * t1f[jf - 2]); - } else { - s = t1a[jf - 1] + t1a[jf - 3] + t1d[jf - 2] + t1e[jf - 2]; - s2 = 2.0 * (t1b[jf - 2] - s + factor * t1a[jf - 2]); - s = t1f[jf + 1] + t1f[jf - 1] + t1g[jf] + t1d[jf]; - s3 = 2.0 * (t1h[jf] - s + factor * t1f[jf]); - s = t1f[jf - 1] + t1f[jf - 3] + t1g[jf - 2] + t1d[jf - 2]; - s4 = 2.0 * (t1h[jf - 2] - s + factor * t1f[jf - 2]); - } - int1 = j_int_factor * s4 + (1.0 - j_int_factor) * s3; - int2 = j_int_factor * s2 + (1.0 - j_int_factor) * s1; - //int_val = i_int_factor*int1+(1.0-i_int_factor)*int2; - t1c[jc] = i_int_factor * int1 + (1.0 - i_int_factor) * int2; - } - } -} - -/* perform interpolation and addition to next finest grid */ -void intadd(long kc, long my_num) -{ - long ic; - long if17; - long jf; - long jc; - long kf; - long istart; - long jstart; - long iend; - long jend; - double int1; - double int2; - double i_int_factor1; - double j_int_factor1; - double i_int_factor2; - double j_int_factor2; - long i_off; - long j_off; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - double *t1e; - - kf = kc + 1; - //hc = lev_res[kc]; - //hf = lev_res[kf]; - - istart = gp[my_num].rlist[kc]; - jstart = gp[my_num].rljst[kc]; - iend = gp[my_num].rlien[kc] - 1; - jend = gp[my_num].rljen[kc] - 1; - i_off = (*gp[my_num].rownum) * ypts_per_proc[kc]; - j_off = (*gp[my_num].colnum) * xpts_per_proc[kc]; - - t2a = (double **) q_multi[my_num][kc]; - t2b = (double **) q_multi[my_num][kf]; - if17 = 2 * (istart - 1); - for (ic = istart; ic <= iend; ic++) { - if17 += 2; - i_int_factor1 = ((imx[kc] - 2) - (ic + i_off - 1)) * (i_int_coeff[kf]); - i_int_factor2 = (ic + i_off) * i_int_coeff[kf]; - jf = 2 * (jstart - 1); - - t1a = (double *) t2a[ic]; - t1b = (double *) t2a[ic - 1]; - t1c = (double *) t2a[ic + 1]; - t1d = (double *) t2b[if17]; - t1e = (double *) t2b[if17 - 1]; - for (jc = jstart; jc <= jend; jc++) { - jf += 2; - j_int_factor1 = ((jmx[kc] - 2) - (jc + j_off - 1)) * (j_int_coeff[kf]); - j_int_factor2 = (jc + j_off) * j_int_coeff[kf]; - - int1 = j_int_factor1 * t1a[jc - 1] + (1.0 - j_int_factor1) * t1a[jc]; - int2 = j_int_factor1 * t1b[jc - 1] + (1.0 - j_int_factor1) * t1b[jc]; - t1e[jf - 1] += i_int_factor1 * int2 + (1.0 - i_int_factor1) * int1; - int2 = j_int_factor1 * t1c[jc - 1] + (1.0 - j_int_factor1) * t1c[jc]; - t1d[jf - 1] += i_int_factor2 * int2 + (1.0 - i_int_factor2) * int1; - int1 = j_int_factor2 * t1a[jc + 1] + (1.0 - j_int_factor2) * t1a[jc]; - int2 = j_int_factor2 * t1b[jc + 1] + (1.0 - j_int_factor2) * t1b[jc]; - t1e[jf] += i_int_factor1 * int2 + (1.0 - i_int_factor1) * int1; - int2 = j_int_factor2 * t1c[jc + 1] + (1.0 - j_int_factor2) * t1c[jc]; - t1d[jf] += i_int_factor2 * int2 + (1.0 - i_int_factor2) * int1; - } - } -} - -/* initialize a grid to zero in parallel */ -void putz(long k, long my_num) -{ - long i; - long j; - long istart; - long jstart; - long iend; - long jend; - double **t2a; - double *t1a; - - istart = gp[my_num].rlist[k]; - jstart = gp[my_num].rljst[k]; - iend = gp[my_num].rlien[k]; - jend = gp[my_num].rljen[k]; - - t2a = (double **) q_multi[my_num][k]; - for (i = istart; i <= iend; i++) { - t1a = (double *) t2a[i]; - for (j = jstart; j <= jend; j++) { - t1a[j] = 0.0; - } - } -} - -void copy_borders(long k, long pid) -{ - long i; - long j; - long jj; - long im; - long jm; - long lastrow; - long lastcol; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - - im = (imx[k] - 2) / yprocs + 2; - jm = (jmx[k] - 2) / xprocs + 2; - lastrow = (imx[k] - 2) / yprocs; - lastcol = (jmx[k] - 2) / xprocs; - - t2a = (double **) q_multi[pid][k]; - jj = gp[pid].neighbors[UPLEFT]; - if (jj != -1) { - t2a[0][0] = q_multi[jj][k][im - 2][jm - 2]; - } - jj = gp[pid].neighbors[UPRIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = q_multi[jj][k][im - 2][1]; - } - jj = gp[pid].neighbors[DOWNLEFT]; - if (jj != -1) { - t2a[im - 1][0] = q_multi[jj][k][1][jm - 2]; - } - jj = gp[pid].neighbors[DOWNRIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = q_multi[jj][k][1][1]; - } - - if (gp[pid].neighbors[UP] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[0][0] = q_multi[jj][k][0][jm - 2]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = q_multi[jj][k][1][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[0][jm - 1] = q_multi[jj][k][0][1]; - } else { - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = q_multi[jj][k][1][jm - 1]; - } - } - } else if (gp[pid].neighbors[DOWN] == -1) { - jj = gp[pid].neighbors[LEFT]; - if (jj != -1) { - t2a[im - 1][0] = q_multi[jj][k][im - 1][jm - 2]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = q_multi[jj][k][im - 2][0]; - } - } - jj = gp[pid].neighbors[RIGHT]; - if (jj != -1) { - t2a[im - 1][jm - 1] = q_multi[jj][k][im - 1][1]; - } else { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = q_multi[jj][k][im - 2][jm - 1]; - } - } - } else if (gp[pid].neighbors[LEFT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][0] = q_multi[jj][k][im - 2][0]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][0] = q_multi[jj][k][1][0]; - } - } else if (gp[pid].neighbors[RIGHT] == -1) { - jj = gp[pid].neighbors[UP]; - if (jj != -1) { - t2a[0][jm - 1] = q_multi[jj][k][im - 2][jm - 1]; - } - jj = gp[pid].neighbors[DOWN]; - if (jj != -1) { - t2a[im - 1][jm - 1] = q_multi[jj][k][1][jm - 1]; - } - } - - j = gp[pid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) q_multi[j][k][im - 2]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) q_multi[j][k][1]; - for (i = 1; i <= lastcol; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[pid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 1; i <= lastrow; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[pid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 1; i <= lastrow; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - -} - -void copy_rhs_borders(long k, long procid) -{ - long i; - long j; - long im; - long jm; - long lastrow; - long lastcol; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - - im = (imx[k] - 2) / yprocs + 2; - jm = (jmx[k] - 2) / xprocs + 2; - lastrow = (imx[k] - 2) / yprocs; - lastcol = (jmx[k] - 2) / xprocs; - - t2a = (double **) rhs_multi[procid][k]; - if (gp[procid].neighbors[UPLEFT] != -1) { - j = gp[procid].neighbors[UPLEFT]; - t2a[0][0] = rhs_multi[j][k][im - 2][jm - 2]; - } - - if (gp[procid].neighbors[UP] != -1) { - j = gp[procid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) rhs_multi[j][k][im - 2]; - for (i = 2; i <= lastcol; i += 2) { - t1a[i] = t1b[i]; - } - } - } - if (gp[procid].neighbors[LEFT] != -1) { - j = gp[procid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) rhs_multi[j][k]; - for (i = 2; i <= lastrow; i += 2) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - } -} - -void copy_red(long k, long procid) -{ - long i; - long j; - long im; - long jm; - long lastrow; - long lastcol; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - - im = (imx[k] - 2) / yprocs + 2; - jm = (jmx[k] - 2) / xprocs + 2; - lastrow = (imx[k] - 2) / yprocs; - lastcol = (jmx[k] - 2) / xprocs; - - t2a = (double **) q_multi[procid][k]; - j = gp[procid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) q_multi[j][k][im - 2]; - for (i = 2; i <= lastcol; i += 2) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) q_multi[j][k][1]; - for (i = 1; i <= lastcol; i += 2) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 2; i <= lastrow; i += 2) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[procid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 1; i <= lastrow; i += 2) { - t2a[i][jm - 1] = t2b[i][1]; - } - } -} - -void copy_black(long k, long procid) -{ - long i; - long j; - long im; - long jm; - long lastrow; - long lastcol; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - - im = (imx[k] - 2) / yprocs + 2; - jm = (jmx[k] - 2) / xprocs + 2; - lastrow = (imx[k] - 2) / yprocs; - lastcol = (jmx[k] - 2) / xprocs; - - t2a = (double **) q_multi[procid][k]; - j = gp[procid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) q_multi[j][k][im - 2]; - for (i = 1; i <= lastcol; i += 2) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) q_multi[j][k][1]; - for (i = 2; i <= lastcol; i += 2) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 1; i <= lastrow; i += 2) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[procid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) q_multi[j][k]; - for (i = 2; i <= lastrow; i += 2) { - t2a[i][jm - 1] = t2b[i][1]; - } - } -} Index: soft/giet_vm/applications/ocean/ocean.py =================================================================== --- soft/giet_vm/applications/ocean/ocean.py (revision 588) +++ soft/giet_vm/applications/ocean/ocean.py (revision 589) @@ -27,5 +27,5 @@ ######################### -def ocean( mapping ): +def extend( mapping ): x_size = mapping.x_size @@ -57,5 +57,5 @@ mapping.addVseg( vspace, 'ocean_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/ocean/ocean.elf', + binpath = 'build/ocean/appli.elf', local = False ) @@ -69,5 +69,5 @@ code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/ocean/ocean.elf', + binpath = 'build/ocean/appli.elf', local = True ) @@ -135,5 +135,5 @@ if __name__ == '__main__': - vspace = ocean( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/ocean/slave1.C =================================================================== --- soft/giet_vm/applications/ocean/slave1.C (revision 588) +++ soft/giet_vm/applications/ocean/slave1.C (revision 589) @@ -1,839 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* **************** - subroutine slave - **************** */ - -EXTERN_ENV - -#include -#include -#include - -#include "decs.h" - -void slave(long *ptr_procid) -{ - long i; - long j; - long nstep; - long iindex; - long iday; - double ysca1; - double y; - double factor; - double sintemp; - double curlt; - double ressqr; - long istart; - long iend; - long jstart; - long jend; - long ist; - long ien; - long jst; - long jen; - double fac; - long dayflag = 0; - long dhourflag = 0; - long endflag = 0; - long firstrow; - long lastrow; - long numrows; - long firstcol; - long lastcol; - long numcols; - long psiindex; - double psibipriv; - double ttime; - double dhour; - double day; - long procid; - long j_off = 0; - unsigned long t1; - double **t2a; - double **t2b; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - - - /* - LOCK(locks->idlock) - procid = global->id; - global->id = global->id+1; - UNLOCK(locks->idlock) - */ - - procid = *ptr_procid; - ressqr = lev_res[numlev - 1] * lev_res[numlev - 1]; - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_prini, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif -/* POSSIBLE ENHANCEMENT: Here is where one might pin processes to - processors to avoid migration. */ -/* POSSIBLE ENHANCEMENT: Here is where one might distribute - data structures across physically distributed memories as - desired. - - One way to do this is as follows. The function allocate(START,SIZE,I) - is assumed to place all addresses x such that - (START <= x < START+SIZE) on node I. - - long d_size; - unsigned long g_size; - unsigned long mg_size; - - if (procid == MASTER) { - g_size = ((jmx[numlev-1]-2)/xprocs+2)*((imx[numlev-1]-2)/yprocs+2)*siz -eof(double) + - ((imx[numlev-1]-2)/yprocs+2)*sizeof(double *); - - mg_size = numlev*sizeof(double **); - for (i=0;i nprocs/2) { - psinum = 2; - } else { - psinum = 1; - } - */ - -/* every process gets its own copy of the timing variables to avoid - contention at shared memory locations. here, these variables - are initialized. */ - - ttime = 0.0; - dhour = 0.0; - nstep = 0; - day = 0.0; - - ysca1 = 0.5 * ysca; - - if (*gp[procid].lpid == MASTER) { - - f = (double *) G_MALLOC(oim * sizeof(double), procid); - - t1a = (double *) f; - for (iindex = 0; iindex <= jmx[numlev - 1] - 1; iindex++) { - y = ((double) iindex) * res; - t1a[iindex] = f0 + beta * (y - ysca1); - } - } - - t2a = (double **) psium[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - t2a = (double **) psilm[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - - t2a = (double **) psib[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 1.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 1.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 1.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 1.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 1.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 1.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 1.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 1.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - -/* wait until all processes have completed the above initialization */ -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_prini, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif -/* compute psib array (one-time computation) and integrate into psibi */ - istart = 1; - iend = istart + gp[procid].rel_num_y[numlev - 1] - 1; - jstart = 1; - jend = jstart + gp[procid].rel_num_x[numlev - 1] - 1; - ist = istart; - ien = iend; - jst = jstart; - jen = jend; - - if (gp[procid].neighbors[UP] == -1) { - istart = 0; - } - if (gp[procid].neighbors[LEFT] == -1) { - jstart = 0; - } - if (gp[procid].neighbors[DOWN] == -1) { - iend = im - 1; - } - if (gp[procid].neighbors[RIGHT] == -1) { - jend = jm - 1; - } - - t2a = (double **) rhs_multi[procid][numlev - 1]; - t2b = (double **) psib[procid]; - for (i = istart; i <= iend; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (j = jstart; j <= jend; j++) { - t1a[j] = t1b[j] * ressqr; - } - } - t2a = (double **) q_multi[procid][numlev - 1]; - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = jstart; j <= jend; j++) { - t1a[j] = t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = jstart; j <= jend; j++) { - t1a[j] = t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (i = istart; i <= iend; i++) { - t2a[i][0] = t2b[i][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (i = istart; i <= iend; i++) { - t2a[i][jm - 1] = t2b[i][jm - 1]; - } - } - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_psini, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - - t2a = (double **) psib[procid]; - j = gp[procid].neighbors[UP]; - if (j != -1) { - t1a = (double *) t2a[0]; - t1b = (double *) psib[j][im - 2]; - for (i = 1; i < jm - 1; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[DOWN]; - if (j != -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) psib[j][1]; - for (i = 1; i < jm - 1; i++) { - t1a[i] = t1b[i]; - } - } - j = gp[procid].neighbors[LEFT]; - if (j != -1) { - t2b = (double **) psib[j]; - for (i = 1; i < im - 1; i++) { - t2a[i][0] = t2b[i][jm - 2]; - } - } - j = gp[procid].neighbors[RIGHT]; - if (j != -1) { - t2b = (double **) psib[j]; - for (i = 1; i < im - 1; i++) { - t2a[i][jm - 1] = t2b[i][1]; - } - } - - t2a = (double **) q_multi[procid][numlev - 1]; - t2b = (double **) psib[procid]; - fac = 1.0 / (4.0 - ressqr * eig2); - for (i = ist; i <= ien; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2b[i - 1]; - t1d = (double *) t2b[i + 1]; - for (j = jst; j <= jen; j++) { - t1a[j] = fac * (t1d[j] + t1c[j] + t1b[j + 1] + t1b[j - 1] - ressqr * t1b[j]); - } - } - - multig(procid); - - for (i = istart; i <= iend; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (j = jstart; j <= jend; j++) { - t1b[j] = t1a[j]; - } - } - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_prini, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* update the local running sum psibipriv by summing all the resulting - values in that process's share of the psib matrix */ - - t2a = (double **) psib[procid]; - psibipriv = 0.0; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - psibipriv = psibipriv + 0.25 * (t2a[0][0]); - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - psibipriv = psibipriv + 0.25 * (t2a[0][jm - 1]); - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - psibipriv = psibipriv + 0.25 * (t2a[im - 1][0]); - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - psibipriv = psibipriv + 0.25 * (t2a[im - 1][jm - 1]); - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - psibipriv = psibipriv + 0.5 * t1a[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - psibipriv = psibipriv + 0.5 * t1a[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - psibipriv = psibipriv + 0.5 * t2a[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - psibipriv = psibipriv + 0.5 * t2a[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - psibipriv = psibipriv + t1a[iindex]; - } - } - -/* update the shared variable psibi by summing all the psibiprivs - of the individual processes into it. note that this combined - private and shared sum method avoids accessing the shared - variable psibi once for every element of the matrix. */ - - LOCK(locks->psibilock); - global->psibi = global->psibi + psibipriv; - UNLOCK(locks->psibilock); - -/* initialize psim matrices - - if there is more than one process, then split the processes - between the two psim matrices; otherwise, let the single process - work on one first and then the other */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) psim[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - } - -/* initialize psi matrices the same way */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) psi[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - } - -/* compute input curl of wind stress */ - - - t2a = (double **) tauz[procid]; - ysca1 = .5 * ysca; - factor = -t0 * pi / ysca1; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - sintemp = pi * ((double) jm - 1 + j_off) * res / ysca1; - sintemp = sin(sintemp); - t2a[0][jm - 1] = factor * sintemp; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - sintemp = pi * ((double) jm - 1 + j_off) * res / ysca1; - sintemp = sin(sintemp); - t2a[im - 1][jm - 1] = factor * sintemp; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - sintemp = pi * ((double) j + j_off) * res / ysca1; - sintemp = sin(sintemp); - curlt = factor * sintemp; - t1a[j] = curlt; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - sintemp = pi * ((double) j + j_off) * res / ysca1; - sintemp = sin(sintemp); - curlt = factor * sintemp; - t1a[j] = curlt; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - sintemp = pi * ((double) jm - 1 + j_off) * res / ysca1; - sintemp = sin(sintemp); - curlt = factor * sintemp; - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = curlt; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - sintemp = pi * ((double) iindex + j_off) * res / ysca1; - sintemp = sin(sintemp); - curlt = factor * sintemp; - t1a[iindex] = curlt; - } - } - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_onetime, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/*************************************************************** - one-time stuff over at this point - ***************************************************************/ - while (!endflag) { - while ((!dayflag) || (!dhourflag)) { - dayflag = 0; - dhourflag = 0; - if (nstep == 1) { - for (i = 0; i < 10; i++) { - gp[procid].steps_time[i] = 0; - } - if (procid == MASTER) { - CLOCK(global->trackstart) - } - if ((procid == MASTER) || (do_stats)) { - CLOCK(t1); - (*gp[procid].total_time) = t1; - (*gp[procid].multi_time) = 0; - } -/* POSSIBLE ENHANCEMENT: Here is where one might reset the - statistics that one is measuring about the parallel execution */ - } - - slave2(procid, firstrow, lastrow, numrows, firstcol, lastcol, numcols); - -/* update time and step number - note that these time and step variables are private i.e. every - process has its own copy and keeps track of its own time */ - - ttime = ttime + dtau; - nstep = nstep + 1; - day = ttime / 86400.0; - - if (day > ((double) outday0)) { - dayflag = 1; - iday = (long) day; - dhour = dhour + dtau; - if (dhour >= 86400.0) { - dhourflag = 1; - } - } - } - dhour = 0.0; - - t2a = (double **) psium[procid]; - t2b = (double **) psim[procid][0]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + t2b[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + t1b[iindex]; - } - } - -/* update values of psilm array to psilm + psim[2] */ - - t2a = (double **) psilm[procid]; - t2b = (double **) psim[procid][1]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + t2b[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + t1b[iindex]; - } - } - if (iday >= (long) outday3) { - endflag = 1; - } - } - if ((procid == MASTER) || (do_stats)) { - CLOCK(t1); - (*gp[procid].total_time) = t1 - (*gp[procid].total_time); - } -} Index: soft/giet_vm/applications/ocean/slave2.C =================================================================== --- soft/giet_vm/applications/ocean/slave2.C (revision 588) +++ soft/giet_vm/applications/ocean/slave2.C (revision 589) @@ -1,1194 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -/* **************** - subroutine slave2 - **************** */ - -EXTERN_ENV - -#include -#include -#include - -#include "decs.h" - -void slave2(long procid, long firstrow, long lastrow, long numrows, long firstcol, long lastcol, long numcols) -{ - long i; - long j; - long iindex; - double hh1; - double hh3; - double hinv; - double h1inv; - long istart; - long iend; - long jstart; - long jend; - long ist; - long ien; - long jst; - long jen; - double ressqr; - double psiaipriv; - double f4; - double timst; - long psiindex; - long i_off; - long j_off; - long multi_start; - long multi_end; - double **t2a; - double **t2b; - double **t2c; - double **t2d; - double **t2e; - double **t2f; - double **t2g; - double **t2h; - double *t1a; - double *t1b; - double *t1c; - double *t1d; - double *t1e; - double *t1f; - double *t1g; - double *t1h; - - ressqr = lev_res[numlev - 1] * lev_res[numlev - 1]; - i_off = (*gp[procid].rownum) * numrows; - j_off = (*gp[procid].colnum) * numcols; - - START_PHASE(procid, 1); - -/* *************************************************************** - - f i r s t p h a s e (of timestep calculation) - - ***************************************************************/ - - t2a = (double **) ga[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - - t2a = (double **) gb[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0.0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0.0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0.0; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = 0.0; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = 0.0; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = 0.0; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = 0.0; - } - } - -/* put the laplacian of psi{1,3} in work1{1,2} - note that psi(i,j,2) represents the psi3 array in - the original equations */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) work1[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0; - } - laplacalc(procid, psi, work1, psiindex, firstrow, lastrow, firstcol, lastcol); - } - -/* set values of work2 array to psi1 - psi3 */ - - t2a = (double **) work2[procid]; - t2b = (double **) psi[procid][0]; - t2c = (double **) psi[procid][1]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2b[0][0] - t2c[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2b[im - 1][0] - t2c[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2b[0][jm - 1] - t2c[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2b[im - 1][jm - 1] - t2c[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - t1c = (double *) t2c[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1b[j] - t1c[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - t1c = (double *) t2c[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1b[j] - t1c[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2b[j][0] - t2c[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2b[j][jm - 1] - t2c[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1b[iindex] - t1c[iindex]; - } - } - -/* set values of work3 array to h3/h * psi1 + h1/h * psi3 */ - - t2a = (double **) work3[procid]; - hh3 = h3 / h; - hh1 = h1 / h; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = hh3 * t2a[0][0] + hh1 * t2c[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = hh3 * t2a[im - 1][0] + hh1 * t2c[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = hh3 * t2a[0][jm - 1] + hh1 * t2c[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = hh3 * t2a[im - 1][jm - 1] + hh1 * t2c[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[0][j] = hh3 * t2a[0][j] + hh1 * t2c[0][j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[im - 1][j] = hh3 * t2a[im - 1][j] + hh1 * t2c[im - 1][j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = hh3 * t2a[j][0] + hh1 * t2c[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = hh3 * t2a[j][jm - 1] + hh1 * t2c[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1c = (double *) t2c[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = hh3 * t1a[iindex] + hh1 * t1c[iindex]; - } - } - -/* set values of temparray{1,3} to psi{1,3} */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) temparray[procid][psiindex]; - t2b = (double **) psi[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[0][j] = t2b[0][j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[im - 1][j] = t2b[im - 1][j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2b[j][jm - 1]; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1b[iindex]; - } - } - } - - END_PHASE(procid, 1); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_1, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - s e c o n d p h a s e - - ******************************************************* - - set values of psi{1,3} to psim{1,3} */ - - START_PHASE(procid, 2); - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) psi[procid][psiindex]; - t2b = (double **) psim[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2b[0][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2b[im - 1][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[0][j] = t2b[0][j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[im - 1][j] = t2b[im - 1][j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2b[j][jm - 1]; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1b[iindex]; - } - } - } - -/* put the laplacian of the psim array - into the work7 array; first part of a three-laplacian - calculation to compute the friction terms */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) work7[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = 0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = 0; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = 0; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = 0; - } - laplacalc(procid, psim, work7, psiindex, firstrow, lastrow, firstcol, lastcol); - } - -/* to the values of the work1{1,2} arrays obtained from the - laplacians of psi{1,2} in the previous phase, add to the - elements of every column the corresponding value in the - one-dimenional f array */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) work1[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + f[0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + f[0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + f[jmx[numlev - 1] - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + f[jmx[numlev - 1] - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[0][j] = t2a[0][j] + f[j + j_off]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - for (j = firstcol; j <= lastcol; j++) { - t2a[im - 1][j] = t2a[im - 1][j] + f[j + j_off]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + f[j + i_off]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + f[j + i_off]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + f[iindex + j_off]; - } - } - } - - END_PHASE(procid, 2); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_2, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif -/* ******************************************************* - - t h i r d p h a s e - - ******************************************************* - - put the jacobian of the work1{1,2} and psi{1,3} arrays - (the latter currently in temparray) in the work5{1,2} arrays */ - - START_PHASE(procid, 3); - - for (psiindex = 0; psiindex <= 1; psiindex++) { - jacobcalc2(work1, temparray, work5, psiindex, procid, firstrow, lastrow, firstcol, lastcol); - } - -/* set values of psim{1,3} to temparray{1,3} */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - t2a = (double **) psim[procid][psiindex]; - t2b = (double **) temparray[procid][psiindex]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2b[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1b[iindex]; - } - } - } - -/* put the laplacian of the work7{1,2} arrays in the work4{1,2} - arrays; second step in the three-laplacian friction calculation */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - laplacalc(procid, work7, work4, psiindex, firstrow, lastrow, firstcol, lastcol); - } - - END_PHASE(procid, 3); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_3, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - f o u r t h p h a s e - - ******************************************************* - - put the jacobian of the work2 and work3 arrays in the work6 - array */ - - START_PHASE(procid, 4); - - jacobcalc(work2, work3, work6, procid, firstrow, lastrow, firstcol, lastcol); - -/* put the laplacian of the work4{1,2} arrays in the work7{1,2} - arrays; third step in the three-laplacian friction calculation */ - - for (psiindex = 0; psiindex <= 1; psiindex++) { - laplacalc(procid, work4, work7, psiindex, firstrow, lastrow, firstcol, lastcol); - } - - END_PHASE(procid, 4); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_4, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - f i f t h p h a s e - - ******************************************************* - - use the values of the work5, work6 and work7 arrays - computed in the previous time-steps to compute the - ga and gb arrays */ - - START_PHASE(procid, 5); - - hinv = 1.0 / h; - h1inv = 1.0 / h1; - - t2a = (double **) ga[procid]; - t2b = (double **) gb[procid]; - t2c = (double **) work5[procid][0]; - t2d = (double **) work5[procid][1]; - t2e = (double **) work7[procid][0]; - t2f = (double **) work7[procid][1]; - t2g = (double **) work6[procid]; - t2h = (double **) tauz[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2c[0][0] - t2d[0][0] + eig2 * t2g[0][0] + h1inv * t2h[0][0] + lf * t2e[0][0] - lf * t2f[0][0]; - t2b[0][0] = hh1 * t2c[0][0] + hh3 * t2d[0][0] + hinv * t2h[0][0] + lf * hh1 * t2e[0][0] + lf * hh3 * t2f[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2c[im - 1][0] - t2d[im - 1][0] + eig2 * t2g[im - 1][0] + h1inv * t2h[im - 1][0] + lf * t2e[im - 1][0] - lf * t2f[im - 1][0]; - t2b[im - 1][0] = hh1 * t2c[im - 1][0] + hh3 * t2d[im - 1][0] + hinv * t2h[im - 1][0] + lf * hh1 * t2e[im - 1][0] + lf * hh3 * t2f[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2c[0][jm - 1] - t2d[0][jm - 1] + eig2 * t2g[0][jm - 1] + h1inv * t2h[0][jm - 1] + lf * t2e[0][jm - 1] - lf * t2f[0][jm - 1]; - t2b[0][jm - 1] = hh1 * t2c[0][jm - 1] + hh3 * t2d[0][jm - 1] + hinv * t2h[0][jm - 1] + lf * hh1 * t2e[0][jm - 1] + lf * hh3 * t2f[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2c[im - 1][jm - 1] - t2d[im - 1][jm - 1] + eig2 * t2g[im - 1][jm - 1] + h1inv * t2h[im - 1][jm - 1] + lf * t2e[im - 1][jm - 1] - lf * t2f[im - 1][jm - 1]; - t2b[im - 1][jm - 1] = hh1 * t2c[im - 1][jm - 1] + hh3 * t2d[im - 1][jm - 1] + hinv * t2h[im - 1][jm - 1] + lf * hh1 * t2e[im - 1][jm - 1] + lf * hh3 * t2f[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - t1c = (double *) t2c[0]; - t1d = (double *) t2d[0]; - t1e = (double *) t2e[0]; - t1f = (double *) t2f[0]; - t1g = (double *) t2g[0]; - t1h = (double *) t2h[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1c[j] - t1d[j] + eig2 * t1g[j] + h1inv * t1h[j] + lf * t1e[j] - lf * t1f[j]; - t1b[j] = hh1 * t1c[j] + hh3 * t1d[j] + hinv * t1h[j] + lf * hh1 * t1e[j] + lf * hh3 * t1f[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - t1c = (double *) t2c[im - 1]; - t1d = (double *) t2d[im - 1]; - t1e = (double *) t2e[im - 1]; - t1f = (double *) t2f[im - 1]; - t1g = (double *) t2g[im - 1]; - t1h = (double *) t2h[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1c[j] - t1d[j] + eig2 * t1g[j] + h1inv * t1h[j] + lf * t1e[j] - lf * t1f[j]; - t1b[j] = hh1 * t1c[j] + hh3 * t1d[j] + hinv * t1h[j] + lf * hh1 * t1e[j] + lf * hh3 * t1f[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2c[j][0] - t2d[j][0] + eig2 * t2g[j][0] + h1inv * t2h[j][0] + lf * t2e[j][0] - lf * t2f[j][0]; - t2b[j][0] = hh1 * t2c[j][0] + hh3 * t2d[j][0] + hinv * t2h[j][0] + lf * hh1 * t2e[j][0] + lf * hh3 * t2f[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2c[j][jm - 1] - t2d[j][jm - 1] + eig2 * t2g[j][jm - 1] + h1inv * t2h[j][jm - 1] + lf * t2e[j][jm - 1] - lf * t2f[j][jm - 1]; - t2b[j][jm - 1] = hh1 * t2c[j][jm - 1] + hh3 * t2d[j][jm - 1] + hinv * t2h[j][jm - 1] + lf * hh1 * t2e[j][jm - 1] + lf * hh3 * t2f[j][jm - 1]; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2d[i]; - t1e = (double *) t2e[i]; - t1f = (double *) t2f[i]; - t1g = (double *) t2g[i]; - t1h = (double *) t2h[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1c[iindex] - t1d[iindex] + eig2 * t1g[iindex] + h1inv * t1h[iindex] + lf * t1e[iindex] - lf * t1f[iindex]; - t1b[iindex] = hh1 * t1c[iindex] + hh3 * t1d[iindex] + hinv * t1h[iindex] + lf * hh1 * t1e[iindex] + lf * hh3 * t1f[iindex]; - } - } - - END_PHASE(procid, 5); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_5, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - s i x t h p h a s e - - ******************************************************* */ - - START_PHASE(procid, 6); - - istart = 1; - iend = istart + gp[procid].rel_num_y[numlev - 1] - 1; - jstart = 1; - jend = jstart + gp[procid].rel_num_x[numlev - 1] - 1; - ist = istart; - ien = iend; - jst = jstart; - jen = jend; - - if (gp[procid].neighbors[UP] == -1) { - istart = 0; - } - if (gp[procid].neighbors[LEFT] == -1) { - jstart = 0; - } - if (gp[procid].neighbors[DOWN] == -1) { - iend = im - 1; - } - if (gp[procid].neighbors[RIGHT] == -1) { - jend = jm - 1; - } - t2a = (double **) rhs_multi[procid][numlev - 1]; - t2b = (double **) ga[procid]; - t2c = (double **) oldga[procid]; - t2d = (double **) q_multi[procid][numlev - 1]; - for (i = istart; i <= iend; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (j = jstart; j <= jend; j++) { - t1a[j] = t1b[j] * ressqr; - } - } - - if (gp[procid].neighbors[UP] == -1) { - t1d = (double *) t2d[0]; - t1b = (double *) t2b[0]; - for (j = jstart; j <= jend; j++) { - t1d[j] = t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1d = (double *) t2d[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = jstart; j <= jend; j++) { - t1d[j] = t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (i = istart; i <= iend; i++) { - t2d[i][0] = t2b[i][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (i = istart; i <= iend; i++) { - t2d[i][jm - 1] = t2b[i][jm - 1]; - } - } - //fac = 1.0 / (4.0 - ressqr*eig2); - for (i = ist; i <= ien; i++) { - t1d = (double *) t2d[i]; - t1c = (double *) t2c[i]; - for (j = jst; j <= jen; j++) { - t1d[j] = t1c[j]; - } - } - - if ((procid == MASTER) || (do_stats)) { - CLOCK(multi_start); - } - - multig(procid); - - if ((procid == MASTER) || (do_stats)) { - CLOCK(multi_end); - (*gp[procid].multi_time) += (multi_end - multi_start); - } - -/* the shared sum variable psiai is initialized to 0 at - every time-step */ - - if (procid == MASTER) { - global->psiai = 0.0; - } - -/* copy the solution for use as initial guess in next time-step */ - - for (i = istart; i <= iend; i++) { - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2d[i]; - for (j = jstart; j <= jend; j++) { - t1b[j] = t1d[j]; - t1c[j] = t1d[j]; - } - } - - END_PHASE(procid, 6); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_6, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - s e v e n t h p h a s e - - ******************************************************* - - every process computes the running sum for its assigned portion - in a private variable psiaipriv */ - - START_PHASE(procid, 7); - - psiaipriv = 0.0; - t2a = (double **) ga[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - psiaipriv = psiaipriv + 0.25 * (t2a[0][0]); - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - psiaipriv = psiaipriv + 0.25 * (t2a[0][jm - 1]); - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - psiaipriv = psiaipriv + 0.25 * (t2a[im - 1][0]); - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - psiaipriv = psiaipriv + 0.25 * (t2a[im - 1][jm - 1]); - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - for (j = firstcol; j <= lastcol; j++) { - psiaipriv = psiaipriv + 0.5 * t1a[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - psiaipriv = psiaipriv + 0.5 * t1a[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - psiaipriv = psiaipriv + 0.5 * t2a[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - psiaipriv = psiaipriv + 0.5 * t2a[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - psiaipriv = psiaipriv + t1a[iindex]; - } - } - -/* after computing its private sum, every process adds that to the - shared running sum psiai */ - - LOCK(locks->psiailock) - global->psiai = global->psiai + psiaipriv; - UNLOCK(locks->psiailock) - - END_PHASE(procid, 7); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_7, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - e i g h t h p h a s e - - ******************************************************* - - augment ga(i,j) with [-psiai/psibi]*psib(i,j) */ - - START_PHASE(procid, 8); - - f4 = (-global->psiai) /(global->psibi); - - t2a = (double **) ga[procid]; - t2b = (double **) psib[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + f4 * t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + f4 * t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + f4 * t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + f4 * t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + f4 * t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + f4 * t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + f4 * t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + f4 * t2b[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + f4 * t1b[iindex]; - } - } - - t2a = (double **) rhs_multi[procid][numlev - 1]; - t2b = (double **) gb[procid]; - t2c = (double **) oldgb[procid]; - t2d = (double **) q_multi[procid][numlev - 1]; - for (i = istart; i <= iend; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (j = jstart; j <= jend; j++) { - t1a[j] = t1b[j] * ressqr; - } - } - if (gp[procid].neighbors[UP] == -1) { - t1d = (double *) t2d[0]; - t1b = (double *) t2b[0]; - for (j = jstart; j <= jend; j++) { - t1d[j] = t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1d = (double *) t2d[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = jstart; j <= jend; j++) { - t1d[j] = t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (i = istart; i <= iend; i++) { - t2d[i][0] = t2b[i][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (i = istart; i <= iend; i++) { - t2d[i][jm - 1] = t2b[i][jm - 1]; - } - } - //fac = 1.0 / (4.0 - ressqr*eig2); - for (i = ist; i <= ien; i++) { - t1d = (double *) t2d[i]; - t1c = (double *) t2c[i]; - for (j = jst; j <= jen; j++) { - t1d[j] = t1c[j]; - } - } - - if ((procid == MASTER) || (do_stats)) { - CLOCK(multi_start); - } - - multig(procid); - - if ((procid == MASTER) || (do_stats)) { - CLOCK(multi_end); - (*gp[procid].multi_time) += (multi_end - multi_start); - } - - for (i = istart; i <= iend; i++) { - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2d[i]; - for (j = jstart; j <= jend; j++) { - t1b[j] = t1d[j]; - t1c[j] = t1d[j]; - } - } - - END_PHASE(procid, 8); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_8, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - n i n t h p h a s e - - ******************************************************* - - put appropriate linear combinations of ga and gb in work2 and work3; - note that here (as in most cases) the constant multipliers are made - private variables; the specific order in which things are done is - chosen in order to hopefully reuse things brought into the cache - - note that here again we choose to have all processes share the work - on both matrices despite the fact that the work done per element - is the same, because the operand matrices are the same in both cases */ - - START_PHASE(procid, 9); - - t2a = (double **) ga[procid]; - t2b = (double **) gb[procid]; - t2c = (double **) work2[procid]; - t2d = (double **) work3[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2c[0][0] = t2b[0][0] - hh1 * t2a[0][0]; - t2d[0][0] = t2b[0][0] + hh3 * t2a[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2c[im - 1][0] = t2b[im - 1][0] - hh1 * t2a[im - 1][0]; - t2d[im - 1][0] = t2b[im - 1][0] + hh3 * t2a[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2c[0][jm - 1] = t2b[0][jm - 1] - hh1 * t2a[0][jm - 1]; - t2d[0][jm - 1] = t2b[0][jm - 1] + hh3 * t2a[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2c[im - 1][jm - 1] = t2b[im - 1][jm - 1] - hh1 * t2a[im - 1][jm - 1]; - t2d[im - 1][jm - 1] = t2b[im - 1][jm - 1] + hh3 * t2a[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - t1c = (double *) t2c[0]; - t1d = (double *) t2d[0]; - for (j = firstcol; j <= lastcol; j++) { - t1d[j] = t1b[j] + hh3 * t1a[j]; - t1c[j] = t1b[j] - hh1 * t1a[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - t1c = (double *) t2c[im - 1]; - t1d = (double *) t2d[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1d[j] = t1b[j] + hh3 * t1a[j]; - t1c[j] = t1b[j] - hh1 * t1a[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2d[j][0] = t2b[j][0] + hh3 * t2a[j][0]; - t2c[j][0] = t2b[j][0] - hh1 * t2a[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2d[j][jm - 1] = t2b[j][jm - 1] + hh3 * t2a[j][jm - 1]; - t2c[j][jm - 1] = t2b[j][jm - 1] - hh1 * t2a[j][jm - 1]; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - t1c = (double *) t2c[i]; - t1d = (double *) t2d[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1d[iindex] = t1b[iindex] + hh3 * t1a[iindex]; - t1c[iindex] = t1b[iindex] - hh1 * t1a[iindex]; - } - } - - END_PHASE(procid, 9); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_9, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif - -/* ******************************************************* - - t e n t h p h a s e - - *******************************************************/ - - START_PHASE(procid, 10); - timst = 2 * dtau; - -/* update the psi{1,3} matrices by adding 2*dtau*work3 to each */ - - t2a = (double **) psi[procid][0]; - t2b = (double **) work3[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + timst * t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + timst * t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + timst * t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + timst * t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + timst * t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + timst * t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + timst * t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + timst * t2b[j][jm - 1]; - } - } - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + timst * t1b[iindex]; - } - } - - t2a = (double **) psi[procid][1]; - t2b = (double **) work2[procid]; - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[0][0] = t2a[0][0] + timst * t2b[0][0]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[LEFT] == -1)) { - t2a[im - 1][0] = t2a[im - 1][0] + timst * t2b[im - 1][0]; - } - if ((gp[procid].neighbors[UP] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[0][jm - 1] = t2a[0][jm - 1] + timst * t2b[0][jm - 1]; - } - if ((gp[procid].neighbors[DOWN] == -1) && (gp[procid].neighbors[RIGHT] == -1)) { - t2a[im - 1][jm - 1] = t2a[im - 1][jm - 1] + timst * t2b[im - 1][jm - 1]; - } - if (gp[procid].neighbors[UP] == -1) { - t1a = (double *) t2a[0]; - t1b = (double *) t2b[0]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + timst * t1b[j]; - } - } - if (gp[procid].neighbors[DOWN] == -1) { - t1a = (double *) t2a[im - 1]; - t1b = (double *) t2b[im - 1]; - for (j = firstcol; j <= lastcol; j++) { - t1a[j] = t1a[j] + timst * t1b[j]; - } - } - if (gp[procid].neighbors[LEFT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][0] = t2a[j][0] + timst * t2b[j][0]; - } - } - if (gp[procid].neighbors[RIGHT] == -1) { - for (j = firstrow; j <= lastrow; j++) { - t2a[j][jm - 1] = t2a[j][jm - 1] + timst * t2b[j][jm - 1]; - } - } - - for (i = firstrow; i <= lastrow; i++) { - t1a = (double *) t2a[i]; - t1b = (double *) t2b[i]; - for (iindex = firstcol; iindex <= lastcol; iindex++) { - t1a[iindex] = t1a[iindex] + timst * t1b[iindex]; - } - } - - END_PHASE(procid, 10); - -#if defined(MULTIPLE_BARRIERS) - BARRIER(bars->sl_phase_10, nprocs) -#else - BARRIER(bars->barrier, nprocs) -#endif -} Index: soft/giet_vm/applications/ocean/subblock.C =================================================================== --- soft/giet_vm/applications/ocean/subblock.C (revision 588) +++ soft/giet_vm/applications/ocean/subblock.C (revision 589) @@ -1,117 +1,2 @@ -/*************************************************************************/ -/* */ -/* Copyright (c) 1994 Stanford University */ -/* */ -/* All rights reserved. */ -/* */ -/* Permission is given to use, copy, and modify this software for any */ -/* non-commercial purpose as long as this copyright notice is not */ -/* removed. All other uses, including redistribution in whole or in */ -/* part, are forbidden without prior written permission. */ -/* */ -/* This software is provided with absolutely no warranty and no */ -/* support. */ -/* */ -/*************************************************************************/ +#line 115 "/Users/alain/soc/giet_vm/applications/ocean/null_macros/c.m4.null.GIET" -EXTERN_ENV - -#include -#include - -#include "decs.h" - - -void subblock() -{ - long i; - long j; - long k; - long xportion; - long yportion; - long my_num; - -/* Determine starting coord and number of points to process in */ -/* each direction */ - - for (i = 0; i < numlev; i++) { - xportion = (jmx[i] - 2) / xprocs; - //xextra = (jmx[i] - 2) % xprocs; - for (j = 0; j < xprocs; j++) { - for (k = 0; k < yprocs; k++) { - gp[k * xprocs + j].rel_num_x[i] = xportion; - } - } - yportion = (imx[i] - 2) / yprocs; - //yextra = (imx[i] - 2) % yprocs; - for (j = 0; j < yprocs; j++) { - for (k = 0; k < xprocs; k++) { - gp[j * xprocs + k].rel_num_y[i] = yportion; - } - } - } - - for (my_num = 0; my_num < nprocs; my_num++) { - for (i = 0; i < numlev; i++) { - gp[my_num].rlist[i] = 1; - gp[my_num].rljst[i] = 1; - gp[my_num].rlien[i] = gp[my_num].rlist[i] + gp[my_num].rel_num_y[i]; - gp[my_num].rljen[i] = gp[my_num].rljst[i] + gp[my_num].rel_num_x[i]; - gp[my_num].eist[i] = gp[my_num].rlist[i] + 1; - gp[my_num].oist[i] = gp[my_num].rlist[i]; - gp[my_num].ejst[i] = gp[my_num].rljst[i] + 1; - gp[my_num].ojst[i] = gp[my_num].rljst[i]; - } - } - - for (i = 0; i < nprocs; i++) { - gp[i].neighbors[LEFT] = -1; - gp[i].neighbors[RIGHT] = -1; - gp[i].neighbors[UP] = -1; - gp[i].neighbors[DOWN] = -1; - gp[i].neighbors[UPLEFT] = -1; - gp[i].neighbors[UPRIGHT] = -1; - gp[i].neighbors[DOWNLEFT] = -1; - gp[i].neighbors[DOWNRIGHT] = -1; - - if (i >= xprocs) { - gp[i].neighbors[UP] = i - xprocs; - } - if (i < nprocs - xprocs) { - gp[i].neighbors[DOWN] = i + xprocs; - } - if ((i % xprocs) > 0) { - gp[i].neighbors[LEFT] = i - 1; - } - if ((i % xprocs) < (xprocs - 1)) { - gp[i].neighbors[RIGHT] = i + 1; - } - - j = gp[i].neighbors[UP]; - - if (j != -1) { - if ((j % xprocs) > 0) { - gp[i].neighbors[UPLEFT] = j - 1; - } - if ((j % xprocs) < (xprocs - 1)) { - gp[i].neighbors[UPRIGHT] = j + 1; - } - } - - j = gp[i].neighbors[DOWN]; - - if (j != -1) { - if ((j % xprocs) > 0) { - gp[i].neighbors[DOWNLEFT] = j - 1; - } - if ((j % xprocs) < (xprocs - 1)) { - gp[i].neighbors[DOWNRIGHT] = j + 1; - } - } - } - - for (i = 0; i < nprocs; i++) { - (*gp[i].rownum) = i / xprocs; - (*gp[i].colnum) = i % xprocs; - } -} Index: soft/giet_vm/applications/router/Makefile =================================================================== --- soft/giet_vm/applications/router/Makefile (revision 588) +++ soft/giet_vm/applications/router/Makefile (revision 589) @@ -1,24 +1,20 @@ -APP_NAME=router -USE+= stdio.o -USE+= mwmr_channel.o - -USES=$(patsubst %,$(BUILD_PATH)/$(LIB_NAME)/%,$(USE)) +APP_NAME = router OBJS= main.o -all: $(APP_NAME).elf +LIBS= -L../../build/libs -luser -BIN_NAME_PATH=$(BUILD_PATH)$(APP_NAME).elf +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml -$(APP_NAME).elf: $(OBJS) $(APP_NAME).ld - $(LD) -o $(BIN_NAME_PATH) -T $(APP_NAME).ld $(OBJS) $(USES) - $(DU) -D $(BIN_NAME_PATH) > $@.txt +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt %.o: %.c - $(CC) $(INCLUDE) $(CFLAGS) $($*.o_CFLAGS) -c -o $@ $< - $(DU) -D $@ > $@.txt + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< clean: - rm -f *.o *.elf *.txt core *~ 2>$(TRASH) - rm $(BIN_NAME_PATH) 2>$(TRASH) + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/router/router.py =================================================================== --- soft/giet_vm/applications/router/router.py (revision 588) +++ soft/giet_vm/applications/router/router.py (revision 589) @@ -26,6 +26,6 @@ #################################################################################### -######################### -def router( mapping ): +###################### +def extend( mapping ): x_size = mapping.x_size @@ -54,5 +54,5 @@ mapping.addVseg( vspace, 'router_data_0', data_0_base , data_0_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/router/router.elf', + binpath = 'build/router/appli.elf', local = False ) @@ -60,5 +60,5 @@ mapping.addVseg( vspace, 'router_data_1', data_1_base , data_1_size, 'C_WU', vtype = 'ELF', x = x_size - 1, y = y_size - 1, pseg = 'RAM', - binpath = 'build/router/router.elf', + binpath = 'build/router/appli.elf', local = False ) @@ -108,5 +108,5 @@ if __name__ == '__main__': - vspace = router( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/shell/Makefile =================================================================== --- soft/giet_vm/applications/shell/Makefile (revision 589) +++ soft/giet_vm/applications/shell/Makefile (revision 589) @@ -0,0 +1,22 @@ + +APP_NAME = shell + +OBJS = main.o + +LIBS = -L../../build/libs -luser + +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIB_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.elf *.o *.txt *.pyc core *~ + + Index: soft/giet_vm/applications/shell/main.c =================================================================== --- soft/giet_vm/applications/shell/main.c (revision 589) +++ soft/giet_vm/applications/shell/main.c (revision 589) @@ -0,0 +1,173 @@ +/////////////////////////////////////////////////////////////////////////////////////// +// File : main.c (for shell application) +// Date : february 2014 +// author : Alain Greiner +/////////////////////////////////////////////////////////////////////////////////////// +// This single thread application plays with files to test the FAT32. +/////////////////////////////////////////////////////////////////////////////////////// + +#include "stdio.h" +#include "malloc.h" + +#define NLINES 256 +#define NPIXELS 256 + +unsigned char buf[NLINES*NPIXELS]; + +////////////////////////////////////////// +__attribute__ ((constructor)) void main() +////////////////////////////////////////// +{ + giet_shr_printf("\n[SHELL] Enter at cycle %d\n", giet_proctime() ); + + /////////////// diplay disk content + giet_shr_printf("\n#############################################################"); + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_shr_printf("#############################################################\n"); + + /////////////// open lena_256.raw + int fd_lena = giet_fat_open( "/misc/lena_256.raw" , O_RDONLY ); + if (fd_lena < 0 ) + { + giet_exit("cannot open file lena_256.raw"); + } + else + { + giet_shr_printf("\n[SHELL] open lena_256.raw\n"); + } + + /////////////// open copy.raw + int fd_copy = giet_fat_open( "/home/copy.raw" , O_CREATE ); + if (fd_copy < 0 ) + { + giet_exit("cannot open file copy.raw"); + } + else + { + giet_shr_printf("\n[SHELL] open copy.raw\n"); + } + + //////////////// load lena_256.raw + if ( giet_fat_lseek( fd_lena , 0 , SEEK_SET ) ) + { + giet_exit("cannot seek lena_256.raw"); + } + + if ( giet_fat_read( fd_lena , buf , NLINES*NPIXELS ) != NLINES*NPIXELS ) + { + giet_exit("cannot read lena_256.raw"); + } + else + { + giet_shr_printf("\n[SHELL] lena_256.raw loaded from device\n"); + } + + ////////////// store copy.raw + if ( giet_fat_lseek( fd_copy , 0 , SEEK_SET ) ) + { + giet_exit("cannot seek copy.raw"); + } + + if ( giet_fat_write( fd_copy , buf , NLINES*NPIXELS ) != NLINES*NPIXELS ) + { + giet_exit("cannot write copy.raw"); + } + else + { + giet_shr_printf("\n[SHELL] copy.raw stored to device\n"); + } + + ///////////// close lena_256.raw + if ( giet_fat_close( fd_lena ) ) + { + giet_exit("cannot close lena_256.raw"); + } + else + { + giet_shr_printf("\n[SHELL] lena_256.raw closed\n"); + } + + ///////////// close copy.raw + if ( giet_fat_close( fd_copy ) ) + { + giet_exit("cannot close copy.raw"); + } + else + { + giet_shr_printf("\n[SHELL] copy.raw closed\n"); + } + + ////////////// display disk content + giet_shr_printf("\n#############################################################"); + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_shr_printf("#############################################################\n"); + + ///////////// rename copy.raw + if ( giet_fat_rename( "/home/copy.raw" , "/misc/copy_lena.raw" ) ) + { + giet_exit("cannot rename /home/copy.raw"); + } + else + { + giet_shr_printf("\n[SHELL] /home/copy.raw renamed to /misc/copy_lena.raw\n"); + } + + ////////////// display disk content + giet_shr_printf("\n#############################################################"); + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_shr_printf("#############################################################\n"); + + ///////////// remove home + if ( giet_fat_remove( "/home" , 1 ) ) + { + giet_exit("cannot remove /home"); + } + else + { + giet_shr_printf("\n[SHELL] /home removed from file system\n"); + } + + ////////////// display disk content + giet_shr_printf("\n#############################################################"); + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_shr_printf("#############################################################\n"); + + //////////// create new_home + if ( giet_fat_mkdir( "/new_home" ) ) + { + giet_exit("cannot create /new_home"); + } + else + { + giet_shr_printf("\n[SHELL] /new_home created in file system\n"); + } + + ////////////// display disk content + giet_shr_printf("\n#############################################################"); + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/new_home" ); + giet_shr_printf("#############################################################\n"); + + giet_exit("Completed"); + +} // end main() + +// Local Variables: +// tab-width: 3 +// c-basic-offset: +// c-file-offsets:((innamespace . 0)(inline-open . 0)) +// indent-tabs-mode: nil +// End: + +// vim: filetype=cpp:expandtab:shiftwidth=3:tabstop=3:softtabstop=3 + + + Index: soft/giet_vm/applications/shell/shell.ld =================================================================== --- soft/giet_vm/applications/shell/shell.ld (revision 589) +++ soft/giet_vm/applications/shell/shell.ld (revision 589) @@ -0,0 +1,39 @@ +/**************************************************************************** +* Definition of the base address for all virtual segments +*****************************************************************************/ + +seg_code_base = 0x10000000; +seg_data_base = 0x20000000; + +/*************************************************************************** +* Grouping sections into segments for code and data +***************************************************************************/ + +SECTIONS +{ + . = seg_code_base; + seg_code : + { + *(.text) + } + . = seg_data_base; + seg_data : + { + *(.ctors) + *(.rodata) + /* . = ALIGN(4); */ + *(.rodata.*) + /* . = ALIGN(4); */ + *(.data) + /* . = ALIGN(4); */ + *(.lit8) + *(.lit4) + *(.sdata) + /* . = ALIGN(4); */ + *(.bss) + *(COMMON) + *(.sbss) + *(.scommon) + } +} + Index: soft/giet_vm/applications/shell/shell.py =================================================================== --- soft/giet_vm/applications/shell/shell.py (revision 589) +++ soft/giet_vm/applications/shell/shell.py (revision 589) @@ -0,0 +1,83 @@ +#!/usr/bin/env python + +from mapping import * + +###################################################################################### +# file : shell.py +# date : july 2015 +# author : Alain Greiner +####################################################################################### +# This file describes the mapping of the single thread "shell" application +# on processor[0][0][0] of a multi-clusters, multi-processors architecture. +#################################################################################### + +###################### +def extend( mapping ): + + nprocs = mapping.nprocs + x_width = mapping.x_width + y_width = mapping.y_width + + # define vsegs base & size + code_base = 0x10000000 + code_size = 0x00010000 # 64 Kbytes + + data_base = 0x20000000 + data_size = 0x00080000 # 512 Kbytes + + stack_base = 0x40000000 + stack_size = 0x00200000 # 2 Mbytes + + heap_base = 0x60000000 + heap_size = 0x00001000 # 4 Kbytes + + # create vspace + vspace = mapping.addVspace( name = 'shell', startname = 'shell_data' ) + + # data vseg + mapping.addVseg( vspace, 'shell_data', data_base , data_size, + 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', + binpath = 'build/shell/appli.elf', + local = False ) + + # code vseg + mapping.addVseg( vspace, 'shell_code', code_base , code_size, + 'CXWU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', + binpath = 'build/shell/appli.elf', + local = False ) + + # stack vseg + mapping.addVseg( vspace, 'shell_stack', stack_base, stack_size, + 'C_WU', vtype = 'BUFFER', x = 0 , y = 0 , pseg = 'RAM', + local = False, big = True ) + + # heap vseg (unused) + mapping.addVseg( vspace, 'shell_heap', heap_base, heap_size, + 'C_WU', vtype = 'BUFFER', x = 0 , y = 0 , pseg = 'RAM', + local = False ) + + # task + mapping.addTask( vspace, 'shell', 0, 0, 0, 0, 'shell_stack', 'shell_heap', 0 ) + + # extend mapping name + mapping.name += '_shell' + + return vspace # useful for test + +################################ test ###################################################### + +if __name__ == '__main__': + + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) + print vspace.xml() + + +# Local Variables: +# tab-width: 4; +# c-basic-offset: 4; +# c-file-offsets:((innamespace . 0)(inline-open . 0)); +# indent-tabs-mode: nil; +# End: +# +# vim: filetype=python:expandtab:shiftwidth=4:tabstop=4:softtabstop=4 + Index: soft/giet_vm/applications/sort/Makefile =================================================================== --- soft/giet_vm/applications/sort/Makefile (revision 589) +++ soft/giet_vm/applications/sort/Makefile (revision 589) @@ -0,0 +1,22 @@ + +APP_NAME = sort + +OBJS = main.o + +LIBS = -L../../build/libs -luser + +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIB_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.elf *.o *.txt core *~ + + Index: soft/giet_vm/applications/sort/sort.py =================================================================== --- soft/giet_vm/applications/sort/sort.py (revision 588) +++ soft/giet_vm/applications/sort/sort.py (revision 589) @@ -4,5 +4,5 @@ #################################################################################### -# file : sort.py (for the sort application) +# file : sort.py # date : may 2014 # author : Alain Greiner @@ -20,6 +20,6 @@ #################################################################################### -#################### -def sort( mapping ): +###################### +def extend( mapping ): x_size = mapping.x_size @@ -50,5 +50,5 @@ mapping.addVseg( vspace, 'sort_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/sort/sort.elf', + binpath = 'build/sort/appli.elf', local = False ) @@ -61,5 +61,5 @@ mapping.addVseg( vspace, 'sort_code', code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/sort/sort.elf', + binpath = 'build/sort/appli.elf', local = True ) @@ -113,5 +113,5 @@ if __name__ == '__main__': - vspace = sort( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml() Index: soft/giet_vm/applications/transpose/Makefile =================================================================== --- soft/giet_vm/applications/transpose/Makefile (revision 589) +++ soft/giet_vm/applications/transpose/Makefile (revision 589) @@ -0,0 +1,20 @@ + +APP_NAME = transpose + +OBJS= main.o + +LIBS= -L../../build/libs -luser + +INCLUDES = -I. -I../.. -I../../giet_libs -I../../giet_xml + +LIB_DEPS = ../../build/libs/libuser.a + +appli.elf: $(OBJS) $(APP_NAME).ld $(LIBS_DEPS) + $(LD) -o $@ -T $(APP_NAME).ld $(OBJS) $(LIBS) + $(DU) -D $@ > $@.txt + +%.o: %.c + $(CC) $(INCLUDES) $(CFLAGS) -c -o $@ $< + +clean: + rm -f *.o *.elf *.txt core *~ Index: soft/giet_vm/applications/transpose/bridge256.raw =================================================================== --- soft/giet_vm/applications/transpose/bridge256.raw (revision 588) +++ (revision ) @@ -1,869 +1,0 @@ -^`q‡ÄtnjƒŸvdq†ÃæãææâÎÞáîãæºÛǟ‹–„Œœ®¬Ä͉l—žŸš«Æ¹ž’šŠ¯ÄŽÌ«ª¶¹ÅÝÀŒ¯³ÃŠªŠž¥¥µªÂ°˜†š¯§¶­»‰„|Œ}œŒy–jnWOK`uŠvŠwgn -|”œ©pŠ·[– Ž»§„‚‹™¥³“’Šœ˜“•”š £¯Š€”š¥°¢£š€² ˜ž’{˜s‚ŽiRh‰ws}}º‚fy‰¬œ• -€¡ŸœÁ«œˆŒª”†“‰¡Š†’‰|ho€xŽ ‡mpy|‚unh}liOTWR` -‚e`lX~vwgu -zn{~Q{y†‘‹k[}x™À‡l|„“–nfp“Ãäåâãâ°ØåçÝÞªÒ¶² -ˆ -¢©²Å·•xžÇÅԱž“£®š°²Žµ§©§›Ì¹âËÆÈÆŸ±­»š®œ««€§›ª¢©ªŸƒ˜ˆ|n›wyiu`YUU_nnv]Œˆ†‹©š~£rŽ§[t‰·ÊŲº¯°£ŒÊÄ°³¹Ÿ²«œ˜Žkziq\_S^Musk‹€“ŒuVon@6JI,0„FEg:erafXA -‡k±›«°š‹Š€–u]Lp‰ -ngQOS?MfY[qnvbcvNILE]NQQULZnk\jZVRK[gŠZHer}pqsYV\inWwzŸƒs„¿œŒ‰bl•ÇåäãçæžÕãâÛ݌ޯƒlm{ˆh—ª®’ -Àªœµ£žŠÃ˜¡º¿ÁϕœŽ©ÕœáÈÖÓÁžž¬ÉšÀ²®‚°’ƒ±Ÿ¢¶­—„œ€«‰es‚ƒ`tYKUln -kwve}k¡²‚‚ ƒh°aa“±Á¯Æ²Ÿ¹€¬µºÇÄëš³©•“}ehXXTVTUVf[[ƒf{€gO[M†q0=037 -FXg>‰šGTru}‹¢²yˆ -eiuœhd_[`}sZffbZ`6PJjhHk—gaYR[g`IURVDMYobQTK8E6E`cltj`€ntjf[WefX]dš•€zÀ·±®jeÎÞààäæÁÙßáåâʷŘlreck]¡ž®›Œœƒ|֪Ɣ™Ÿ”©Â£­¥””rƒžÂâĊ¿ÖŸ§­©¯ÌƧ¯§°¹Œ­¥ÂŒ±™ª ¡ ¡ivt‰ª–WOYegxqŠzŠbYƒ‹€x}}\—„†šµ»Âº¶Ž°ª©¡™¬Žwƒ™À»šuVVSQYGYkYZPjœwefrbˆŠ\&GE3sSBLFd{|a~š‰š¡®zZ{g“š€eqw‚fULlQS€u?DLz]El¢€_RVZ_]XQMXG;EOa_MSJEL@UJDGNDIJ@6>PI94Y\OGW;=L?@^K›snMZ_P]Wd|­Ž„­²„ƒŠxhŒØáßß×ß¹×æäéç×ÔѲ}}t‹Ÿƒ±{ˆ€ÍÛÀ¡®£®¶±›Ÿ‰l›|ÛŽÔœŽÂÉŽ¡’¯€²º¯±¥Ÿ‘Žš—Š¬–§e‘Šptž¢hKddqkn²›–hfuzjfrkwr“–£Ž„¡Ÿ§šŽ„r•€šw­”hBkƒocVag^bYd€Ž–pwvbem][U~PL+;>lraJ{4@bŠ;uxF@2YwW_um——kekI\M[FI7TJGkelWinLr]]Oop{—Š“ƒ~ŠdS:EefXRV~nF71SDKWE\NBXJO>]Vc]q]ey£»Ÿ³‘qboºÌàÔßä׳ÕæàÙÎÅ­‘q}k‘›¡€’|rz’„}‚Àž«²œµ­’’™Ÿ”ž¡‹ÖØÐÈŸŸŽªœž¶€«¹”}Š{w„»‚–|“y‡œ˜kJuzQaqoše™`gwŠ}~PCFtwoiMl‰ƒ š™˜£¬Áµ[wŒw|„?:eP‚|\XTfQUGLirmmŒtƒstLLJsƒIy?.K0=GƒmC‰XD-cy`–t‡€fPYtmVnxG>A>7dsNg{Œ]XRdhf`[v—ˆrfsA=A5UILIXh[Q02>BbMST?EY|kyz]RPQp~c”£—Œ±ªºŒXatºÔÒÔÝâå©ÌÙ·£‡ˆ ’zixwžx‚nsphq„ˆszВȻ­ŸË£‰’‘{º•³ÎÑËÊ©š£¥°”š¥~Ž—yw -R”‰‹†~‰„‘wz§©šuPdƒKZZzœx[nNLvŽŠ‹oZ_e`i]\lqg]®ˆ‹®›’„³§x–]T=?OymEIJKkJKEaaszxev|_To]e„f‘iI]bIU_CHbeYœ²­œhTT†qZzdU;BKNIYiS7/09AZHW5Ay¯q¹®vARtzBpy[IFGGGGVJPwf]XKb‚‡Š†M„keMBIJHZ]LadeJ4GN@KX^aj`|h\UjHbrigxœ ˆ -Œ›ujxr£ÚÆäØÛßž¡Œ{‡¡­|§l„gftz^ZHrȍŽn{—ϏŠ×¬ -}£”|lš -~ºÆÌ؉”a›”‰€µ›†`^u -hNW{ˆ“Œm`x|ŠŽz|©‰}•ÐuvyrSIAZZ€‹ -˜’XƒzXBXQewpn“­ÁœÄ±ªkpŒ]aC3:7AcTB:.p‘¥ž¥¯mAROeMSXkRFMIK>XIJxeb`Lk€—}dt\nU>MRYcgUjKFAAYTPa\JN™a}PRY`‰‚|hYµš²ªq€˜wn’~zgqØÇÔÞÞמ‰ -ŸŒÒܱ›±©ˆy|q_e~°¡Žƒ š|²Ç˜Û˜¬~i‹ŒžŽÀ”¶á±¥ƒ€lˆš«²°Œlkc—lNV{ ‘˜|o|g€ƒ’­‹vm¶ŒvxƒW_VX„lh -ž¢hž„ÇxXPMdvytl˜¬—£€Ã£ ‚|‹UG17AHBECE7>?CNXXKOFh‹T{e‚›ƒž¹uW]PL>.6PP:@X_Xe ³^gnQJUPTTY‚ULaK>:OXU`bZWfƒs–ŽjZ{klEMQPQYoki]^S^TLLFOFpdvjb\nxrZdٙ›ž~•‹ygœ’ugf¹ØÝÂÖÛ°•| Ô×Ñßᱡ˜£}xkhy€„Š¢‹”œ©q’¶ ÎÒ~›«•’š£»ÅÕáÐÇœ£˜®º®»’ŸržJHYwŠo~ -_ssˆ‚~ˆŒ¢©Å—kSG]i‡]V{ Wn‚¡o§›hZqrv`r\—}‰Âgtš·z›eNebVQ;GyHleEH`lM\]EIDIN\\PQ\bQfP[egQQLJMgn‰RNMJYXABW_ueVliV[YVSPIF;Ui^_\wsshZ‡¶y`¡£­r”šžƒš¯hXœÖÝÆ£ŸÉ³»ÞåÛÎ×à•˜Œv{~dej‹†Ê§‡ƒ‹‰wd`i‰n¢Š~‚‘s„È­œàÕË«¹“²À»°§{€¢ sxhrŽ†‹myrm ”mc„s—ˆ¿kg`ZH\UFGMRLc`Y^L^bnxJ=Ud[USu”LKGU§š:eVˆkD:613DG6GOFDDUHVNKS_muŸŒ¥¡›‘nf—ˆfcMfkC[Œov]P=5Eip\hd]j\uXTca=Z^wH_UL[c_cP\UQzVnRY‘KFDUZngXU_RPZUII?NT[KIRv_gRvgvŠ‡pšÂʊ˜ŽŠˆn~˜w`g–ÃÉ̎­»ÈÝæáÌÏÝ¡”–nˆtacƒˆ•Î­ŒyŽrYLW‰k|sw¡š’‰†‚Í×ÉÆÀŽ¥·Æº ²¡” ‰xqg~”]€ox‹ph‘v“‚uif_JCVR3@MS^YutUc§ºˆZlYi?Kt{c\_2eb§Žx]Ž˜P>?8<7>3HCJHUEQZGU]jj¢ÏÄ«”[UT~k -ž’UXfUZUiacPBYjeygPSWS`jU[¥€bIYhc[VLaP]_Pq^AO{e`a’aTXYZ^rdaZOXJ[BFOPXMEK`WWe -]²Œ€„§¿ž—–©§no h]b‡££¥‚kižÁÖâÜÔÙÝ°‰Ÿ¥–_Td’–Ž—‡}|RZb|s\{u|‰—}n¶š–ÔÖӻŢŌšš‹£³†{‹pqk‰“¢do{‚“{lzqˆ_XS_NUHNB;4@WnHTKSw~«Ô—ˆUKP?N`~bB?13jb”Zz’pG743>FABEDQTDQNGQX`|¯Îœ·Ow‘ -¶·€R_ESDA[QK`Wt‹UqyaLIEXc`Riy‰FEQ`^CBXWR^PhŠcfos}ZgˆicXRLK^eiSQSGSRQR^ZT=RbgLJyžŽ‚¥‡s¥°z‡ƒ‰d‚ž™uYcnqujljg}ÀÖàÜÜÞÙ¢o˜È¢š• “y•“uŠb„š|e}w -ŽŽz—§o€ÒÒ¥§Œ Ÿ²”›”œ’l v”u]s’°h~Œ›kgr—ŠW[XKLR@VLDT6GIDBMVŠ²ÖµŽsAKR:S[aK:-q[LSVSI{}DA<=?B?@D=LMLWU\TZaŽ¬¢—h -±vŠ‚Š·€t\Q`HV\^ivRnyfTobKDVROoL^m{MDfSJ?aWXjgbpxlnV‹bhkxb[_RM[Zf]aIILC>@^MURAQ[qHYScPyŠsRŸ›‰tr€Šm‰tS`qq„rr‡ÃŽ®ÓÜãäàٞvŸ·«—‘œš–m€rd`Ÿ·–ƒ^Zar• –š¢¿¶„‹·Œž€ÀŽ¯Ã†Ž‘ƒŽ^snxq–•ºt„ƒšˆbbc”Š\f~jkZQgUF8gxwk`~_VTHP_JVGHPAHBRay -z„qfwoWKarb}]Q[WPDOG\ITe`PUJEEYYHLD_‹yfTtao{šNT‚gab[rrkt˜cgTdm™ÀóžÚ£ªÎ×åäßܯ˜™›©œ“”†‚m‘xcˆœ°šŽmaco‰‡žÆº¥¡‹–ŒÀ¢±œª®£šž¢‡Ž—|mrc^w©Ÿn‹ -‘ƒeru”m^[Zgnskn>bdJ3B]kGœËÉÉÆÂA,6;;Qm8dKMRLKk]\ºÛÁ§Ò¿T)?JKRHEEGLSOJDYis]adfp`†lp^W ƒDOWpr€SAIQ‚mœ®—oBLG2GFSFQQU[Xa]QxeAHb]TBDH]UOGVMQ2=SVMKM_nRkVAbDWMH\c]hTQcnƒ{ƒ’ra_uV\luXonXUqžÑßÛÅųµ°ØæåäÙÚ±ay£ˆ{q’•‹†}™µƒ€•oj -ƒtfŠt»”§£°›¡ÂÆÊž«¶œ© Ž£ª¥¬­«¢nZWt„k~€d|y“‚‹ijjdQOCXFAEW[ZGEY^WGÁÇŒ¿ÁŒY)6BQSoYdPvcc¬lBJTQN8IHB=?CPFEFEOXQSILbkqvRc{¬Š‡ªq‚Š©cJa;5G|—cPT]‚Se|ŒB7AKLSMVW_TJXLK\wqBMjKY:NLQRBSKHJJYKHFLFT\bPU?WGknP`GWS^IiŒ«Œ¡a|o‚TYxqX‚Ž^YnÃÎÕÕ÷­ŽÈÐÞààÔҁbgx„pe‹”“z‹—”q„zfm‚’’€¥·œ -³‚Ÿw®ÓÖÀ¿¬¡Ÿ¬˜«µ°ª§«™­ˆ‰‘^O’†lƒ^hoighZ]VgMHCC;><=6CMX`PD7EYU@AFaPWIVE9SOfzv–ºŸ’’‚” ZdKKVcLyj\zmvD^†gH?;>IYbFLD^HFIKKFVhCM]VMCQYXFY<>RK@@MESJYthfKZ]e‹}mnUEYWNuvx¯Ær¡k‰k\~kjm{jU~ÑÆÔÛÖÀ«±ŸÈÑÜåÜÐraŠ}©¥{–‹˜Œ€™ -Š‡tftpŽ®šŽž™˜y˜€ÃÜÀÊÒÌ·¶º™¶¶¶—šž€€ŽcpYgœ€pf^[a[Zc[VZXVGZBA>mzWRIYQQMOKoVNI@A8o„\dflžƒŒ{t†€}USVFDU -‡Ykk}[GCQ=FARoXW[KYLIƒpL?>b\[PGDD4s‹]][U<:XHMANDo`[_cc -_XX -nrP]Qri{«„c”ÅŠ{f„zglaiidbWŽÑÃØâ×ËÁ¯Æ×ÞÙÜàÈp] -s„xx~ -™xx‰‘x{‹™²œ³š¡œ™›yŸÙ×ÞÛԱźŠ¬¯®«®©œ—“elq -”¬†kyvkakilmV^\QLA8@:Kh`Ux:;bBU}Š«³Î»µ|—agjcXcz›Š¯]F‡HMfKE?Mn~ƒ¡’n‘ÖĞmjtvqo{jT_gZ–ÉÜÚÚÖ·Ž¥ÆæèãÒÓž|}qxy‹ -{’‰‹we‚œ~v~ŸŽ—ªž‚˜§¢šˆÅßÞÖÚÓ€Œ¶Š¥¬€®ŠŠ˜”–nz ’«‘tpˆo_hYUbcVKOH=9<;==LmrCB]MN_W‘¬¹Ÿ°¬ž–‰ˆmpUZ‰X]PSJX[MN?MSSPS\C@R__UcYd„]dp„vf]‹“ic¡žŸ‚yon]VnObp—EaNaL0m`98I[_YMGbbOqCFFKHcXH=9]uWbC7EZMdSaTENRTF[FUQLT=7:S£|MJIYjn†”q™ÝÙvpxˆpWY™jUac¯ÍØ̜۟›ßèçêßƱˆƒlŽ˜•Žz“„‘dks˜‰fƒ—šž’®‡k  ‰–•ÂãâÞÛ׏­¶¶²¡š«ª¬ž•Œlz«¥©‡rcfZV_VRLPNHQKHPVYQVk‚f?B:=Oo‰¹ŒÃĶ•‰wxVoX^O`P_JML]\AOSdpQFLrD<5PPhKF[\WTF?OFLNABHC|‡_MPI]tv“‰ŽÕÝ``d’`Z]}|u]t[šÁÃÀŒÂÅŠæêëêåÌš‹§‹ˆ€“cW^q}q™¢’›£”““Š žƒy¡ÚãáãÙÏ¡­ž®³®£Š§§Ž£¢Š°µƒpineKLRLS`SGDHJ[Mxq€†zkH=A58Yˆ‹·°ª»Šfhk\[\N?I<@96>'#D7GA^LZVPhY\s™ua|Žžvv‘Ž™€ˆs\–w«—¬l}w‘ŒÅ̏?DSvªŒf{_W/C^CpeRQI_bHSKOˆgVh_S]CU]lTKRk\^VNK^SPQCOKD<5N]kqRJEWY\ŠxlšÉSoYl{femghaoƒÆË·ÕÏÖÒ§Éçêìåæס“˜Œ„††‚vX[]_b}Šœ›„Ÿ²šœ‰¬­Ÿ–{ -ÝáãáßȞ¶Ž³š¬€Š·šŽ|€_–š™jgxa]HROs}_AB9@QLw -ˆ˜sq -cE<4Dc°ªœÃ®Š}aU3TeEMINCKFE%1?CPQ^[VmyTSdW¡žŒžšw -”›—ª¬£‡“c”©œfO”}‹³É©j?am“†YeHkGuTbYXKSM\YDH^W€ €{TO@ILŒeVLKfnIC7WDXMPLZUGKEFF72;ML]u\LRS[umykk•—lgUmaŒsmq{nmÇŒÓáÝÚàŸÈéíãæäכsz -Š˜vs†raqrfcŒ’˜{®Áƕ©ž„‹ -iÃâãâ×Û¶«³¯Š€¶©«|šŽ]pz~e`tdQ\\wNJO=9;:=TYXGMfueME;GUš±ÄÊÔŠ’~bUQSQEK9@E.FV1,aMZwWNFSg\]Š‹«¥ª™pwvŸ¹¯™Ÿ¯ž‚m±©¯ef|zžÈŒš×¯;k‡‚bSMUIS“xMf_IA[csTBNŠœžinYODG@F]s;?O{‰D8JKF?Ebb]UN<4CGE@HHSCMYXVK]\^]ol²\cRdXov˜ƒli€ÙÕÜåãÖÞÚÜçêæäÞ֊„‡Ž uk‹¡„‚ttŠŠžz€’Ï»¢•Àƒ™’‘~ÃÚåæÙŸº°¶²ª³¥°œ¬••„L€Y€medi_hw‡`EB:N3=6:9L^UxdjJTU7H\OeV@MEQNGYape692HAHOO/@L@6>JPZZjZRY_ ‡wkxcO€lƒ‰riƒÝçåäâÙÞÖÞæçÛÛÙ٘z–©¢x§ž·²Œwlf†ŒŽ¢Œ±š“‹ŽÆŒ“ÀÒÛçÓŽ“¶³­¯­Œ€š«›”µƒ -ozYba\ZPXmW?<55=44E?EEbudp_M~i@BW·ŸÒÞ×ÃcaaOK_\ŠFcT;MQ;Q -’}i`m_|†‘ˆ‚”¹Á•ˆ\\nž®Šª¥ª¡¡r”µ—u‘—Š Ž•“nlZ^gogr[b­tGZ”awVT\`¶ÑjU{’qZIu<;4GNh?Mz†¡MODVhTTbOZkNK>PPX_865K==8GIHIGPV]d’\[]ZSi{‡„mg’áêêááÜàÒÜäãàÙÏ×€•¯Ÿª’§¬ž¥–Œ†‰y’~³ÛÙ¥¢~w—ÈŒ -†”ÆåàâÚ±Œ¥·© °Âœ–²©–£”d{mQLTKVPJGBFDB>4BI>165=G^OU^bFn;;C£²ÄÓ£‡stg\VuƒMFZXtn‚£†„|tq]snŒŠŸ˜muiv„cPLR†ˆ¢¢¡Œ²©v‘°mŸŽ‹d]z›ÈËǃqcgv|zŒrHG~IMQ\Œ€—u[krzyDHX==;IYJ6j_itNNRW`N=5<7IAEKILIDNTVWihubpV^jv_^Se°âééåêãáÌÛÙÃãÚÈȀ˜ŒŠ©‹““–”qk_rƒ‡°Ô±ƒ„ƒ—¡Âž™›—Œ€âççâ­u§¶¡¶¬Ž€›³·§|’VqrJOWa_RSO@VO[EHJE3/64E[ULJRaV=O9B•©µ¢hhogX`j -guugdlTrqVkto}yz”„˜ºŽ~]Z>\gOI?†—©µŠ¡ŸŽ„\uay›‚]o“ž¡ÆÇÔœVAte€v²ŒBQRaVJFL\tƒpKfO[ZCR6::<1;Kh‹[R‚”Žy¡Ž©Žš_^}m`KM`p]TW>KPN]^TQZsbNg~€uxjCIW;Z\€ˆ™€Š¢’t”£W·ŽŠš§ÂÇÅØÒÊr?NEXVvzKWU^diWBLUi\IKGQHNM>?73_oIW··bZF71[piFBDJCKHCKCSI5154;ESRXKWOVSRliƒNi{~‰mceobwÇÈÔâáÚàßÉÊÌçæàÝ΄‘•›§¡oˆq‰ˆ†€ƒÁ¥­r‘œ¡£¡ªœ„ˆˆ|ÚåäÝȐ¯«‰ŠŽ³ŠŸ¬µ°ˆ€io -J;nV1IHKAgHdXcRKJ88Hf™pJb•{žœšsp¬ŸÄÏÀ›xog~m_pdrfWIT?MIEQuiBQj_b[Yt•Š›h8Kr“^MOx·šš‰mº©z ‘Ž¹ÆÒØÉ°P‚‰‘`f\S\m\VQGF\DQWHCFoWˆbj[I=OH4£ÖºŒ@<8ao„T;:BRKIE>HTN8/45CDVIKJ]WJYYvSe„]¡sb]UaŽcØàÙØÁ¿Õ×ÖÃÎ×àØÓº‘™£†–ŽŽ›ž‘Š–¡•m•©„sŽwŠ’š—œšŸ” Ïàäàⶪ˜€­±Žº°Áµ—†p -wO6J8JqbP_hbƒ^qŠDG3PouYGYp]hŠ„_U -ŸœÅ²ŸŠun]}|rl’P^J?ODOSVU[QpZmd_tˆ†YUa€xVSKkŽ -ž| zqz†›³®»·ÊÎÉÅ¥ ±^FUdT}q]_\II\HfpP=CDFKjyveEBVE.“ÁЬ{8AHYdlUFAUROLC@@C_9.1??IMSAMYOJYy€PUŽk|~OuUZŠguÓèÚáÙ¿ÎÆÓÉàÜ×ÓЧš– ¡¯œŒŒ›ª˜•Žˆ—Œ’‹miš“’Š¥¯zxŸ‘}µÛäçä˯ž­¥š°®¶¬·»€’‰ˆMKDA=•c[Xv†‰ib8H9@n˜H]{r™†›žžž‡¬²±š|ukfS‚‡Žs¥œžsˆOVDQDQNXrinWbjwX–€Oc[gMORZšœ¯š•v]˜«²ÅŸÃκŽ›“•XBFLT‚tTG[VXQN_h]EELIN£ULnƒK7R^VI‹€‚ŽŒ:HB_]MQ^P??AJB43EBJXM7PLKTlqœ€xmq[ŒuQLiƒdmÓèåâÛÃÁÓÕ»ÔØÌÇËŽt~’—ŸŽxš‘~˜°¶Œjjf—¯©šª€ƒ•ˆ‚‡‰¯Ùæèâǟ®®©³¬¬©£µŸ˜–Š‘qdo6q•YMUcLo„now>OAS nut––eQ˜Ž§‰›£”qpddxw•¢Š‹foLRNlUZOifXWr†iftQn‹ŽZ6MoŠ“ššºµ„ºÁ€[¥«£šÇÌÑÄ¿±µ±f_9EX`tUHWe]fr[^P@RGG@ŠHFVM?F[B.z‰Œˆš8@K2BBME?0@D?J[UJEIW[V=R‡X_npWMJQ\wa‹ØáçèçÎÑÛÄ×ááßÓסv’€«Ë«”šŒœƒ„Ì৙mlg¢„x}¯™“Ÿ™“¶ÔçéâÌ©µœŒ¯›’§¯¿®–”œ -‚ -{5Ž}]V``\va_WSVMjx‡o_€³ËNJau‚¥šœ£‰wcaŒ•¬Š™Œˆa]GAFXSR[zx\epmTNtnrq^VYXebn„ŽŠšœ›—‘sŽŸ²ŸÂÌÓʯŒ·µ‘_YFQRbhygOXLwWTLYXBDIQ@]OXSCHDT?7Qj•Vj„99DU]`QR=C:MfU5CZ]N=:9GVLLH=NUiO+4y·Š\fPP9AFB\;>DB=DALF_o›bC4Bsvv†v~hc_€âàäìåÕÒŒ©ÑåéËÌ̉ƒˆs–¬Ÿ™ÊÙ㉧¶‰‹u¡¢qzž‘­»³º³ŒÕæåàÑŠ«°²ž‘°žš«š£{|€t]OQN^]dƒŒ€\LSPplcXX -®¥n[FO[ŒŸ³¹™~_Wp€¯Ê¢ÀŬ­©©‡ab^crSFQhgv_TI[?_[˜X<^di[{¢¥’‹ºƒc¢“žŸ£ÂËÏÎÀœÂ£|k{[fwYkWVfhhkaYY\RZAQSNSWejbNLOSyxŽœSL5:ÁÊ®s\R_:@EFIMP>TAFCN@HAIJUlp^UCA>Ud_g{ldeoqiÝãëéàÏÌž²ãêåßß̆„ƒŸŠƒ - ÓÛÞa\kpxuxššwg”y -€ŒÁ¶œÅÛçãÞÝ®Ž¡£› ¬–ª®±«€t™dmtcMMi¯‡€n]RW\glq`tbTCGuU[~–«¬¥¿®Ždwcˆš²­©Ì¯¡˜­hr_8:]hNJDauokdG>w}º¬L\fOW™™­„Œe¥±§¥Š»¯ËÉÅÂÁÆ ‹—fvJb„y``Qkpl_NUo\Qe_PZZ\cg{iYJ\[^d€™d?A8»œµhYeT5FmbJGGG[O?OSOVJC?RbR‡`RU>CPokna[\^gqÕäëèÝŧ®©âëáÓݘ–Ž‡™„mˆÎÚÒjY[X\ty™zrŸ„{y¥œÀŸÈÞæäÜÁ”°²‹‚š˜ª‰™¬±Žz~Ž¶µŽ~rj`X{—‹|QPM\YVLSEII>SAKKFŒ«º¿Š²—de -Ÿ›©§ÁÁ~†ŽyIZLV=ESIDE`UsoLWXmi{ª›CV~T\ƒ†˜‡ix‹›˜ª±·µšÇ¿·Á©’‡–O`‹”gwVmaR\ELv†\†hLLclTLpWRKmƒ[y˜P7b8‘¥µ“o©qIR_KYHQX[NKFPPhG=QKa]T]YWUbiY`dbfX^lž°ÆÓéÝŒ¹ÉÍËÙÚÚƬ•˜¡¯€ -­µÚà¬cZY]`]n{€€‰†Œ¢ÁÅÈâèåâħªº®£­Š”²—£”€£Á¬‚˜€Šxu{VTJ_MVKPGeSBF=BWIIzšÃŸµ”®€ƒ€‡p’ÀÞo›ŠdNBHQI?KA:[dh_DH_‡{ƒ›ÀrSoi€ŸƒqWn’—œ›ŽžŽŸ¶¬­¹ŸœÂ~®¡§‰cLy˜Šo—IYdDSQNXNVƒXT[€nK?TXiBgpF„eŠU,GJ -Ÿž†k‡RZPQKp”a[UJ?BBJXVISLZKOPNGf^c[Rav`adh„ÑèÈÚêêßµÛÙÛÉâÜÉ¡–‘˜œ¢›†|žËÃÝÜ -[VU[hvjdŒdlyvoyœº·Øäå嚯ŶŰÁŽŽm -¯—§±µ‚xŽ«„s~Š£ŒycSHGGRZcƒ]\CU[\`@E€v¢pš²¬’™}ˆ’ŸŸ}d²Š‰R4HbZABMaQu`kiaNŒˆ‰ƒ¡r?[t¹ŠÆxŽŸŽ¢¯©Ž­³Œ³Ÿ­ªº°·›¥”±ŸwLOfv­¥\hŸIU_uYUy{ug\™ -i=@VoDnNUŒTc7%7V–¢r -†€€‹gdvzXIBTJHMFBRFKOCNRIRLMR\RRbdeox×âë¿æÞß¹ÍÍÔ×όț‰Ž–š‘¢ŒwËÚ»ÒÙÍsXSb”‰i‚bYjjlŒ†ºßåà䘜«œ‘™Š€u²€¢¡ŠqTx¡v“wŠžœuiUEI`ISohciQH@C>YklsW„”®À›Œœ’žº–—˜‘„Q2Q]F\Ynmqnf€rSVfZha“Z]O€¹•y›˜–u«ÁžŠ¬³žŒ¯«–~µ¿»¡»§‚KPLi~}k[jSTU]||~[mPa« ue>9cHLk_F:W50*[ª€¹€‚«¬¡|kSyiLY^Q;TGQE_LI?KEELUXOVNUS`o~w‘ÜçàãœâÜÌÍÀÐÚÓÊ­žŠ”’‡‘“«ÛÔÚ¡àà¹enytz -hZO\q‚¥œ˜Áàæãካ’ -l›t’}™šž«ŸYyŠ - -ª±Œ€‘oye^w~YeŽœ¶–T`HBHPGNWLy¢‘ž³ª—®º“«±ºf£rp‹P4OWBOZg^[zwšGJ‰d^dGŠcf›ž•žše©hkzšŽ€Ÿ§€Ž¯Ž­¯¢š—«€³ -Zk\Uƒˆ‘_UYPBa‹ -i¡Zb_S‰wNa7AH[ƒWbiƒxq€hvwSƒ^>jor€µxn“zšœ£¶©ž±©€±¿­µÆŠyz‰oŠVnVŽ‹šma\DGcšxurVbTnigF/WGLTŽng’K=02AM|v„vt€ ¿Á‹SRNvbc@XLC[eH>Q[T=@VRRm\\kkgaQ]iuâêÞëìãŒÓÿÿêâòðП¡©‰š® -™Ž€Ýáۈ€Óà×{oxŒffi``cZbs’žµØçéå{ff^†v–„lŒ™Œ‚Tn[z–™œŒ›œ£fJu‡{p^Rf”Œƒ˜ˆ -¬¡€ˆsav‚³ÈŽ­²šy‹œŠ„p3HpM=B=F:JQj^bfz]‹‡œ‰bŠ‰_I[qu€¬š­ŽŽ‰ ¢žž€•Ÿµœ©£« ¬¥wpVTbž²€~_nsQhjRRRU s‚}faFRC<@7DAYZ`„g‡GJ7IUQŽ^m€p­Ž®s^[iiKb9CCI^`MJAPRUIFEUnf\OLRd``z|ŒàñòìÛãáüçíòõûü÷Ȕ‘”¬«£’žßã̀{ÝÞŒwqŒŽuve[\ej‘¶³áÜè眂‘i—‚˜‡jl›—}›}|•ohn•fq–xez™—“{S]žŸŽ†®Œ®µ» Æ²šy”«ªÄ»Ÿ©¡¡‡­—i\NGPCB>>9;GDQfœ€‘”•UT[“EBY<>AT`YSJPXPB5AFJPE`VQV__^sv§åòïìàåüÿýàÑà÷þÿñ—†š³¯ žŒàä¿rvx±Þݏluec|“†vzv†o¥¹ãÔä瘔™†ª›|Qj„k§’~uf‡Y–i^ƒd™}ˆ_T^Zx|™”©ŽŒ»·Ÿ wŽ ‹„²Ÿ»€•™œy¡•’pŽNOJG;:F€i[†ZŠŽXp^[\–nnšfxs¯ŽŠx -’s”Ž›€s[Gu^ƒs\pSVJg”ždVVSTUqƒ™HKM:2@;87-?bŸ¡SefY;@9jpTpVdœbm¥QUgOyw?HN\P_bNHA622:1, -18@k†TLEAC;=k¡–bqFZTjKK[cQ:Q~INRO[]vX^K216CL`€¬©«ªµž¢Œ~x áìôöôõþüùýüþÿíæã쑙Ÿ±¶ªÓàæ}mr„¶œÂˆŠƒ}†Š•£Ÿ~—£»×Þç籒§Ž®º³žapŽk€qyMb‚¥’‰yOstpy\€”†sy©˜¶ž¯®ŠœnŒœ­œÄ­µÃ²¿ -aŒ®Œ—rWRWKNBQYMBL<;_ONMAHEUUwš -yqsxgmSDRhu‚¹¶š‹ykab_lzjOOGJobUBA@PBw‡ž’XYAJ=7HI6tm:22:0PhWX[}T_74)3D¢mQUIIGDWQahW:D=;AaO?KA_VNSP96>Q[SUdXWZ]`benžåéò÷õóýêèöéãíêÜØš¥¢Ž‹Š¯®ÜÚâ›xx’oŸÍׯž“ŒŠ„ƒ—¡ËÛÚåç·£œš±º­³cvh†Šp_~ˆž™j|ƒKk -‘kt€‚‹ƒœª¯ŠŽ¥¥˜†Ž£ŒµŒ¬Á²¯°KU’­ž¡sZL]MCCXqP=;>NqT_>p¢©kRNLB1=@FVNTB,(J3zŠpRWwbsf85>N‚j\9C895KB=/.EIKMX76DMSFHI>A@>RUSWVUUWX[]bhšáïòõïßñöøôçîäêîñƺ¶™œŠ§›ÎÑÔÊŸ€wtxzË×Ü¡”–š”ž‡ -˜ŒŠÐßÞê韈—¥ŸÎœ»”lv›yg~Œ‡‹˜h{[eaiScld–„¶¯£¡¢¥¬•msª«µ¹Œ­·­ÅšePžµŸ~{]LIFPWa€W8D@I‡rBBIKMVYG^b‡ƒux‡eelpj‹–™kePeutzSNDKBZ‰pkL=:_RL_qzudsidxZNZ€|itŠkj{LNR`\QD?E63FLWB>;CFUnTN>5FZF=8?V10G,CKKpˆ ŽQ(-5OodbO.7K[?AgGT9J[iF8ACHI}”h]X7LLdLÉÑÑŸ®°ºœŸ¡nªëëíòðÖ¢Ïþÿùùÿÿö·‚‹¬š¬€ŠÅ×ÐÛÔɉ‹ˆˆ™‘·â㬃™ šª—–ŸÈâãèß¹ŸŒ¿µ¿¬¹¯xV~ž~KK}vZZ‰ycOIP[w¡Ž¿šž€ÁžÃ¹µ«ŽŠ“¡¹€¹š©«Á²¢~­œ¬‹ -^R[CDLZAOXOOG?I<=?17AC1<*5G8O‹”xRC2J18?V‚eIUYUxSlEU_\JB:5XRJIaSdpU[YDGÉÎËƬ±³¹¥ˆq§ÞìîñòߛäîìäÝϪ|ˆŽ­”Œ‰ŒÅÑÌÎÞΓ—šq‡x¢ÜÜØ€¢•œ±¡ÄÑÛêäÛ³Ž·Ê¿»¹Œ»“‚‹˜šjŒ„h_Z~p[NVnŒ­€°¥­µÅÀŸœÁ¢š–ƒ¯Ã°°Š™›µ°Ã§®ÔÒÁ§—¯yprb>HCPXHblaBIb]SYavfLRF=@Gh’nAVof[bY`j\W›x_VMIID:=A>C>8:D>7=PSVJ>4BI?EBF<0(#+;:e‘š~Y3C;B4kl‘ZKHMV„|[b[W{wd27KYKMfdZ`YYZIWÄÊËȵ²Ÿ·©wrÄéíðññèÜìéêåÕÛ×ujz“¹©—©ŸÍÛØÙßډ°u™xuœÞãË¡¯ Š£­·ÔçêåÜðœÌ¿·ÊÀŸ¥™’·°y€‘sttˆxXKQq‰‘µ­žŠžÁ¹ŸœŒž±Ÿ§ŒŸÀ£ƒ’©¬ Î§­ÍºÉ··—Ÿ‹o|iSdW`XtZhKRYri»^}¢cJ;:ERt\P_ZVP_enZqw{ceNRL=DNGBAC::@8:<;+;@?MV<>=?PPvn]l6LNJ;76MCI978DO^Zps@FHEE?.8@299%(487scjREB3TYuz||]AfZ]‹ŠŽ‚jnKŽN)3@Q3[_XRLCRJÂÄÆÈÏœ»ÊµŠu®ßëéòôëàçíéæããҒ§ª¥€±¹ÊÙÜØàåàÐÁ±²±¯˜‘—›œµäæ໳§­¿ÏÒÎÆËÄÀºŸËÚÈÄŸ¹®µ³Å»¯¶˜–u—ˆÇŒfŒo†³œ¿ÅÄÉœÂÀÇžµ·«º¥‰š‚©ÀÁɚ‚Špu¬ÀÁŽ`qqwi}„pŠtnbqhz{olwks|‘r„ŽviYU]lady~}w„ —|zzƒ‡••’Š„ƒ|†Œ~‹H7,8EPl„kPVX[K75/7@A7&0B?4FDDKI&@@Uk]\rHPuic‡ -‡uX‘—‡k**SFEb„vQmcaV>QÁÄÅÆÌŮű„u°åïíóòîØéïêëéèՔ«š¯®²œÍÐÙØÚÝØÙÕŸÁŽŸ»°¥ž—£ÏæåƱª³Æ×Ýáá×ÐʺŒÉÈÎƳŒŒµ¶ÂÀº¹©¢Œ®ºÇ °€ƒ•Œ¿ÇÌÊÅààÉÅÀ¬£Œ•gŠ®§žš‰ª³®ŸÊ—‘—‰‡—Š™ © §Ÿµ¹œ¿ÌÈÅÌÌÎÉÌÎÑØßêäåååæãåâæãÛáâãââããããåáÛÊÈ»£ŸŽ›Šš¬O-1@=D}gYUJbeZJIYVZejTyZD7I:LT9=@A\kY\[DQbHsv‰}uŠ¶‘ - -25AKU–gfŠ‹€jdEI»ÀÃÄÉÈ°œ«‚vºäêðóóêÝëñíïíÜӑ£«¯¶²›œÍÓÖÚÙÕÖÓÙÙÙÖÑͿƌ²ßãä¹€±ÄàãçâÉÈÌÃŒÂÂÏÆŸŸŽœ¿ÆÌÇĹ²ÄÝÈÂή‚¡·ÅÒÔÑÍÈÛÖÓÓÌÆËÈ·°©¯ªš±žžµ­ÁÆÎÓÚÝÝáâãçäççææêçëéïóñóõô÷ø÷öòôõóóóïðëìêêæåáÞÒÒÍÍÆÇŸœœž··Ž­¥ ’Œzrufl‹“Œ›€ ž‘U€•¢¢¢ ¥£¥¥•}JDIPS\gVRd‡„•w“œ{¡¢”¬ª³¯ -²®­ŽŽ³±o›±Ž‘†OTpT¶ÀÈÇËÊŒ®ªƒw»áçèòóíàçëîîíÜΞ£žª±§ÁžÍËÌ×ÝÞßàßßÝÜÝÛÕÚÝßáÆãåØÊÑÎÐØÞÚÈŒŽÁÅÅÍͺš¥¡¢¥€¶ÒâìñðïíìðíäéìèäâßÝßáÝäääääçâÛØÍÈŒŽµ·Ž»ÄœÆÄž±»ÂÃÂß»·Ÿ¿¿ÀŒŽ·¹¹Ž­¬¬ªšŸž—”Š‡‡† -~}}ywursqonmmlkihfeeeh¡ˆj^Ip“¥ª¬­¬ªŠšF -¢œ¢’€¥¥¥ŠšštÀÉȹª‰š¬¿ÃÃζʛ¹•­º®Ÿµ±ªy§©¥€¡ ˜hž¡˜šœ–œ“¶ŸÉÊÌÑÑš­ƒv±ãàÙäóçÛèííäæÞÍɹ³ÃÊÊÉÊÖÖØßàßäâæåæéêêæîìïïííííäȟ¬ŸÄŒ¡”š¿ÈÎÒɹ™Š‰‡‰ˆœ³ÂÊÑÜÚÏÊÎÕÐÏÉÀŸ¹µ®ª§€£œš˜“Ž‹ˆ„€}xuuutssqrtrrrrsx||ƒwƒ‡†††„ƒ~€€€~~}||zyyxuwyxwvvvuutttspppoooolnkmmqŠ––uhŠš«®­Š¥ž›L•š––ŠŠ Š§Š¥ˆši°¹¿ºž§®­žÊÅƯœ·‚»Â›Ÿ»º†šµ²±³²™cˆ€«±¯™°±±±²žŒÈÌÓ×Ú¶ž‡w·áÍáçñèÚëçîíéëêèëÞÚßæáØÔÒÖÒÈÅÊÇÅÇÁÂÁÆÁŸ»»³«±²¥™“‡ŠŒ€}ztwxzzwurooonnoruy}ëè°§±»³š¡›•”‘Œ‹ˆ‡ -‚‚€}|{yxyxwvvutuvwvvuvww -ˆ”‡ˆ‰‰‡‡ -„„ƒƒ‚‚€€€€€{||~~~~~|||~~|~|{{{z}}~y~~€Š›— -˜¡šª¬««©€¥VŠ“˜Ÿ¢¢œ©©ž©ªˆ®jÄÈ“žµºÄÇÅÕÒÏʀ†§®x¹¹¹Š¥·³²³Žw}Š®±°±²œ±²³³µÁÃÉÌÔ×ÛёŠyºÂÕÝèôôóôðÕŸ«¢¯ª§ž›——’ŽŽŽŽŽŒŠŠŠŠŠ‰‰‰Š‰‹–”˜”‰†‚€~}{||zyyyyxwvtwvuvwxz|œóöÚ®œÅŒ­£œ˜•’Œ‹Š‡ˆ†„„ƒ„ƒ‚‚ƒ„ƒ‚ƒ‚ƒ„„„„—•Ÿ•™Ž˜”ŽŒŒ‹‹Š‹Š‹‰‰ˆŠˆ‡ˆˆˆˆ‡‡ˆˆˆ‡ -‡ˆ‡ˆ‡†ˆ††ˆ†ˆˆˆˆ‡‰¢—›˜˜”¡¥©©¥Š§¥££Z™ œ”Œ–¥¥£Š©œ^Ç☟ƹÆÕÕÉÒ×ӝgƔbºž„¥¶¶ŽŽ­n‹²±®²±³²²ŽµŽÈÈÉÊÑÖÙÖ­„|»ÙÓ×àùúù÷øìﵩ¶²Š žœ˜—•–”””“‘šŒŒ¯™¢˜’Œ‰‡„„„ -„ƒƒ€€€€€€„„ƒ„†ŠŸðøú¿ÏÐÀŽª€žœ˜”””“ŽŽŒŒŒ‹ŒŒŒ‹Œ‹ŒŒŒŒŒŽÀèæéÞ¡­ š˜––”“’•“”•”•••–––”–—™šœœ  ¢¢¢€£¢¢ŠŠ«®°¶·¹œÀÁ¥˜ž ˜ŒÒÒ¬žËÊÈÃÅg¥ÐÏÍÄœ¹ÇËÇÆÍÄŧ]Á¢ŒœÄÒÔÒÅ×ÆÔÌ̖†Äƒ¹º£º¶µµi›t¡›‘¢¡€–®š¥š–ÍÌÌËÒ××ÕÀˆ›Ãåãéäùùø÷ñãó޷Ź«§¥€  œœ›š™˜˜˜–˜–˜–—­ôôí¶œ¥›–”””’“““”•—–˜˜šš™™™š£§­²ºÁÏòøÿåçåÞÙÖÓÒÒÑÏÏËÉÇÅŸ»»œÁÃÄÆÇÈÆÃÃÆÇÈÈÆÆÈÇÈÜëëëðÝÝÛÙÑÎÉÇÆÇÈÇÈÅÇÎØÝÞÞÝÜÛÜßäæéêëééêèæäßàÝáçéëíïñòóòª¢¥Þõôñ·‡ŸÓßÛÕ`°É¿²²³¬•±­£™“zQˆ]|uytoqfe[qf[Klpmu[\{efUjW•|%+?špg‚x›„]ˆeÑÓÒÓ×ÚØÕŸ ®ÄééêêääéìÞáïøÒÀ³³°«±»ÎÒÌÅȑ›‚±¬š³‘ŸÇÕÆÌ÷÷ûџ­©ºÛßâÁš³ÆÑÕ×ÙØ×ÕÑÍÊÄÆßßãéïñóõùÿý÷÷÷÷ø÷ø÷öóñïëèäÞÙ××ÛßâåæäâàÚÚÜÚÙ×Ö×ÕÔÕÞèççîçØÒËÄÇÅŸÀ®¥¢ ¥Š§®µ¹¿ÏËÅ­šššªš ¡¥¢œ’”‡‡ -„uxrehotm£™ ŠŠufVSW_WŸšŸOIJHOcF<60-A;(5&!(2-><[K<>Lb^LJ`W[DAL††Q -H_rŠ”wt}Ÿ -krYÚØÙÙÙÞÜÖÁ±ÂÍíïëßÏÜÖãßâîøçÁËŒª«º×ïëæÖÖš©¡ÈŸ³ŒÃžÉäËÇøøü奭±ŽžäãÌb] -ˬšÏÒÉÅÇÉŶÖÛÝäçèëöúÿþãêäãæäßÙâÓÔÐØØÄÄÌÊÊÏÍÐÍÁɬŽžžŽ«²±€®µª°ÎååãîÛŽŸš˜€­Š¹‹[OLPXbV^\ƒµ²ŠYPQHGFD?QPMKGFC?FQQMF?@CBA£™ ŠŠ\=LIRTd˜œœN@HI;7E;*-]M>.,1="$!.1;BZF6QWHJ=@IX?=FgfvZTR8¡¥ -we{]\eMßÜÞÞßàáÚÈÊÑÞêîïÜÖÜÝãÝáêöç·³¥ŠÄãïëåÙÙÑÐÛÙØÒÑÖ×ÕÓÈÏù÷ü㪢 ®œÂãß­]c±ÞÞ¹œ¹®ŸÅLj~©ÇÅÆÕÜõùÿùžÇÂÍÇÔÇÈÏÅÀ»äÍšžÌáÔŸ¿µÂºŒ€ÃÉǟ¬±­Š»ªŸÉäääî׹а•§›Ÿ¢ŠvxwtbZ[\—ÚÔ€^UVOHOLOPVB?DAJGKFB9GGC9BA¡š£§©WADNEKwåْP<>7*5>/$+F85 -&>&&0 - - -<=:'7K3EDF<8;/C?=Bb\dj?)+š§«”wTegY_Táãàâäãá×ÀÊÒÛêëîèÙØáÞßàíöÞ±§¬Žª©ßïëãØÛÚÚÛÚÙÙ×ØÕÕØÚàûùúïÈÊÆŹ„ÑãâV±áÞÉŽÁŠ¡·»Ã„u}·ÂÊÐÜ÷ùÿúŒŸÀŸÔÉŽÄǹÂÂÒÅÈÉÎÛÌÆÇ»¹®»ˆŸÖÛÙ¯š¥°Ž¿¡˜Ÿàáâï˕›œ’«š ®§›ˆnn_iXdU•àæœuf_PNPKMEPHL>BHTA?H=C>7@RAšžªªQF:F?GhæçãÁUbM7;@;'+*A&.8 -3%)(/ -28>B>S,CG8;HN=:7LPXidH - '££•†qkcJNJççåäãçãØœ­¶ÖçëïáÇÉàáèâíøÚ¥¯ž©¡·åííØÍØØÕÚÛÚÖÕÙÙ×××Þùöòé×ÛÜÚÛàŒÞãÙ«ÕÞÛƜߋŠ²²Šsjº²ÔÑÑöúÿÿÖ·¹ÏÇÄ˶¿°ÊµŒÉÀÐÅÈ¿Ä¿¶Ç¶ªŠ“ÓØØÁ˜Ÿ¬²À¯¡ÃÛßâï׬šŒšª© “£ riaabmZaœÚãÞqc[ACQFGICMEGACQP=C48C=7.7•”‘›ž]OQJHWléçäâYSVbO6&#*HR0&E+*4#1&2 -<@JHAX8FIO;=BHHEQbrU3H)0,Š¬¶«•wYPUKSéèéèåçÜÛÓßÔÕèêìØÎ×âçæâîùà••«»Š²âîìÔÙÝÛ×ØØØÚÓ×ØØ×ÕÞ÷íßßÖÐÖÙÚÝÛ»äãÞØØÕÑÏ̻ڋ«¯”vÇÜÚÖàõ÷ýÿõ«º¹ŸÉŸµŽºÍь޹ȺÆØÚÛƜϩÂ×ØÙÊ ­Š·¯ª®ÀÚÞáîÊž˜¥£™š ŠÌ›o]SaPXe£èæéy`XTXXRDLT\PYJEVOEKJJUJQIH¡¢€©¬fKSKWXfåäâàXONP`ZD& -%G6 -2351!4:""9@@66NFBD5<83CG]dmODCL+&+Ÿºž¯\djSJXêéçÐ×ÛÝÐÕÃÊåáæçÛÓÚåëØâðù컀«Ñ±°æïîÁ —¢ªÇÏØÍÒØØÖ×ÖÝïØÈÕÔÔ×ÙÚÚÞÏÃãßÜØÕÏÒÐÉ¿º­¶²¥}ÐÑÊÒÞöùÿþüŸÃÊœ¿ÁœÂÁÈÀÒœžªÀÃÉÖÊÄœ·ÆÂÈÖÚÛ̳³Šž¶Ž¥ÔØÝãñ¿¢—š©¥£±¿É}h_ZXXTX¥íôñˆdaTY[ZPHNXTR\gdTIWcN^S[YW¡¢£ª±^1-:@#$#2?-2<<9OA69=8Hu‡[PJTQNN* $¬Œº³fC\OIMGϪ±×ÉÐÃÒÞàãäèæàÙÓÕØÙâñùðãÓÔØÒÕâäãáÜŸ»¹ÒÌÑÖâéééëëæßÃàäÞÜÖÉÔÜãåÓìêìçæäâÝÐŒ¯š®ªš°ÉÓáÓÑóøÿÿøÑ×ÚÕÔÑÑÏÌÌÖÎÊ¿ŒÀÈÎÐËÍÈÊ×ÖÌÙÜÝÕ¯ŒŸ¹ªÌºÍÚßäðË€·±°¬Ä»ÃÉ̶”ˆ‚‚‚‘Âòö÷±ž–‰Ž‹‘ -|}wwv}ws]dhkonsowt€›€«°€bahoi{êãÛ·PWkaZ__ZP_ZC@-5I=F@MA<:?KNKEMJaMKRZ{“zXJNOYX]jN;F¶ŸŒ³vOTSYTSƒˆ¿àãàçååßâàæåâßÕÏÕ×Ý×ðùõìåáÜÜÞßâããããäçëïòó÷øüûúúáÄÖëïæÛŸÆßêïðóóö÷ööõóëÛž¥£¢£§ŒÜìòÝœôõÿü÷ôîìëëëëëìëëèåßÛÖÏÉßÀËÖÙßáãáãàßÜÙØÛÜÔÐÚáåòëåçäåèëééëíìêêëëìíîîïññòóéäãïñêëïíìéäÞÙÎËÑÚãëîòóñ¬˜¥­­ÛëìîìëçãäÚÌXÒàìæÞÂÞ®zyiw†\‰À—¥º²¯Àº²ƒŒ±‹bnGŽ “³²±®°±³··±«¶¹ž¶¶’ˆ±°°~¶àáåååêêèãßåå×ÝÓÍÕÙÞàðûôíäÝÛÝÝÞáâãââäéìïóöøøûûùôÙÑâíóâÄÆßëðòóô÷÷÷ö÷øóêÚº¥€£¥Š»ÝíóÝÀòöþþöñïëíëëìëììëéåáÜÕÍÄŒ¹ÄÐÚÞäåçåãâÝÚÕÒÑÐŒÆÝãéööôõõõõöôóòðïëëêéêèçååççèëëèâÞäíèëìëêåàÙÎÄžª«¬­®³Ž§¡Š­¯Ž¿¿ÃÃÂÂÁÄ¿£\ÉÁÈ»¶¯¯°¯Ÿ¶¶†„NSd]is}‚{†\lm^pUVšœ©’µµ²°³³¶¯®šž»Žºžµµo˜²œ™ŒŸÙèåáåääãâãáæçáæãàââåãñúóæåßÜÜÝÞÞààßßãæéíñó÷÷÷øöéÎàäéïÑÅÝêòóóõ÷÷÷÷÷ø÷òëݹ¥¥€€§ŒÜìòÜÀïöÿþöóïìíîîîîììëèäßÙÓËÄ»ÁÎÙßãçççåããÝ×ÓÏÌËŒÊãåêøøöôööóòóóðîíìêêêêèçèëéëìëëìîìâäéçíéèâÜÖËŒ¬€€££¢¢¢¢€®°›«ªŠŠŠŠ§‘—’T£¢Šœ §Ššªª§O›£‰€tŽql”–§·­gƒ¥²”¶·³³¶Žš Ž¹ººŸ»¹žµŠlˆ‹”š¬ÓèåäçåçêêéçãæåÌÖÛæéêéëñøîâåãåãããããâããáãåäââæãâÜÙÖÑæàÔÒÊÍÐÌÌØØÌÄǵÖàᷗ„„œ²“˜µÅØÜÕîõÿüîíèëìíïïîíîëèäÞÙÐÇ¿ÀÌ×ÞãçëéççãßÚÓÎÊÊÌŒÀÛàäøùôôõôóóñðììëçèçèçççêêëìììíïïïíìÞàÝèäáÙÏŵ§ŠŠŠŠ£¢¢ €«¯€ªŠ§€£¥¥Ÿ”P–ŸŠ“£œ šŠ”§§¥šSƒ€©ŸŽ¥’‘‡»º»·¶±T—¥‹­¯¥š€€šº»žº»Ÿ¿¯¶Žšm£·µ¶Ž¶çéìèçäèêéìçèéåèåáÚßÜÚêîôìäåâãããããââäâáãããâääãåäàÞããÌÁÑÚÓÍÉÒÜÜÏÏÐÇĉÓÍȔoYj£ÂVY—¯šÂÌîôûòÃËÅ¿ŒÀ«žÅŶŸÂÂÂœÃĺŒ¿ÈÔÔÖÚÚßáßÙÔËÉÄÈÏ»ÏæäëùùöóóóòðïîëêéççççççèëëëëíîëéëìììíëÛÑÐÚÖËŒ­šŠŠŠŠ€¢£ œŠª®£ª€Š£Š¥£Š‰?ªš¡™£§ž‹”Š™žŒA=JAD3;<1<.+/,)0GLE193*+72<543389=cd]TJBH>EDWçãÞÝàâÜßâÜÜÞàåæåæéêéåíñðéæääååãääßÝåäãäääãããåãâáââÓ¹ÔãããáØÝÝÝÏÇÔÒӉŒÅÃÀŸ­•šÅ®^{¹Œ‚Çíôúùɟ¬Š®Š°À³Ÿ²Ã¬²ŽËžµž§À·Å¬ÀÜåäÖž·¹žµ²ÑëëîùØÆÉÌÀÏÈÇÈÄÇÂËʹÇÊÎäéêäÜÞãèêìííëëçÞÒœº»¶©©©©©šŠ€¢¡ŽŠªª¢Š¡£ŠŠ¥¢€F©š—~—›¢§‡–ª©›’>?B:63<60,5722>8;K0):112515=1%&'#‘ˆai9+/:?6BÚ×ÌÈÒÍÍÑÚÚàçæäãàâåçéæèéíèçæææååâãßÕÙ×ââããââæççâäãàºÍçéßÞáßáÜßßÙÙÕÔÖ³­œ³«³‘€ÇǍ¯Š{{ºìôõûُª«€žŸ³² š˜¯ªµ¥±¬”µ£€¥ ³ÕçäàŸÄ¬’ˆŒ™ÍëìíøÄ£©¯•‹«“„”˜­µ–€‹±ÜðóÍrfmonmin`ejimZ\Pclfbcntx|ŽŸ‘€£š‰‰Š‰—–¢§Š“A–˜” -ŒŸŠª„›Ÿ„¡”BM5,.;8789177?49;398.5:?/@''-*1 -2§l‘r925"=?8àãåäâÛ×ÓÖÍÇÑÖÙÜÞâãäæèçåçäëéééêééæèçããáßàâââßäåàØÞÚÊáïïßßÛÛÚÚÙÕÎÌÈËÐÏÂËÆÆÀ»ÁÉÌ¿Š¿·ª“ºìòöüØxˆ¬Ÿ³°­œ¡ªœœ‘µ»ŽšŠ€‡¡˜m­ÔçäÚŠ¹Áµž˜Ëëîï÷ɝŠ”tto›ˆ–±ÐÔÆàå²ÇÞñó딑’­yt]bNKNNPN?9:BJRMMS^hk¡€£_^_T^W_ÝáÛ¶>QJcGW[SPNYTFNHIL+)7*?.8G?228AC9155+;.20$ -*+:.+-3‹Š£z7-7.959ÖÞééëìíëìêëäßáßÝáäåçèäÝáÜëéäçæåæåååäããäááãßßßÝØÃÞÜÞéôîÕØ×ÔÑÔÐÃŒÀÀÄÀ¹Œº¹»œÁÄÌÐÎÒÓäæÕ÷ëóûúèÄËÏÚØÖÕÇÄ¿»Ž°³ŸÂÆÕÁ§Ã«±›yÑåäݟ®Â«’Œ‚Ííîî÷ɱŽstry‘¡§¯æõ÷ööôðäïííñôòòñøö“rRME>RMIGDDIHSVMEGX¡€¢Ÿ¢fT_hVUWÙ×̱AVD`ggR=IG?;;<@D;'$4/"B44('8B/;:<10;/.49)%;B8IZ”“A88;?;.ÉÙØÕÏÒÚÙÞÞÞÆâßáÑ©œÔáæÞÛØŸ»ÀŒŒÉÊÑÔÙÞààãæåäåèççåääÝ×çíô錹ÃÌÍÐɺºÄÆÉÏÐÐÏÎÎÏÓÕ×ØÛÜÕãêÔÖëóüôñóìôôóôòñãæÞÊÕÓÓÓÒ×àááâá×ÓÐÒØÜàÙ×ãØÙÓÉêïðïöÖŒš§¬¶ž²È·¿ÞîïòôöôàòðòññòôôûúŠ’‰bQVVUQCGE?EQBOdR—¢¢žœ_BZYNVhÖËűAVLJrPYN=D@DDDB:-&),*%$?93,AD27:+'/33341<@18H8=(Mž£{=FA@=2&ªœÌÑÒÒÉÇÕ×Æ¿ÎËÉÃŒ°¯šÂÊÌÔ»³­±²¿ÇÌÔÚâäàÞáäãÚÑœÂØÛÔÀÎíïñòãããäàÛÛËÂПŸÀÃÄÂÅÉÄÂÂÅÉÎÏÒáéÍÇðôûöóïîííîúüùÏÈÈÉÆÄÄÆÆÂÆÉÌÍΟÈÉÌÕÜàæéìïìãðððïðößÕÖÚÛàåÖìñòôõôõõööööõóñîííìöóÔÊÍÌŒª ™™‡ƒvr€||v}pŠ‚‹Œ{`ZYKMjËÈÇ®EfpNWUJWROL@C,:2:@.,9;6360CD:9.<%$ -*%-4,9>3;98QFž«¥{D/3'@9>¬¬Ž¬¡™˜‘’‰ƒ|”¡²ŽÄœŸÇÎÐÔ·­ª²µ¿ÈÏÙàäâàßææÚÌ¿ÉÍÜÔ¿ÎÖíïóöòñêððîïóö÷õõòñçÝÏ­Š©®±Ž·ÏàêË¿áöþùôððïíòüþúÍÌËÉÈÇÀŸ¶Žµµ»¿ÃÃÁÁ¿¿ÂÀÄÄÅÊÍÑÔêïïïöÛÏÌÊÅŸÅËÓØÚáãéíîìòòòôóðòòöóôõõòïìéáÚÔÉÁ¹ÂÅÒÙÝÝãæ姟¡™Œ£®€Šš¶¹ÌÕس\įŠy¡ ˜”j€ƒkB:7;QQE:C9A>O66,27-.,")--#!4@F:AOAU­—ro:D<%$32ƒŸ˜ž£•u{}y}k}‰ ¡²ž»ÏÑÖ¿¶±µ¥°¶ÃÜäæäââãÛÏžÄÕÛÏ»ÊàÚïí÷÷ñòïòóóôõùùù÷öñíçÚʲžŸŸœŸ ÉÛåÈŒæöþøòñïðóïó÷òÚÓÐÈÁ¿œÅÁÂŒÄÅÂœºžŽŠ­§§ª®Ž¶ŸÀÂçòïíôÕÌÏÒÔÙÚ×ÚÚÖÔÓÐÏÉÈÉÊËÏÓ×ÛÚÝÝÞÞÞßßÝÞÛÙÒÍÇÂÆŸÈÌÍÅÎÕÕ¥ ¢žµÄ°®²°©Æâ³rÜÝÝ·ÐáßÜ ÂÏÊ¥KU««­®²µ¶¢xµµŸ  ?Ž’‡†ƒ}yu{¢vxdkzqvƒœWIUU_bB›ƒ|g{‡wZi’‰ ”‘«Ÿ•¬±«ÇØ×¹ÅčnCCLNU\Z_mrgu”™™€Ôèàïñùü÷õôôòôòöûù÷÷óðêæÝη€¢ €¥¬ËÙçÌÈïöýùóòòòòñåâïîéäÓÙÛÞäéññòòðîêêæãäãâÞÛ×ØÖÏÎêñíëñÕÎÏËÎÏÎÌËÉÆÃŒ·²­ŠŸŸ’–ž¯¶¹ÀÁÆÉÈÊÍÇËÌËÊÌÍÊÊÆÄÀµŠ¢˜ŸŸ¢Ÿžž£©­°³¶³Ÿ‘vmŒÀŸŸ“ÊÉƚ®žÀšD‡­¬®­±³š†°€Šš–¥C†—ž§§Š¥šš¥§ž”k¥mv”€Š¥€ž¡’zi]pmijx‡‘Ž‘¬‡¢©™ŠËÙÉŽÈÐÎx>:=@CEIMOPQPOPOPPV\óóùí¹¥‰ž­ŽÅÐÚíøüøõñëãÕŒ£œŠÁÚæÎÆîôþúôðïóòñíéóïíåÈßâèìñóøùú÷÷ööòáòðñððíòòî¿âíëéòæåààÛÜÝÜÞÝÞÝÝÛÛÛØÓÎÅ¿Ÿ»¿œŒÁœÃÄÅÁÁœž¬š¢¢ž‡ylmjnkis›ž¢žŸŠŠŒŒ”Œ—cfš©Š˜n¡¬šš—Š’>——”–‰zsŒ‘‰ˆ”•†Cw€€ˆ‰”“‹’“‰a“hˆy §¥ €œŸˆvgOvƒeb€„€‰”{uš‰x‚ˆ“q]wÃÑàÍMDGG<569:CGJNSRRUVVWYZ€ùúûÙeXUUUSSRSQQRRSTTTRKKIHHEM°ÅϵÃíòýøìäÝßàæíîðîæØŒèîóõøûüþþþûúø÷÷÷÷÷÷õø÷ôöÄàìçáîÝÒÝÙ××Ø֚××××ÓÎʏÉÆÇËÊËÊÊÇÃŒž³®«ªª§§š£Š£¥€¥§ªª«©›˜ ¥–Œ‘“Š„~ƒ†hQ}|uuMo^cT]SZ]CE][EOSLOILQJLVGO7gc_a[XVYUaVSahhngZSOLB81I?Yl\i}xwvZu“ -cš|z{€ƒŠ}ŽÙäÞF30.--.0258>EEIMOMNRRSSXnÄÍÖ¹\URQOONLLKKJJNPQQQRSUQQS[ÈâìËÈïôÿýöñìíè⿁jTQJL|Ž¢ŽÆáãæêñüüüþûùûüøúýø÷÷ÁáíçåïáÞÛÛÙØ×ÖÕÓÕÖÒÍÈÅ®ÃÃÅÈÇÇÇÄÀŒ·²¯­ª©§§Šš§§tŽ££¢¢¡ž —š˜¢žž€™šš¥ŠŠ¡‹iQ - -„}fnoP`k[iRKLhchajqphY^e`hUX3\uklicoh`H_bZa^aX_FA978:@8:BhaahŒoxrz‘ˆ€„zt‚™‘›ÚâÝTB@W97899:=@ABBACEEEGHKLRW[][QMKLKJIFHEFGHILNPPUSQPRRVŒ£¶¢¶áøÿþúöõôôõë}TIGGHHKKPTZ\]\^ch™€­¶²¯³µŒÆšâëéæïáâÞßÝÞÜÛÙÖÖÒÌÈÅ¿³¯·œŸÁÀŒ¹¹Ž°¬ª©©ªªŠŠªªª -¥££¢€£¡o—“” ŸžšŸ[€šaHgnaaXPRLUKRE>9?SU\Zcyuufga\mj_1Z_Z^^ku`Jczyx}}|yzz€z| -wPoviZqooR†{‰™¥šžwm‡ -šŽ˜ÜâÙŠ¢¥­ŒF66689662326=FNT\YUROPPKFCCCA@B>A@BCEGHILPTSQQOOOPQUXªîùþÒ}} -˜§µÃˆTFDECDEEGGJMNONQPMMOMNNNLMLNNQÛîêäîyYjz€‹”›£­ŽºŸÆÄÁŒ¿¿ÀŒŸ¿Ÿ»º¹³±«Š¡¢Ššš€¥¢¡Ÿ™›ž¡Ÿ¢¢š™j˜ž–¢ štœŸ—Š_GNSg]\D\MNWT`eEOc`SSPPKRVbfuusq0j}wƒ‰j[X`vz{z{xx~{~vpwvgd}€ƒ^obhix~”¬£~yc“ƒy‚ŽšwoÃ¹¯«Š–;9;?;77346?MPYDceb`\]\[WURRNPJEC@>?@@>=<=@@ADGIHJKKOYk€zlWSSQQQMHGB@@?ABACBFDFFGHHGFFEEEDEEGIMSÞîéåírGB>>9914332027:@FCADSkyˆ•œ¥¬®®ª©­®ªšªªª¥€Ÿ  ›™‘š— ”“jx‹‰Š“‹ƒ{f>_hbgfB\RN`O^aCNUbmwsttu{~|}„~ƒ1s~tmUagYvlz~onnwzxtvpxmOx€wU[PhojD‡”†wž”’Ž”™Ÿ«›mS˜µŠ¹³§¥¥l:9659756BACXjLYdba`_^_\YUWVUURPOOOPMB<>BDB???>:=;=@@DFHHEEFFEEDCBA=>=@>@@AACCDDEEBCBC@AAAEEEISâîèåîqH@==<<746766853224220.-,)'''*.30.124AOZr”€£€¢¡¡œ¡¡¢œ~9;GP^kfSFMF9ADGR_MaRcMeklBQ`snswzvuoƒc{}zz1q‚bb{qWwwvqnttrtmwwmxzGƒƒ€xSbhCi~fuœ’œª˜€––£œxQ¥Œµ­ž¯¬°«L;984;99OLC\oPFY[\\[\ZZWUVUUUTQQQQRO@-,-,-///4AEH@?@DDBC@>@A=?>@CCEISâîèçñmGB??==95655465123578885555542//--,#&" - -š§Ÿž™Ÿ™¢¢€›{9?HJHMQRV_a=ƒw^\YLaJS\sroEDkodƒŠŒuwyzsqr`1^UtzvQvzz|uy{z{{|{~}Oi€}€ -Kb~la}˜‰ˆŽšœ©£“ššˆi¥µºž»œ¯¶³šB><9=;>BCDMQbMMUTUUUUVUSQSRSQQSQRQRB0/11/0,16AEK;76:=AD:52.7;C?3/%&')/2334444778879:;;<>ABDGM{žŠ³^FB?=<<7456555531359:86545243211-.0-.'',-4©§šŠ¡¢u€£€˜l8=HJJKJJIJP7LT`]kTsXOss}yBLtukx}wvwwy|y_1e|lyPy~z€„€|ƒ‡†„ -eez‚x‚}jTq~”oxŠƒrŸœ¥¢ž š“gr§©¢ŸŸž­ºž¿t@ABA??AAEHJjWPQOOMNPVRSQQQQg¯¯¯QC90)&$"(-/2BFM;1(''$$#!!"3;D>.(+'58+16'.Ž35:8+))*-100/3458<=?AEEEBA@==<74866777533469975554532312321/,(--2©©­šŠ¡‘¥¡¥’B15?IQMQOMEO6HKOOLCXDhkpw|?czur}yx~tiqu}o[W2p~zUw†‘–Ž†††~ƒ‚ - -bkiVƒŠƒ„qikH^Z{ŸCQHwt—¥®¢¢£•Žwiv»»Å¹¯œŸŒ±L?<;7779;:=d]>954232223:?DGs÷óíÒR2)(#"" - - -%ABK;)&$'?LKHGE;9C=-'1+25 - - --0:A:$"!%*)#!$&*6?;;8742,---,,*//13444476899866744544334220,(/.-AHR]jt}¥¢“\,1;CISQTSQV9KJJMMLOCfZKMQ;`oij|€vy‡ŒbtnY\c0vuOs|‚€uy -‡Œ† -‡ˆ -„S‚wimr -†ZUW€~kNRt{|ŒŸªšœ ›‡ƒzk‹›Š²·«ˆœ¡v224-0-..17;QD42111.1.+,).1O¯œ³š}NC:7:?<93--;9E9NKHB84/,'!6:D>-$ -/;D>$# - - - ".023INJIJIFCB<83..++()%')((+000202765575555522.,1./.(,-,.:¡Š¡”`,3AJKMNQNIV=PPRPOPEEG^KIL=HEZ6COTZs‹rVfx\C4hM\xyvs€{{zvgr‚‡}i\lv†ˆ -††ƒsmmR¥ZjYS|‡~¡£Ÿ§•‡v]`‚‚“‘rrz}Œ˜V/-.-/--/4:<7111-.291++--5;@_abb\YRC@LYYTSQOMJU‚jtR1(%#$ -34?=)"&**-/1366;0=D=$$8;<=<743110.FHKOHKIQJHE9A>><;;9874214/.*,*)(&))*++/0-.+).--.)&./.7€ž¢•^ %/4>DMMHMSAOIHNMQ@>FP]OF4HBU0EBECDF@NVU_G4Q`yzoy{zwzˆˆvnpfpsM‹†‚|{u}paŠrš€yTjXep‹‚”›–†sfg{y‚‘ -k`ev’ƒw1+,,.),0622<311-.2=8+/0-0+-G^`a]YXMMV`aa\\[[Y]†‹WC@?<7?<<;/,9>=??>@?>=1;D=$&>AAD?=<<5422MTQTSPQPOMHCDACCCBAAAA?=<6<;:76432//$ -! - -!"#! ##"$'&1¥ £”o&-34:4:<??>4.'" -JHRTGJJPNSJHEBEDECDBABA@A=BCABAAA@>=& - - - –¢£“x22069IKOKLO;BAC:[H>JHP.CBC;6CA>ABBH0$17BLYKRdpwxtxtYuutw{~isy‚¡žk¯æçæ³<&!!NSRTTRPOPMJLMFEDDIEDCCABCDBBACBDBAA3‡Ÿ¡’yC;699;DGNGP?GLG>=E<>BGEAT>K=P)>E87IB>@>AKdgqmY„{rwl{z -€tž¢•Œˆlczˆ„Csc{sn‡“Ÿ£™ƒqrilrpsWH?EGDHJ)',))(++.23/--,-,-&')%+,)&$+27:88=HT]``]]\[YXVUQNRPPNRQQQQQOQSQQRRRRUQQOMMMI‘Ëп¬l840)1;GGHJIKIHIJGGCGKLGGMCEECCDEDEDCDDBC7 - ¢z$+6:9>;BB=IIDLORID>5==>?K?MKP1?54;B??@BA?C3720g_@B^ -;Q@AB5GRYpx€‡‚€‰ -¯sw™‚~Œ~Ul\~skssr‹™“zŽ†‰|ned^`][bgU((,,)-36100.'(+)$"&%(((('&)'(#  -"$+07?ELQTTSOPNMLQOQPQOMORRQSRRUTSRPPQRPQWWVROLHC64@?DCDDEFC>569:=@FLOJKDFCBCDEEDEDEEA>JNcYMPPRTSRRRTUUTTQQQQRTUTUSQPNLEBOQSQSRQMKA -"26@HR>9" - - -$22‡€¥|6 -  - :9BEJ?IK?FCDII:<,5;:9#(146M;626OFJ:DDBB@BDHCKJ@?£–®£†•†Š•‡Lbgsrpdk€†ˆs[f~†ˆ|yzwnt‚ -‡7-,,)+23/.5))&()&&'')&*))'&# -! - - -##'&%#%.,-4<@JOU]\[XWWTSTQQQTUTUTPQQNJHQQRQSUUTRzk‰u{vgG6+#1BB+$*/B:"!E;1,52A"1-21+2$*-2:,‡€€x6 - - - -0#'5)1D=KGHFA@B8HG:L>=;8<=70>=99(&'/*KPZNIA<8@GDAB>CDGLD>?<”ž§¡ž„„†˜uo”}`‚^s†vbji}‡‰‡‡~dZgu{ -p,()/--'/.),++&'(),'')(#%" - - - - - - - - -$)($%$# - -4 * +(@N^tPhkda\XUWUUTQRPNLNSSSQTUUSyšŸ•¥µš«º¶’ti‹—rK1&B=%:Q;.93>>$?1( -!%(.1(47‡€€‘|7 - - - -0&( - - -<9*2?CE6>G8XA89=59976<:=**$)08@21)J118?KDA@BFBHD;CAB -Œ£ -|q|ƒ -lwwˆ|ˆzˆˆŸ -vj]iy•ˆ‘†~rflq‚sv}?--*01/,.)&&'$')+)& $ $)' # - -" - -" -""# - '-&$2=†WZsœ»°™|T`bXXRLPIJQUUSSUUe¬·³’ˆ–‚„²º™Ž{~ŒŽ¡^ƒŸzV]>Q>;;.3M62C-.!.;?43$#†¥£‘~: - - -0"84& -"77">.+0;AHG9545>B5..<8?'$*.2-4$C594>=9>4@@9HD?"AE63?86!*926H/!'5DI..J5*58=CIG;6:9046>EDxd^}z~bXshuz”œ‡†„“‡hdt•†gpˆ‘‹—™Š­Žœ‹\6-.412-1+)1.('(/'( #%  - - - - - - - - "# - -!.0J?HTt³kcX_WPC0U@;XZVŠ€˜~nxnZujž§§‡ª¯¥€Šªžš§œ¢¯¢§Ž„KM[XROZ1;5T;;80-'&-086 -$"†ŠŠŽbM& - -4-(301//J=14%./,=3.$9: -@ -"*//>4+T.$.)(85Q4,.79?79C5234/17ˆ¥¥ˆC_J -( -13:CCW*$5 -H - - -*/,.(Q.+$&/4A7+27:B637KE569:62;@B€‡ -~Šƒhup„j€my†Œvoj’‘}Zdl€q¡³žœšŽžŒËº·¶®Ž265,+234))($'$"#" - - - - -   - - - - - -!!!#)(/992?KBŒ·sIwewKKTVLI\†sƒž¢_QPqžª±¬¯Ÿ› -bbbv{hso”‘Ÿlk›MSiNQC7KJbM=A8?18@@--43>IŠŠ‹]_W. - -83DSEG=@8=1=;55L25G#$$ -",0,"R3+96O(3@36B45=A5642456=?=‘sqy -wy|‡hšž–œŠrv_cpsWf[iodeŽµÆùžºÂÁŸŒŸ·Žc8:541.)$&&,.$$! - - - - - - -"&$%&### - - - - -!#" - - -$#,/).3=1G?8w¡Ž”NGnq”„n`VVv„­“‘peM†‘§€¿¥Ëp[sct|praƒŸvZl`bfKM8@;;BMTTO>3<<@;27.*6H>!)0JJD8*SA330&A<2&++6@5;qyrš‘•“{§ªXhŸ‚cXJ[RVX\Tas -œ¬¹ÁÃœÀÀŸŒÁ¿žŽ¥N<74.+&"#$#"#!! -#'&$""&'+(('2+ - - -42-$* -&/'&2,1'+/).3Aƒv~Œ˜Xbw¬l6?vqf‹~„dt§±¹ÂÐÿ‡‡®nw\gxls†Ÿš˜ksjo[]THGB>JGGDLTTMFCPKF>JFŽ¥Š’~AB5 - - - -=<.O12G4F8B5GD7MVe`chO7:L@dR=\CEW4{M1/V4F2L0,,)01/4177owzŽš€­­•˜‡•–’jwx”~fXJ,DVvŒV‡Š¯¶œŒÁŸÂÃÔØÀº³@;6/)"##$&''()+*(+.,*$++'&$),,(#'## - - - - -04-&0&(!(+!)#/*;-ANrb -UT|ŠiR7G.@FB@J;@4V`G@aVI;CHS5GYb_5y‚v|sH&iD#79/734168£ }{–šŠŠ™‚yyw|s\‰q|fc/==NZŠƒbzš«¹ÁŸÁÈÛÊÝßÈÃÂG762...-..+../-287;@0''(,*&('(()%%,&,+#  -$ - -#%"!) -1/%9;/)(4Yy’„zp¡  O==m‹† -•ÁÐœ¿Ìœ¹¹¬t|‚Œ“Ž›€ªªž™Ž -~somhXnpmf]Y^VV]cb]]gghdq˜¥§›nU: -5CJ:PB&0[D?<6:N>JPX{l_ufG6aVl^Q;5DM+@<'%$),+((&'*())(*.($&&&+& - #'4- 030*#& +$)(&2.59a}™°«qjš®q<J:PMLA+GHHN2JMrdecRCp‹˜ŠshY8;4^5=XF2FdG<==OSeWXJ[=):5(1}dXU`UNW‹–”š„d` -””™miVhIKZwm}‚“œ¯¹ÂÄÎÙÖÚãëéëðòÊtÖ³[>99865767:56.,,&$##&,(&&$!$%%" ! -%.$ !"/;.17.3+*,4/;0&+/462,6YZ37QUoUkpGP^][LobMOmX|l9LVRMCA`xV<=Q",0FBUV^U631O\†z_uogplvjŠw‰‚|‰mfq|ucšŸ¥¯³Ÿ¿ÈÙßèéååâßÞÝÝÜÚØÝáÅ[PJC@=85442/,-.&&'($$'($#%$#%$'%#!''+211(/.&<889;>::869?@;44:?DM}s_NUTNHFLJIAPo³’p‰ŒŠ‰‘‰ˆ~ -‚œ¡€­ªŠ¢•œ€šŸ™š—ž§‚‡‰•ƒwcU[XVe\UdcYN?6DLMTQ[TNRbbLtT2PgƒP4lagj‡ˆckALTl^5?PeZGBrzylU=FVS5%+) *8Zb:0BW4QQsh€’n„l`mdk–Žuykqš‡zwu’–¯·ÈÆËÑÕÅÚÜÜÜÜ××ÕÖÏÓÖÓËÌÏØÝ [PKF<553/.,+!(($$%"" -"" -$# -%$$'(**'+,)+*,0-1,:588#.-04:<:BTKUN;<=H?KJJTZVZeinxƒ”™’”‰„ -™ŠŽ·³©³Š -œžŠ|aaljgjkxt•­¢™ƒ‚—ŽlypiUVLKOAPRCJJMI]X\eQi^n\NZ4^lmO+P]C>`}U_^YaTLoGIE@Wl]U -ƒmc`P<5DNPA/7P†qZG(j?@Hy——qmnm—t^nwuhgrtp†qsfr{˜¬ËÇËÌÓÌÚÚÓÌÆÁœœÂœÂÊÈÆÈÕÝåè–WI=63-*.0(% -%%! -! -$ - -#!"%# -" -"$&$ +$&+&(-!6+'()-09ANQHSPRPYaaXI[`abaZehikpqqmfW\aZZOW_cih|”¡ž˜ƒ¢’† -xŽ‰‡‡tkc[``[imcu€~drk[X>C;?EIXOJSSUCE\hIii\i^SupmqsPVb‘‚cdssdd:tXLQeŠ Ž„‡€¹­­°ºœÓÓÌÆ¿»¹·±µŸ¿ŸŸÇÐÛãäàyOI;19<=//'! - -!$'" -"##+$& -! -&.) -!!'+! !!'6>DJMM\]^[ffkih]VhUZ_bL3W^XLINMFDLSSKE?QVQLTMLONQU`bi -Š™nTQhvrngcfwdƒU^]dPa[RIFCGNUJR\engcPMdZFqbXQVY=J_WB7*/QKRME\cn5`N=+me[L>PmMBfREb[lSbJ2G[O7`D]zp`HMlQ_HLNP|RV^D8965;C9[Uahk]2&oti[VMJ?@B?CJD8CLT^T@JLMFGGJKGPJFIGLB;FOJFYOITWpiwlVOu›•sneZPMF86LIQVRU[mjpHZ|aK^gdMPUD?0N;-5>4O4AjG6_mlCF&d^mbUp`LH5J&ZSF\XjJaufKhaqwM1?Z[VppŸšÆ‚£Ÿ– -†ƒƒˆŠ|•¢š°ŒÊ·£Æ¿ÆÔÁÃŽ¶¬ª·ÁÇÐÔ£[Zc“z=**3(2'2/0-2'""" -! -# - - - -#//.05B;MFISKV\Y5?Z_SQ[TJE=>AE>C=@HB>?@72LTOIHK87646998=>=D@<<:=QKDMTe`TX@1 -!3IM53YKK9W(d_pS8RDU0!#+*!?=/!.%//297?DE><30441QBC52-)-.%('-%%'*%%',-.22653,.,.,(.95)8:8;?;A;C=9OO?99IL^HNA;2C7[WhE=?*>;/C$' -%5OZBJVK+ -5I=:95=T, -QE{lGXRb921:itVca†•€¬¢œ—¥§¡ Ÿ«« ©³£«—¢” -Š™€§š®°¶ÀÌÌÐÌÍÎÎÕÓÔÔÚÉŒ‡X8Jb_QU<15').*'23/??.:=;"#! - " -%& -%""+(&'#&0'$.%#2*0+0/B;8479589;65H;HM@2:=:QJ/AEJB>@)59<5;r“6&0 -KC>2KD3G/'<7=*2*)F/@ULJa7X3O6X\AZ6B=.2->;C30(:8<:7%;L - "EHCK22W^IUWK^?N_cfSO_v€“™™Ÿ`Wn’Š‡Šk€¢˜‰Ž™y†˜Ÿ²œ®±»ÂÊÛèÞÊÌÕÒÖÛÜßâÜݝx?%Dr²·X),$$/' -" - - -.+1(--06/9)-,,9H=59( - !(% - - - -%$" - &$$ #!"&1'( %((0,7.,2921>?905,EB962/%,..2MOG66./FNC.=9:Y+#",/7PN:MCN]\^ZS”}~Ž’o]`kay~‡„x~t†‰yny€{s’™|vŒ‹š•xŽ ¹ ÊÇÇÖ×àåÍÖÐÏàåàÛÖÛçÓÆI)-V™±ˆ7PšˆW3.# %""$(,,8+*(&2/%(.?M7@0$,'# -"#" -$"! !" - - - -(7##&"",)'",,6,*.61:7582B@85!+$8-.$D.+:5:?2r•‰B.;MHJP &1:C5%#-#FO7.D,%N$&"'&" - -!"" &!())! - - - -(# - - & *$ $-'($**%/1215/A>2* - -38&6B8BEIS?i{uX:53?ESLRY6(&@?%3F=B27-CJHV;]OMJIIB;/KagaEBFGFPb6477?6:3(887X\363#8E;SXl\A599H# -AB85J -B -%EMJBA-85!@PzeisdZPYgzjoy]un‰kgd`ibb|x„rSrly€|{pwˆŠŒ Ž·¡·ØÃÕÃÊÎÔÝÖ×Âɹ¹¡¡«°ŽvZ=56@Gdª·ž igozŒž§¯žÈʓa35<80M>-"#%#&# !#!!$# ! %%$#!"(!&"!#%$ -#+"$" - -(2! -!!)! %%#""*2)$-,59BDLKLHXPVSLA10@dA[$#1-++ERID!6 <->C\U)?3%/kGu~se^VUXgec_h}|hsqX\kV]\ZYeu}tsquhv{y‡ -}‚ŠŒ™°žÆÓÿÅÊÊÃØ͹µ¬Šš—”† -oP3..=MŽ°ÂŒž±±£š“ -}~~‰Ÿ±¹œ·²d605,#93*('%"$'&""$"" - -!$ -",&&" -**()&"4  - - -! -"" - -! -#% - -#! -&5>TI87:FH4B]M]D722E:E<\e=B@2CN?- - -$XKBNeL__6P`i[zp`eUROEo`\_c}o]r| -„qgukXlf\i\ot~‚‹nz„s„‡‰©·ÃÏÕŸ€¥³²ª³»š¢¡Žš’•—›wZ>78?i”š£š  Š£¥¬¥˜™›Ÿ–Š•¬»«ª—’WHg„€7222-*.4)##"# - %$& $&%0')(("$!/ -# - -!@cƒƒ‰vL73).ERXdfII:=D^L<@<[bg@P^[ZSL0 !,?HPD>E638=AVn“·ÍØÏÀË¿®«¯“l]cjxš™š›œ¢«²ºµ³·®§œŽm`MB1.(,*',&5 -&&-(%%!$(+" -!$9Ja{’•–Œ‰ˆ -„‡ -}nC*&QWTkWZpY^oNNcm_PdK__8Pa\RkIE7:^,bJSozzAFdJJgM=GFL>86J@C1G:9- - 8?R:gI%HJ*JšE\ah`_XtUYhpyyy~„rq€wbllf_jxus„}|ruxrrfikwŠ•–—ƒxtpxjz‰•—¥¢–“”•†zxx~•š  ˆg<58AGS˜³ÄÌÎȹ™‚Ÿ¯¶žžŸz©—’Œ——¡ ŸŠ¥€š„r}hbUL12)%7)*%1" - -" -;=HVKTbnzny†ƒŠŽz~„‚vkjdKD:;Hl]JfnYQOUP]NaTcMOlG`cgsh -XBca6G9MO]T'0QO60>5IBRDC[O[CX:F=4 -,CMOmcTmF[LJFŠD9%c``HINJCD[qx||}ƒ€„bbb[cvu‚ -rrfifQXhgc`_gn{{}wv\`[bplsˆŽ‡Ž™•”—›¡€¥ –„^<;89MGI>YSrTRQLJRO^GN71[iZOE)PbWPO;'CNOW;KHRI^Za;GlFBTmTbJY_JjDS&[4H9<7I]DV627TGU_dYGTECD\xgS59Die_I@UeP6R<-%BEEJdIQfpefU",Dfvj‹w†}kjVHREg]T37K]cYY\wdYXQZdpqrx~ytq•“™˜Š„ -Ž•ˆoaNHPNIZip™§–˜ššŽujgmnt{’˜šœ›£––™Š~{oTHA37+00lpe^|1+q|`KYiwdkI2Uq>'.BAQ`€TAHy|sqjP- -+&AXDSlL -,897@EGN[YLpflvƒŠ~xvvdnvwxklƒˆsfG=@KFRZdp|‹Œš¬žŠujiluz“œ™ˆnm{„‡}w^PYYZTUTY\[`feegd`]Yacd`_aejvnkdcOXTNJTdv -€‚ -ˆ‹””–u„Š -yUMRYga{†l,YOkpŠsh>bEoh5USh\wxT\LAKKeSSB@RYK$DtkA=.K=EXFNNixF`ibVfWpiogbV-lh-g3*XUES68/6ZBI3,BFP1$<7>`r]F]i\["1ID7%"khW.)&%* -,9CIT]_Znolqqq`YW[W[X[mx{mdixf_]bdu˜žš«²ž¬Šž‘ƒxqs‚Œ˜š Ÿ”ŠqimyxtkjgdeicZZWbb^[PWkOOH=?WPKDU2LVC^HH_V*>M>I093-G+$EH: -$Ei?kLVŠvp]ieqoTtvJ:3]QI8C.?5F^R;8/%DRUABNdtpDe^ecTKhaoƒymDDE"(9.3*%+ - -.KGSbojWW@M3?FCNsfUanmbJ;3nLE@hh:0T<,#8BaS0Z^N(`lVzT@>>]|zX?/4. -1\WL6P@WGMˆa^x{’P=hGYjdO„MBK?Ykƒ‡•Ž•ˆW_6.OL];#<)4XY*:ZW\hmyyk`_c^XYWRTTVRU^WQQMLJLLKIMLOPSU]Y[j_oaZQKRD?B@FEDHNKQe|„‡™ £¢›’‰{umkjpjfhi_TSPW[\^[^\ZV[]`_ei\NCEUVXw„vnelqqnrqp|~jcjlm€‡~{fXZlytT:@WEE:t[}w\]W[VD.GZ1JLtA,`TF77E[p|iTL5&IaShOCJ^p]sl_H1214:;1OkP0) -2Ml ;HPTp^hqv€ˆ†ˆ{vljjd``\]WXTVOLJJFCADBJWRY\YaZXY_ZXUUJJGB>5@DCHEDGDKZk|†ŒŒˆ{roj_^\Zedbdmmgfjnwsllmkgfdd^WSLA::@CLJ:Y[stb\\r|yo{ƒ‰Šˆ{opq_dt~}x}zxgYPPO2CbZNdkDAWh[VRoSV!0IE6@JLDQ6\iYXX\C*.+LO12\[ -?nyhUITNrUPS\ebRM=A@4TS(,W\iT]`MIRUQltdLNZSHQiuyy}V.., "g>-NPZOHMbnty{y€~oiga^_[WUSSNLIIJFLXS^ZXNZQSRWKGRPCBCCGIJGICEGIEEKMP\iottnkjjcZXZZ[[WWV[``][ZWTZ_gkhjjggb[]Z]Y[WSYNHTRblgd]rwgS`u -kaUYqrvqj -{zwql2203),,/?=PT@bjQABDZ=GC8=>KF:[JB_RFM[W/"Nm6.CdF=_RAFULA[Jq-;]H2MOZa:R -U-X@GHIM?J_eLcjVZdocZm\egiaXSSINJHEcT`ogW[aZdjhmqnmljhigh^YY[\[ZUSX]_[`wj\u`QQYVOBMDA@AEDHDFGPNSNHDFGBDFIKKSZcc`ac_WX^gicZSS^ebZWWXRT^\TPLJV\]^bjfaaeb`_LbgmcpocYsi\Ydqtn`Zbqhz‰–~{Œn^SFC30 -<.#&POR\bLK<_YV\UBCDQJ-ZR3"LF>`J-CagcTF=,:[a*3Ohc58I) HA#B:5cMWq7<-F.K]DDLIN15>d`hhcd`lu|rknka`jrvu‚€yxjfqpnolsonnjsnp|ƒ‹ƒpqwxpfqvuvtqwvrvqdTFEFEIKHACACEDBBOYQOIJLHJOPROIQUaife`XSRUVafb_a\RRVTLKGIIIIFCDJNPSNTUOWWXdijYl[s]Zgl^eTVWTap~‰†zn\bemoj€{`PPIZ=029@_[?H>2ZHJ^gpCE=C4Z:!8F@Z@2\UlU4WQ:?,Qb+9A?dRQNSLBM46YMZTSYF/=>BFWfD

)*3 <7^2$.BAA\WCfYfE47RH7N5%HC8"AtiZ454ED&-LICVQM?D[O_H6;'5OZgFKQQMWbWR/99K1 --(u‹„‡xtƒŠ‹ŠŠ††š£’˜™—“‹•“Œ‰Š„ -‚y|uw{{w|}ƒ†ˆ€‡‰‰Š„„‰„xjcu‰„mmdSOQQS^aZbiebZ_\Y]YTWWSNRPPPRXhuxupkpldYQLNNTc\SYZ\[djZTW\XWZV\a_a_YQG?>@ES[OT]RYT\lw~|psaY^nnlj{thT^\wmjY:**%2,148PP<##O8F-!!K_H4G@N>Z5WPQGiS,2IJ3P&(/]CEVMOKI2K,$ -20@_&DIQVUQD65-9M3ejww€ƒ††ŒŠ‘•š¥ª«­®¯šª¢ š•‡~‚Šˆ†ƒ‡‹ŒŽŒ„„‚pƒ‡‹Œ‘‘˜˜‘x€{c^decc`egfZ\YW\Y[^VOKPVYTW]ZWQTPRQPVis}ytxog[UZXUWge]`hjknqjdei^XibPIABHTXVQMUVNgHIKOYNMamvsm^QY_ahntldQAZ[hWI3TEJA% -HRI@B -3fY>60+:4@aPB]_=SX8Gwn_A=Wi`Ybw&ImHET?R>VVy~mW*/3F\Q8Y;3E*Ap<[SIOc -KGHA -FB9 - -+Imhei -N8xD,4,1Y^Y_8)ED;C.93MH7# -"'9E10(TC -2%2,:V+Ydv\4j:'3@B^l?;M1>/6&"71R97E:-BNFAH7u{LC.2CGSqb\jejT;SDAIA;+OEL@55:Uln%FWC;G5 1OPH8jt¢§™™œ”–š›£€£œŠ‰—ž€§§€¡¡Ž«¬Š™‘‡‚ƒ‹™•Ž ˜Š©¬ž„¢š¢™—˜–y‰“•˜”ŒŽ†‚qqtusswƒ„||zsknv{yf^cggfa]ZW^]Zbe^[YUOMR\[W^^cX]_cgpbTMOVQPRQLU[ZY[_QQRQWTRSZb`WEDNCLKTQYNWXfp}usX2"%PgL+TlWZ68IgcFG$ -45*&90=B=VC\Pe2^wP:)5[LmtpYELX]@LD]qH=S+Rf" -Q(g€sk=0EJX\Saaj\<\(UX«« € Ÿ£¢žžšš£ œŸŸ¥€§šª€²Ÿ€š£––ˆ‹Ÿ–|”œ«­£„š¥Ÿš—™–ƒ– £€ž›”’Ž‡‡„{€vhbaomddjggeYVa_[V]cifgYSSUW`eag`XVUMPQY]_^]][[`a`b`bcia][[__`[[_bdY[bbbdafnha]Jb[c\WaUPZarvwzg<9,)P9?T@BB2GDK. -9$4UH(+D=@8DK;gRfSWTmhTS(Db^PXL;N'&QUTnzoMMoihkR -piIGlCNO`\\V_bLQI.Nb·€—“Žš‰”›£©§¡¢¢™‘ ¬š¡Ÿ©ž¥‘‘”‡‹ -‰ -€ -Šššš¡‘€§”ˆ‹‹„—§§¡œ•—’‘Œ‰„yugdhonnlqulormlljbcehnonjgUU][RNQQPPTVZ[a__ahieYSPRXPPT[^^WSNSW[XX[`]WSWVMPJLSYXFUSekYfTZ``pr€oAA?503X7LIFJJYS93/A=J/,Y:B[P9]@FDdTDFb9rZdPSg\AZL#4D&K2GKw7$4V‡YU; -$blrcb?[^kk_TUDSeKU8&BVŠˆ‡{ˆ•Ÿ œœ€š¯®–›Š­©¥ š›™Žsfksjdlv€™€§š—ž¥¡ž”“†˜›ž™—“—•ŽŒŽ“‘Š}ywto{†{v{†|xjdfd][_itwujcXVLORRRUXVW]YXYZ\_dgdYW[^XTZ\UVUSQJKQUXUZUOVZQOMLRTRbZLPALCMb[_abklgF=C>4;9USITP=CSY;.&:3jNOa€sp9Dc5LO^75aw_bTjjMJ_?LA#:P5-=\K{e9 -(dnTB4Gk]aZjO4QH>0Bl«“™Œu{ƒˆ–£Ÿ¥¯²¬˜Ž²²±²¬€£œŽ~o]a`^rnrˆ’Œ–Ÿ™¢£œ™š–œ ¡€›Ÿ›“‰‡“‰–’•’Š‡„| - -{tu}€„}j^acb`Y_nxwiYQUSUYZVZ`_[Z_c_Y]bbb_dded^W]`[XTRXY[]XRKRSVX^][YXa`_[[OOPX\OE\WHNGigUIIB,?"KFTNSKapjQ=4R$aUaZKSTW6Z10EOLVkTO`olC.AB:,MF6SLNT9>xkeDDZ]^SWk_fSZ]sO,@a`JIOU>I[R+Nk€Ÿ‘‡|“™šž¥§š¡§²²¿¿Â°° žŠŠ„]`bjnhmdnuvƒ™Ž”–——–‘ŠŸŸšŠ‹}ƒŒ”‘•‘‰‡†‰ˆ‡†v|ˆŽ -|€ƒƒ†Š -vuojabh^XU[_^\dcbnrxrilfhb_VTOVXYW\]ZXT^TMIRVPHQIFQeSPKLNHMGELPLPROJUe_0F$BF:L:VMPdLTO$@[ˆ†Ž€€ ”›šš£Š³Ÿ¿ÀÁÌÄÀ¯™‘š¢– -‘‹zgXco~y“€Š‰Š”‹–¥©Ž’‡‰ˆy|wx†ˆ–‘—–˜––”{~Ž˜–”™–Ž•’‡ˆ‡‰‘Œ††‚uhgbdkomnpvpssplnkr{||uqlgbe^XV_`\ce^YR[\\RWVV]Y\X[WX[PUSV\PEO^ZKKZYVI:N=HTHGGE@Da^ZpiVM[d|NnuN]6 - -)(^O]ACgnwp^WC3’c4HX?G3AKUHJKi^>XRGM+4vP6HhlO.<& -Bf|meKaYtaR77:SQGSejb*\,BC>x‰le=RhiJM -aijK6a\LkaSS:;K86OJ`}šŠªµ·²³¶”˜™™¢žŒÃÔÙÐËÏÉ®··±ªŠ£§šž•ƒ~–”}y‚“—ˆŸ–Š†| -skm]]^o|ƒ†}~ƒŽŠŽŽ‚Œ–›Ÿ›’›£¡˜’‘‰„Š“‘†‰|pow|sqoorqqqsw“ŽmdjgWV][RY`ZY[\\ZSRWXe`^btsifhhh`gomZBEUbEDZL`FG>B:DYEA?TYHEZ2/>_J(NP - -+%W?LZeWƒyWN-& -W@4BIIM#S&6`aymqY;`OrlSBfarhs_frlqN9Z]A:?CIkrz§«µ·¿µº¶ª«°¡€žŒËÓÑËÔǺ¯ÃÞª¥«¬®šŸ‘£œ‰vž¡œ‹•˜š„ymlYTP>O`{Š~€xutw|†’ŒŠ‘Œ‹Š“›š‘‘”š–•Š‹ƒ}„ˆŒ‹€q“™‚nf~mnhehf_]ixvx‰ƒiqrupdlqcfWbimooc\VU\bfXLHPUV\lsbKEMHG@SHFKPQUT@HNLPR670DZA<.FAD:#RUX\,8D!PE`sgjdz[RFA(7AM#@;"gq^bT>>]\g]vZ[nsx`d[kM?hTriX`hdqfœ¯¶¹ž»¿µ°«ž±œËÎÐÌÔÎĵÁÇǶ§¡«©°š€¥‚“§šœŒ•‘—‚skZPBD?H]~„|yuoorp‚‹„’’Ž•‘–„ˆŒ–—œ“‰|‚‚ˆˆ–Š}mhlmfehaVZsˆ†‡‰liy‚‚vmƒ†viW]^^ffl[Xhq[/"#&(,49FB$,:::K?NNJHLXOVP‡€˜A&7-E_6+0''4~cCF -.FLMLQ+GL_BTk,hZMTO -IQt_R7GAR:GvW1@+QBpVOJIWv -RWjULH6QikpihLS]IUªŽº¹žŽ¹µ®ª±°ÈÑÌÒÖÑÙØźÉÊÇÿ·žŽ­šŠ« -“¥ª•””‹ˆ—‹qfXPGOTO]„ˆujoiimvz††}~z†‡€„††ŒŒƒ‚y–™–|zƒy–’‰†›”•ˆossvvoimn‡‘Ž‡‡‰—›”‡‚€yl\^f\TPVU_feZM7-6A<$%)'7GKQU[^ZIBGBOVYDcšª—-$4=\4)' -NL!1,'"-;-BW77ATcoDG]mM:6GZYVyVVNQ-mo[RVJ}YHgN_KNT[X9a\IIWHcWI[[+CE;U.WOÀÀÁÄÂÂÀ±§·œÎÊÇÄÇËÕγÆÆÆÄÅÁ¿¹š°¯ªœ–£¯°—‡¡¡¢Ÿ§˜‚tƒ†ihtidt -xy{}|pkogduyupocTPZzƒs]h{su‚w€†„ŠŒ–Š„|–‚sj‚yrjpuspƒ—ˆŒ†~Šˆ‹ -| -„qqhkeopuuuneTZ\_ZPUT`\^]UVVVZdxxjURWX[IXŽ¢†C'>A -?B. -$!"(687?VZ4BB1;?V;*LI7KIO;B.tkG_E/37Lao_g^\nE>KHR^PQUM3UW3V]l^XmhÁÃÍÖÙÑĵ¬ÂÌËÅÆÊÆÏÑÆÁžÇÄÃÄÇËÊ»¶¶³Šš¡¯»Ž‹¥§¥ ¥£šˆ}•“igurnrx€ -ƒƒqm]S]ptsol\RUTZb^X`okiqz~ˆ†‚ŠŒŒ‹ˆ‚}phvyvg^LZlŽ‘–Žw”ƒ|ƒŽyfp€ƒ~€~mX]\SXa_ZUOP\W[VaqrjjcT3N\ogŒ\HƒžƒGAQE/CP -& - -" - - #$- -),RG$?WWS150%R"!1,B5'RtIKI>RVAitcn€}e*8YYf?CUgG!6IVjPV]dJ`ÂÊÍÔÛÚÄ°žËÏÈÎÈÃËÑÈÄŸÂËÉÆÊÊÉÅŽ¯³«¡œ°¹¹•Š¢¡Š€€œŽ™—Žˆzqy„ -ykpt€wfOLR[dpoi[W[`a\bd`aad`is}wp€} -ŒŠ -—Œƒoy“xgRDPu„™•†p}€‡vcarzxnlrpiovxymimlgglaYYdmw‘vvbBe -„€diyh—š•xM[gRVBG!:R$$ -$""&#7R6;&(@;UdaV?8Q]B2O;S]IGMF\ZYt}tygH3SabSNTaTgS9?WSKS2?YLU\Q@UV>BDBaÏÑÏÍÖÛÚÛáãáÛÕÕÕÓÐÎȹËËÌÊ¿¬£€¥§©Š°žž²–{”’š–™¡Ÿ¥§“xxqlxƒsd\`cXYWPYY\ee]X]\d`d[PRXVhqtWWp|r|uˆ–—‡|Š‚‚fI^j|ˆŒŠ‡wkpPQV\UPPYW]Yei`msqzwoQbemwUW[_^a{lWFc}„a7@IXlr[COegC1?Q8H&;@N'/6'# &)'-OB( -B 6)5?@=9%176DvqYQ*8D.QGX0AEhXƒviU6>ZB"3=#6JJ;HWPbgXi?7TRÍÆÆËÕÚÛàßàãàÚÚØÓÐÉŽ±ÈÊʱ›ª®·ž²·¹Žžx€ -ŽŒŠ””žŸ¡¥Šž‚ˆˆ‹ -tlmmmeY^dVV`nqi_[bcbqofPSWYbwt^fw|s„‹‡p}‘ˆx‰•‹‘^brwv -‡‰†zƒˆzdUHJRYubckuomxt€w_MYibSSN?LVmfgT?8602- -$' !HE "2*!/2184B6 -2;&/1l=OOZ9R'] -CTV_m=^3HL"9 -0 -ESI>Jg^geV]RS\8¿ŸÅÍÓØÛáãâÞÝÛÝÝÙÝÙÁÑÛØÖÐÁ»ŸÄÁŸ¹¹·¶²Ÿ›uv~‹‘”¡¢£€£ŒŠ“•“yndjngeS[PZnrro]Vfkmytqhff]`leYnxuu‹ujv‚ -so—›™Žotxuvy€†‚WKK`{soxwswy -{‡fIO^uTKKBGURl[dRIV7.)BdsrSRV[Wjmfe[OMI -O>! -! - -+ @L&$1)!',/:6:5 -5A1/CSrN2Q/)fRS0&2nlk[HP=3"-  -."!2C -(8*+%+101?= -+:*$+)A@[k@}4/U55JIAP;.]`B7 -?RUBB JFHV)8D_JTZQŸœŸÁÅÊÒØÛÛÚÕÜÝßÝØÂÕÕÒÎÈÁœŸŸÂÂÄ¿œÀÃÁ¹€­ÅÆÈÅÄÄŒ§¡™§¯®€ ¡§•u|}ni}Ž€n^upwndffainnh]Vgphm‹—„„¡œˆcr‡euŸœš–‘†€}ƒ„‹gDCHBC>Go_iaYcYa\\aa_WNU; - -0- -! -H - - -%..*)(/683, -->0($(<0FMv`09VB42;63@2?EEQhW;1EIQ*-5hTW=K1IAaE7/P206&4@>5C9:89DS[YQ5BQI^cUF\XWHA1vjX¯®±¶ŒœŸÁÆÈÆ¿ÈÈÇ«¹ÁŸŒŒ²°°¶º¹Œœº»¿ŸÀ±ª¶ÈÈÊÊÉÃÄÆÆÇÉÈÅÂÁÄÄ¿ººŒœÃ» «±—¢¥˜ -}tlfhdWDJp|Ž¡—’•œ¥¡ƒs‰Ž€rŠ’“|ˆ€Ž•‚`NRFJ^zŒrR_xˆ|xwŒ•£¬®œ™Š‰xrigc\QKSTULY\[TLJkaRD%RlvqhdYYO]SbLQJ) - - - -1R69&?:EDVGTOPjD46U7 ;@Z88R®ª®°±Ž±³µ¶³¯º»Œ±©ºº¹Ž®ª¬®µ¹ÀÀÀœ¿¿¿¿Ÿª«µÄÇÃÃÄÅÄÇÆÄÆÅÿÃÄÄÂÂÂÂÁÃÆIJÃÊÈÊÀ€|kji{‹ysgZeuŽšž«®§ ž„„˜‡|—œ™¥Š“—‰gOTXU_l€†eHa€ƒ}ƒqƒ’˜¬µ³€Ÿ›ŠumXjUANJGW‚”‹]\iai^Ro`hdQrshaXRWVXK^D# - -K? -D (1 -!!&'+2A"&"C*UAm! -$Y?"*EJG368=O9L8-&B. -+BGG@19?02>(7J_B"bZ3@\FAIŒŒŠ–šœŸš•¢¡˜—˜©€ª­³Žµ³³Ž²¯±°®¯ª™ž®¶¶·¶Ž²Ž¶žž¿Á¿ÁÂÄÿ¿¿ÀÃÄñÊËõ­©©¹ÀÁÀÁŸÁÁœ±zo£ÃÉÉÇÉŒ±ÅÃŽŠ««­¡˜‹€ƒ”ž›lXPkƒŠ™’€t[Ui‚{†‘‘ª­±²¯€‘›Œi]OXBRPR]UZSQSK76. 0 -56GPRNUZWQIIQ;_-%0'‹†‚‰‹‘‹“”„˜‘˜¥­¥¬°³±³°¯¬««©®Ž¹Ž¡ž±Ž³²±°Ž¶žº¹ÀÂÂÂÂÂÂÂÂÂÂÁÃÄ·©Ç¯|{ŽŸ±¹ž¹ºŒŸÀ»®€³ÅÈÇÆŵ¯ÆƳ²·¶µ¯§Š¡•”ž– -d[Wt|nx\Yi„}|Š–ŒŠ¯°¬Š›|\feUMJNQeqjS>UnUUL\YXRTH,JL>WUF=B==9W"!*3FEMG - -. - -'*( -, -"3<_W7j$5C'$M+4:8A8?K4"1?A%:]H5@N@HHƒ~ƒ„Š†ˆ“’‘’’—˜Ÿš«¬­®ª«®ª­¯­«¬°®®¬”¢²³²²³¶·¶¶¹ŸÁÀÂÁÀœ¿ÀŸœºœŒžª ¿ŽHOjª²Žžºœ¿ÂÀÀŒ¶žœ¿Ÿ¿œŠ®ÃįŒÂ¿Ÿœ»¹¹®š œ”yqdlƒ‹ˆ|kƒpv€„{‚‘™—›¯®š¢’‚q\eOd[MYŠcMPJViTQbmbum^T3@KLT<.7 -!"Y%25?;-KB2)  - - -5'")&N,;(&-9/c'S@n;)#?8$*/9>- -EE,%"2H/3?49?W=%/JG<7RFXP”Œ‘•–“Ž’”Œ„Œ|ž¢š¬­²²¯®°Ž±±±ªª©©¬³°†«žµµ·µµ·¹žŸ¿Ÿºº»¹¹ŒŸœ»žž±®ª§ºŠlFDNZo–¯µžº¹ŒœºººœŸŸœœœº ¬ÀºšŸÁÁœžµŽŽŽ­€¡š’Œ“ƒqŽŒ†r|nu -‚~„‘šŠŸ«©€˜ŠŽybK.C^g]U<%3@uq[npVm‡Štg`[MH9PB/+;=74_;>HJ.5L;C -3($@"e6K>`.> -6-0CF% -6F&/(747<;):T. -FJHINPEEA{ˆŠ‡Ž“—–’‘–¡¥©®±³²°±²Ž³µ²°²Ž²­®Žž~®·¶¶µ¶žºœÀÂÁŸººž¹·µµ·µµ±­­€¢­ŠVG<>EIš¶ž¶µŽ²µ·º¹ŒŒŒ¿œ¶¡Ž»©¡»Œœº³±³±€ –—˜‘Š -”Œ -ˆŠŒŒ†Ž’‡ˆ”¡¬® €¡‡ˆ†iXS?\YtpsL8:Epoc‚|W‰‹ŠrcRVDP4/(@EL?O]GC24&90)$TR*%$BS;+$"34/"F^A+ -MWQ%B/."BG&6+%8L-/!(786*/[2-F<6) -; -.’•‹Šž£§š€Š Œ - Ÿ ¥¬®¯µ¹ž«§©¬«¬°žŒºžŒ¹‘µžº»»œÁÇÇÆÇÅÂÁŒ¹¶µµºµ¶²««®žŸdE=6:EM|Š°³µ·ž¶µ¶µ·¶¶¶··®—®¹’˜²±Ž·¶¶°©¡™‹‡‰‹ŽŒ•œ“˜–‘“Š€Š§£¡©±®£™˜ŠŒƒs_^XVThY> -6<7+1V^XP=Y^/4$$13 -$ -;&*@aM77(IKCRUc^KD:G:,SC#3U\‰~ryzdg86 -2: -1&N6D3 -Uh+,'5K4 - -&9J5 -3$38ZXBC!&=B' /‡ŠŒ’˜›¡šªšŠƒ™·Œº³°°°°µ¿œ¹ž³¶µ·»ŸŸŸÁ«šºžººŸÁÄŸžŽžµ°®­«š¥§§ž¡§¬ªˆˆb%'2BG;@e]M2#,EA\NR,3H?@SXQaNFLGQA0PyŒŠ]VlaTXMv#'*SW'2*ARpVWsŒ‹–Ÿ¢™€©ª“¡§¶¶ŒÀºžŸÁÂÀÂÀŸŒ»œœŸœº¶ŒŸ µŒ»µ³¯²ºž³¯¯ª«¯°¯§Ÿš™šœžz—z?1OˆŒ™¢œš›šž œœœœœž  œwŽ†‡–Ž‰„Œ™ˆ‚‹ˆ{‡zluœ¥Š§¬¬¯Ž²¯¹º¹Ž±®©ª¢™ £–†odaSYLDFFCG\ok`J+)-I;;3#CT`.%-?>EVShBIKGF#f‡‘”•ˆvNfdLPg /+k\:#@RC$29JD`T::  -> -*5E&-E*7bE $1$FE9=a>^=[HF;C”‘‘Ÿ€ž££™“š¶¿ÄÅÃÂÃÿÁÁÀŸ¹º¹¹žžŽ»º˜ª²²žŒœºµ±®±²°¯®«©š¡œž–”ž|†m<.Qyup†‰‡‹ŠŽŒ”•—’–“zw~w€xŒ‰ˆŽŠ‰Žyy{v{{rxc~€ª¬®°¯¬±žŒ»µ±¬¡¡šŽzŠ“‡~o_\WW?DEIUZ\L?HZcPIKB;@cDADG@NTJCSGLDI8 -ADIOgrw†ƒ‹ -TUƒŒ‰3. -zK+!-lU,9NLFN3'G64 -@16GD=]YB[‡‹•šœ¡Š§‘ª°£³ÁÅÄÃÆÆÁ¿¿¿Ÿ¿Œœº¶Ž·žž€sv®·»º»¶µžŽª©Š¢¢¡œ¡££€¡—‹‰o`-+Zwqm‡†‡ˆŒŽŒŒˆ†‡Œ‹‹‰s{tu~tˆ‘‹ -€ŒŠ‰†Œ††th™œ©¬«§­³³¶·¹Ž³°Š£’‰€zˆˆmedb\]YU_XK>OGDJD;QV>FZQM2,[LVVM6HPVZ]L7LA!P418?IK=M`fokZ@q„!1=uw -4&)G@<8GJW>0/@L=3K1V2>2FH09DV]`\LH;05TJ<:DPK3^UG"& -5I73:F>&O=2BVWQ0 -(QDTICF`<27@IY4=P?A7<,OH\kU=SfL9JTebE\H8XP8™—•›™©¥®¶º³±Àœžžž·ž¹ºœœœŸÀÀº²¡«©«Š¯Ž±­®««ªŠ§ £Ÿ ›œ——œ‘Ž‹‰„dpc_sˆzly‚ - -‚„€€€€‚€}vsdyas€r†‹„‡‹„„ -~qv~ƒzgcto~‘¡€§«ª­µž¶°¬­­µ¶¶±€ˆŠ‘sj^VV[WZULU\^X\ZRUSUIUN1!EL9JBACA;C^1?MFL!*<>A% -/F59G@,">FAC:;2%&8?M9KHcC'33?P&MD<1:R[aZD:@HCT)CFT[ZbKd`gR@X_Zg[?N’’‘•“«Šˆž¶¹Ÿ·²À·Žµ¶³²µœ¿»ºŒÀÀ·±žŽ¹ž”‘®¯¬±³²±«ª«š¢ŸŸŸŸž—”““’‰†`mrv|ropm{}„ -‚}}{{~{~x|jdt_vyo~“”‰‘Žƒ˜~vlgvˆŠ£¬¬ª¬¬¬ª«²®«ª§€«¯­Š˜ƒz~oufZSSNSTV]`_\TVMEZNNIO2OF97EQN1EU9C,%7,882@.+(:;'(?FD! -6N7J;8?E:=<=MJgFB:&-,U.RG:1HWB0DZf^qYAN6RodV\b_XEDKWeC?V‘“šžŠ®«Š«µ¹Ž¶­ž³¶±®­°µ¹µžž·²«±²°¹Œ·‘®¯«­®§¬šŠ¥¡œ›œšš˜˜–“’“ -|\x{~wbWVdx|‚„~zusz€}~zxwcala€‰wu‰Š -|qxroz|{‚„”–”}žŠªšŠš©§šª€§ª¬«¬¯ª¡¡˜l_m]XSURRSNMOPRUVNSgRSGH0BJ53TJVPY\C -:-=24I\D6B@(!?. - * --O@@EMOVONJ]YžœŸ”ŽŽ ¯²°«š ®­²²³²µ¯¡¯·º®§°©«¶žŽŽ’—¬š©©€¡§©š¢€ Ÿž—••“••’“Œ„xsi„ƒwc[Y^klox{{~}†€u}wupU[gs€zm`tsplnthov|qe}ˆ -u‡ˆš€š£ £š­©Š®«­¬­šŠ¡žtn`ZY[XSTKNNNJJIKFBO_UNLL5 ->GaSMWUR[KK0&MC@7..6@8*/>YNI7.0(3A;I31%*'+BQXX^:53BF?0:OED?P__\QX[T>DPD39IFMQSCUdwV889BU•’†gK€¥ª¬¯¯“ŸŠ¬«®­£³ºŽ¥«°§µ·ŸŒ°®•ž­¯±©Š¥£¢š¥€£Ÿš˜”Ž—’’‰teiƒ‚~rec_Veiov‚|~u{wxzryzwpY`hmi\aTu€ -nsmpsq{iy‚xtqqƒ[|“–’’”¥Šš£¥ š‘”š«ª¡”ˆY]_]\UOJLPOJFBIJGZVPOXSCQF_fcA7PNGSND0.8-.9\N`kbWTJ>:+043D+!13(2MJ^;I1?6,]MGR[jdI[WEnvjBAJIGSiOGTHRH]odDR;DRR†vnybO -˜š«­Ž±š€¥­ªª¢Ž °¬œšš£®°ŽµŒ±œ£¯°¬ŠŠ©«¥ €Š¡ž›œ˜–Œ••“’Œ€gbu{zkhg`hsp{wxwwzr|ulx|wXg\coprNgryppgvjxk`u|€ -y|‰Qj‰‹‘ˆ}s -Œ{viesu„“–‘’^\_qi\QOROQSID=NPhMK_XEJgWbYWM09JQUKHSH8& -,/<'D;EHdaZPl„xxob,(9C--/7J6+/K^KD64Q;OGKRVED]lmak|cW7QSOR`uG]PHBQipOSHCE;M~ya{uiž€š¬²­°¥¬­Ššš¥££§š€¯¬ª§ª²¬Ÿ¡Š¢Ÿ¡Ÿœ›£™šš˜“‰—–‘Ž‰om€yvpkgmuxru‚€xxnwrslR``x~|zYhuvmkknmoinvzsrdq„Sb}ƒƒy~siqkml^_]geel„–jj`hYZWOVSPIA;35RjLM_XML]PVXL?85GQXKTXI659=GMA>PDJ9LZPSQeotru/&QuC'8EPI@PbH[WQ9%4=D=ZZvtkelmhnQ9ibmyjLI]HOM]€\ZKGJRSSmxuy†’˜–§°±¶š§«š’—š›€œ—¡€©ª©¢¡ŸŠ©Œ‘˜˜——˜•˜––š—˜–”“ƒŽ‘ˆ‡ˆ‚kt‚‚†zujgqz‚„„{{{}qy|o{whYSfjp€~|bo|wdioon_Ymkswr]bjKYuu}qj^[emoj`agiegdv„|k -w[^UTFQ[^[RKMKRqTRO`fb\T\B7867SPXT`ULOFBM?@FM0N3(0Cd[dc\\5(HUH!-*A8HVSZeYR$ -=7%B>,-D`aY=/+OTOJ -9eJT`M@a|k\P_SWYUVƒwsgrvŒ’•Ÿ³±—š˜˜š•—£œž¢££§©š¬šŠ§š†ƒ˜“•—•““•••”’’ŒŒ„‡ŒŽŽŒŠ‰ƒ`x€†‰ƒ‡‚h]qvxurorwttz|€j_f[Unrƒ†~€fs€‚`fr{ycXcuolvamiHTkdhkmenhnvsfbnmlqhiiiYm{h^f\O\ba][VMIMVPHLPTOSKLNOLWRNHWNO=ORRNED18C)A -$2*.WeacK4$@=1$7:;JbR_WR)6QSH1*.%34[NSSE757IYX^qaC_`HQawbDGWbbFXQnvlk}ƒ„ˆŒ‰ ª­™—¢­¡”£–¢œ«²«°®©±°€ ŸŽ{˜•’””‘”‹Š}Œ‹ŒŒŽŽ‰†|Z‹Žˆ‚}‡ngu{vxysfuyv€uiszT\{‡rxZcpubivwoasqkl^m\ghDZosxwqgspsrmednpnpn^bf]dnkc]YLYXPU`YMDNYX[SKVMOEP9JVSOOQWH?53$10A3/ -4MC -3&.+"JVQG;$; -55F"E>ZbP\c@.=KKP[L6.=5YFHDJ=G*P]XN?Hb\INccPDHNWFCKZŠ‡p|Š‰‰ˆ‹šž“ƒ¢ª ’Ÿ‚˜«³»ž°¬§Š¥€ž¡¥˜r‘™™•Š‹‹ŠŒ‹‰x††ˆŽŒˆ‹€†Šj| -‚‚Š„seoqlpttqv|yoqoxtSg†‘’xug`bakkriYeuu|ddhel`C_sporkoptpomdmeflmdajk^aaW_UOQZVZ[]SRSSZV[GCBHXR_D5.$#7@>328K$7KW<,03:P;7C=)=':=Mi[Fbb?HNTNG;WPY†vt„‰Š‡„wzŸ‘Ž~•§§©©šš£¢Ÿžœ˜–”k‚‰‰ŠŠ‰ˆ‹‰ˆŒŽ‰‡‹‹‹ -‰•p†‹‰‡„‚lZ\^dnwxuovrmxxenm]x‹’’ztd\aQd_j^XillxhpbYibBgpqtumfplhlekunorjcbe`\aaebfPN_X[dZUQPQ\XZIKCALTaKE?RQR9AHOM<49.,(?Q0OJ7K9;4"4GJ]gkKS@4""8E@GITVELu_;55BTZQ@VXZaxoaQPIRXOFFUXsx‰‰ -‚u€‘š‘Šrl‚‘—™Ÿ€ªš©©§¢¡€›˜’‰j}ˆ -†„†‰ŒŽ -„Š‹€~ŒˆŠŠ‚„†dy‡} - -zndv‚spwwpzwwnlhgubj‰u„{s‰†yb_Olong~}zm{jgf`]XMeehhdXjoomn`Uihehbhhe`TOZ]][Ycf]ZY[[[[X\Vb[VPLG\\HLWMRPHDLj†_B9AIGID?gwPn}gfn‚Œ‹Œ•]~ -“•œ¡¥§®®«¥§«©¢š“Œl~„††‡‡‹ƒˆŽƒˆ‹‡†Š„‡†_‡ -„|zn]n|stml^kblojchzmc~„ƒ‡{‚zjbahi[`qhsj~nib^hQTdcgkdWiqlfigckrrjY^[Z^Y[edZZchgcVg`Z]_]`ZdW\RUGUbJSTJKLKMOLP407COe^9/:3$".% '*?VVU=5VeSNIC_V@^hdtQPEJ0 > HY?AKVROH9IdIR’ƒ[QC=(8VsNQvwe_dtz€ˆ‚hl€’”   ¥§ªª§«©Š¡ž™”‘’t} - -ˆ‡ƒŠŒ‹v€u€€‚‡‡‹‰†‰ŒŠ]‹‡‡Š†ƒw]gtqtn]^jippsq€yag -„wsxz†dv„l`N_gibZicb`[aNU[]aebTegddchjbi\YdjebdX`Z_X\fd\i`Z[[b`V^`eUPRPFKgOTLTFIIIIRKB6/-FrVE94.9=*";av„‹UEZJJ9*C.JezŽm€n;,---6}Š†‚ˆ§lRA -4-%7F6O‰d—­~t|Z* -&6,_]vfcPRY[\V@:Wqt†z]LMYkSG5-]MQT{y{€ƒ€|}vqfn{†‰‘˜ ¥¥¢¥Šš£ Ÿš”–Žr€“ˆ„‡ƒ‚ -ms~„€€}„ - -‰ˆ‹„X| -„sv„ˆy]rzohlqq||‡†~xvnf]RYeu}€xRV\TUhgfhupppngRJGaga^_ni`^RVV\ee`dif]`behbkpm_defid`]adYL[[^SOTPBN^ORWKNROP\\KEA;i‰K55O`ST\TUHJQ^KEFBd™|b@DPLPK7:DQx}ˆ•‹‘‡†;>A,.k'ur`hsŠ‚STœZŠcN\r\`LcWaHp^b\_JRJUfDA\zeE1('7NMYY~ƒz||y€yptrmbxy -“Œ˜¢Ÿ ¡€©¢›–Œ”k}’’ƒe„†Š„|~|€„Š‹‡‚‡w^vv{Œˆ‰uXdwr{€‚„„ƒŒˆ„„}a^qpheqxn\YXcoYk^MMR\gagdgLaU`a\\ZWdX]ebiphdggl^bdpha][_X\^]]`]^W][WLU\YONNNCG]WNQaMCLW:HDCKqƒTBNZf[VQSH]€sš©ºnZf_KF9:9+f‰W^]`[rVY‡—‰hpeIXdzrmN58OqbMIJ37XLR]UaP+ !8]XZUxnt}€}}|qolsb_uuw‚ŒŒ˜Ÿ£šš£Ÿš•’˜•–ƒ‚™”š–uvƒŠƒ††€ƒ}{‚‰ƒ†„„w[jv€‰‰ƒ~qUew‚luww€|‡Œ‹€[TgmlvrdO[_QY]`dgahƒulfuZUHFT^VXdnssnmtqc`bliZ`\\eghdZWemg`kieWVUZ_U[X_]TRN:KJV[ONdU@ZZKHL]Y\k|P7GOY]ULN\tm_Vaf]dt[G@-&Rƒ›¢f]d}fem‰ˆpgxX5Q[qƒVLFYDKT?PV:NWMc}F9V6;8K`V@Af`€~~}|sqdfeW_pwz†Ž‡‹  €œœ—•–œ¢¥£€ž¡ž‰ƒy}‡Ž„ƒ‚‡ƒ„„„ -z -xm[mt€Š„z„mT]k~iimt„Œ‡ -‡‹uR[a]lvaIH`_SQOFSnhffkqugH8/=U`VW`mtsobgoxsjntng]\_`b[_lg^[OY]RRONKMCMO\\LHAANRUMMNTVRdOY]rx„‡~uOLMSWO:Cw™Ÿ‘ibˆƒIE/"-vŠ„][`Trkxrƒ£meTA3jŠrCKV]\MJ>=TOWU_:V5#8^BE8RC1#1j|~ulmojfhf_U]hqˆ‹ -•˜Ÿ¡ ˜ ŸŸ£ž£¢¢št•“„ƒˆp‡Œ„ -†ƒ€~„zw|t\srx{t{y_Mayrp~‰‘–‚‹Š„lQhgbgZK:Y_Yc]F,Juqwjzo[K7ID1biljijihb^\``ipyvwd^dng^`]hf[]\XUY]U]OHEQN[ZRI=NRQRKJIJ[[VXyJ_‘œ•‘w|_WUWPKLT`kx}vjs}}C-:%4Š|sIbcM@f‹‹ki<%H;4Xf~]VNAARM?WrMGTf^?E0'IB<1#02- 2e\Rlkaigjf^bT]ikw~~–œŸ›™š›››™–eˆ|Š€‹‹“‹Œ‰ˆ„ˆƒ†~~u~Œ -m_l{xy}ztnVglr -ƒŠƒxl‹~{gGasxcZ;?SLX]]cOp|tofcPF]eTF@mgicmrxhlpeVeUT_if\cZlmjj\`[X\lkeb]Y\J:G\U\ZXBLTNKNRSOG\dXˆg<}˜•‘~Z_]TMNJ>>B\qts}zero=$3%)+06>Qd`jecabjb^cW^ppt‹—’–—žš™œšœ˜˜–”‘[hƒ’“ƒ‹Œ•’‹ŽŒ‚wyy‚ŠƒeYqz~tv -‰sWf{{{‚wtv -„|yyaWXsfe]Mb\Pd_TfWoog_XTYvzr;:`yhgeditphbeRbg[XW[HNP]c[^WWPP\ecb[UWXR>PUQWQNIUUQHQSUNJLLtB>oVOUXXcG@BR?=A[`ra[‡†“h’r=&-!B¯‡TjKVVeY6[†cD9637;ssTTLCH584KYG?31^FCO''%54;Kgnokmn___da[]hlo„”˜‘’–›ž ˜˜˜˜•ŽXaƒ“”Œ”’Ž‘ŽŒ„‚|‚‡„}‡za`oyu€†Œ~fVk„yxqnzx~ƒ{mgSX^afMZc[_rW[bQc^SbOa{xy]7Rggdgd_izsjdWZfigjZ]]TbXWdl^\\RTQSTSIKKJDYSRZNVSWXMGIKF9JRdN'>LMVM7IADLVG8WŽ„kL[q~scw3'*#QŠŽ ŽENMqlSKZVSPN.9LeH>FK[HKA+&IADGId}E40>n^B" -:,%NRgi_cnphakqtdfltsyƒˆ -ƒ€†‹”ŒŽ‘”˜‘†‡^\‚–‘™Ž’‹zx€‡€x|‰‡†‡}w{€kZdv -†~okV`dfcakmjfs’ŽjhXTY[XB_]Woc`YVSZ`]X^pwxuW_W{{pjurrprphZaYYVSb\f]^Xeeqo|jmaR]X[YNLDOXOXQXZJEDYRSHIk -d@ -!4PeeMM@N@\^chy€|qlphdaox{x‰’™“–˜›—’Š‹‰€pp‡ƒievy|„†‡ˆ‘ -‰‚xownXkslusrpnbQ^sqr€€vf{ŠŠpcnƒ~qZSmfV_RXSLDZeTpmrxhnqIvznibfqgdehpnpUMYaasrcZR[\S]e`^c[mkRXUQLIVX`SZLLDAbKNEn“‰@$ - -.@NNC9>QEDNUKQQQaJMSXid1D8`aSGW3*5O]\jru|wyx~zbWgnr‡‹”›œžž¡ ž›š–Š‚wxiˆ„ˆŽ‘‘Œ•“’—†ƒƒ‚vjpqp[syl{yk`beZmzy -„‚Š‚„u†‚i[k{€ˆWhlaUWMTLDSPTmlmoon\€vUiuvt`[\k„ƒ€rudom|rmƒtcZkdNONPNKUQQPLKOPWU]]URWKI=;XBQV‹”e)##&+B@LA4?MRFGP7K[esJQKShdt`?:F=:bfal‘LPTj`OUYdfZcWRY^E`‡‡gj_zOYJk`.(8&)LMKHODDKOQOIXQOT\GAF?YAYTb~OTL97=6BHXba=hl65I;,49.;]fsllnir‚ -‡nyzw~unt -‹ˆŸšªw™›™˜‰ˆ„‡b‹•Œ’˜‘‹’•†ljtŠƒwtnye€zMkuqtl_grvmho~†‰‚sjWVuoXHX_^OGW_hkBZpsovWrHSxhdlwyc\hkq~ -ˆx”iq[Yldf_YngXTLQVLOURMSUPLFJSTTZ[SKHGUR]<(116211;ANORO@8UQLu„s[GWcaZa],$0!$HNJHHIFS[VIOX7OPXFEECSPwunfRPEBE@;78]}`=QWDB):09PWarsiarv‚†zcuxs{y„~qeqˆ–—‹ƒ‡† -Œ†ƒkvŽ”Ž‹ƒhgn€ -|‚‡‰|]luvzromog_p‡yGRMNcgeejUSqMBb~a6;AogB^em‘wepƒvOkss~bHRrpjtx‚us -w‰{„wuƒ†k^of`lrojkilszf\oqk\SFIDXROOQYGM>.992=-)(,0AOTJNQLF3&A% 93LVU^ITQ8/#)YL=D\BEJBF87HlnRmwPfNOX_P;8KBLFKUKIOYTHJD<8::6+%%+19AE>DLFI*2@:NYPfMaKKUN:=3EX]*#5UWK7ESB?MWY]ic]a`grvttnle~‚yvx’¢£–Œm_ -‹‹ -p~~€ƒ€ekƒ†v[t‚ˆ€ƒƒ‚|v‚ƒ’–vTc‚xywsktz}dmumIGm‚fXfŒqic`NˆˆfN5BOo“Žtmmˆ‰oqbPcyvwttzQhpegilovloww{ƒukovƒy -ur‚€xnn]ifPKGRXPQWkJETOOWbQKJOC8::.)&(%'**9BLEGC,>=+-JWgRX>>:0Z5%BT>N77FFMRXO-zTCzDZG_VEe]7;1,#&'$&4=HOSMRX:HRea\<4=nL39)QH'7;FOPROORE>SBrFS\HHYHZV[]X7KD;OOLE_YS<5#(FTFTIF&F58RVSQff^gjjjkbj|p -ˆ“Žƒji{‰|qim -‚ww†‰hehg~|yxƒ}‡|z -t{]oydcz‚{vuzwwoabpooim^gk^\jSln}ƒŠZ?8>-)+&$2?RVQV`_Z\ZMQ5IRPVISJNL<. -A=>CYNbR`WVQXW\ifengWZYiu‘‰t‡’~„wˆw}‰Šj~kZrwƒŽwZTyvx‚†‰‰–‰‚ƒŽ–|pT^prhbƒ„w}~xkme^uuzofn€•\\_Q‰Ž€Œ™|PSJUn“„|uyŒ„¡›–ŽŽpwxmetxwe`ir{†ufd`auyrŠjmskYVUg\Zqcaba`acreXZLOU]PSWe_YCQHA8;-''('HMZ_^ffRN[CIfZH``JOKYR,57I>*5=;=RNJOVa€€Gl`EABCPVWI>K=DNVwc7?TI2).H*+P?S[EPDIJXrafkj[WYbsy„ˆ{YqˆŠ~o{xv†€xcw -yhZmƒ‚d_k]}ƒ†Š}hjŽˆŠƒyn`rwwub` -srhqƒ}lg~rlsmlVkhN]ƒ -js\KY@NUt„ˆ˜›•Ž~f_uedlpf`kllkjjrpnmknkwut‚||tqhT\``d^ZLX^gbUOSRLJKO9X[WRC>SDD;2'&('.JGUUpolXL\C@nK]YKSTUlN%G9&N#'8@O]ZRORAX{yhlGM89>JYT8AE37`dE53K`B.8A*'?VKGO/MOX\QcOOXYSWdgoloqmQ_gdefjs‰„‡‰yopunhV]ryŠuUuƒ‘†z€†|pz‚qer{~\_qnlasŠœ—‰m\kyu€wsakvNa‰‡xnHQG4]Tkmv€€€€kzma\ƒ{mlq|q -y„iZ^hhdzp}ntqpu‡Š€„xiulXYZNKY[SUZ]YReTRKAC]TLBJN:BB'# ((7P?_jrmdUXZFFGWg^T@FSgQ37<"-),05,/:03L/*275) -*" - -$* - -" - - - - - - - - ebQXY]qzyƒƒ|us^fwxwzvmpnldjjh[fl†dbwxkUrƒ‹ˆ‡ƒ~{u~tf|}‚|~€rbn|€m{ -}|xiX`zt{vcX[ohXc{{\jWdOLmXLUorp -~iqyX>ysqcplhzrpebkjnlms€‡wszjmp‘¢™‘ˆdt]YƒhUV`KNblYX[RNB6152 NN ) @@ -110,87 +121,169 @@ } - // Distributed buffers allocation - // The buffers containing one image are distributed in the user - // heap (one buf_in and one buf_out per cluster). - // Each buffer contains (NN*NN / nclusters) bytes. - for ( c = 0 ; c < nclusters ; c++ ) - { - unsigned int rx = c / y_size; - unsigned int ry = c % y_size; - - heap_init( rx, ry ); - buf_in[c] = remote_malloc( npixels/nclusters, rx, ry ); - buf_out[c] = remote_malloc( npixels/nclusters, rx, ry ); - - giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] completes buffer allocation" - " for cluster[%d,%d] at cycle %d\n" - " - buf_in = %x\n" - " - buf_out = %x\n", - rx, ry, giet_proctime(), - (unsigned int)buf_in[c], - (unsigned int)buf_out[c] ); - } - - // Barrier initialisation + // distributed heap initialisation + unsigned int cx , cy; + for ( cx = 0 ; cx < x_size ; cx++ ) + { + for ( cy = 0 ; cy < y_size ; cy++ ) + { + heap_init( cx , cy ); + } + } + + // barrier initialisation sqt_barrier_init( &barrier, x_size , y_size , nprocs ); - giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] completes barrier init at cycle %d\n", + giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] completes heap & barrier init at cycle %d\n", giet_proctime() ); - // open file containing images - file = giet_fat_open( FILE_PATHNAME , 0 ); - - if (file < 0) - { - giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d]" - " cannot open file %s", - x , y , lpid , FILE_PATHNAME ); - giet_exit(" open() failure"); - } - else - { - giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] open file misc/images.raw\n"); - } - init_ok = 1; + // diplay disk content + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_fat_list( "/build" ); + giet_fat_list( "/build/kernel" ); + giet_fat_list( "/build/transpose" ); + + global_init_ok = 1; } - else // others processors wait initialisation completion + else { - while ( init_ok == 0 ); + while ( global_init_ok == 0 ); } - ///////////////////////// - // Main loop (on images) - while (image < NB_IMAGES) + /////////////////////////////////////////////////////////////////////// + // In each cluster, only task running on processor[x,y,0] allocates + // the local buffers containing the images in the distributed heap + // (one buf_in and one buf_out per cluster). + // Other processors in cluster wait completion. + /////////////////////////////////////////////////////////////////////// + + if ( lpid == 0 ) { - // pseudo parallel load from disk to buf_in buffer : nblocks/nclusters blocks - // only task running on processor with (lpid == 0) does it - - LOAD_START[cluster_id][lpid] = giet_proctime(); + buf_in[cluster_id] = remote_malloc( npixels/nclusters, x, y ); + buf_out[cluster_id] = remote_malloc( npixels/nclusters, x, y ); + + if ( (x==0) && (y==0) ) + giet_shr_printf("\n[TRANSPOSE] Proc [%d,%d,%d] completes buffer allocation" + " for cluster[%d,%d] at cycle %d\n" + " - buf_in = %x\n" + " - buf_out = %x\n", + x, y, lpid, x, y, giet_proctime(), + (unsigned int)buf_in[cluster_id], (unsigned int)buf_out[cluster_id] ); + + /////////////////////////////////////////////////////////////////////// + // In each cluster, only task running on procesor[x,y,0] open the + // three private file descriptors for the three files + /////////////////////////////////////////////////////////////////////// + + // open initial file + fd_initial = giet_fat_open( INITIAL_FILE_PATH , O_RDONLY ); // read_only + if ( fd_initial < 0 ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot open file %s\n", + x , y , lpid , INITIAL_FILE_PATH ); + giet_exit(" open() failure"); + } + else if ( (x==0) && (y==0) && (lpid==0) ) + { + giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] open file %s / fd = %d\n", + INITIAL_FILE_PATH , fd_initial ); + } + + // open transposed file + fd_transposed = giet_fat_open( TRANSPOSED_FILE_PATH , O_CREATE ); // create if required + if ( fd_transposed < 0 ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot open file %s\n", + x , y , lpid , TRANSPOSED_FILE_PATH ); + giet_exit(" open() failure"); + } + else if ( (x==0) && (y==0) && (lpid==0) ) + { + giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] open file %s / fd = %d\n", + TRANSPOSED_FILE_PATH , fd_transposed ); + } + + // open restored file + fd_restored = giet_fat_open( RESTORED_FILE_PATH , O_CREATE ); // create if required + if ( fd_restored < 0 ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot open file %s\n", + x , y , lpid , RESTORED_FILE_PATH ); + giet_exit(" open() failure"); + } + else if ( (x==0) && (y==0) && (lpid==0) ) + { + giet_shr_printf("\n[TRANSPOSE] Proc [0,0,0] open file %s / fd = %d\n", + RESTORED_FILE_PATH , fd_restored ); + } + + local_init_ok[x][y] = 1; + } + else + { + while( local_init_ok[x][y] == 0 ); + } + + /////////////////////////////////////////////////////////////////////// + // Main loop / two iterations: + // - first makes initial => transposed + // - second makes transposed => restored + // All processors execute this main loop. + /////////////////////////////////////////////////////////////////////// + + unsigned int fd_in = fd_initial; + unsigned int fd_out = fd_transposed; + + while (iteration < 2) + { + /////////////////////////////////////////////////////////////////////// + // pseudo parallel load from disk to buf_in buffers: npixels/nclusters + // only task running on processor(x,y,0) does it + /////////////////////////////////////////////////////////////////////// + + LOAD_START[x][y][lpid] = giet_proctime(); if (lpid == 0) { - giet_fat_read( file, - buf_in[cluster_id], - (nblocks / nclusters), - ((image*nblocks) + ((nblocks*cluster_id)/nclusters)) ); + unsigned int offset = ((npixels*cluster_id)/nclusters); + if ( giet_fat_lseek( fd_in, + offset, + SEEK_SET ) != offset ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot seek fd = %d\n", + x , y , lpid , fd_in ); + giet_exit(" seek() failure"); + } + + unsigned int pixels = npixels / nclusters; + if ( giet_fat_read( fd_in, + buf_in[cluster_id], + pixels ) != pixels ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot read fd = %d\n", + x , y , lpid , fd_in ); + giet_exit(" read() failure"); + } if ( (x==0) && (y==0) ) giet_shr_printf("\n[TRANSPOSE] Proc [%d,%d,%d] completes load" - " for image %d at cycle %d\n", - x, y, lpid, image, giet_proctime() ); - } - - LOAD_END[cluster_id][lpid] = giet_proctime(); + " for iteration %d at cycle %d\n", + x, y, lpid, iteration, giet_proctime() ); + } + + LOAD_END[x][y][lpid] = giet_proctime(); ///////////////////////////// sqt_barrier_wait( &barrier ); + /////////////////////////////////////////////////////////////////////// // parallel transpose from buf_in to buf_out // each task makes the transposition for nlt lines (nlt = NN/ntasks) // from line [task_id*nlt] to line [(task_id + 1)*nlt - 1] // (p,l) are the absolute pixel coordinates in the source image - - - TRSP_START[cluster_id][lpid] = giet_proctime(); + /////////////////////////////////////////////////////////////////////// + + TRSP_START[x][y][lpid] = giet_proctime(); unsigned int nlt = NN / ntasks; // number of lines per task @@ -233,85 +326,80 @@ if ( (x==0) && (y==0) ) giet_shr_printf("\n[TRANSPOSE] proc [%d,%d,0] completes transpose" - " for image %d at cycle %d\n", - x, y, image, giet_proctime() ); - - } - TRSP_END[cluster_id][lpid] = giet_proctime(); + " for iteration %d at cycle %d\n", + x, y, iteration, giet_proctime() ); + + } + TRSP_END[x][y][lpid] = giet_proctime(); ///////////////////////////// sqt_barrier_wait( &barrier ); - - if ( USE_FBF ) // external frame buffer available - { - // parallel display from local buf_out to frame buffer - // all processors contribute to display using memcpy... - - DISP_START[cluster_id][lpid] = giet_proctime(); - - unsigned int npt = npixels / ntasks; // number of pixels per task - - giet_fbf_sync_write( npt * task_id, - &buf_out[cluster_id][lpid*npt], - npt ); - - if ( (x==0) && (y==0) && (lpid==0) ) - giet_shr_printf("\n[TRANSPOSE] Proc [%d,%d,%d] completes display" - " for image %d at cycle %d\n", - x, y, lpid, image, giet_proctime() ); - - DISP_END[cluster_id][lpid] = giet_proctime(); - - ///////////////////////////// - sqt_barrier_wait( &barrier ); - } - else // checksum by processor(x,y,0) in each cluster - { - if ( lpid == 0 ) - { - unsigned int success = 1; - unsigned int start = cluster_id * nlc; - unsigned int stop = start + nlc; - - for ( l = start ; l < stop ; l++ ) - { - check_line_after[l] = 0; - - for ( p = 0 ; p < NN ; p++ ) - { - // read one byte in remote buffer - src_cluster = p / nlc; - src_index = (p % nlc)*NN + l; - - unsigned char byte = buf_out[src_cluster][src_index]; - - check_line_after[l] = check_line_after[l] + byte; - } - - if ( check_line_before[l] != check_line_after[l] ) success = 0; - } - - if ( success ) - { - giet_shr_printf("\n[TRANSPOSE] proc [%d,%d,0] checksum OK" - " for image %d at cycle %d\n", - x, y, image, giet_proctime() ); - } - else - { - giet_shr_printf("\n[TRANSPOSE] proc [%d,%d,0] checksum KO" - " for image %d at cycle %d\n", - x, y, image, giet_proctime() ); - } - } - } + /////////////////////////////////////////////////////////////////////// + // parallel display from local buf_out to frame buffer + // all tasks contribute to display using memcpy... + /////////////////////////////////////////////////////////////////////// + + DISP_START[x][y][lpid] = giet_proctime(); + + unsigned int npt = npixels / ntasks; // number of pixels per task + + giet_fbf_sync_write( npt * task_id, + &buf_out[cluster_id][lpid*npt], + npt ); + + if ( (x==0) && (y==0) && (lpid==0) ) + giet_shr_printf("\n[TRANSPOSE] Proc [%d,%d,%d] completes display" + " for iteration %d at cycle %d\n", + x, y, lpid, iteration, giet_proctime() ); + + DISP_END[x][y][lpid] = giet_proctime(); ///////////////////////////// sqt_barrier_wait( &barrier ); + /////////////////////////////////////////////////////////////////////// + // pseudo parallel store : buf_out buffers to disk : npixels/nclusters + // only task running on processor(x,y,0) does it + /////////////////////////////////////////////////////////////////////// + + STOR_START[x][y][lpid] = giet_proctime(); + + if ( lpid == 0 ) + { + unsigned int offset = ((npixels*cluster_id)/nclusters); + if ( giet_fat_lseek( fd_out, + offset, + SEEK_SET ) != offset ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot seek fr = %d\n", + x , y , lpid , fd_out ); + giet_exit(" seek() failure"); + } + + unsigned int pixels = npixels / nclusters; + if ( giet_fat_write( fd_out, + buf_out[cluster_id], + pixels ) != pixels ) + { + giet_shr_printf("\n[TRANSPOSE ERROR] Proc [%d,%d,%d] cannot write fd = %d\n", + x , y , lpid , fd_out ); + giet_exit(" write() failure"); + } + + if ( (x==0) && (y==0) ) + giet_shr_printf("\n[TRANSPOSE] Proc [%d,%d,%d] completes store" + " for iteration %d at cycle %d\n", + x, y, lpid, iteration, giet_proctime() ); + } + + STOR_END[x][y][lpid] = giet_proctime(); + + ///////////////////////////// + sqt_barrier_wait( &barrier ); + // instrumentation done by processor [0,0,0] if ( (x==0) && (y==0) && (lpid==0) && INSTRUMENTATION_OK ) { - int cc, pp; + int cx , cy , pp ; unsigned int min_load_start = 0xFFFFFFFF; unsigned int max_load_start = 0; @@ -326,23 +414,36 @@ unsigned int min_disp_ended = 0xFFFFFFFF; unsigned int max_disp_ended = 0; - - for (cc = 0; cc < nclusters; cc++) - { - for (pp = 0; pp < NB_PROCS_MAX; pp++) - { - if (LOAD_START[cc][pp] < min_load_start) min_load_start = LOAD_START[cc][pp]; - if (LOAD_START[cc][pp] > max_load_start) max_load_start = LOAD_START[cc][pp]; - if (LOAD_END[cc][pp] < min_load_ended) min_load_ended = LOAD_END[cc][pp]; - if (LOAD_END[cc][pp] > max_load_ended) max_load_ended = LOAD_END[cc][pp]; - if (TRSP_START[cc][pp] < min_trsp_start) min_trsp_start = TRSP_START[cc][pp]; - if (TRSP_START[cc][pp] > max_trsp_start) max_trsp_start = TRSP_START[cc][pp]; - if (TRSP_END[cc][pp] < min_trsp_ended) min_trsp_ended = TRSP_END[cc][pp]; - if (TRSP_END[cc][pp] > max_trsp_ended) max_trsp_ended = TRSP_END[cc][pp]; - if (DISP_START[cc][pp] < min_disp_start) min_disp_start = DISP_START[cc][pp]; - if (DISP_START[cc][pp] > max_disp_start) max_disp_start = DISP_START[cc][pp]; - if (DISP_END[cc][pp] < min_disp_ended) min_disp_ended = DISP_END[cc][pp]; - if (DISP_END[cc][pp] > max_disp_ended) max_disp_ended = DISP_END[cc][pp]; - } - } + unsigned int min_stor_start = 0xFFFFFFFF; + unsigned int max_stor_start = 0; + unsigned int min_stor_ended = 0xFFFFFFFF; + unsigned int max_stor_ended = 0; + + for (cx = 0; cx < x_size; cx++) + { + for (cy = 0; cy < y_size; cy++) + { + for (pp = 0; pp < NB_PROCS_MAX; pp++) + { + if (LOAD_START[cx][cy][pp] < min_load_start) min_load_start = LOAD_START[cx][cy][pp]; + if (LOAD_START[cx][cy][pp] > max_load_start) max_load_start = LOAD_START[cx][cy][pp]; + if (LOAD_END[cx][cy][pp] < min_load_ended) min_load_ended = LOAD_END[cx][cy][pp]; + if (LOAD_END[cx][cy][pp] > max_load_ended) max_load_ended = LOAD_END[cx][cy][pp]; + if (TRSP_START[cx][cy][pp] < min_trsp_start) min_trsp_start = TRSP_START[cx][cy][pp]; + if (TRSP_START[cx][cy][pp] > max_trsp_start) max_trsp_start = TRSP_START[cx][cy][pp]; + if (TRSP_END[cx][cy][pp] < min_trsp_ended) min_trsp_ended = TRSP_END[cx][cy][pp]; + if (TRSP_END[cx][cy][pp] > max_trsp_ended) max_trsp_ended = TRSP_END[cx][cy][pp]; + if (DISP_START[cx][cy][pp] < min_disp_start) min_disp_start = DISP_START[cx][cy][pp]; + if (DISP_START[cx][cy][pp] > max_disp_start) max_disp_start = DISP_START[cx][cy][pp]; + if (DISP_END[cx][cy][pp] < min_disp_ended) min_disp_ended = DISP_END[cx][cy][pp]; + if (DISP_END[cx][cy][pp] > max_disp_ended) max_disp_ended = DISP_END[cx][cy][pp]; + if (STOR_START[cx][cy][pp] < min_stor_start) min_stor_start = STOR_START[cx][cy][pp]; + if (STOR_START[cx][cy][pp] > max_stor_start) max_stor_start = STOR_START[cx][cy][pp]; + if (STOR_END[cx][cy][pp] < min_stor_ended) min_stor_ended = STOR_END[cx][cy][pp]; + if (STOR_END[cx][cy][pp] > max_stor_ended) max_stor_ended = STOR_END[cx][cy][pp]; + } + } + } + + giet_shr_printf("\n ---------------- Instrumentation Results ---------------------\n"); giet_shr_printf(" - LOAD_START : min = %d / max = %d / med = %d / delta = %d\n", @@ -369,23 +470,62 @@ min_disp_ended, max_disp_ended, (min_disp_ended+max_disp_ended)/2, max_disp_ended-min_disp_ended); - } - - image++; + + giet_shr_printf(" - STOR_START : min = %d / max = %d / med = %d / delta = %d\n", + min_stor_start, max_stor_start, (min_stor_start+max_stor_start)/2, + max_stor_start-min_stor_start); + + giet_shr_printf(" - STOR_END : min = %d / max = %d / med = %d / delta = %d\n", + min_stor_ended, max_stor_ended, (min_stor_ended+max_stor_ended)/2, + max_stor_ended-min_stor_ended); + } ///////////////////////////// sqt_barrier_wait( &barrier ); - } // end while image - - // Processor[0,0,0] releases the Distributed buffers - if ( (x==0) && (y==0) && (lpid==0) ) + // update iteration variables + fd_in = fd_transposed; + fd_out = fd_restored; + iteration++; + + } // end while + + /////////////////////////////////////////////////////////////////////// + // In each cluster, only task running on Processor[x,y,0] releases + // the distributed buffers and close the file descriptors. + /////////////////////////////////////////////////////////////////////// + + if ( lpid==0 ) { - for ( c = 0 ; c < nclusters ; c++ ) - { - free( buf_in[c] ); - free( buf_in[c] ); - } + free( buf_in[cluster_id] ); + free( buf_out[cluster_id] ); + + giet_fat_close( fd_initial ); + giet_fat_close( fd_transposed ); + giet_fat_close( fd_restored ); } + // display disk content + if ( (x==0) && (y == 0) && (lpid == 0) ) + { + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_fat_list( "/build" ); + giet_fat_list( "/build/kernel" ); + giet_fat_list( "/build/transpose" ); + + giet_fat_remove( "/home/lena_transposed" , 0 ); + giet_fat_remove( "/home/lena_restored" , 0 ); + + giet_fat_remove( "/home" , 1 ); + + giet_fat_list( "/" ); + giet_fat_list( "/misc" ); + giet_fat_list( "/home" ); + giet_fat_list( "/build" ); + giet_fat_list( "/build/kernel" ); + giet_fat_list( "/build/transpose" ); + } + giet_exit("Completed"); Index: soft/giet_vm/applications/transpose/transpose.py =================================================================== --- soft/giet_vm/applications/transpose/transpose.py (revision 588) +++ soft/giet_vm/applications/transpose/transpose.py (revision 589) @@ -4,5 +4,5 @@ ################################################################################## -# file : transpose.py (for the transpose application) +# file : transpose.py # date : may 2014 # author : Alain Greiner @@ -26,6 +26,6 @@ ################################################################################## -######################### -def transpose( mapping ): +###################### +def extend( mapping ): x_size = mapping.x_size @@ -54,5 +54,5 @@ mapping.addVseg( vspace, 'trsp_data', data_base , data_size, 'C_WU', vtype = 'ELF', x = 0, y = 0, pseg = 'RAM', - binpath = 'build/transpose/transpose.elf', + binpath = 'build/transpose/appli.elf', local = False ) @@ -66,5 +66,5 @@ code_base , code_size, 'CXWU', vtype = 'ELF', x = x, y = y, pseg = 'RAM', - binpath = 'build/transpose/transpose.elf', + binpath = 'build/transpose/appli.elf', local = True ) @@ -118,5 +118,5 @@ if __name__ == '__main__': - vspace = transpose( Mapping( 'test', 2, 2, 4 ) ) + vspace = extend( Mapping( 'test', 2, 2, 4 ) ) print vspace.xml()