Context Navigation

mntiny.F@ 3632

Visit:

Last change on this file since 3632 was 2403, checked in by cmv, 22 years ago
Creation du module de code source de MINUIT (CERNLIB) extrait par CMV cmv 11/06/2003
File size: 508 bytes

Rev	Line
[2403]	1	*
	2	* $Id: mntiny.F,v 1.1.1.1 2003-06-11 14:18:30 cmv Exp $
	3	*
	4	* $Log: not supported by cvs2svn $
	5	* Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
	6	* Minuit
	7	*
	8	*
	9	#include "minuit/pilot.h"
	10	SUBROUTINE MNTINY(EPSP1,EPSBAK)
	11	#include "minuit/d506dp.inc"
	12	CC Compares its argument with the value 1.0, and returns
	13	CC the value .TRUE. if they are equal. To find EPSMAC
	14	CC safely by foiling the Fortran optimizer
	15	CC
	16	PARAMETER (ONE=1.0)
	17	EPSBAK = EPSP1 - ONE
	18	RETURN
	19	END

Note: See TracBrowser for help on using the repository browser.