<!--
//**** DEBUT de code JL020901/CGW "Département voisin" ****
//****** copyrights : Jacques Louvel et FranceGenWeb ******
var tv=location.href.split("/");var c=tv[tv.length-1];var q=c.search('somr.');var dr='00';if(q>0){dr=c.substring(q-2,q);if(parseInt(dr)==0){dr='00';};};var nd=95+10;var dw=dr;var dd=120;var d0=120;var nv=0;n=new Array(110);d=new Array(110);y=new Array(110);x=new Array(110);n[00]='00';d[00]='tous les départements _____(c)JL&FGW';y[00]=0.0;x[00]=0.0;n[01]='01';d[01]='Ain';y[01]=46.083333;x[01]=5.341667;n[02]='02';d[02]='Aisne';y[02]=49.55;x[02]=3.525;n[03]='03';d[03]='Allier';y[03]=46.358333;x[03]=3.175;n[04]='04';d[04]='Alpes-de-Haute-Provence';y[04]=44.075;x[04]=6.141667;n[05]='05';d[05]='Hautes-Alpes';y[05]=44.575;x[05]=6.116667;n[06]='06';d[06]='Alpes-Maritimes';y[06]=43.841667;x[06]=7.108333;n[07]='07';d[07]='Ardèche';y[07]=44.775;x[07]=4.45;n[08]='08';d[08]='Ardennes';y[08]=49.616667;x[08]=4.658333;n[09]='09';d[09]='Ariège';y[09]=42.966667;x[09]=1.533333;n[10]='10';d[10]='Aube';y[10]=48.3;x[10]=4.175;n[11]='11';d[11]='Aude';y[11]=43.116667;x[11]=2.325;n[12]='12';d[12]='Aveyron';y[12]=44.3;x[12]=2.625;n[13]='13';d[13]='Bouches-du-Rhône';y[13]=43.516667;x[13]=5.258333;n[14]='14';d[14]='Calvados';y[14]=49.116667;x[14]=-0.35;n[15]='15';d[15]='Cantal';y[15]=45.041667;x[15]=2.641667;n[16]='16';d[16]='Charente';y[16]=45.708333;x[16]=0.15;n[17]='17';d[17]='Charente-Maritime';y[17]=45.783333;x[17]=-0.65;n[18]='18';d[18]='Cher';y[18]=47.025;x[18]=2.525;n[19]='19';d[19]='Corrèze';y[19]=45.316667;x[19]=1.841667;n[20]='20';d[20]='Corse';y[20]=42.233333;x[20]=9.158333;n[21]='21';d[21]='Côte-d-Or';y[21]=47.375;x[21]=4.791667;n[22]='22';d[22]='Côtes-d-Armor';y[22]=48.483333;x[22]=-2.833333;n[23]='23';d[23]='Creuse';y[23]=46.1;x[23]=2.025;n[24]='24';d[24]='Dordogne';y[24]=45.066667;x[24]=0.741667;n[25]='25';d[25]='Doubs';y[25]=47.233333;x[25]=6.366667;n[26]='26';d[26]='Drôme';y[26]=44.7;x[26]=5.133333;n[27]='27';d[27]='Eure';y[27]=49.133333;x[27]=1.008333;n[28]='28';d[28]='Eure-et-Loir';y[28]=48.425;x[28]=1.391667;n[29]='29';d[29]='Finistère';y[29]=48.291667;x[29]=-4.125;n[30]='30';d[30]='Gard';y[30]=44.016667;x[30]=4.191667;n[31]='31';d[31]='Haute-Garonne';y[31]=43.325;x[31]=1.133333;n[32]='32';d[32]='Gers';y[32]=43.666667;x[32]=0.458333;n[33]='33';d[33]='Gironde';y[33]=44.816667;x[33]=-0.358333;n[34]='34';d[34]='Hérault';y[34]=43.583333;x[34]=3.425;n[35]='35';d[35]='Ille-et-Vilaine';y[35]=48.191667;x[35]=-1.633333;n[36]='36';d[36]='Indre';y[36]=46.766667;x[36]=1.6;n[37]='37';d[37]='Indre-et-Loire';y[37]=47.258333;x[37]=0.658333;n[38]='38';d[38]='Isère';y[38]=45.333333;x[38]=5.483333;n[39]='39';d[39]='Jura';y[39]=46.733333;x[39]=5.666667;n[40]='40';d[40]='Landes';y[40]=43.816667;x[40]=-0.741667;n[41]='41';d[41]='Loir-et-Cher';y[41]=47.658333;x[41]=1.3;n[42]='42';d[42]='Loire';y[42]=45.716667;x[42]=4.2;n[43]='43';d[43]='Haute-Loire';y[43]=45.141667;x[43]=3.758333;n[44]='44';d[44]='Loire-Atlantique';y[44]=47.341667;x[44]=-1.691667;n[45]='45';d[45]='Loiret';y[45]=47.975;x[45]=2.325;n[46]='46';d[46]='Lot';y[46]=44.633333;x[46]=1.625;n[47]='47';d[47]='Lot-et-Garonne';y[47]=44.391667;x[47]=0.466667;n[48]='48';d[48]='Lozère';y[48]=44.55;x[48]=3.475;n[49]='49';d[49]='Maine-et-Loire';y[49]=47.391667;x[49]=-0.55;n[50]='50';d[50]='Manche';y[50]=49.1;x[50]=-1.341667;n[51]='51';d[51]='Marne';y[51]=48.966667;x[51]=4.183333;n[52]='52';d[52]='Haute-Marne';y[52]=48.1;x[52]=5.25;n[53]='53';d[53]='Mayenne';y[53]=48.141667;x[53]=-0.658333;n[54]='54';d[54]='Meurthe-et-Moselle';y[54]=48.791667;x[54]=6.158333;n[55]='55';d[55]='Meuse';y[55]=49.008333;x[55]=5.391667;n[56]='56';d[56]='Morbihan';y[56]=47.816667;x[56]=-2.758333;n[57]='57';d[57]='Moselle';y[57]=49.05;x[57]=6.616667;n[58]='58';d[58]='Nièvre';y[58]=47.141667;x[58]=3.483333;n[59]='59';d[59]='Nord';y[59]=50.425;x[59]=3.241667;n[60]='60';d[60]='Oise';y[60]=49.425;x[60]=2.416667;n[61]='61';d[61]='Orne';y[61]=48.633333;x[61]=0.108333;n[62]='62';d[62]='Pas-de-Calais';y[62]=50.458333;x[62]=2.333333;n[63]='63';d[63]='Puy-de-Dôme';y[63]=45.733333;x[63]=3.175;n[64]='64';d[64]='Pyrénées Atlantiques';y[64]=43.325;x[64]=-0.675;n[65]='65';d[65]='Hautes-Pyrénées';y[65]=43.133333;x[65]=0.208333;n[66]='66';d[66]='Pyrénées-Orientales';y[66]=42.608333;x[66]=2.55;n[67]='67';d[67]='Bas-Rhin';y[67]=48.675;x[67]=7.55;n[68]='68';d[68]='Haut-Rhin';y[68]=47.8;x[68]=7.275;n[69]='69';d[69]='Rhône';y[69]=45.858333;x[69]=4.65;n[70]='70';d[70]='Haute-Saône';y[70]=47.625;x[70]=6.1;n[71]='71';d[71]='Saône-et-Loire';y[71]=46.625;x[71]=4.633333;n[72]='72';d[72]='Sarthe';y[72]=48.041667;x[72]=0.233333;n[73]='73';d[73]='Savoie';y[73]=45.541667;x[73]=6.216667;n[74]='74';d[74]='Haute-Savoie';y[74]=46.058333;x[74]=6.3;n[75]='75';d[75]='Paris';y[75]=48.866667;x[75]=2.333333;n[76]='76';d[76]='Seine-Maritime';y[76]=49.675;x[76]=0.975;n[77]='77';d[77]='Seine-et-Marne';y[77]=48.658333;x[77]=2.916667;n[78]='78';d[78]='Yvelines';y[78]=48.85;x[78]=1.841667;n[79]='79';d[79]='Deux-Sèvres';y[79]=46.516667;x[79]=-0.308333;n[80]='80';d[80]='Somme';y[80]=49.941667;x[80]=2.3;n[81]='81';d[81]='Tarn';y[81]=43.8;x[81]=2.116667;n[82]='82';d[82]='Tarn-et-Garonne';y[82]=44.058333;x[82]=1.208333;n[83]='83';d[83]='Var';y[83]=43.408333;x[83]=6.225;n[84]='84';d[84]='Vaucluse';y[84]=44.016667;x[84]=5.15;n[85]='85';d[85]='Vendée';y[85]=46.658333;x[85]=-1.241667;n[86]='86';d[86]='Vienne';y[86]=46.616667;x[86]=0.4;n[87]='87';d[87]='Haute-Vienne';y[87]=45.9;x[87]=1.225;n[88]='88';d[88]='Vosges';y[88]=48.233333;x[88]=6.316667;n[89]='89';d[89]='Yonne';y[89]=47.858333;x[89]=3.591667;n[90]='90';d[90]='Belfort';y[90]=47.616667;x[90]=6.933333;n[91]='91';d[91]='Essonne';y[91]=48.558333;x[91]=2.258333;n[92]='92';d[92]='Hauts-de-Seine';y[92]=48.841667;x[92]=2.258333;n[93]='93';d[93]='Seine-Saint-Denis';y[93]=48.908333;x[93]=2.458333;n[94]='94';d[94]='Val-de-Marne';y[94]=48.783333;x[94]=2.458333;n[95]='95';d[95]='Val-d-Oise';y[95]=49.075;x[95]=2.15;n[96]='971';d[96]='Guadeloupe';y[96]=16.15;x[96]=61.29;n[97]='972';d[97]='Martinique';y[97]=14.36;x[97]=61.05;n[98]='973';d[98]='Guyane';y[98]=4.0;x[98]=53.0;n[99]='974';d[99]='Réunion';y[99]=-21.0;x[99]=-56.0;n[100]='975';d[100]='St-Pierre-&-Miquelon';y[100]=47.03;x[100]=56.20;n[101]='976';d[101]='Mayote';y[101]=-12.50;x[101]=-45.10;n[102]='986';d[102]='Wallis-et-Futuna';y[102]=-13.18;x[102]=176.10;n[103]='987';d[103]='Polynésie-française';y[103]=-13.37;x[103]=149.27;n[104]='988';d[104]='Nouvelle-Calédonie';y[104]=-22.16;x[104]=-166.27;n[105]='PN';d[105]='Pieds-Noirs';y[105]=42.516667;x[105]=5.258333;document.write("<form name='f1'><select name='d1' size='4'>");for(i=0;i<=nd;i++){document.write("<option value='",i,"'>",n[i],"- ",d[i],"</option>");};document.write("</select> <br><a href='javascript:voisins();'>Afficher</a> dans un rayon de <input type='TEXT' name='dd' value='",dd,"' size='5'> km<br><a href='javascript:vazy();'>Cliquer ICI pour aller au département sélectionné</a></form>");document.f1.d1.options[dr].selected=true;nv=nd;voisins();function vazy(){var jltmp=n[document.f1.d1.options[document.f1.d1.selectedIndex].value];if(jltmp!=dr){if(document.f1.d1.selectedIndex!=0){jltmp=jltmp+".htm";}else{jltmp="";};var jloualler="http://francegenweb.org/cousinsgenweb/"+jltmp;top.location.href=jloualler;}}function voisins(){document.f1.d1.options.length=nd+1;dw=document.f1.d1.options[document.f1.d1.selectedIndex].value;dd=parseFloat(document.f1.dd.value);if(nv!=0){nv=0;for(i=1;i<nd+1;i++){document.f1.d1.options[i].value=i;document.f1.d1.options[i].text=n[i]+"- "+d[i];};};d0=Math.pow(dd,2);if((dw==0)||(dw>95)||(d0<20)){dw=18;d0=1000000000.0;};var yr=parseFloat(y[dw]);var xr=5+parseFloat(x[dw]);if(dw==20){yr=43.15;xr=10.5;};for(i=1;i<=nd;i++){var yi=parseFloat(y[i]);var xi=5+parseFloat(x[i]);var cx=Math.abs((yi+((yi-yr)/2)))/90;var sq1=Math.pow((yi-yr),2);var sq2=Math.pow((xi-xr),2);dd=(sq1*11236)+(sq2*(11236*cx));if(dd<d0){nv++;document.f1.d1.options[nv].value=i;document.f1.d1.options[nv].text=n[i]+"- "+d[i];if(dd==0){ds=nv;};};};document.f1.d1.options.length=nv+1;if((nv==0)||(d0==1000000000.0)){ds=0;dw=0;};document.f1.d1.options[ds].selected=true;}
//****  FIN  de code JL020901/CGW "Département voisin" ****
// -->