Mercurial > hg > octave-lyh
view libcruft/slatec-fn/xdgamit.f @ 7635:ba7a3e20ee3d
add -struct modifier to save
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Tue, 25 Mar 2008 15:29:26 -0400 |
parents | c0532bbaefd7 |
children |
line wrap: on
line source
subroutine xdgamit (a, x, result) external dgamit double precision a, x, result, dgamit result = dgamit (a, x) return end