Avoid re-initialization of time series for parent after child domain starts (#1953)

[WRF.git] / tools / fortran_2008_gamma_test.F

      PROGRAM test_2008_gamma
      IMPLICIT NONE
      REAL :: x , y
      x = 4
      y = gamma ( x ) 
      print *,'gamma(',x,') = ',y
      END PROGRAM test_2008_gamma