User Subroutine Interface
SUBROUTINE GAPELECTR(SIGMA,D,TEMP,PREDEF,TIME,CINAME,
1 SECNAME,MAINNAME,COORDS,NODE,NPRED,KSTEP,KINC)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 CINAME,SECNAME,MAINNAME
C
DIMENSION SIGMA(5),D(2),TEMP(2),PREDEF(2,*),TIME(2),
1 COORDS(2,3)
user coding to define SIGMA(1) -- SIGMA(5)
RETURN
END