mct_aVect_getRAttr - get real F90 array data out of an aVect

Get the data associated with attribute str in AttributeVector aVect and return in the real F90 array data data. 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 exportRAttr except the output argument
     is not a pointer.

REVISION HISTORY:

       2002 Apr xx - B. Kauffman - first version

INTERFACE:

 
 subroutine mct_aVect_getRAttr(aVect,str,data,rcode)

INPUT/OUTPUT PARAMETERS:

 
    type(mct_aVect),intent(in)  :: aVect    ! an Attribute vector
    character(*)       ,intent(in)  :: str      ! field name string
    real(R8)           ,intent(out) :: data(:)  ! an F90 array
    integer(IN)        ,intent(out) :: rcode    ! return code