[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / u / u100fc.F.ori

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:01:45  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE U100FC (I,K)
      DIMENSION K(40), L(40)
      CALL VZERO (K, 40)
      IF(I)  4,3,2
    4 K(1)=-77
      RETURN
    2 DO 5  JK=1,I
      CALL U100PR(JK,L,M)
      DO 5 JM=1,40
    5 K(JM)=K(JM)+L(JM)
    3 RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:01:45 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE U100FC (I,K)
	11	DIMENSION K(40), L(40)
	12	CALL VZERO (K, 40)
	13	IF(I) 4,3,2
	14	4 K(1)=-77
	15	RETURN
	16	2 DO 5 JK=1,I
	17	CALL U100PR(JK,L,M)
	18	DO 5 JM=1,40
	19	5 K(JM)=K(JM)+L(JM)
	20	3 RETURN
	21	END