modchan()

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

Definition at line 168 of file rotate.f.

Referenced by rotate(), and xyz2uvw().

      character*132 wid2line
      character*(*) chan
      write(wid2line(36:38), '(a3)') chan
      return

Here is the caller graph for this function: