File: alg7.f

package info (click to toggle)

nastran 0.1.95-2

file content (7 lines) | stat: -rw-r--r-- 117 bytes

      FUNCTION ALG7 (H,S)
C
      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP
C
      ALG7=H/CP
      RETURN
      END