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