MINICERN/mathlib/gen/c/legor.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:01:59  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE LEGOR
  11 #include "legbl.inc"
  12      1,RGAM
  13       A=0.5*(1.0+VV)
  14       B=0.0
  15       C=0.5
  16       GR=RGAM(A,B,C)
  17       C=U*PI*VV*0.5
  18       A=EXP(C)
  19       B=EXP(-C)
  20       IF(NFRIG)9,10,11
  21     9 QQ=PISR*0.5*GR*U*A
  22       GOTO 12
  23    10 QQ=U*PISR/4.0*GR*(A-B)
  24       GOTO 12
  25    11 QQ=-PISR/2.0*GR*B*U
  26    12 PP=GR*(A+B)/(2.0*PISR)
  27       RETURN
  28       END