anchor.diff:       &     s,stemp,                                                     ! stiff
        &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
        &     ndmatsz,numelt,nconsz,                                       ! elemnt
  -     &     ptmp,infmat(1,imat),nprop,matgpt,elas_mat_7,                 ! materl
  +     &     ptmp,nprop,matgpt,imatvar,nmatel,elas_mat_7,                 ! materl
        &     td_matinit_7,matchg,tminmax,                                 ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
        &     rtimdat,ntimdat,                                             ! timdat
  
positive.code: c
  c...  local variables
  c
        integer imat,matmodel,nmatel,nprop,indprop,matgpt
        double precision ptmp(100)
        logical matchg
  c
  
negative.code:      &     s,stemp,                                                     ! stiff
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nprop,matgpt,imatvar,nmatel,elas_mat_12,                ! materl
       &     td_matinit_12,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,                                             ! timdat
  