subroutine gapcon(ak,d,flowm,temp,predef,time,ciname,
     1  secname,mainname,coords,noel,node,npred,kstep,kinc)
c
      include 'aba_param.inc'
c
      character*80 ciname,secname,mainname
      dimension flowm(2),temp(2),predef(2,*),
     1          ak(5),d(2),coords(3),time(2)
c
        ak(1)=2.0-100.0*d(1)
        ak(2)=-100.0
c
      return
      end