INTEGER*4 FUNCTION RDSWAP(JARG) C C ... This Function is necessary for switching the words of an Integer*4 C variable because RDM reverses it's WORDS in Integer*4. C C Note: Negative Numbers are done the Same Way C C ... written by M.Kahler in NOV85 C Integer*4 Jarg Integer*4 Jsource,Jtarget Integer*2 ISource(2),Itarget(2) Equivalence (Jsource,Isource) Equivalence (Jtarget,Itarget) C C ... flip the words C Jsource = Jarg Itarget(2) = Isource(1) Itarget(1) = Isource(2) C C ... send back the swapped value C Rdswap = Jtarget Return End