function calcular_inv(ntmedl, ndmed){
	ntmed=ntmedl;
   /* VALIDACIONES Y CONDICIONES */
   if (!valida1(ntmed,1) || !valida1(ndmed,2) || !valida1(document.ent.voli.value,3)){
		pintaerror(1, ntmedl, ndmed);
		return;
   }
   ntmedl=ntmedl*1.0;
   ndmed=ndmed*1.0;

   if (!valida2(ntmedl,1) || !valida2(ndmed,2)){
		pintaerror(2, ntmedl, ndmed);
		return;
   }
   /* CALCULO DE NTDIV */
   ntdif=ntmedl-15;
   ndilv=1-0.000023*ntdif-0.00000002*ntdif*ntdif;

   /* SELECCION DE LA FORMULA A UTILIZAR */
   if(ndmed<770.5) nform=1;
   if((ndmed>=770.5) && (ndmed<787.6)) nform=2;
   if((ndmed>=787.6) && (ndmed<839.0)) nform=3;
   if(ndmed>=839.0) nform=4;

   /* CALCULOS */
   ndalfa=ndmed;

   switch(nform){

     case 1:
        nvcf=calc_vcf(346.4228,0.4388);
        break;

     case 2:
        nalfa15=2680.3206/ndalfa/ndalfa-0.00336312;
        nexp=-nalfa15*ntdif-0.8*Math.pow(nalfa15*ntdif,2);
        nvcf=Math.exp(nexp);
        break;

     case 3:
        nvcf=calc_vcf(594.5418, 0.0);
        break;

     case 4:
        nvcf=calc_vcf(186.9696,0.4862);
        break;

     default:
        pintaerror(4, ntmedl, ndmed);
	    return;

   }

   ndmedcorr=ndmed/ndilv;
   ndfinal=ndmedcorr*nvcf;
   //nfactor=ndmed/ndfinal;

   /* ESCRITURA DE RESULTADOS */
   resultinv(ndfinal,ndmed);
}