Improve SetFromVectorField and SetFromSTVectorField

[shishiousan]

SetFromVectorField and SetFromSTVectorField in STVector- and VectorField classes, respectively, can be improved.

Problematic parts are following
in SetFromVectorField (from 437)

SELECT TYPE (VALUE)
CLASS is (VectorField_)
  tnodes = obj%domain%GetTotalNodes()
  DO ii = 1, tnodes
    CALL VALUE%Get(VALUE=small_value, globalNode=ii)
    DO jj = 1, obj%spaceCompo
      CALL obj%Set(VALUE=small_value(jj), globalNode=ii, scale=scale,  &
        & addContribution=addContribution, timeCompo=timeCompo,  &
        & spaceCompo=jj)
    END DO
  END DO

and in SetFromSTVectorField (from 629)

SELECT TYPE (VALUE)
CLASS is (STVectorField_)
  tnodes = obj%domain%GetTotalNodes()
  DO ii = 1, tnodes
    CALL VALUE%Get(VALUE=small_value, globalNode=ii, timeCompo=timeCompo)
    CALL obj%Set(VALUE=small_value, globalNode=ii, scale=scale,  &
    & addContribution=addContribution)
  END DO