Put the data in array data into the AttributeVector aVect under the attribute str. rcode will be 0 if succesful, 1 if size of data does not match size of aVect and 2 if str is not found.
REMARKS:
This is like the MCT routine importRAttr except the output argument is not a pointer.REVISION HISTORY:
2002 Apr xx - B. Kauffman - first versionINTERFACE:
subroutine mct_aVect_putRAttr(aVect,str,data,rcode)INPUT/OUTPUT PARAMETERS:
type(mct_aVect),intent(out) :: aVect ! Attribute vector character(*) ,intent(in) :: str real(R8) ,intent(in) :: data(:) integer(IN) ,intent(out) :: rcode