forums.silverfrost.com :: View topic - Error 84, only blank may be changed for a file that exists..

replica nfl jerseys replica nfl jerseys soccer jersey replica nfl jerseys forums.silverfrost.com :: View topic - Error 84, only blank may be changed for a file that exists..

forums.silverfrost.com
Welcome to the Silverfrost forums

FAQ

Memberlist

Usergroups

Profile

Error 84, only blank may be changed for a file that exists..

forums.silverfrost.com Forum Index -> General

View previous topic :: View next topic

Author

Message

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Mon Feb 13, 2012 6:44 am Post subject: Error 84, only blank may be changed for a file that exists..

Urgent plz....BOLD one shows error..

Quote:

do 90 m=1,thiswidth,250

leftl=m

rightl=m+249
if(rightl .gt. thiswidth) rightl=thiswidth

p=p+1

write(wunit,517) p
517 format('Column =',i3)

open(unit=20,file='Header.ps',status='old')

open(unit=19,file='allgroups.003.sim7',status='old')

etfn(5)=chonear(p)

write(wunit,518) tfn
518 format('W=',a Cool

open(unit=18,file=tfn,status='old')

do 10 i=1,mgroupwidth
a(i)='0'
c(i)=0
10 continue

[/quote]

JohnCampbell

Joined: 16 Feb 2006
Posts: 2615
Location: Sydney

Posted: Mon Feb 13, 2012 9:35 am Post subject:

Do the following files actually exist : Header.ps allgroups.003.sim7 The open statements imply they do, by selecting status='old'. The unit numbers 19 and 20 should not be causing any problem. You may have further problems if the files are in Unix, rather than Dos format. John

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Mon Feb 13, 2012 10:41 am Post subject: this is the Header.ps

Quote:

%!PS-Adobe-3.0
%%Title: (test------Layer#1)
%%Creator: (MacDraw Pro: LaserWriter 8 8.7.1)
%%CreationDate: (11:08 PM Thursday, June 27, 2002)
%%For: (Richard J. Feldmann)
%%Routing: (mailto:\000newdsluser@bellatlantic.net@bellatlantic.net)
%%Pages: 1
%%DocumentFonts: Helvetica-Bold
%%DocumentNeededFonts: Helvetica-Bold
%%DocumentSuppliedFonts:
%%DocumentData: Clean7Bit
%%PageOrder: Ascend
%%Orientation: Portrait
%%DocumentMedia: (Default) 612 792 0 () ()
%RBINumCopies: 1
%RBINupNess: 1 1
%RBIPCFileName: (HP2200_6.PPD)
%RBIPPDFileVersion: (1.0.0)
%ADO_ImageableArea: 30 30.96 582 761.04
%RBIDocumentSuppliedFonts:
%%EndComments
%%BeginDefaults
%%ViewingOrientation: 1 0 0 1
%%EndDefaults
userdict/dscInfo 5 dict dup begin
/Title(test------Layer#1)def
/Creator(MacDraw Pro: LaserWriter 8 8.7.1)def
/CreationDate(11:08 PM Thursday, June 27, 2002)def
/For(Richard J. Feldmann)def
/Pages 1 def
end put
%%BeginProlog
/md 222 dict def md begin/currentpacking where {pop /sc_oldpacking currentpacking def true setpacking}if
%%BeginFile: lw8_feature-1.01
%%Copyright: Copyright 1990-1999 Adobe Systems Incorporated and Apple Computer Incorporated. All Rights Reserved.
/bd{bind def}bind def
/ld{load def}bd
/xs{exch store}bd
/Z{0 def}bd
/T true def
/F false def
/level2
/languagelevel where
{
pop languagelevel 2 ge
}{
F
}ifelse
def
/odictstk Z
/oopstk Z
/fcl
{
count oopstk sub dup 0 gt
{
{pop}repeat
}{
pop
}ifelse
countdictstack odictstk sub dup 0 gt
{
{end}repeat
}{
pop
}ifelse
}bd
/sfcl2
{
/odictstk countdictstack store
count/oopstk xs
}bd
/efcl2
{
stopped{$error/newerror F put}if
fcl
}bd
/noload Z
/startnoload
{
{/noload save store}if
}bd
/endnoload
{
{noload restore}if
}bd
/setcopies{
level2
{
1 dict begin/NumCopies exch def currentdict end setpagedevice
}{
userdict/#copies 3 -1 roll put
}ifelse
}def
level2 startnoload
/ststpgdev{}def
/dopgdev{}def
/stpgdev{}def
/buf Z
/didstop T def
/sfcl
{
/didstop T store
/odictstk countdictstack store
count/oopstk xs
currentfile cvx stopped
{
$error/newerror F put
didstop
{
save/didstop xs
/buf vmstatus exch sub exch pop dup 0 lt{pop 0}if
dup 64000 gt{pop 64000}if string store
{
currentfile buf readline
{
(}efcl)eq{exit}if
}{
/UnexpectedEOF errordict/rangecheck get exec
}ifelse
}loop
didstop restore
}if
}if
fcl
}bd
/efcl
{
/didstop F store
exec
stop
}bd
level2 endnoload level2 not startnoload
/setpagedevice where{pop/realstpgdev/setpagedevice ld}if
/SC_topddict Z
/SC_spdict Z
/$spusrdict F def
/dopgdev
{
userdict/setpagedevice undef
$spusrdict
{
userdict/setpagedevice/realstpgdev load put
/$spusrdict F store
}if
SC_topddict realstpgdev
}bd
/stpgdev
{
SC_topddict dup 3 -1 roll
{
SC_spdict 2 index known
{
SC_spdict 2 index get
dup 3 -1 roll
{
put dup
}forall
pop put dup
}{
put dup
}ifelse
}forall
pop pop
}bd
/ststpgdev
{
/setpagedevice where
{
userdict eq
{
/$spusrdict T store
}if
}if
userdict/setpagedevice/stpgdev load put
/SC_topddict 0 dict store
/SC_spdict 3 dict begin
/InputAttributes 0 dict def
/Policies 0 dict def
/OutputAttributes 0 dict def
currentdict
end
store
}def
/sfcl/sfcl2 ld
/efcl/efcl2 ld
level2 not endnoload
%%EndFile
%%BeginFile: lw8_basic-4.0
/xdf{exch def}bd
/:L/lineto
/lw/setlinewidth
/:M/moveto
/rl/rlineto
/rm/rmoveto
/:C/curveto
/:T/translate
/:K/closepath
/:mf/makefont
/gS/gsave
/gR/grestore
/np/newpath
12{ld}repeat
/framewidth -1 def
/QDframwid -1 def
/numframes Z
/mTS matrix def
/$m matrix def
/av 87 def
/por T def
/normland F def
/psb-nosave{}def
/pse-nosave{}def
/us Z
/psb{/us save store}bd
/pse{us restore}bd
/level3
/languagelevel where
{
pop languagelevel 3 ge
}{
F
}ifelse
def
level2 startnoload
/setjob
{
statusdict/jobname 3 -1 roll put
}bd
/devg/DeviceGray def
/devr/DeviceRGB def
/devc/DeviceCMYK def
level2 endnoload level2 not startnoload
/setjob
{
1 dict begin/JobName xdf currentdict end setuserparams
}bd
/devg[/Device

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Mon Feb 13, 2012 10:43 am Post subject:

what is actually means...?? Error 84, only blank may be changed for a file that exists..

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Tue Feb 14, 2012 6:12 am Post subject:

help me plz........

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Tue Feb 14, 2012 6:12 am Post subject:

help me plz........

JohnCampbell

Joined: 16 Feb 2006
Posts: 2615
Location: Sydney

Posted: Thu Feb 16, 2012 1:36 am Post subject:

I think you are opening the same file multiple times within the do loop: do 90 m=1,thiswidth,250 The error message may be saying you can only re-open the same file if you want to change the "BLANK=" option. I think this attempt to re-open the same file is either a non-standard Fortran feature that is not supported by FTN95, or a bug in the program you have obtained cheaply. John

mmaharish

Joined: 31 Jan 2012
Posts: 29
Location: Chennai,India

Posted: Thu Feb 16, 2012 12:20 pm Post subject:

wat i need to do for that john..?

Display posts from previous:

	forums.silverfrost.com Forum Index -> General	All times are GMT + 1 Hour
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum