mntiny.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mntiny (EPSP1, EPSBAK)

Function/Subroutine Documentation

mntiny()

subroutine mntiny	(		EPSP1,
			EPSBAK
	)

Definition at line 10 of file mntiny.f.

References a, h, o, parameter(), and z.

Referenced by mninit().

*
* $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506dp.inc,v $
* Revision 1.1.1.1  1996/03/07 14:31:32  mclareni
* Minuit
*
*
*
*
* d506dp.inc
*
C ************ DOUBLE PRECISION VERSION *************
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
CC        Compares its argument with the value 1.0, and returns
CC        the value .TRUE. if they are equal.  To find EPSMAC
CC        safely by foiling the Fortran optimizer
CC
      parameter(one=1.0)
      epsbak =  epsp1  - one
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: