mix1f.for

开放源码的编译器open watcom 1.6.0版的源代码

* MIX1F.FOR - This FORTRAN function accepts three integer
*	      arguments and returns their maximum.

* Compile: wfc[386] mix1f.for

	integer function tmax3( arga, argb, argc )
	integer arga, argb, argc

	tmax3 = arga
	if ( argb .gt. tmax3 ) tmax3 = argb
	if ( argc .gt. tmax3 ) tmax3 = argc
	end