forums.silverfrost.com

[mmaharish]

Im having many fortran files, i have to run the project. i dont know which is the first file i have to run. please help me to run.

[mmaharish]

anyone there???????????

[mecej4]

[mmaharish]

Im new to fortran so i don't know anything, but im having codings. My boss asked me to run the project. it consists of many fortran files, so i need help. i run one program that too is showing error. What i have to do now.??

[brucebowler]

[davidb]

[mmaharish]

Increment the run counter
c

include "mc.inc"

integer jj,startgene,tnumzf

startgene=0

open(unit=1,file='run.number',status='old',err=121)

read(1,103) thisfn(1),thisfn(2),thisfn(3),thisfn(4),
1 runnum,startgene,tnumzf,jj

close(unit=1)

runnum=runnum+1

if(jj .eq. 9) then

c Macintosh
runit=9
wunit=9

barrier=':'
fchar='c'

else

c SGI
wunit=2
runit=5

barrier='/'
fchar='/'

endif

write(wunit,104) 'R','run.number'
104 format(a1,'-',a10)

open(unit=1,file='run.number',status='old')

rewind(unit=1)

write(1,103) thisfn(1),thisfn(2),thisfn(3),thisfn(4),
1 runnum,startgene,numzf,jj
103 format(4a1,5i5)

write(wunit,102) runnum
102 format('Run=',i9,' ')

close(unit=1)

goto 122

121 continue
write(wunit,123)
123 format('RUN.NUMBER file missing')
stopprog=.true.

122 continue

end




block data
c-----------------------------------------------------------------------
c
c Initialize the data statements
c

include "mc.inc"

data chonear /'0','1','2','3','4','5','6','7','8','9',
1 ' ','-',' ','*','o','|',
1 'f','g','h','i','j',
1 'k','l','m','n','o',
1 'p','q','r','s','t',
1 'u','v','w','x','y',
1 'z','A','B','C','D',
1 'E','F','G','H','I',
1 'J','K','L','M','N',
1 'O','P','Q','R','S'/

data schrlimit /10,10,10,10,10,
1 10,10,10,10,10,
1 10,10,10,10,10,
1 10,10,10,10,10,
1 10,10/

end

[/b]

[mmaharish]

the above is the SHORT CODING lines of the program, the RED line indicate the ERROR in the program.....

[JohnCampbell]

The problem in the code example you have provided is that the program is using fortran unit 1 to open a file, eg

[mmaharish]

I don't know FORTRAN plz tell me how to run in the command prompt... but my boss told these programs are already executed...now you have to run....my boss friend gave all programs and went..my boss too don't know how to run....plz tell step by step..my kind request to u friendzzz.....

[JohnCampbell]

I am reluctant to help, as this looks like a project destined for disaster.
You need someone who has some knowledge of both running fortran and also what the program is doing. The best source may be to contact "my boss friend", although given the amount of input he appears to have provided, he may not know much of what is required.
What you need to do is:
1) Understand how to get a program runing with FTN95, presumably the free compiler you found.
2) As this is old style code (fixed format), it is probably pre Fortran 90, hence the use of unit 1 for file access. There will probably be other non-standard usage which needs to be verified. (The code sample implies it supports Mac and SGI which are more recent, so there may be minimal change required? Neither are Win/Intel)
3) Learn how to compile (with FTN95) then link (with SLINK) to produce a .exe "run" file.
4) Once you have the program running, you need to confirm that the existing data sets can reproduce past run results.
5) Then you can propose new data sets and see how confident you are in using these results.
Start reading the documentation !

John

[mmaharish]

1.I'm using PLATO IDE, so i run the program using that
2. How to use the unit 1 for file access.?
3. Whilr im running the program the .exe file is created in my local machine, but it says UNIT is NEITHER been opened nor PRECONNECTED
4. your 4th point i cant able 2 understand.
5. also 5th...

[IanLambley]

Item 2 - Don't use unit=1 for file access. It can be done, but if you specifically open a file on that unit number and then close it, it will be totally disconnected. Prior to opening it, unit=1 can be by default (preconnected) allow input from the keyboard. Any subsequent attempts to read from the keyboard will then fail. Some compilers use defaults of 5 for keyboard input and 6 for screen output. Others use 1 & 2. It is best therefore to use higher numbers for input and output to files and steer well clear of the preconnected units in the range 1 to 6. Therefore start at 10 for files.
Commands like read(*,*)a read from either unit=1 or unit=6 depending on the compiler, so if you do the following:

[mmaharish]

wat i have to do..???

[mecej4]