[Wien] mbj on Diamond

[Martin Kroeker]

I am probably not qualified to comment on what brj.f does, but I do
notice that the segmentation fault in line 46 occurs on a line that 
tries to print tau_falsch when no value has ever been assigned to 
this variable.
You could try inserting the line "tau_falsch = 0D0"  before the 
"IF RHO.GT.1.D-18" block. 
-- 
Dr. Martin Kroeker            martin at ruby.chemie.uni-freiburg.de
c/o Prof.Dr. Caroline Roehr
Institut fuer Anorganische und Analytische Chemie der Universitaet Freiburg