mct_aVect_putRAttr - put real F90 array data into an aVect

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 version

INTERFACE:

 
 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