Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
-
Write works but Read doesn't
I never got the binary version to work. Upgraded to 4.9 but still nada. Brooks Try this... real(10)::a0(10), a1(10), a2(10) real(10):: r(3,10,100) open(unit=#,...) write(unit=#) A0 write(unit=#) A1 write(unit=#) A2 write(unit=#) r close (#) ... open(unit=#,...) read(unit=#) a0 read(unit=#) a1... -
Write works but Read doesn't
Did the first. When I posted this originally I made sure I could create the file. That is why I entitled the post as 'Write works but Read doesn't'. The only way I can get it to work is with rec=### in the read/write statements. Brooks -
Write works but Read doesn't
salgerman, I tried that but got: Input file = C:\Users\TCS\Desktop\Pearson\MyTest.dat At line 87 of file Ranf.f95 (unit = 4, file = 'C:\Users\TCS\Desktop\Pearson\MyTe st.dat') Fortran runtime error: End of file -
Write works but Read doesn't
oops, forgot the main Brooks http://files.engineering.com/getfile.aspx?folder=19c8fa9d-1de8-4257-8544-48a529fe2cf9&file=RanfTest.f95 -
Write works but Read doesn't
I uploaded the test file. Brookshttp://files.engineering.com/getfile.aspx?folder=8e503559-2073-4748-9b8a-4125541fd121&file=Test.f95 -
Write works but Read doesn't
I've written binary data out but can't seem to read it. Subroutine RanfPut ( fname ) Character(45),intent(in):: fname Integer:: i, ok open ( unit=4,file=fname,iostat=ok,form='unformatted', & status='replace',position='rewind',access=sequential' ) If (ok > 0) Then... -
Code taking too long to execute
Your original program took 7.7 secs for 100,000 and 10.7 mins for 1,000,000. -
use of enum() and format() in fortran
The enum(i) is just the ith element of an array called enum. Brooks -
Help with Format statement
Mikrom, Thanks very much-- didn't think about backspace but had tried TL1a before and didn't work. BrooksVH -
Help with Format statement
Does anybody know how to use format codes to write into a single place on the screen in order to get something that looks like clock hands? I know to use the characters -,\,|,/ to get the desired effect but I need to write them in the same location to get the effect that something is being... -
using an array between C and FORTRAN
You need to remember that Fortran and C store matrices in different orders. C can have two different ways to do a matrix. (1) vect(3)->matrix(3,3) or vect(3)->vect(3)->vect(3). Each entry in the first two vects are pointers. (2) matrix(3,3,3) but it is stored differently than Fortran. BrooksVH -
Link phase not finding files from library or directory
I solved the problem myself. sorry for the thread. The problem was I shouldn't have included the -i and -l keys. -
Link phase not finding files from library or directory
The link step with f95 is: D:\Booster>g95 -o bdp.exe bdp.o -I d:\booster -L d:\boosterMyLib D:\MinGW\Disl in\dismg.a -luser32 -lgdi32 bdp.o:bdp.f95:(.text+0x29): undefined reference to `setearthdata_' bdp.o:bdp.f95:(.text+0x2e): undefined reference to `setboostdata_'...
