COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Functions/Subroutines
mnunpt.f File Reference

Go to the source code of this file.

Functions/Subroutines

logical function mnunpt (CFNAME)
 

Function/Subroutine Documentation

◆ mnunpt()

logical function mnunpt ( character, dimension(*)  CFNAME)

Definition at line 10 of file mnunpt.f.

References false, i, parameter(), and true.

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
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
Here is the call graph for this function: