Write a zus* module

Every modul may use all COMMON blocks of other modules. They should be copied explicitly from the directory `$HOME/qmc/COM' to the desired places in the declaration positions of the subroutines. It is not recommended to use the specific internal `common' blocks as long as not demanded by the task of the module. In the headings of a module it is always marked which external and internal blocks are utilized. External are those blocks that appear in every possible combination of moduls. So, if internal blocks are used and shared with other (tightly connected) modules, then it should appear there as an explicit comment. One or two internal `common' blocks are usually needed, as it guarantees the storage of the variables after leaving the routines.

The routines a zus* module provides are ZUSINIT, ZUSFKT, ZUSNEU and ZUSOUT. ZUSINIT is called by EERST (ham*mc) and does the necessary initializations, once per program run. If user input is needed, it has to be supplied by an input file to leave the program sequence as it is. ZUSFKT is called in ESET (ham*mc), after other (main) observables have been calculated. In this routine, the additional observables are calculated and stored in the array F which will be statistically processed. ZUSNEU is called in EVARINIT to update the variables after the motion of an electron. For some quantities the number of calculations is reduced if they are not programmed in ZUSFKT but earlier. Finally, ZUSOUT is called by EOUT and yields the statistical data of the additional observables for output, usually into a file with fixed name. At this stage postprocessing of the observables as e.g. normalization may take place.

For testing the output file UNIT=39 is available throughout the whole program. The name of the file, available on TMP, is the name of the program in upper case letters without .exe but with the prefix T and suffix .OUT, e.g. TGSAHGA.OUT [TDSGSAHGA_OUTPUT39.???]. Keep in mind the number of repetitions of an output by the program to limit the output file to a manageable size.