User Subroutine Interface
SUBROUTINE UINTER(STRESS,DDSDDR,DVISCOUS,DSTRUCTURAL,FLUX,DDFDDT, 1 DDSDDT,DDFDDR,STATEV,SED,SFD,SPD,SVD,SCD,PNEWDT,RDISP, 2 DRDISP, 3 TEMP,DTEMP,PREDEF,DPRED,TIME,DTIME,FREQR,CINAME,SECNAME, 4 MAINNAME, 5 PROPS,COORDS,ALOCALDIR,DROT,AREA,CHRLNGTH,NODE,NDIR,NSTATV, 6 NPRED,NPROPS,MCRD,KSTEP,KINC,KIT,LINPER,LOPENCLOSE,LSTATE, 7 LSDI,LPRINT) C INCLUDE 'ABA_PARAM.INC' C CHARACTER*80 CINAME,SECNAME,MAINNAME DIMENSION STRESS(NDIR),DDSDDR(NDIR,NDIR),FLUX(2),DDFDDT(2,2), 1 DDSDDT(NDIR,2),DDFDDR(2,NDIR),STATEV(NSTATV), 2 RDISP(NDIR),DRDISP(NDIR),TEMP(2),DTEMP(2),PREDEF(2,NPRED), 3 DPRED(2,NPRED),TIME(2),PROPS(NPROPS),COORDS(MCRD), 4 ALOCALDIR(3,3),DROT(2,2),DVISCOUS(NDIR,NDIR), 5 DSTRUCTURAL(NDIR,NDIR) user coding to define STRESS, DDSDDR, FLUX, DDFDDT, DDSDDT, DDFDDR, and, optionally, STATEV, SED, SFD, SPD, SVD, SCD, PNEWDT, LOPENCLOSE, LSTATE, LSDI, DVISCOUS, DSTRUCTURAL RETURN END