tend.F90

Path: ILDGClass/OLDS/tend.F90
Last Update: Wed Jan 18 16:14:48 +0900 2012
dot/f_2.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