Program Mgetr

		Integer*2	i, Ichan, Arg(128)
		Real*8		Spec

		Ichan = Igetc()
		Call Irad50( 12, 'BINTIGETRDAT', Spec )
		Call IEnter( Ichan, Spec, 1 )
		DO 10 i = 1, 128
			Arg(i) = -1
10		Continue
		Call Iwritw( 128, Arg, 1, Ichan )
		Call CLosec( Ichan )
		Call Ifreec( Ichan )

	END