The module GEF1evt.bas has been produced by the declarations and
the first part of the calculations of GEFSUB.bas.
In addition, more declarations of GEF.bas, the Monte-Carlo
section of GEF.bas and the declarations of Spectra.bas have been
added.

The module GEF1evt.bas contains some variables, some arrays and other
parts that might not be necessary. All the spectra from GEF.bas
are present, although most of them are filled with only one count 
in the calculation of one event.
The big advantage of this "overshoot" is that it is rather easy to
produce a new  version from the GEF.bas source file. 

The internal subroutine GEFSUB.bas calculates the fission observables
for one event. It takes about 10 ms on a modern PC with a powerful CPU.

The module GEF1evt.bas runs and seems to calculate something reasonable.
Only the energies of the prompt neutrons emitted from the two fragments
have been printed for testing. They look o.k. . Further testing is
certainly necessary.

The module GEF1evt.FOR is the output of an automatic translation starting
from GEF1evt.bas. Because FreeBASIC is more flexible that FORTRAN, some
adjustments and corrections need still to be done in the FORTRAN source.
The module GEF1evt.FOR does not properly compile due to several errors. 
At least some are relatively simple: These are statements that are not 
or not correctly translated by the FBtoFO.bas translator. It would be a 
good investment in the future to develop FBtoFO further and not to correct 
the errors in GEF1evt.FOR "by hand", if this is possible. 

The part that returns the calculated results from the subroutine to the
calling routine is still missing.