anchor.diff:  c
         include "rtimdat_dim.inc"
         include "ntimdat_dim.inc"
  +      include "rgiter_dim.inc"
   c
   c...  external routines
   c
  
positive.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_19,                ! materl
       &     td_matinit_19,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,                                             ! timdat
       &     skew,numrot,                                                 ! skew
       &     getshape,bmatrix,                                            ! bbar
       &     ierr,errstrng)                                               ! errcode
  
negative.code: c
  c...  local variables
  c
        integer imat,matmodel,nmatel,imatvar,nstate,nprop,indprop,matgpt
        double precision ptmp(100)
        logical matchg
  cdebug      integer idb,jdb
  c
  c...  included variable definitions
  c
        include "rtimdat_def.inc"
        include "ntimdat_def.inc"
        include "rgiter_def.inc"
  c
  cdebug      write(6,*) "Hello from matinit_drv_f!"
  c
        call fill(alnz,zero,nnz)
  c*      call fill(dmat,zero,nddmat*ndmatsz)
        matgpt=1
        tminmax=big
  c
  