anchor.diff:              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,                                        &
  
positive.code:         integer(kind=kint) :: c_elemopt
          integer(kind=kint) :: c_output, islog
          integer(kind=kint) :: k
  
          write( logfileNAME, '(i5,''.log'')' ) myrank
  
  
negative.code:                 write(ILOG,*) '### Error: Fail in read in material definition : ', c_material
                  stop
              endif
  
              cid = 0
              if(cache < hecMESH%material%n_mat .and. &
                 fstr_streqr( hecMESH%material%mat_name(cache), mName ))then
                cid = cache
                cache = cache + 1
              else
                do i=1,hecMESH%material%n_mat
                  if( fstr_streqr( hecMESH%material%mat_name(i), mName ) ) then
                    cid = i
                    cache = i + 1
                    exit
                  endif
                enddo
              endif
              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
  