function VIexampleforward()
{
//***********************************************************************
//*
//* Function  VIexampleforward--function to input example data into J&E form
//*
//* Language:  JavaScript1.1
//*
//* Inputs:
//*   object   form object
//*   
//* Returns:
//*   none
//*
//* Limitations:
//*
//* Author:
//*  Dr. Fred Tillman
//*  Hydrologist
//*  Regulatory Support Branch
//*  Ecosystems Research Division
//*  National Exposure Research Laboratory
//*  United States Environmental Protection Agency
//*  960 College Station Road
//*  Athens, Georgia 30605
//*  weaver.jim@epa.gov
//* 
//*
//* Reference:
//*  Flanagan, D., 1997, JavaScript: The Definitive Guide, 2ed, O'Reilly and Associates
//*
//* Created: 4-22-2004
//*
//* Required functions: none
//*
//* Required scripts: none
//*
//***********************************************************************
   var f = document.vaporsite;


   f.sitename.value = "Leaky's Gasoline Station Site, Residence #24297";
   f.sconc.value = 100;
   f.sunits.selectedIndex = SelectIndex (f.sunits,'mcgL');
       sunits = f.sunits.options[f.sunits.selectedIndex].value;
   f.smedia.selectedIndex = SelectIndex (f.smedia,'GW');
       smedia = f.smedia.options[f.smedia.selectedIndex].value;
   f.btype.selectedIndex = SelectIndex (f.btype,'base');
       btype = f.btype.options[f.btype.selectedIndex].value;
   f.coc.selectedIndex = SelectIndex (f.coc,'71432');
       coc = f.coc.options[f.coc.selectedIndex].value;
   f.soiltype.selectedIndex = SelectIndex (f.soiltype,'loamysand');
       soiltype = f.soiltype.options[f.soiltype.selectedIndex].value;
   f.temp.value = 10;
   f.tempunits.selectedIndex = SelectIndex (f.tempunits,'C');
       tempunits = f.tempunits.options[f.tempunits.selectedIndex].value;
   f.LT.value = 7;
   f.Lunits.selectedIndex = SelectIndex (f.Lunits,'ft');
       Lunits = f.Lunits.options[f.Lunits.selectedIndex].value;
   f.LTr.value = 0.2;
   f.Lrunits.selectedIndex = SelectIndex (f.Lrunits,'ft');
       Lrunits = f.Lrunits.options[f.Lrunits.selectedIndex].value;

   bparams();
   cocparams();
   soilparams();
   calculate();


}
