OPEN (1,file="e:\\data\\testdef.txt",form='formatted',status='old',access='sequential')
OPE(2, file="e:\\data\\won05.testdef",access='sequential', form='unformatted', recordtype='fixed',status='replace',recl=410)
DO i=1,150000
READ (unit=1,fmt=2001,end=31) (var(j),j=1,480)
WRITE (2) (jint(var(j)),j=1,20),(iint(var(j)),j=21,30),(iint(var(j)),j=31,100),(var(j),j=101,270),(iint(var(j)),j=271,330),(var(j),j=331,480)
END DO
31 CLOSE (1)
CLOSE (2)
So the file "testdef.txt" is a text file created with STATA (and can be opened with a text editor as well) while the second file "won05.testdef" is the file with the correct format for the simulation model written in Fortran. The next step is make several simulations with the modelwhich result in an output file (simular to the file"won05.testdef"). The final step is to convert this file back to a file that can be handled with STATA again. Unfortunately, I was not able to complete this last step. Does anybody have usefull tips?
Gr. Henk-Wim
Link Copied
For more complete information about compiler optimizations, see our Optimization Notice.