Parent Directory
|
Revision Log
|
Revision Graph
dummy version
* * $Id: agvtrbunch.age,v 1.1 2002/01/25 14:52:38 nevski Exp $ * $Name: $ * $Log: agvtrbunch.age,v $ * Revision 1.1 2002/01/25 14:52:38 nevski * dummy version * * #include "commons/config.h" ************************************************************************* Function AgVTRBUNCH(itra) #include "commons/typing.inc" Real AgVTRBUNCH Integer ITRA,N/100/ if (N<=0) return Print *,'THIS IS AN ERROR: YOU got an EMPTY AGVTRBUNCH !' N=N-1 end
| CERN Central CVS service | ViewVC Help |
| Powered by ViewVC 1.0.9 |