Path: | ILDGClass/OLDS/tend.F90 |
Last Update: | Thu May 26 22:54:42 +0900 2011 |
Main Program : |
program tend implicit none character(len=1) :: data(8) character(len=8) :: bbbb real(8) :: ure integer :: iout = 10 ure = 4*ATAN(1.0d0) open(iout,file="BYTE.DATA",form="unformatted") write(iout)ure write(*,*)ure data = TRANSFER(ure,data) write(iout)data write(*,*)data data(1:8) = data(8:1:-1) write(iout)data write(*,*)data ure = TRANSFER(data,ure) write(iout)ure write(*,*)ure close(iout) stop end program