forums.silverfrost.com

[mmaharish]

In my fortran program its showing error as ( INCREMENTRUNNUM - in file onechr.f at line 858 [+02f5] MAIN# -)?
What is that..????

[PaulLaidler]

Show us line 858 of your code together with a few lines before it.
Also show us the full error report.

[mmaharish]

c Main for New Chromosome Simulation Program
c-----------------------------------------------------------------------

include "mc.inc"
include "mcds.inc"

integer i,jobno,ii,j

logical firstloop

character*60 fncomeq
equivalence(fncomeq,fncom(1))

character*12 pofn
character*1 epofn(12)
equivalence(epofn(1),pofn)

bowie=.false.

deskside=.true.

strucread=0

thischr=1

useonewidth=0

c-----------------------------------------------------------------------

if(bowie) then

poffset=7

bos=22

else

poffset=0

c For ANA1 and ANA2

if(deskside) then

bos=15

else

c123456
cctron:cseq.mmm:mmm.rules.raw

bos=6

endif

endif

c-----------------------------------------------------------------------

c For Bowie work

firstloop=.true.

call incrementrunnum

inullchar=0

c write(wunit,1101)
c1101 format('Job number =',$)
c read(runit,1102) jobno
c1102 format(i5)
c if(jobno .eq. 0) jobno=1

c 0 = functional names not generated
c 1 = functional names will be generated

funnames=1
rikenflg=0

permflg=1

timeseed=59823

group5=.true.
block5=.true.
group6=.false.
group7=.true.
group8=.false.
stopprog=.false.
separatepo2=.false.
ltotalseq=0
selfflg=0
useexon=1
chrnum=21
rw2flg=0
ws4override=0
usemfa=.false.
rawnflg=0

zaplf=.false.
fmissing=.true.

ucset=0

highereukaryote=0

rmaxmachinenum=22
maxmachinenum=rmaxmachinenum

maxsspt=maxss+10

numzf=7
minint=21

forcepercent=0

if(smallgenome .eq. 1) then !a

numzf=5
minint=15

endif !a

showfilenames=.true.

ihour=0
iminute=0
isecond=0
oldseconds=0

numchr=22
c numchr=1

write(wunit,102)
102 format('Find the clusters of all chromosomes')

c-----------------------------------------------------------------------

c For the smaller eukaryotes, use 5-finger rules

if( ((thisfn(1) .eq. 'a') .and.
1 (thisfn(2) .eq. 't') .and. (thisfn(3) .eq. 'h')) .or.

1 ((thisfn(1) .eq. 'w') .and.
1 (thisfn(2) .eq. 'r') .and. (thisfn(3) .eq. 'm')) .or.

1 ((thisfn(1) .eq. 'y') .and.
1 (thisfn(2) .eq. 's') .and. (thisfn(3) .eq. 't')) .or.

1 ((thisfn(1) .eq. 'd') .and.
1 (thisfn(2) .eq. 'm') .and. (thisfn(3) .eq. 'e')) ) then !c

c numzf=5
c minint=15

c 11/26/04 all the smaller eukaryotes are - for the moment -
c considered to be 8-finger genomes

numzf=7
minint=21

zaplf=.true.

endif !c

numzbases=numzf*3

c-----------------------------------------------------------------------

if ( ((thisfn(1) .eq. 'h') .and.
1 (thisfn(2) .eq. 's')) .or.

1 ((thisfn(1) .eq. 'a') .and.
1 (thisfn(2) .eq. 't') .and. (thisfn(3) .eq. 'h')) .or.

1 ((thisfn(1) .eq. 'w') .and.
1 (thisfn(2) .eq. 'r') .and. (thisfn(3) .eq. 'm')) .or.

1 ((thisfn(1) .eq. 'd') .and.
1 (thisfn(2) .eq. 'm') .and. (thisfn(3) .eq. 'e')) .or.

1 ((thisfn(1) .eq. 'm') .and.
1 (thisfn(2) .eq. 'm') .and.
1 ((thisfn(3) .eq. 'm') .or. (thisfn(3) .eq. 'u'))) .or.

1 ((thisfn(1) .eq. 'r') .and. (thisfn(2) .eq. 'n') .and.
1 (thisfn(3) .eq. 'o')) ) then !x

if(smallgenome .eq. 1) then !b

write(wunit,7265)
7265 format('This is a large eukaryotic genome'/
1 'The variable smallgenome must = 0 - Exiting')

goto 11

endif !b

endif !x

c-----------------------------------------------------------------------

if ( ((thisfn(1) .eq. 'h') .and.
1 (thisfn(2) .eq. 's')) .or.

1 ((thisfn(1) .eq. 'm') .and.
1 (thisfn(2)

[mmaharish]

Error Line : write(wunit,104) 'R','run.number'

[mmaharish]

Any One there to help me...???

[mecej4]

[mmaharish]

I'm having INCLUDE FILE and full coding..it's a big project. this project consists lot of FORTRAN files. My boss asked me to search for main class file and run it. I found this(the program i pasted) was the main class file. Plz help me to run the program. i pasted full program but it's not pasting fully. How can i paste it friend?

[mmaharish]

c Main for New Chromosome Simulation Program
c-----------------------------------------------------------------------

include "mc.inc"
include "mcds.inc"

integer i,jobno,ii,j

logical firstloop

character*60 fncomeq
equivalence(fncomeq,fncom(1))

character*12 pofn
character*1 epofn(12)
equivalence(epofn(1),pofn)

bowie=.false.

deskside=.true.

strucread=0

thischr=1

useonewidth=0

c-----------------------------------------------------------------------

if(bowie) then

poffset=7

bos=22

else

poffset=0

c For ANA1 and ANA2

if(deskside) then

bos=15

else

c123456
cctron:cseq.mmm:mmm.rules.raw

bos=6

endif

endif

c-----------------------------------------------------------------------

c For Bowie work

firstloop=.true.

call incrementrunnum

inullchar=0

c write(wunit,1101)
c1101 format('Job number =',$)
c read(runit,1102) jobno
c1102 format(i5)
c if(jobno .eq. 0) jobno=1

c 0 = functional names not generated
c 1 = functional names will be generated

funnames=1
rikenflg=0

permflg=1

timeseed=59823

group5=.true.
block5=.true.
group6=.false.
group7=.true.
group8=.false.
stopprog=.false.
separatepo2=.false.
ltotalseq=0
selfflg=0
useexon=1
chrnum=21
rw2flg=0
ws4override=0
usemfa=.false.
rawnflg=0

zaplf=.false.
fmissing=.true.

ucset=0

highereukaryote=0

rmaxmachinenum=22
maxmachinenum=rmaxmachinenum

maxsspt=maxss+10

numzf=7
minint=21

forcepercent=0

if(smallgenome .eq. 1) then !a

numzf=5
minint=15

endif !a

showfilenames=.true.

ihour=0
iminute=0
isecond=0
oldseconds=0

numchr=22
c numchr=1

write(wunit,102)
102 format('Find the clusters of all chromosomes')

c-----------------------------------------------------------------------

c For the smaller eukaryotes, use 5-finger rules

if( ((thisfn(1) .eq. 'a') .and.
1 (thisfn(2) .eq. 't') .and. (thisfn(3) .eq. 'h')) .or.

1 ((thisfn(1) .eq. 'w') .and.
1 (thisfn(2) .eq. 'r') .and. (thisfn(3) .eq. 'm')) .or.

1 ((thisfn(1) .eq. 'y') .and.
1 (thisfn(2) .eq. 's') .and. (thisfn(3) .eq. 't')) .or.

1 ((thisfn(1) .eq. 'd') .and.
1 (thisfn(2) .eq. 'm') .and. (thisfn(3) .eq. 'e')) ) then !c

c numzf=5
c minint=15

c 11/26/04 all the smaller eukaryotes are - for the moment -
c considered to be 8-finger genomes

numzf=7
minint=21

zaplf=.true.

endif !c

numzbases=numzf*3

c-----------------------------------------------------------------------

if ( ((thisfn(1) .eq. 'h') .and.
1 (thisfn(2) .eq. 's')) .or.

1 ((thisfn(1) .eq. 'a') .and.
1 (thisfn(2) .eq. 't') .and. (thisfn(3) .eq. 'h')) .or.

1 ((thisfn(1) .eq. 'w') .and.
1 (thisfn(2) .eq. 'r') .and. (thisfn(3) .eq. 'm')) .or.

1 ((thisfn(1) .eq. 'd') .and.
1 (thisfn(2) .eq. 'm') .and. (thisfn(3) .eq. 'e')) .or.

1 ((thisfn(1) .eq. 'm') .and.
1 (thisfn(2) .eq. 'm') .and.
1 ((thisfn(3) .eq. 'm') .or. (thisfn(3) .eq. 'u'))) .or.

1 ((thisfn(1) .eq. 'r') .and. (thisfn(2) .eq. 'n') .and.
1 (thisfn(3) .eq. 'o')) ) then !x

if(smallgenome .eq. 1) then !b

write(wunit,7265)
7265 format('This is a large eukaryotic genome'/
1 'The variable smallgenome must = 0 - Exiting')

goto 11

endif !b

endif !x

c-----------------------------------------------------------------------

if ( ((thisfn(1) .eq. 'h') .and.
1 (thisfn(2) .eq. 's')) .or.

1 ((thisfn(1) .eq. 'm') .and.
1 (thisfn(2)

[mmaharish]

i pasted full program but only half of the program is displaying. Please say any other way i want a solution to my problem. please help me....im having al files related to this project.

[PaulLaidler]

It would help if you can find the line given by line number 858. Show us that line only with a few lines before it. Also give us the full error report.

[PaulLaidler]

What is the value of WUNIT? It must be either a standard value (2 or 6 or *) or correspond to an OPEN statement in your code.

[mmaharish]

this is the some line . . . .


wunit=6
runit=5

barrier='/'
fchar='/'

endif

ERROR LINE IS: write(wunit,104) 'R','run.number'


ERROR REPORT :

INCREMENTRUNNUM - in file harish.f at line 859 [+02f5]
MAIN# - in file harish.f at line 63 [+00fa]

[PaulLaidler]

I cannot see anything wrong with this.

Try using CHECKMATE and use the debugger to run the program.

[mecej4]

[mmaharish]

What is the debugger..?? I have run many files but every file is telling that, ERROR 94, UNIT NEITHER OPENED NOR PRECONNECTED