anchor.diff:      comment='frequency_result'
   
       call hecmw_result_init(hecMESH, istp, header, comment)
  +
  +    label = "time"
  +    absval(1) = time
  +    call hecmw_result_add(3, 1, label, absval)
   
       if(iout(1) == 1) then
         label='displacement_real'
  
positive.code:       if(IRESULT==1) then
          write(*,   *) "time=", time, " : ", im, ".res"
          write(ilog,*) "time=", time, " : ", im, ".res"
          call outputdyna_resfile(hecMESH, im, dvaRe, dvaIm, velRe, velIm, accRe, accIm, freqiout)
        end if
        if(IVISUAL==1 .and. vistype==2) then
          write(*,   *) "time=", time, " : ", im, ".vis"
  
negative.code:     character(len=HECMW_HEADER_LEN) :: header
      character(len=HECMW_MSG_LEN)    :: comment
      character(len=HECMW_NAME_LEN)   :: label, nameid
      real(kind=kreal)                :: freqval(1)
      !---- body
  
      nameid='fstrRES'
      header='*fstrresult'
      comment='frequency_result'
      call hecmw_result_init(hecMESH, ifreq, header, comment)
  
      label = "frequency"
      freqval(1) = freq
      call hecmw_result_add(3, 1, label, freqval)
  
      if(iout(1) == 1) then
        label='displacement'
        call hecmw_result_add(1, 3, label, disp) !mode=node, ndof=3
  