anchor.diff:      double precision,intent(in),optional::t !< time
       integer,parameter::DFLT_STR_LEN=400
       character(DFLT_STR_LEN)::tempStr
  +    integer nEntry,nItem
       
       select case(bind)
       case(BIND_NODE)
  
positive.code:     write(id,'(a)'),'$EndElements'
    end subroutine
    
    !> write scalar v into opened file id
    subroutine writeGMSHScal(id,v,grid,bind,vName,n,t)
      use moduleGrid
      integer,intent(in)::id !< the file id
      double precision,intent(in)::v(:) !< scalar to be written
      type(typeGrid),intent(in)::grid !< grid on which v is defined
      integer,intent(in)::bind !< bind with Node/Facet/Block
      character(*),intent(in)::vName !< name of v
  
negative.code:     character(*),intent(in)::vName !< name of v
      integer,intent(in),optional::n !< time step index
      double precision,intent(in),optional::t !< time
      
      if(present(n).and.present(t))then
        call writeGMSHScalVectTens(id,RANK_VECT,v,grid,bind,vName,n,t)
      else
        call writeGMSHScalVectTens(id,RANK_VECT,v,grid,bind,vName)
      end if
    end subroutine
    
    !> write tensor v into opened file id
  