explicit interface in write_seismograms.f90 to be able to use optional arguments as requested by DK