COSMOS v7.655  COSMOSv7655
(AirShowerMC)
mnunpt.f
Go to the documentation of this file.
1 *
2 * $Id: mnunpt.F,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
3 *
4 * $Log: mnunpt.F,v $
5 * Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
6 * Minuit
7 *
8 *
9  LOGICAL FUNCTION mnunpt(CFNAME)
10 C is .TRUE. if CFNAME contains unprintable characters.
11  CHARACTER CFNAME*(*)
12  CHARACTER CPT*80, CP1*40,CP2*40
13  parameter(cp1=' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm')
14  parameter(cp2='nopqrstuvwxyz1234567890./;:[]$%*_!@#&+()')
15  cpt=cp1//cp2
16  mnunpt = .false.
17  l = len(cfname)
18  DO 100 i= 1, l
19  DO 50 ic= 1, 80
20  IF (cfname(i:i) .EQ. cpt(ic:ic)) GO TO 100
21  50 CONTINUE
22  mnunpt = .true.
23  GO TO 150
24  100 CONTINUE
25  150 CONTINUE
26  RETURN
27  END
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
i
nodes i
Definition: cstdatmos0.fNew2.h:93
true
block data cblkElemag data *AnihiE ! Eposi< 1 TeV, anihilation considered *X0/365.667/, ! radiation length of air in kg/m2 *Ecrit/81.e-3/, ! critical energy of air in GeV *MaxComptonE/1./, ! compton is considered below 1 GeV *MaxPhotoE/1.e-3/, ! above this, PhotoElectric effect neg. *MinPhotoProdE/153.e-3/, ! below 153 MeV, no gp --> hadrons ! scattering const not MeV *Knockon true
Definition: cblkElemag.h:7
mnunpt
logical function mnunpt(CFNAME)
Definition: mnunpt.f:10
false
block data cblkElemag data *AnihiE ! Eposi< 1 TeV, anihilation considered *X0/365.667/, ! radiation length of air in kg/m2 *Ecrit/81.e-3/, ! critical energy of air in GeV *MaxComptonE/1./, ! compton is considered below 1 GeV *MaxPhotoE/1.e-3/, ! above this, PhotoElectric effect neg. *MinPhotoProdE/153.e-3/, ! below 153 MeV, no gp --> hadrons ! scattering const not MeV *Knockon ! knockon is considered Obsolete *PhotoProd false
Definition: cblkElemag.h:7