From 3f2c835a397bd4e037fa614a58c7e5993af4727d Mon Sep 17 00:00:00 2001
From: "farhanjk@gmail.com" <farhanjk@gmail.com>
Date: Wed, 1 Jan 2014 12:51:05 -0400
Subject: [PATCH] Criteria Pattern Completed

---
 README.md                               |   1 +
 structural/criteria/criteria_main       | Bin 15496 -> 24280 bytes
 structural/criteria/criteria_main.f90   |  59 ++++++++++++---
 structural/criteria/criteria_module.f90 |  94 ++++++++++++++++++++----
 4 files changed, 132 insertions(+), 22 deletions(-)

diff --git a/README.md b/README.md
index 3832a20..4135831 100644
--- a/README.md
+++ b/README.md
@@ -18,6 +18,7 @@ Tested on: GNU Fortran (GCC) 4.8.
 - [X] Adapter
 - [X] Bridge
 - [X] Composite
+- [X] Criteria
 - [ ] Decorator
 - [ ] Façade
 - [ ] Flyweight
diff --git a/structural/criteria/criteria_main b/structural/criteria/criteria_main
index 403fe4910de4e63301488b64b28daf28b513527d..9efbf5e16e00c68171fe3efa6140739ba431680b 100755
GIT binary patch
literal 24280
zcmeHPeRLbul^@xf#QC&=hBa*|DkUZ1!*LQTUto}vs7$~Clf>Hqfr)I(*wnUMNrpIG
zz~HE5s?1_q5<a)}cG=UMB`xljwr*NBYRE>;HcK7aLZBQrrwc{k0D)~6!U3|sd*7SU
zXe2uhZTIkpC(*oj-@Ets?z`{KeIFz1SMR<4;bcYe6e~(kk)kN4;WLPWgyKU^QO>|e
z!$;TaYAy?28(ec0mF8ZaT(TfVICIc|uCEKOUzf|m@`2nkMbc13QSq51t93md-V~Pv
z5;tC3DLRAl<+BA3(K(k_>2cD!9*cK1#OxwB-uJ5n-j$NWqAh_EiI>%n@bs2&TW2^5
zCO6*u67L%lfM~M2edX!b7>h?+J8qN=ZoEFf&@UntAR1$7Upd$))%C_mM=WbVH=c5_
zz<bm}08REE?b7vdi{2a!wTA_V8*f13X;LYoo%*?P$xk-1pRBA|SL3J+2)&dtSq7Rf
zNt2%tE~RwodPkcc>uzs|wCSDkDCoj?799DTQ!g^-3<8puuD6B8!Yd01{aPeH(M~+l
z%jt^w<B+RgkA){6E~3XCho(?Gghu3**WcwrzktO6dThLgSPZ^tU2eR9#H+Iyka`_?
zskU9B>%d!JlX>IOC-IyZMOk)!rX3{YH%Ii&E<&xOa<_i>N<8NnIOW~?W#e4!sw=Mu
zu3WWFa-)OHYdMPS@S&Nap2pRQbvEKCD+IoB)RoIrqA8W2H$tHAYDKvV9i%=IUkdHb
zM;chKDEGtprXdejzNX?%AJXx2_{gS_%fE)ds3@P#FJ>7Z%BSNquPYXv*VfuFuc^DO
zN%DRQDe3Y0FYkNy*uG1*_T2a2{tcyj{&)_`%7|wQG{EOPi>5MMbI@Ost3HcK`$p|-
z#E0srkHR~=vh7G?sBPYga9dj_I`78jNHiV|b<C@(SW>YdOOk^4Sk)B^E1+&`17nGP
zEJ5DF_jtYs*YRZg2G+IRv3R(>V!2b0^jhzb6QgIzos3?Mje4wNzJ;CNU-F8NfcxdH
zP*Zy--cnI%K?6roK93KLLpl7!hjgx_mq<T7-$CDn{KPe3fe8ytSYW~e6Bd}Tz{kS^
z^_uarcE^!^tcSF;dYfDgBiozJ?y$0^`il#|XQ<yn33$Gpt=J(d9uO7VvlVxXiat?c
zW-D$M6<-q-Te20`iwe>OZA`N&(rTHV4Gxp_v~;ka(m}c<Ql;Bcr9Vy?souk$L@IuY
zW>&A5Eh{svSTkzLV87;OJ4-WX>0r}Lf0&c%?Y7V|2<@hWhRjA1Hy|z{?sc{_9W5CU
z%6y20FmxK2iv>Q?6s@+94$;01>7b-{9LJ@Z!M?PzCejdYP6xcvIMG^fYEoM9;o28`
zuzg?fp_rCjO>OSb%sP)|3~Qd0<{8$0akxnH3~9;wKFugg*57Z`l|Z~Fty~^y>7X2d
zyaI^83GVBFOSU`UiVDE>Fx*`Xm*|9&X{9#Q72Ox`hBT840IW(4fx9oU8BERl5??{$
z1TW49-$r<ZziksTqKS>jrInSfp$^#u6}X$Y31w*FOGupN@D^x-#i@xFFpDPYkV`A8
zTfY=W4~WP!P2yUVw(m<^hs4={TA%?2pa#~1Su_wpF0Cw&G&G<O-Drdg+<mwlWoY6G
zB+e!#6=;IRsR<3t)I?HUJrC|v$ZwaDznT8;olQygB2fG!WbXVd{Fa<8vjaKJP^S?>
zQuRupJn#J_5HbPcHPzi0vdG~IrhY(FGElB1XYAvWZ9>7PG~?Oh!@%sP(n87|V6FUR
zLb?4&gmN$YEaj#N<!&H^r20h(l&4$;Dfds1f^xqXp<yAbqW*>`q1+i<;#Q9N3Mr?v
zR{j`wxq5@GoMtQ6K@A$}Tik#3HA(=Kr`$b2$V?K-slsymC^6M{vdZn`61Q@<QE4*Z
z)6Du|&BSwVJcUu*h*B8VRFANA5-lIVzY?9e({3xB*oa&Y=bDh?$YOG#W~4I@VZ#d-
zB%WQO%0B=xs@j^ZBJvg{gTs`cj9s*rL_U$~qHwr{t>XWCVVuX1h><&=WQY$kt0<qA
zVK}LNM|9TJmn|sezWCgILB)ys@~h9F1=*Jpu*1<`qX3P@Q`ssaA7xVLb<q^CIQlZ^
zW63?7RFlVvzUU+)`*JJgvwgV@+tz{}{kFimgiTld4k&?j8sx>}wv><z^<qLus(uNS
z=QJCDkU4lJm`t?}hZhhzg?LSMIZ?u+-=VDOcAB@Sw2(*F3+4WiG%&00w3WLV%?RZl
zrUni5F>XTLA%XIg+YN+Fl~8UWF&XL>N=$V&OL8o@iA&tdF<&9&%7t=Xq1-H6x#w^y
zv>TL?IgT7!68%>%BKSg&+u5YteZ-qoPba1{geeJ-i%`nvLP*P*Hr38KD8_R<7m2Ah
z5XJVL^(>Vb&%jtFavaMJP*L6!`F&Ass@IbGhU1CEvG$3)cnaw%y?6#`X!<Xps13J$
z564@wipZCl6kgnghgWlW@!LEc{`Wbl{s4Li&wGGmq!<5$@>wrFL_IAu7B5jRO#dcU
ztol_OYc=GBqr?cwP`9(K)Vn26o}+9BLS`EAn(9<yGSn|oVyf?-i$r+w)m-9slq)1=
z&Vr3X&t*cn-!W=++*WSjla_MNAcvNw5JFNdl0bRN9Rot9gLqB#dmIAQ7fCBq{WeiT
zxxHNCR_+ZdEo8Z=Lb*$Xa+7W4P9x=f7~ITKq1;aHzxvM-C{MW!q})NAoT3Lk#FU0G
zC8K)rO`;3e5wodou)8p;hDz9rUqK;z@gge9^Wt)paxA`=)OULEC20Bt^U4a+ReJHM
zq^aqT`3NSRsmfLnc@~qxiytcni^GdAV8i(r3H!YX_Yq$FYdovW2l=-sZ+mgD9|OU2
z($5*!{~nKM_3v!i`-E&iwf!R@+YbfFvZs@kq<AUI`F|$F_uAs?SzH~F6HAN{)I%T{
z#8eMbus77Fi6N=}kP-=bL}=6^ARn+HRRMXIg!Bo>t}Ntj0x}{X`y7z_1>`IN*<nNe
z>)&weygxxd|C7kHx+V+BGqa)A3dj#=vm&+pmgx8%My_6AL+S$ZY2MeQGn)nEZjiF$
zhsfCt^{2#;RG)W17K>qw2*`39a=L(gOhTS3ARo>`CIsYmh78is#;0T4dF+mzj&{<)
zer{d(3|I1E;{{PE_Iye80}7xJE`?%m$zb|ZW>H@RDInBW99+MXT;CL2Ls_m<M8_CQ
zm72E`S5p0h1K@cHutrq<%u)52tXeFp`W#hTWYwodRoGE=jjZyBs;Q2u4{2?RVgAD`
zGKo3@Qg-Q&R3kf{kz6Uk^;^lc|4H7^_Z}%TZhc=fx{hL(cr+PA_8CA%h}rZXz?kix
z4A4vy3NpvuJbrwTnh?TkaU8Ith;(>jJr<H$G9i+>IUH5y?x9^vZ_2ZawMwM4Qf-g%
zWIA}ngMy{kA1S^2e3G`ru!FGxN|M1N+Wne`5puS&=8Qh*BoK{#yQcyv^T;Q7Q@<q*
zTm-#m$={5`5L8MhhH>8mrgS2OTo32=A~y*+&E!HdVG<B_^Cwos{Dem{gZ-<FgEfPs
zf@aR3Nm?wWp%$$zGN%!yS>F%Nfm(CMe}O@A8wYn0hXzhObxP({d~e|-TE~vw)TRP@
z0MNs$jQus@zyPoWN3dv1$$W!gdC$NLedrKo9XK$9nV5(f8wn*7{s=lu!?KgM5HMsP
zk{nG4l)$mwQZgm1iAhY-=)0(#HZm~&C%M)h3l$`J2hWDR@D@ZU_0`{!>>Yc_->$pf
z_Fc`m^<Ck-K{&AG^CA!A1L&%j1er!_GMfyP(W6nu<wSt*5t~mg3rXgp;Jd8Dkl?I;
zS4%F?j7lvTEzyilI7t+;oxoXBt{HXZiT$OCCq*ORWK}dsA|EJ82E1@*Sc5!2Q%S8E
zdl=RrJ(vf4<@5|{$*D+CbSj$%o9B^f%xd?6*tri^NZImS{NYm^_;pqT0Jj>r9A(tP
z8gxMH&qpY}!c3z3;_<FoM-O;Eb;)>w4oWoRM;kfeQw;>+0n|}2?xB<egL^eZXKSxO
z9j?sGAjOiw0oXtH2#!{C7g2yS{Zq&|X7zGVLg+<2D!ZqnfsB{?1#t<Hw_LgqvYGFI
zA3CMv+1fCf9P}ZX4#{*7JrTjotqkeB(AN1Hf=lA0%*{qR?-yaRo)j~yp8_RxKF`*<
zj>HX!ONcz3yCIu-qm*^*lREcH9e2p|ewp4yIwMf<V8F%TS@`%gagN0vbCAPAQV!Iw
zXr1R^Cm(RKo14qP59LfTuum~RommMFE=?R6Yh-7jbE3lwsRIb#S;@Q=`ymd8{<&lj
zv-){ZLiEF#*7%-7AoN@a9C|dIh<T>F1W=hDLfqnm`?3Y4SUTWi!`bAVT(UfuEMe;+
zSZm1>&0ralOa?Pc58Zw>j!Gd>KM1nGl*Kc}>WrnK2zW;^XRx%0amo5j?;ej)pFyB2
z8hK2kbJ;Ofs4@1YgO&~}mmV&?`x+>eR=X*p<FZ;C6C`&gPO#W&G+cjI;huPYVZ&D1
zxw?{3X6mE6cwR)v<0;yMEiHOCJ+1y0QxsWm<n;U)Pp894^(WxyJ&LFwZ^^bZhdp<0
zp(O=Y7)Ijn*z?BHpGU$JeA2;q_Gz5LgF$9w4|9%&`s#N-q-OyG0(B@x_Rw_Eg>Ynr
zJ(N*A<H`Z5TrVmIcp&cB+mH0RnhoQgvd$p!aZFinO|$s^Kc=i(sWo~uF-iP2rmQoa
z_#b`B(t3~7VM#EAB|%Cv>IX4M!!!;YY1{#v;`|k8SA?N2!%xw@;ev5~9S1FcJ85ZF
z|1BsXv>ZZWZfYTM1L6`QFIe3J*~}#3N(T?iIDeEL1kmrwlpkr(hd2@?gF_UB?I2$d
z5^DmA@MwlQ$l*OWXvON^jMdW+nifib4Gs@AEwQ{nJ&(e$>F*(3&FXtV3AuX6iOzn7
z5ZD_Ag*RAOdA)uJAel0&K|4O9aXUD3UPfll%dpIO5tD68$oWfHf+jD-U7UyyV;Ms;
z7mr?cH~3Tu)RZ0|w>xsVD4xc(aF-=;mqTzDKoF`hIXopXrZGQ(9too?qc*Z)dB*%b
z0w0XIkW64!w_&mpawU)x#;hO&HYVH_J+f8EGv<{5$vlbe7&B#!Ipi=V<t<}U-ZCcT
z*_fC(=!pOX40fV<F1u6PYRi;J(UMUj{}8r((@KA=Tpa6KiJ63=GiF9^?gXOtTnQ71
zi85VWXe$t>Sl_#MiM0>-3k~X}u&fxIFm{K~82&)Z`23~n42sdF{{|Wgvzmrc$Ss7N
z7}RSBVO)dS4Uo(ms%-G%Jg8G?P@Dh!L46z1E`RR-D-G&Ru&fxIKCiU#D1*9$<DK82
zp)jjYwI_xfASVWO3n7eaP#*zE<_xRBkNu#w|M`Q87Y-*LR0_E35pXeUbPXWj?m%=-
zL69D{fuuOq!Skl=(He&|?5A@g;A9@gkqb56xgiAHu05c=bBrF)Z#lnYF?o<?(-D=~
zF<OWugZ1K?r7hi8df%wbW)+2BC}KfkSvPqX={ItkX8cF)J9uM{anv0fXhm@h2Nc5L
z&f>$ZV5(pUd5)sK>Hic09E4r~C4^{6fQEMQihz#HR-y;#%oM^hfRz+@IhLWXl`H^I
z=DQ?}2~RFB4l@Y%h)y36g&o^qxx^T(#p8g*Ky8w~L4Y|oS?8-wu0}&xMG4WyL$&6$
z$Av~qpTGT5&78jMa?|_C%gJ8G5P#KVh`wsF%AAhxo*d<Zqf}6fqq}6KX3WPL#;7UL
zu*(_wxoCv~E1%cXL<mD%E(}p@8{!q=7QC{60g9+=q+goGLuC0urUO}08|F!8Ua+g`
zQ#_esPUo*iV8vw6va%j?eH~U2^@oxAkY<q1akwFnEIUvNXBcHum&A8%z-mmTzAYzS
z8fad8py_nxYEs2=@7}%ZF<Bj-y#Z0>`0N|_zLD<@d~f1=Gv8bIeiPr@_};<yPQFL^
z9>=}bJX1wdv-bGxKOuDWwUAw2{R76e#YedpD0eC4o~GP2lpCVlCd&OA<sPKm<CJ@x
za{ofPgOuy1+z92iQ*J7Z|LRuCRZ;Fv$}OkdCdyq&xenwMWmQK!d}BE3i`*QJHn&A?
z@!irA?(pI3@{L_>p*a2y$QN%3`$FxJu8z1b((G#ww@0GgzIenJYHP#S*W+OYe|Qwb
z-}s<yTs3ig1-?@VW_iFI4TqY#ZJ{RL&7o*(sG%+FJ9l>MT$1y(wRVJk3#zD<=2lcR
zMqA@yFzM}~){ctirIm~?T5XMV_-=`GwKe&|n;OI6CQGlj*7nx8(%2qq3$r>l?!pCQ
z;5IggEeT7Hg$u{xkHIja1)F~?z4Ln#>5Au=&9WOAc4e@pw)UzOHS2=Dt`5t}O)fiC
zRgR$_kAtvh)uJ)@LLE)IrJFF9ZLg}OW5_x1{bT9Thz4A^{`up?^^d_9iMrLc_4Y3r
zL(Zx9Sp92^M5Wp`?xL~!>A+nymLE9z#u^tV-{SH0XVEzOy=bg{JK9}5&i*bw!FXEk
zrME|#y4u3lV~my*3KZfY2t}iz?)g+^+k3vhkfJUO7s3Lke8B<B%G(bhx9w<mQ6Yn8
z<y=i>^)2{7X639nF~6#igB0K^7zhjSRTgrje7+@x{3FXo-IA8zVX*tPcx-iT8LNMb
z$5uyKjmR8Z_63f&v1MyHj`~EQB(943tZJyT5})H(X;>F#E<TL3Xm|SbnJ-`^KaT54
z{0ZqY-vz$Q!W~WFDCJgTMv8~pd~4&Ocvozhk3n$g&6j8M8pX4z%u_afa!DVQs6r`T
zYbp=ZRE_H(4qf>2l7=(OzFOoZt!GT~9zYF*L@mp$L*D;;Ay+NSl{~p6sL9HmNRP86
z-tAa+@|A~28uS)>qhJ6m=}&sJz9jV6NNUrSCwCocvU*$$7CKqD=Vc+c*0Oe<99B5W
z*5Y2TcO_VC0BZLDK99V1a_y2FHF01>$oWR?=chym!A}>-T@1O$Ul(#X&JkChzBsDM
zs>yP3$bDVP(VJ?%^5n<>u<H|GkapdP>=}6RPS?q__Y&mZd_%~cOnaY3k8e9F<W8o&
zb&y*p<xZx(t&scgw?uoz*0VX9U1)b@kG`~_Bbn|O&-3Xr^~v-+nO4d45}9f;T_e*C
zGHsS=r%X4?bc;+KO>%Z49N8LDDi|+a+|;D{9Q-{2fwOatNT;8diwoAA>%(Vn<7Tb)
ztiK!fR0z3JndS&Nh~qza3I@&UyKT9UduE<UUy`XqBquxT!NVROO04$#148cDXGKb1
zUUAw5tU1?v1AOFd%Ws$MUvPntTPD*Sp#p@}zEyRyv?Vu@PFP^V0uvUPu)u@`CM+;v
zfe8ytSYW~e6Bd}Tz{k@9r<`4O{qi1f$-0%+zn<a}ym>n{KtB$}KaQt2w9=8Ba&=Vc
zQ=(<31a#f{Q6~JD9Gz2!!N<Q*hx&3?eFxr2IjVg*)sdJUjz)3155YM(HBr3ZYHbf^
zt1CyZ)<bauSdzmL3&-_P^u`#~1oCPkcqK;f$WW=}R>t*P=sg$J)D^7Jn<5=ty*{U!
ze!?o&9LAfFmQXa*h&N?fppB;nbiBgD`#FMb0o5E0Ge#%!c-19p*h4(JqAEqYQbupt
zlz>vy-lB&$g&Vu#Vf?CKhz8<f`)!Ln#n)F~wNh7tMF1#Pp1>cO6?ZE2x~_D$hr@B@
z!6Kyyqa$B%i4)>@7hVa9>^2-3y+<;Qk<RWsWF_snIUZ`rFMqJODcr2LcC^Ox>)tI^
z)T^S_s|ICTQB6maO}$<u4wmhLcZ$UMvR!aTF&#kLWD*J<TY;aei)0})MR=8EbG%(7
zUI5w!?-z+Th<3qOi(%y~WFH`(`vQ!$^J?6-uA|&~+;-9Jjt#ioO}A%s++L#FqmB3p
z$`$ejsPaF>&JI28b?JY|o1_1WUWYAS^16Ee8qTE;<At*7gxu#8IpD@Wnv4IxZpin&
zUZv*_4}OoYpYJKY_uNS(DZcmga-Q$^CMds+@7r+~*OAX0JgfS+_i)j#ryefq_s&cg
zi~q7(dGE#PbkMp5AM3=Ksz{uUc*zy%vQHzC-vAjZ!^s@;(H{^I-!#WhwSiQM$IC~|
z1TYh=((imy<8;bB6B<>@^F;bS_e?5WF6wcd$Fxt<0iy9G0PFV*uaI<|tf!a$RKHQu
zVM%vNIwI*FN#9B|x@rBMp#i!SidpB8PfFT4UnHfe-a0S5NYd8%ADwwqy>*`V1EO&>
z-V+f0d6Q^-L()38tSl0=bq*OJ8vOl|f2XXs&Iw<a^(k3@E=H^r_Os6aZXlYD;%h{E
z4@o*8>1QO}Bk5AF;7>`qmS_)-oaH%eOw!i5>OV-@Iw$>iNn7WhBa*hxF=s(H!rP3$
z>_nneOZri~t|VG#8ecEQMRZKo)9(`!-3=NkW%>H1i{9y?Q!e^B7yTy}Jq2Fv#P_-A
zDi^)lMSoe)7!`4KyXf0p^w(VU=OA_tKC|)pJU;j;2S0Fgkzxpx^YOuvutI-aM$ZC{
zrxpGp2OfcsBI{H1)itZG#AKt(IkjRwe#WtK(LzN>h_>g3iup?y%m+{Qn*u0V2qyYY
z0##C01Z|?KKvBe|ydU{UlyZxZ6Oo>%#fsjHufa4`ESO)3JbqEt{(=g>Nab0PerL77
zwB`)9CnxEO^(QBsGcTN+sACQ}IYHNaGpg{Y)A_h;HLCP@?KLXE_-r<+_;~C#s_=Mi
zS8$0mF1r<!v=<tq4pu?2@tV4z@c7JJP;@*dE+{xY^U@*~LBe{vM|;wVO$3nfa8hs?
z4__p^<{V`(s9h11PK4L#UWJc>*qL3N>w5n3pTB<xD~z@Y%c*g0zZ@0z#>-KbyX6|K
qf;L-@I(wVtDzi3N&SGn8RiI34svH%gZl|n`l-NR9o2R_Z>i+?=elZLH

literal 15496
zcmeHO3vgUj8NR#OEej3Jwxkf{bz3L|&@@R~X`$6k$-*tPCAP^7@0(5brdixa+y`yY
zYG_&E&a%>R8V1GDs*H%QsY0Qmz_wsE$}2Dk9qs5kBe>Wq9YBq>L;U`8&b@p0m2Me_
z(V3j~JpS`P&wtMO@7Z&2UOM{M_fL`}Tb(40*d<9i4S5h9Nl8Xal0Jg0AggLu$5q}N
zyc@2i-r{5{1}j1&rx^-VwcC4LcQFa$my7#^dI_dTPUKkvt*UWtOT0i^D(_Mk1_N|t
z9;YF=C^@7NE3B%qc%m<6c9qKe?nk-2PY4PFHW*w&Uco++rw(etAuS4`Qh5i3yjz6;
zg30e@DzmRY7LNwPn*>3rJmpMo->8@bf-#q7Dw2&}Rqc<2V+9A6%FCU_<<Xo|BAEPN
zEvc$Ds18JZA&pa%%4<HG%R3+pA=qkPsocUk>Fnt4uwZ2_M{<ikz$^)v)(Oci%tJV+
z#)d<Ek)S#hk7C@F<r(5=y;<!dIVU3<NmYZs>EyZPV!sh=l}Gl?HiV%rpNC@mdcjXq
zI!FZ)!PCz}Uo5tik+Pz6yb}w!JWqi{a#-3zjoG8Bkk@X4W&U$7<npXCtZS`Y-t7@}
zC_z$NNouKmjY6K)X9ewCmlZC=rL}9;U*qjuW5g6lXS$7vW!fa^?t0Em^I)|NYDX9e
ziYDNiL~ZD51)KxmZj+=g43Nf1bP{~sjA{abVJ{|z=C+Iakw^#SGmy_gJ_Wg28UcS}
z1>_v`$;f2(;zTUEI2h<#>>m#L0aL;@XLh{%!fEf^dF+$^y;ogxv2^`h&-v(g6T!*Q
zihQvFQy&s+9wGa;Fe28)3ewYyOgI{&#8!tx=#KRJf{U-vf<a$&@uq=DG#>SZ7cXsD
z-qKzG$v|WS-Lj+w<_7whEIy9qXdCivwjW{X*a~9<>Biw$Tnn|Vwlb1k*ID@Z>=}F~
zVpo5^8f$4YWS5VZR>cR9``LugAM(WqTUrg#kRwSKAd`!Gm+&!PB;YN8DP4k0c!KYy
zj{mRJqv&sJRPH#u99~nh&TX_Ek(9La2UyLD?)*G@fEX?yzQPePju<K+hB@L^j@VQ{
z^m2rcA-ow<u$PKtreQSG@K{FAY|q(}nfP2Kz3TIL-ZNzW;9O`<c{55W*||!3{{0|R
z(#yWVs#PzUOg{qC(|1C4ejl;xU>72GS~b-}(|$1JKTA|u@5IB{`lxfXcu?o*v4Q%4
zfXAnhl(ctOR@xBh(+090M>I~bvOP0P`ME5TqBmtdE&@PNFUw=zM?+)YJuxM<j_ep$
z(p@%1pHTMY?22tdv1N>MTuJrpQgk<}?<snhE7h}G?{YUh-t*{y-qi?2BU$O{$Y7XS
zQ0XXAX$7uxjd^!M=V-{H(_U5Q2-kTx*SUl1+{tw&dokv$wAPo1j(HqDCCxgZ-Dy==
zGGNafc`O+R<G@%lfy!z|T{SaCNfWbVbda^+fYBkem_4IR9CJg`gU+nf8SsULNz_q`
zN!_4>Nj<2nv*D;}5)(`lGOCaYnv>Bkw75x395+cuXI5Gl_>2Y*5y0l>slt+IwYm%Q
zlUxd-&{%RADyuEds<tqx%$8=7&unQ$i`zot#EeO3W~J4UzCO5T81_&HbC1=Y;w8#v
ztPylDX+A2eNwcb&!~`>wT%>}T<VK5|MB<o9DQEY5Y@|v%c(4J8^s<9^Kw>j$fcUmQ
zbSic*ZM*ywT8i$RM-o!b*+Nj+K0XQw`G<)%?L3`Fnm<#OcDkrad76~esV}geQEv8&
zivIf41Y|x$y_JmnH?wNlr?_#GsJL<KP2>8waT-(MyhR8qGwx<GuAUpW;xuT}otH6F
zoR<*9jgwhVsc{zznMEOzV&9j!ao=WASEWqjeu8Hq_uMbhf~GuE;rt_27-gAp8A!-S
zh&JuKi5vGMRcYsX#>qVQ9oAE7+|ATm$#V<1aZYaBIi_)qWSmUX+RTkRlc{hv3PEMY
zokzyKg5wzG>1_)0Suj)OafzCpd;m8wIPLr@i}=o8GvZ|C{i!K|$dNI6avVKMHaSs1
zWI5shAySM3WH}BoYCW0f5HSIFghPx$Pfik)b}k^jd?v3X-RV&#LN}Hfmx$+E1C(%7
zHh&h4EXzP<Ws1udR7{Va&Hn?3KTr|Kso3K%Ua!zY4fxj>o<CCIr+<<qT!ixw^F}uR
z2$7_m&s$I#fx4fgzGXp;3e;APy3K;RRiOF^b;q-GVz}|<XXpT-Y(MPQw;ogU#1TBe
zj-<S3z6R?qAj<Tz4w`y8N9WH(M_&Ku)D+uIzcQH>ed{FW_CkU&1m1?6BlrP_5g##@
z05ww{H;vTI`UwEtxJl>XYl8?c_fE2vk4G%A^-L<Mc13ShQc;(p54li-cL;JeG$D*N
zC4beBd<M3H8kEcwg||Jfl*ggmujpfZlXa6eeLoXRk&x&;kVm_w2bxad%H}CzAsm{`
zNX0Vd<ZKMr2;Qb*`R`$!oASF11rTm1xEg&loDCQNUu%bGVZcp%_}sr8-E_X&K||7?
z+`@wO9(uMaI)B(^y}Q}c%6dmwok}ty44scg#v_pTU?eXq>7Lz6N(gv~g6Q$cM~cYP
zUa)sHL$<73w4WX?+cUN&nBrtcX;Aj-V_ENE3jZq-ha2v_2Mws8Q^8uYh_xWVmGU0O
zRM_DCtq{0wuYmVecwntbH)81H{LnSd4qd#2>#zhcO$w^3T`9$_UyU=Dr*S}E-AL+L
zOxg}}l9`0_tvET2&R^5p|BPY(&9HwbMv`>~5d|p~?4QN~9s094f073}S7`Z$d%waM
z*FkO1-R7t(ogw#`;#<uYIV#T`Rf*-u6L`kJIb%;#oxcUAUJSK9>wE%%kxV#r1~Wo9
zBF`NWh9gqW2S9=cz?}~;`^3cXC6&4iYlh|wYZDtn5u?TAjMH@g3>>tvFx~qAig`?6
zgzJnER+>j8-FQ;Pc|0=hJYpJ(=P}4)IOY-IgZ9e^g^n~o|Bo=!Qdpz{xtowf9Le{|
z9naEUy0PP?LhL(E_-Z3|wl7IKZ&nIlC!2I1M)(@V&vrAsxM3f*!+$e;Ewjr1;Nc6;
zmM-{r9FK>LqWA2jA8W#k;}oCGAk_m<M5qZRMZ_#T;YU|RsuV<}6B7p2gfZdh$>zUU
z2j2)q;wdGbP-4>ct$7%fgFy%2x!iF=0z%p`9@36A-1|$u1i<4GtS)+BvS3zekJ6Tz
z-|(2UGM3m3h65}PdZCu~w%}tXEa&1Bqr1```k=A!n6ZbB@epu1Hn-^t_UJaD57jY^
z<d}gO$CO+qY|k*qg#PCoGquQ%AUCyWfR%%+yp@$fR)$$g@pfual$CLmYtv^hLe;Tx
zYSDbuI|eBLy!9s5;Gj&cgVef=TCY&+dTNbR>vPn4idv)8dX!o}rPlYUm7&%yYCTV_
z`_Pi4HQ~6nNsG#n+qCFFFtS<RJg9|bT$}bMg1$K3-^lSnP4<N%iEvzw49FoZ6p0SY
z@rdjT262rU*Cf0!is9W1WFmFMaTPkm84ENZj%q&tu*u|?Z}UY1zP_L)U$`iCA@Rw<
zKv<L8+DOYl0Eqr*Ag+N(4fz7$mVp(mOg`5dh=k?MkwnlhYg_s?&2QKh41@x4sXyck
zYRsI1+!fQv?H|w#4#ST2*6HYDa17UA(obi1zc1|P=9u=hw@)J<w4KOP2+KyIcuLtw
zubh1lOXK*74my-<w{MVaTiiBx{YkDJ5VRD1cts|?{TD0)qz?8g6CDoHGROTTyMwf!
zI?F+b?RAc&sKHBo-N=*gaK2S&vsA{n9Nl0L=;PV(hLG2546;n#jldM-t%O{%<J9-K
z9jf80GCuqUlkTb8?r?O0#1uf|*opix{5qplt6t)x?bAKU`R+oSr82$S&~2(?{w9*|
z2tIK{uHbL{%qrnq3BF;$H@m8TW)=B|?2Myl?Z3F4C!+6%;9Ds8PDJ0I!1wnLpzkca
zxOwgb^)a7Yio@dl^gl#RFPdPEbc(1OMSYH_n?>C&>Xo9lh~!Q29@y-!5w7$5oiZ^A
z`d$EJPaM~JRKI#UuhFcS-hcfIL}v0E?-}E`{UO9QQ8Stf#new;<gdeo{`m_zUm7nZ
zi2ngmS72pb^S_p}$<z}3BLIkRkDJ%?aq~lPwRChh`%P!^pDy&@h?k4R7Z7zd{+a$6
z56pOA#sf1RnDM}j2WC7l<AE6u%y?kN12Z0&@c?;X?n3wVt4AEJ?oRPfxMiM)J~m|^
z$E$sTupb|@e>y7dkfQFn9#u6y^2EpFp&?&X10DND9r&gqd?co7(P)Hm%0-wcE<yt#
zt$=Q>j#hnfQr%ia5!2$TFS;p4nB`@d2<}elG8IVAJdcWtSlqG_qyQR-Y8th>(8h%&
z$B2R3RD5S`S0y*ymP#JU9vW1&En0sfuHmbGA30*BTDVe;_!B`*U3YD#DtYOmpiY{U
z@dd4_N*h9&7MI?&Np<~^q2V$XX_xJ`xUa9g|8I7`HlPN=fp|IY`8vsYZPd^%{ms@9
z_M6a{eIvV0H9IEkSF-z9v*Wk+b-2(q!9UsSq&*ApU3sJ+a-SV{tR}^Cc78)^cKpW9
zuXxRlKiKKU*96~!$kFrRh4(H-@#@D>{H_JXTU5N)ieg(Eiu4i`4=lmw`d5g{X(?N0
z9m|7`64M`c6q){Ghs6z#I7$Y-7k92BxY&1EMSji7^378DPZrDHUn(*SkvR{n9_c`_
zi;5g;t)><gyRJa7vlGQA75CB2vm`z4-sfJGv;SdM&VH9|PRdUIssHHj>*?P4PGsx-
zGhOM>l_M=BO6F}W+BboR`kIl6j=nV|y4jXbrvXZJwbBtW377+E#^24*E$<vyWc(cn
zuJfch=rsO*fWB)cIEQs(7)$UG0eb{qTFCM13C1@|#@`Fv0Js5+#{C`L9Wz+m!@VqE
z<9@9kw1hYA%e(?M?!UGXjH}*Wnd{3C3^y6~d^QY_VB_A-Lonz^1pQWlH}2J*68K#L
zKS?mnkhs5Fj2R*RoWKVKEHB{t9};k{fO7)gCE&9i;I|d-EjtBl+(U*1Y}_l}Ct%~A
z@D~C$?)~0mFfJ33AXYjm@brB@!L+(ivnGKbErDA~;HygD{t|d|3H)Ua!%IBfR|0>%
z1b(mtroWFk7g<JLfV>d-Jmm9{7a`Mn!)q-{o?2*SNnO{mW<BDsDjoqXZEY>>t?f%B
zJOsl2mbMjbpFop`F@i1yL@|uo%hBc$kDwKjI)L|eey}fZ$6u_J#bXNl^oKkZ!n-x{
zoET?G;5#wqq9A!<td@X!VvHrhw<>eh$68Iks>)rfzp4tT&1Y5FYw=rE=30GM@u*Of
z-zsvNPu;4MRgtY$S65`N&CL~AYjJT!#@gIV2Q`ES^AJ<TDMZG@MlF;SQfi@#6wY4L
z=;cAlBCq^Z%3kjyN>w|XTQKIS+|pNk9<PR=leh(Ep217{jMKMq?&c?M<E&lw%L2ju
EKN4mN;{X5v

diff --git a/structural/criteria/criteria_main.f90 b/structural/criteria/criteria_main.f90
index bb1232a..784178f 100644
--- a/structural/criteria/criteria_main.f90
+++ b/structural/criteria/criteria_main.f90
@@ -1,13 +1,26 @@
+!Copyright (c) 2013 Farhan J. Khan
+!THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+!IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+!FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+!COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+!IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+!CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+!Main Program
 program criteria_main
 	use criteria_module
 	implicit none
 	type(person), allocatable :: persons(:)
+	type(person), allocatable :: outPersons(:)
 	class(criteria), allocatable :: cmale	
 	class(criteria), allocatable :: cfemale	
 	class(criteria), allocatable :: csingle
 	class(criteria), allocatable :: cand
 	class(criteria), allocatable :: cor	
-		
+	type(andcriteria) :: and_criteria
+	type(orcriteria) :: or_criteria
+	
+	!Initialize array with list of persons
 	allocate(persons(6))
 	persons(1) = person('Robert', 'm', 's')
 	persons(2) = person('John', 'm', 'm')
@@ -19,14 +32,42 @@ program criteria_main
 	allocate(cmale, source=malecriteria())
 	allocate(cfemale, source=femalecriteria())
 	allocate(csingle, source=singlecriteria())
-	allocate(cand, source=andcriteria(cmale, null()))
-!	allocate(cor, source=orcriteria(csingle, cfemale))
 	
-!	deallocate(persons)
-!	deallocate(cmale)
-!	deallocate(cfemale)
-!	deallocate(csingle)
-!	deallocate(cand)
-!	deallocate(cor)
+	!All males
+	call cmale%meetcriteria(persons, outPersons)
+	print *, 'Males:'
+	call printPersonArray(outPersons)
+	deallocate(outPersons)
+
+	!All females
+	call cfemale%meetcriteria(persons, outPersons)
+	print *, 'Females:'
+	call printPersonArray(outPersons)
+	deallocate(outPersons)
+
+	!Male and Single
+	allocate(and_criteria%c1, source = malecriteria())
+	allocate(and_criteria%c2, source = singlecriteria())
+	allocate(cand, source=and_criteria)
+	call cand%meetCriteria(persons, outPersons)
+	print *, 'Single Males:'
+	call printPersonArray(outPersons)
+	deallocate(outPersons)
+
+	!Single or Female
+	allocate(or_criteria%c1, source = singlecriteria())
+	allocate(or_criteria%c2, source = femalecriteria())
+	allocate(cor, source=or_criteria)
+	call cor%meetCriteria(persons, outPersons)
+	print *, 'Single Or Females:'
+	call printPersonArray(outPersons)
+	deallocate(outPersons)
+
+	deallocate(persons)
+	deallocate(cmale)
+	deallocate(cfemale)
+	deallocate(csingle)
+	deallocate(cand)
+	deallocate(cor)
 	
 end program criteria_main
\ No newline at end of file
diff --git a/structural/criteria/criteria_module.f90 b/structural/criteria/criteria_module.f90
index 96cd245..ad90963 100644
--- a/structural/criteria/criteria_module.f90
+++ b/structural/criteria/criteria_module.f90
@@ -1,18 +1,28 @@
-!TODO: this needs to be complete and is not in usable format for now
+!Copyright (c) 2013 Farhan J. Khan
+!THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+!IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+!FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+!COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+!IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+!CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
+!Module providing implementation of criteria pattern
 module criteria_module
 	implicit none
 	
+	!Person type
 	type, public :: person
-		character(20) :: name
+		character(10) :: name
 		character(1) :: gender
 		character(1) :: maritalstatus
 	end type person
 	
+	!Criteria type with meetCriteria interface
 	type, abstract :: criteria
 	contains
 		procedure(meetCriteriaInterface), deferred :: meetCriteria
 	end type
+	!Interface defination for meetCriteria
 	abstract interface
 		subroutine meetCriteriaInterface(this, personArray, outPersonArray)
 			import criteria
@@ -54,14 +64,34 @@ end subroutine meetCriteriaInterface
 
 contains
 
+	!Genralized method to dynamically increase the size of array and put value at pos.
+	subroutine putInArray(array, pos, value)
+		type(person), dimension (:), allocatable, intent(inout) :: array(:)
+		integer :: pos
+		type(person), intent(in) :: value
+		type(person), dimension (:), allocatable :: tempArray(:)
+		
+		allocate(tempArray(pos))
+		tempArray(1:pos) = array
+		deallocate(array)
+		call move_alloc(tempArray, array)
+		array(pos) = value
+	end subroutine putInArray
+	
 	subroutine meetMaleCriteria(this, personArray, outPersonArray)
 		class(maleCriteria), intent(in) :: this
 		type(person), dimension (:), allocatable, intent(inout) :: personArray(:)
 		type(person), dimension (:), allocatable, intent(inout) :: outPersonArray(:)
-		integer :: j
+		integer :: j, k
+		!initializing outPersonArray to avoid segmentation fault
+		if (.not. allocated(outPersonArray)) then
+			allocate(outPersonArray(1))
+		endif
+		k = 0
 		do j=1,size(personArray)
 			if (personArray(j)%gender .EQ. 'm') then
-				outPersonArray(j) = personArray(j)
+				k = k + 1
+				call putInArray(outPersonArray, k, personArray(j))
 			end if
 		enddo
 	end subroutine meetMaleCriteria
@@ -70,10 +100,16 @@ subroutine meetFemaleCriteria(this, personArray, outPersonArray)
 		class(femaleCriteria), intent(in) :: this
 		type(person), dimension (:), allocatable, intent(inout) :: personArray(:)
 		type(person), dimension (:), allocatable, intent(inout) :: outPersonArray(:)
-		integer :: j
+		integer :: j, k
+
+		if (.not. allocated(outPersonArray)) then
+			allocate(outPersonArray(1))
+		endif
+		k = 0
 		do j=1,size(personArray)
 			if (personArray(j)%gender .EQ. 'f') then
-				outPersonArray(j) = personArray(j)
+				k = k + 1
+				call putInArray(outPersonArray, k, personArray(j))
 			end if
 		enddo
 	end subroutine meetFemaleCriteria
@@ -82,10 +118,16 @@ subroutine meetSingleCriteria(this, personArray, outPersonArray)
 		class(singleCriteria), intent(in) :: this
 		type(person), dimension (:), allocatable, intent(inout) :: personArray(:)
 		type(person), dimension (:), allocatable, intent(inout) :: outPersonArray(:)
-		integer :: j
+		integer :: j, k
+
+		if (.not. allocated(outPersonArray)) then
+			allocate(outPersonArray(1))
+		endif
+		k = 0
 		do j=1,size(personArray)
 			if (personArray(j)%maritalstatus .EQ. 's') then
-				outPersonArray(j) = personArray(j)
+				k = k + 1
+				call putInArray(outPersonArray, k, personArray(j))
 			end if
 		enddo
 	end subroutine meetSingleCriteria
@@ -95,8 +137,14 @@ subroutine meetAndCriteria(this, personArray, outPersonArray)
 		type(person), dimension (:), allocatable, intent(inout) :: personArray(:)
 		type(person), dimension (:), allocatable, intent(inout) :: outPersonArray(:)
 		type(person), dimension (:), allocatable :: tempPersonArray(:)
+		allocate(tempPersonArray(1))
+		!First criteria (output in tempPersonArray)
 		call this%c1%meetCriteria(personArray, tempPersonArray)
-		call this%c1%meetCriteria(temppersonArray, outPersonArray)
+		if (.not. allocated(outPersonArray)) then
+			allocate(outPersonArray(1))
+		endif
+		!Apply second criteria to tempPersonArray
+		call this%c2%meetCriteria(temppersonArray, outPersonArray)
 	end subroutine meetAndCriteria
 
 	subroutine meetOrCriteria(this, personArray, outPersonArray)
@@ -107,11 +155,20 @@ subroutine meetOrCriteria(this, personArray, outPersonArray)
 		type(person), dimension (:), allocatable :: tempPersonArray2(:)
 		integer :: i, j
 		logical :: found = .false.
+
+		allocate(tempPersonArray1(1))
+		allocate(tempPersonArray2(1))
+		
+		!Apply the two criterias separately
 		call this%c1%meetCriteria(personArray, tempPersonArray1)
-		call this%c1%meetCriteria(personArray, tempPersonArray2)
+		call this%c2%meetCriteria(personArray, tempPersonArray2)
 		
+		if (.not. allocated(outPersonArray)) then
+			allocate(outPersonArray(1))
+		endif
+
 		do i = 1, size(tempPersonArray1), 1
-			outPersonArray(i) = tempPersonArray1(i)
+			call putInArray(outPersonArray, i, tempPersonArray1(i))
 		end do
 
 		do i = 1, size(tempPersonArray2), 1
@@ -122,10 +179,21 @@ subroutine meetOrCriteria(this, personArray, outPersonArray)
 					exit
 				endif
 			end do
-			if (found .eqv. .true.) then
-				outpersonArray(size(outpersonArray)+1) = tempPersonArray2(i)
+			if (found .eqv. .false.) then
+				call putInArray(outPersonArray, size(outpersonArray)+1, tempPersonArray2(i))
 			endif
 		end do
 	end subroutine meetOrCriteria
+	
+	!Generalized method to print a person array
+	subroutine printPersonArray(personArray)
+		type(person), dimension (:), allocatable, intent(in) :: personArray(:)
+		integer :: i
+		do i = 1, size(personArray), 1
+			if (.not. personArray(i)%name .eq. '') then
+				print *, 'Name: '//personArray(i)%name//', Gender: '//personArray(i)%gender//', Marital Status: '//personArray(i)%maritalstatus
+			end if
+		end do
+	end subroutine printPersonArray
 
 end module criteria_module
\ No newline at end of file