source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnunpt.F@ 3009

Last change on this file since 3009 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: 754 bytes
RevLine 
[2403]1*
2* $Id: mnunpt.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 LOGICAL FUNCTION MNUNPT(CFNAME)
11C is .TRUE. if CFNAME contains unprintable characters.
12 CHARACTER CFNAME*(*)
13 CHARACTER CPT*80, CP1*40,CP2*40
14 PARAMETER (CP1=' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm')
15 PARAMETER (CP2='nopqrstuvwxyz1234567890./;:[]$%*_!@#&+()')
16 CPT=CP1//CP2
17 MNUNPT = .FALSE.
18 L = LEN(CFNAME)
19 DO 100 I= 1, L
20 DO 50 IC= 1, 80
21 IF (CFNAME(I:I) .EQ. CPT(IC:IC)) GO TO 100
22 50 CONTINUE
23 MNUNPT = .TRUE.
24 GO TO 150
25 100 CONTINUE
26 150 CONTINUE
27 RETURN
28 END
Note: See TracBrowser for help on using the repository browser.