chk_endianc.F90

Go to the documentation of this file.

 
 
subroutine chk_endianc(mendian)
  implicit none
  character(16),intent(out)  :: mendian
  INTEGER,PARAMETER :: ASCII_0 = 48,ascii_1 = 49,ascii_2 = 50,    &
       ascii_3 = 51
  INTEGER(4) :: I
  common// i
 
  i = ascii_0 + ascii_1*256 + ascii_2*(256**2) + ascii_3*(256**3)
  call findendian(mendian)
end subroutine chk_endianc
 
subroutine findendian(mendian)
  implicit none
  character(16),intent(out)        :: mendian
  character :: i*4
  common//  i
 
  if(i .eq. '0123') then
     mendian='little_endian'
     return
  elseif (i .eq. '3210') then
     mendian='big_endian'
     return
  else
     mendian='mixed_endian'
     return
  endif
end subroutine findendian