tend.F90

Path: ILDGClass/OLDS/tend.F90
Last Update: Thu May 26 22:54:42 +0900 2011
dot/f_3.png

Methods

tend  

Public Instance methods

Main Program :

[Source]

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