https://github.com/HartmutBorth/PLASIM
Tip revision: ea4d2d8d11d8b4c8de2ed947f3362f3932e620c3 authored by Frank on 28 June 2017, 14:13:41 UTC
Frank 28.06.17:
Frank 28.06.17:
Tip revision: ea4d2d8
f90check.f90
program f90check
integer :: i = 258
real :: r = 1.0
open(21,file='F90_INTEGER',form='unformatted')
write (21) i
close(21)
open(21,file='F90_REAL',form='unformatted')
write (21) r
close(21)
!call csub(i,r)
stop
end program f90check
