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:           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:     integer(kind=kint) :: c_elemopt, c_aincparam, c_timepoints
      integer(kind=kint) :: c_output, islog
      integer(kind=kint) :: k
      integer(kind=kint) :: cache = 1
  
      write( logfileNAME, '(i5,''.log'')' ) myrank
  
  