Title                  	:XEDSDETECT
Keywords               	:XEDS
Computer               	:DEC VAX-11/730 - 11/785 or higher series
Operating System       	:VMS
Programming Language   	:Fortran IV
Hardware Requirements  	:NONE
Author(s)              	:Nestor J. Zaluzec
Correspondence Address 	:Electron Microscopy Center, Materials Science,
                       	:Argonne Nat. Lab, Argonne, IL. 60439 USA
			: Email: Zaluzec @ ANLMST (BITNET)
DOCUMENTATION:

The compliation procedure on a Vax system is:

Fortran XEDSDETECT
LINK	XEDSDETECT
RUN	XEDSDETECT

References for absorption coefficeints are in the source code:

An example of the input/output of the program is:


RUN DETECT
XEDS Detector Efficiency Calculation
-----------------------------------
Enter Parameters for Calculation


Enter Pyrolyene Thickness in Angstroms: 1000
Enter Aluminium Light Barrier Thickness in Angstroms: 1000
Enter Beryllium Thickness in Microns: 0
Enter Gold Electrical Contact Thickness in Angstroms: 200
Enter Detector Dead Layer Thickness in Angstroms: 3000
Enter Detector Active Layer Thickness in MM: 3
Enter Start Energy (eV) 
200
Enter End Energy (eV)
3000
Enter Increment Energy (eV)
100
Energy (ev)   Si(Li)   HpGe
   200.000   0.0017   0.0000
   300.000   0.0218   0.0000
   400.000   0.0883   0.0027
   500.000   0.2161   0.0308
   600.000   0.3515   0.1049
   700.000   0.4630   0.2062
   800.000   0.5488   0.3090
   900.000   0.6331   0.4140
  1000.000   0.6983   0.5049
  1100.000   0.7489   0.5810
  1200.000   0.7886   0.6436
  1300.000   0.8200   0.2065
  1400.000   0.8452   0.2740
  1500.000   0.8682   0.2912
  1600.000   0.7951   0.3181
  1700.000   0.8224   0.3783
  1800.000   0.8451   0.4349
  1900.000   0.6982   0.4872
  2000.000   0.7313   0.5348
  2100.000   0.7600   0.5779
  2200.000   0.7849   0.6166
  2300.000   0.7550   0.6097
  2400.000   0.7777   0.6429
  2500.000   0.7978   0.6729
  2600.000   0.8156   0.6998
  2700.000   0.8314   0.7241
  2800.000   0.8308   0.7332
  2900.000   0.8444   0.7537
  3000.000   0.8566   0.7723

Change the Iteration Loop [N] N
Detector Paramters Used in this Calculation

Pyrolene =   1.0000E+03 Angstroms
Aluminium=   1.0000E+03 Angstroms
Beryllium=   0.0000E+00 Microns
Gold     =   2.0000E+02 Angstroms
Dead     =   3.0000E+03 Angstroms
Active   =   3.0000E+00 MM
Angle    =       0.0000 Degrees


FORTRAN STOP


------------------------------------------------------------------------------