Small bug in utils.F90

[Lukas Hollenstein]

Hi,

Very minor thing in utils.F90: in function concat_s(...)

Code: Select all

              if (present(S7)) then
                concat = trim(concat) // S6

should be

Code: Select all

              if (present(S7)) then
                concat = trim(concat) // S7

These are lines 1092 and 1093 in the Feb 2009 version.

Best,
Lukas

[Antony Lewis]

Thanks, will fix.