MINICERN/mathlib/gen/u/u100fc.F.ori

   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