- 953 名前：デフォルトの名無しさん mailto:sage [2007/11/11(日) 13:45:48 ]
- >>949,950
fortran90以降でequivalence文を使うのは非推奨。
subroutine trans_endian(str,inte)
character(len=1),dimension(4),intent(in) :: str
integer,intent(out) :: inte
inte=transfer(str(4:1:-1),0)
end subroutine trans_endian
