Waveform filter programs

◆ modchan()

subroutine modchan ( character*132  wid2line,
character*(*)  chan 
)

Definition at line 226 of file xyz2uvw.f.

226  character*132 wid2line
227  character*(*) chan
228  write(wid2line(36:38), '(a3)') chan
229  return