MINICERN/mathlib/gen/u/u100fc.F

   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 *FCA :          Fri Mar 26 17:27:50 CET 1999 by  Federico Carminati
  10 *               removed VZERO
  11 #include "gen/pilot.h"
  12       SUBROUTINE U100FC (I,K)
  13       DIMENSION K(40), L(40)
  14       DO KZERO=1,40
  15          K(KZERO)=0
  16       ENDDO
  17 *      CALL VZERO (K, 40)
  18       IF(I)  4,3,2
  19     4 K(1)=-77
  20       RETURN
  21     2 DO 5  JK=1,I
  22       CALL U100PR(JK,L,M)
  23       DO 5 JM=1,40
  24     5 K(JM)=K(JM)+L(JM)
  25     3 RETURN
  26       END