REAL :: X, Y
INTEGER :: K
X = TRANSFER (K, Y) causes K to be treated as a REAL
----------
> I do not quite understand the documentation in Metcalfe and Read and
> other books on the Transfer function. I am helping a user switches
> bytes around. In the old days I'd equivalence a character array to
> an integer. I want to do something like:
>
>
> character char1,char2,char3,char4,char5(4)
> integer idate
> read(1)char1,char2,char3,char4
> char5(1)=char4
> char5(2)=char3
> char5(3)=char2
> char5(4)=char1
> ires=transfer(char5,idate,[somethingelsesize])
>
> I can not find an example illustrating the transfer function.
>
>
> **************************************************************************
> John Blair-Fish
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|