/[PAMELA software]/calo/unpacking/azero.for
ViewVC logotype

Annotation of /calo/unpacking/azero.for

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Mon Dec 5 16:23:20 2005 UTC (19 years ago) by mocchiut
Branch point for: MAIN, unpacking
Initial revision

1 mocchiut 1.1 C------------------------------------------------
2     SUBROUTINE AZERO(vetto,lung)
3     C------------------------------------------------
4    
5     IMPLICIT NONE
6     C
7     integer lung, i
8     INTEGER vetto(lung)
9    
10     do i = 1, lung
11     vetto(i) = 0
12     enddo
13    
14     return
15     end

  ViewVC Help
Powered by ViewVC 1.1.23