call xdrffloat_(ixdrf,real(rmsdev),iret)
call xdrfint_(ixdrf,iscor,iret)
#else
call xdrf3dfcoord(ixdrf, xoord, itmp, prec, iret)
call xdrffloat_(ixdrf,real(rmsdev),iret)
call xdrfint_(ixdrf,iscor,iret)
#else
call xdrf3dfcoord(ixdrf, xoord, itmp, prec, iret)