got rid of two lines containing the variable TravelTime in the structure
Tdomain%specel(n) that apparently does not exist
cut lines that were too long and modified some == with logical for .eqv.
and modified large some constants (1e100 and 1e99) to 2e38 in order to
be compatible with largest real numbers available