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

Last change on this file 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.