anchor.diff:          integer(kind=kint) :: c_elemopt
           integer(kind=kint) :: c_output, islog
           integer(kind=kint) :: k
  +        integer(kind=kint) :: cache = 1
   
           write( logfileNAME, '(i5,''.log'')' ) myrank
   
  
positive.code:                 write(ILOG,*) '### Error: Fail in read in material definition : ', c_material
                  stop
              endif
              cid = 0
              do i=1,hecMESH%material%n_mat
                if( fstr_streqr( hecMESH%material%mat_name(i), mName ) ) then
                  cid = i; exit
                endif
              enddo
              if(cid == 0)then
                  write(*,*) '### Error: Fail in read in material definition : ' , c_material
                  write(ILOG,*) '### Error: Fail in read in material definition : ', c_material
  
negative.code:             endif
              fstrSOLID%materials(cid)%name = mName
              if(c_material>hecMESH%material%n_mat) call initMaterial( fstrSOLID%materials(cid) )
  
            else if( header_name == '!ELASTIC' ) then
              if( c_material >0 ) then
                 if( fstr_ctrl_get_ELASTICITY( ctrl,                                        &
  