MINICERN/mathlib/gen/divon/feqn.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:25  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE FEQN (NCUT,F,FGAM,FNLIN)
  11       INTEGER NCUT
  12       DOUBLE PRECISION FGAM
  13       DOUBLE PRECISION F(NCUT), FNLIN(NCUT)
  14       INTEGER I, NCUTM1
  15       IF(NCUT.EQ.1) GOTO 20
  16       NCUTM1=NCUT-1
  17       DO 10 I=1,NCUTM1
  18       FNLIN(I)=F(I)-F(I+1)
  19  10   CONTINUE
  20  20   FNLIN(NCUT)=F(1)-FGAM
  21       RETURN
  22       END