source: Sophya/trunk/SophyaExt/CodeMinuit/code/mntiny.F@ 3191

Last change on this file since 3191 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
Line 
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"
12CC Compares its argument with the value 1.0, and returns
13CC the value .TRUE. if they are equal. To find EPSMAC
14CC safely by foiling the Fortran optimizer
15CC
16 PARAMETER (ONE=1.0)
17 EPSBAK = EPSP1 - ONE
18 RETURN
19 END
Note: See TracBrowser for help on using the repository browser.