ADAS Subroutine lngama

      function lngama(x)
	
C-----------------------------------------------------------------------
C
C    ****************** fortran77 function: lngama ****************** 
C
C  purpose: Returns the natural logarithm of the Gamma function of x
C
C  calling program: various
C
C  input : (r*8)  x      = function argument
C
C  output: (r*8)  lngama = function name
C
C  author: Paul Bryans, University of Strathclyde
C
C  date:   26/01/04
C
C  update: 
C
C-----------------------------------------------------------------------
      REAL*8              X