anchor.diff:       &           dx,iwinkx,winkx,numslp,numsn,nwinkx,                   ! slip
        &           tfault,numfn,                                          ! fault
        &           s,stemp,                                               ! stiff
  -     &           state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,        ! elemnt
  -     &           nstatesz,ndmatsz,numelt,nconsz,                        ! elemnt
  +     &           state,dstate,state0,dmat,ien,lm,lmx,lmf,infiel,iddmat, ! elemnt
  +     &           nstatesz,nstatesz0,ndmatsz,numelt,nconsz,nprestrflag,  ! elemnt
  +     &           ipstrs,ipauto,nstate0,                                 ! elemnt
        &           prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,     ! materl
        &           gauss,sh,shj,infetype,                                 ! eltype
        &           histry,rtimdat,ntimdat,rgiter,nhist,lastep,            ! timdat
  
positive.code: c
                call iterate(
       &         alnz,pcg,zcg,dprev,ja,                                   ! sparse
       &         bextern,btraction,bgravity,bconcforce,bprestress,bintern,! force
       &         bresid,bwork,dispvec,nforce,grav,                        ! force
       &         x,d,deld,dcur,id,iwink,wink,nsysdat,                     ! global
       &         dx,deldx,dxcur,idx,iwinkx,winkx,idslp,ipslp,             ! slip
       &         nfault,dfault,tfault,                                    ! fault
       &         s,stemp,                                                 ! stiff
       &         state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,npar,     ! elemnt
       &         ielno,iside,ihistry,pres,pdir,                           ! tractn
       &         prop,mhist,infmat,infmatmod,tminmax,                     ! materl
       &         gauss,sh,shj,infetype,                                   ! eltype
  
negative.code: clater     &         dx,iwinkx,winkx,numslp,numsn,nwinkx,                     ! slip
  clater     &         tfault,numfn,                                            ! fault
  clater     &         s,stemp,                                                 ! stiff
  clater     &         state,dstate,state0,dmat,ien,lm,lmx,lmf,infiel,iddmat,   ! elemnt
  clater     &         nstatesz,nstatesz0,ndmatsz,numelt,nconsz,nprestrflag,    ! elemnt
  clater     &         ipstrs,ipauto,nstate0,                                   !elemnt
  clater     &         prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,       ! materl
  clater     &         gauss,sh,shj,infetype,                                   ! eltype
  clater     &         histry,rtimdat,ntimdat,nhist,lastep,td_matinit_cmp_ld,   ! timdat
  