x4884.F90

Go to the documentation of this file.

 
 
subroutine x48(iin4,iout8,nval)
 
  implicit none
 
  integer, intent(in) :: iin4(*), nval
  integer, intent(out) :: iout8(*)
 
  integer, parameter :: zero = 0, ones = -1
 
  integer k, l, itmp, ilo, ihi
 
  ! ihi points to the first byte of the high-order (i.e. most significant) 4-byte integer word within an 8-byte integer word.
  ! ilo points to the first byte of the low-order (i.e. least significant) 4-byte integer word within an 8-byte integer word.
 
#ifdef BIG_ENDIAN
  ihi=1
  ilo=5
#else
  ihi=5
  ilo=1
#endif
 
  ! Re-encode the 4-byte values as 8-byte values.
 
  do k = nval,1,-1
    l=2*k-1
    call mvb(iin4(k),1,itmp,ilo,4)
    iout8(l)=itmp
    if(iout8(l)<0) then
      call mvb(ones,1,iout8(l),ihi,4)
    else
      call mvb(zero,1,iout8(l),ihi,4)
    endif
  enddo
 
  return
end subroutine x48
 
subroutine x84(iin8,iout4,nval)
  implicit none
 
  integer, intent(in) :: iin8(*), nval
  integer, intent(out) :: iout4(*)
 
  integer k, l, itmp, ilo
 
  ! ilo points to the first byte of the low-order (i.e. least significant) 4-byte integer word within an 8-byte integer word.
 
#ifdef BIG_ENDIAN
  ilo=5
#else
  ilo=1
#endif
 
  ! Re-encode the 8-byte values as 4-byte values.
 
  do k = 1, nval
    l=2*k-1
    call mvb(iin8(l),ilo,itmp,1,4)
    iout4(k)=itmp
  enddo
 
  return
end subroutine x84
 
subroutine setim8b ( int8b )
 
  use modv_vars, only: im8b
 
  implicit none
 
  logical, intent(in) :: int8b
 
  im8b = int8b
 
return
end subroutine setim8b