User Subroutine Interface
SUBROUTINE UWAVE(V,A,PDYN,DPDYNDZ,SURF,LPDYN 1 LRECOMPUTE,LUPLOCAL,LUPGLOBAL, 2 LSURF,NDIM,XCUR,XINTERMED, 3 GRAV,DENSITY,ELEVB,ELEVS, 4 SEED,NSPECTRUM,FREQWAMP, 5 TIME,DTIME,NOEL,NPT,KSTEP,KINC) C INCLUDE 'ABA_PARAM.INC' C DIMENSION V(NDIM),A(NDIM),XCUR(NDIM),XINTERMED(NDIM), 1 FREQWAMP(2,NSPECTRUM),TIME(2) user coding to define V, A, PDYN, DPDYNDZ, SURF and, if necessary, LUPGLOBAL and LUPLOCAL RETURN END