47 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
48 COMMON /endord/ iblock,iordbe(4),iordle(4)
50 INTEGER*4 mbay(mwrd),iint,jint
52 CHARACTER*1 cint(4),dint(4)
53 equivalence(cint,iint)
54 equivalence(dint,jint)
62 if(iblock.eq.0)
return
69 iint=0; cint(1)=char(1)
71 if(cint(1).eq.char(01))
then
85 if(nbytw.eq.8) mwrd=mwrd*2
97 if(iblock.eq.+1) dint(i)=cint(iordbe(i))
98 if(iblock.eq.-1) dint(i)=cint(iordle(i))
108 if(nbytw.eq.8) mwrd=mwrd/2
subroutine blocks(MBAY, MWRD)
This subroutine encapsulates a BUFR message with IEEE Fortran control words as specified via the most...