/[PAMELA software]/DarthVader/CalorimeterLevel2/src/nointer.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/nointer.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by mocchiut, Fri May 19 13:15:51 2006 UTC revision 1.3 by mocchiut, Tue Aug 4 14:01:21 2009 UTC
# Line 4  C-   Created  20-OCT-1994   MIRKO BOEZIO Line 4  C-   Created  20-OCT-1994   MIRKO BOEZIO
4  C-  C-
5        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
6  C        C      
7        REAL BAR(2,NPLA)        REAL BAR(2,NPLAV)
8        REAL RIL(NCHA/2)        REAL RIL(NCHA/2)
9        INTEGER IBAR(2,NPLA)        INTEGER IBAR(2,NPLAV)
10        INTEGER NPIANI        INTEGER NPIANI
11        COMMON/ ANGOLO / BAR, IBAR        COMMON/ ANGOLO / BAR, IBAR
12        SAVE / ANGOLO /        SAVE / ANGOLO /
# Line 19  C Line 19  C
19  C  C
20        IF (RIG.NE.0) NPIANI = INT( ANINT( 9. + LOG(ABS(RIG)) ) )        IF (RIG.NE.0) NPIANI = INT( ANINT( 9. + LOG(ABS(RIG)) ) )
21  C  C
22        IF ( NPIANI.gt.22 ) NPIANI = 22        IF ( NPIANI.gt.NPLA ) NPIANI = NPLA
23        IF ( NPIANI.lt.1 )  NPIANI = 1        IF ( NPIANI.lt.1 )  NPIANI = 1
24  C  C
25        DO K = 1,NCHA/2        DO K = 1,NCHA/2
# Line 63  C Line 63  C
63        ENDDO        ENDDO
64  C  C
65    
66    999 RETURN  c  999 RETURN
67          RETURN
68        END        END
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23