Function GAMMQ(A, X)
    If X < 0# Or A <= 0# Then
        Print "PAUSE"
        Exit Function
    End If
    If X < A + 1# Then
        Call GSER(GAMSER, A, X, GLN)
        GAMMQ = 1# - GAMSER
    Else
        Call GCF(GAMMCF, A, X, GLN)
        GAMMQ = GAMMCF
    End If
End Function