prism_get_real_kind_type (kindr, type, ierror)
This routine returns in type the PRISM datatype which
corresponds to the kind type parameter kindr. type
can be either PRISM_Real = 4, or
PRISM_Double_Precision = 5 (see
oasis4/lib/common_oa4/include/prism.inc).