Skip to main content

Browse the archive

https://github.com/alphaparrot/ExoPlaSim
08 March 2024, 04:38:08 UTC
Revision 5a37be1a58b3200355619edaeed3ab08d0d17a97 authored by Adiv Paradise on 02 August 2018, 04:35:03 UTC, committed by Adiv Paradise on 02 August 2018, 04:35:03 UTC 
Caught missing argument in subroutine call.
1 parent 5bd4716
Raw File
Tip revision: 5a37be1a58b3200355619edaeed3ab08d0d17a97 authored by Adiv Paradise on 02 August 2018, 04:35:03 UTC
Caught missing argument in subroutine call.
Tip revision: 5a37be1
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
back to top