Silverfrost Forums

Welcome to our forums

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

13 Feb 2012 5:44 #9596

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

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=',a8)

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

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

10 continue [/quote]

13 Feb 2012 8:35 #9597

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

13 Feb 2012 9:41 #9598

%!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. /bdbind def /ldbd /xsbd /Z{0 def}bd /T true def /F false def /level2 /languagelevel where { pop languagelevel 2 ge }ifelse def /odictstk Z /oopstk Z /fcl { count oopstk sub dup 0 gt { repeat }ifelse countdictstack odictstk sub dup 0 gt { repeat }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 { if }bd /setcopies{ level2 { 1 dict begin/NumCopies exch def currentdict end setpagedevice }{ userdict/#copies 3 -1 roll put }ifelse }def level2 startnoload /ststpgdevdef /dopgdevdef /stpgdevdef /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)eqif }{ /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 forall pop 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 /xdfbd /:L/lineto /lw/setlinewidth /:M/moveto /rl/rlineto /rm/rmoveto /:C/curveto /:T/translate /:K/closepath /:mf/makefont /gS/gsave /gR/grestore /np/newpath 12repeat /framewidth -1 def /QDframwid -1 def /numframes Z /mTS matrix def /$m matrix def /av 87 def /por T def /normland F def /psb-nosavedef /pse-nosavedef /us Z /psb{/us save store}bd /psebd /level3 /languagelevel where { pop languagelevel 3 ge }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[/DeviceGray]def /devr[/DeviceRGB]def /devc[/DeviceCMYK]def level2 not endnoload /pm Z /mT Z /sD Z /mTSsetup{ mT $m currentmatrix mTS concatmatrix pop }bd /pmSVsetup{ /pm save store }bd /initializepage bd /endp bd /adjRect { dup 2 mul 6 2 roll 4 index sub exch 5 -1 roll sub exch 4 2 roll 4 index add exch 5 -1 roll add exch 4 2 roll }bd /frame1up { gS mTS setmatrix QDframwid lw /setstrokeadjust whereif clippath pathbbox 2 index sub exch 3 index sub exch currentlinewidth framewidth mul adjRect numframes dup 0 lt{pop 0}if { 4 copy rS currentlinewidth framewidth mul 4 mul adjRect }repeat pop pop pop pop gR }bd /$c devr def /rectclip where { pop/rC/rectclip ld }{ /rC { np 4 2 roll :M 1 index 0 rl 0 exch rl neg 0 rl :K clip np }bd }ifelse /rectfill where { pop/rF/rectfill ld }{ /rF { gS np 4 2 roll :M 1 index 0 rl 0 exch rl neg 0 rl fill gR }bd }ifelse /rectstroke where { pop/rS/rectstroke ld }{ /rS { gS np 4 2 roll :M 1 index 0 rl 0 exch rl neg 0 rl :K stroke gR }bd }ifelse %%EndFile level3 startnoload %%BeginFile: lw8_safeclipL12-1.0 /rectclip where { pop/rCa/rectclip ld }{ /rCa { np 0 1 index length 4 idiv { 2 copy 4 getinterval aload pop 4 2 roll :M 1 index 0 rl 0 exch rl neg 0 rl :K 4 add }repeat clip np pop pop }bd }ifelse /savedstack Z /subsavedstack Z /execstring Z /saferCa { /execstring xs /odictstk countdictstack store /oopstk 0 store count 0 ne { savedstack 0 eq{ count 100 gt{100}ifelse array/savedstack xs }{ count savedstack length gt { count array/savedstack xs }if }ifelse count savedstack 0 3 -1 roll getinterval astore/subsavedstack xs }{ /subsavedstack 0 store }ifelse execstring cvx stopped { $error/newerror F put newpath }if fcl subsavedstack 0 neif }bd %%EndFile level3 endnoload level3 not startnoload %%BeginFile: lw8_safeclipL3-1.0 /saferCa/pop ld %%EndFile level3 not endnoload %%BeginFile: lw8_level1_colorspace-2.0 /G/setgray ld /:F1/setgray ld /:F/setrgbcolor ld /:F4/setcmykcolor where { pop /setcmykcolor ld }{ { 3 { dup 3 -1 roll add dup 1 gt{pop 1}if 1 exch sub 4 1 roll }repeat pop setrgbcolor }bd }ifelse /:Fx { counttomark {00} exch get exec pop }bd /$cs Z /:rgbd /:sc{$cs 😒s}bd /:dc { dup type/arraytype eq{0 get}if dup/DeviceCMYK eq { /DeviceGray eq ifelse }ifelse /$cs xdf }bd /:sgldef /:drbd /:fCRDbd /:ckcsbd /:ss{/$c xdf}bd %%EndFile %%BeginFile: lw8_uniform_graphics-2.0 /@a { np :M 0 rl :L 0 exch rl 0 rl :L fill }bd /@b { np :M 0 rl 0 exch rl :L 0 rl 0 exch rl fill }bd /@c { moveto 0 rlineto stroke }bd /@w { moveto 0 exch rlineto stroke }bd /arct where { /arct bd }ifelse /x1 Z /x2 Z /y1 Z /y2 Z /rad Z /@q { /rad xs /y2 xs /x2 xs /y1 xs /x1 xs np x2 x1 add 2 div y1 :M x2 y1 x2 y2 rad arct x2 y2 x1 y2 rad arct x1 y2 x1 y1 rad arct x1 y1 x2 y1 rad arct fill }bd /@s { /rad xs /y2 xs /x2 xs /y1 xs /x1 xs np x2 x1 add 2 div y1 :M x2 y1 x2 y2 rad arct x2 y2 x1 y2 rad arct x1 y2 x1 y1 rad arct x1 y1 x2 y1 rad arct :K stroke }bd /@i { np 0 360 arc fill }bd /@j { gS np :T scale 0 0 .5 0 360 arc fill gR }bd /@e { np 0 360 arc :K stroke }bd /@f { np $m currentmatrix pop :T scale 0 0 .5 0 360 arc :K $m setmatrix stroke }bd /@k { gS np :T 0 0 :M 0 0 5 2 roll arc fill gR }bd /@l { gS np :T 0 0 :M scale 0 0 .5 5 -2 roll arc fill gR }bd /@m { np arc stroke }bd /@n { np $m currentmatrix pop :T scale 0 0 .5 5 -2 roll arc $m setmatrix stroke }bd %%EndFile %%BeginFile: lw8_bubn-2.1 /$t Z /$p Z /$s Z /$o 1. def /2state? F def /ps Z level2 startnoload /pushcolor/currentrgbcolor ld /popcolor/setrgbcolor ld /setcmykcolor where { pop/currentcmykcolor where { pop/pushcolor/currentcmykcolor ld /popcolor/setcmykcolor ld }if }if level2 endnoload level2 not startnoload /pushcolor { currentcolorspace $c eq ifelse }bd /popcolor { ifelse }bd level2 not endnoload /pushstatic { 2state? $o $t $p $s $cs ps }bd /popstatic { /ps xs /$cs xs /$s xs /$p xs /$t xs /$o xs /2state? xs }bd /pushgstate { currentpoint pushcolor currentlinewidth currentlinecap currentlinejoin currentdash exch aload length np clippath pathbbox $m currentmatrix aload pop }bd /popgstate { $m astore setmatrix 2 index sub exch 3 index sub exch rC array astore exch setdash setlinejoin setlinecap lw popcolor np :M }bd /bu { errordict/nocurrentpoint{pop 0 0}put 2state? { pushgstate gR }if pushgstate gR pushgstate pushstatic pm restore mTS setmatrix }bd /bn { /pm save store popstatic popgstate gS popgstate 2state? { gS popgstate }if }bd /cpat{pop 64 div setgray 8repeat}bd %%EndFile %%BeginFile: lw8_basic_text-3.0 /S/show ld /A{ 0.0 exch ashow }bd /R{ 0.0 exch 32 exch widthshow }bd /W{ 0.0 3 1 roll widthshow }bd /J{ 0.0 32 4 2 roll 0.0 exch awidthshow }bd /V{ 0.0 4 1 roll 0.0 exch awidthshow }bd /fcflg T def /fc{ fcflg{ vmstatus exch sub 50000 lt{ (%%[ Warning: Running out of memory ]%%\r)print flush/fcflg F store }if pop }if }bd /$f[1 0 0 -1 0 0]def /:ff{$f :mf}bd /$o 1. def /gl{$o G}bd /MacEncoding StandardEncoding 256 array copy def MacEncoding dup 9/space put dup 39/quotesingle put 96/grave put /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft /guillemotright/ellipsis/space/Agrave/Atilde/Otilde/OE/oe /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge /ydieresis/Ydieresis/fraction/Euro/guilsinglleft/guilsinglright/fi/fl /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave /Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron MacEncoding 128 128 getinterval astore pop level2 startnoload /copyfontdict { findfont dup length dict begin { 1 index/FID neifelse }forall }bd /$ckeyd md def /:skey { 1 index maxlength 2 index length sub ge { begin /$mkeys 20 dict def /$mkeys load end dup/$ckeyd xs }if 3 1 roll put }bd /fD1pass { 40 $ckeyd //md ne { pop 1 }if $ckeyd exch 😒key }bd /:searchdict Z /:searchdict { exch 2 copy known { exch/$mkeys get 😒earchdict }ifelse }bd /lU { //md exch 2 copy known { exch /$mkeys get 😒earchdict }ifelse }bd /:xs{ exch 0 1 2 index length 1 sub{ 3 copy gS 1 getinterval show gR exch get 0.0 rm }for pop pop }bd /:ys{ exch 0 1 2 index length 1 sub{ 3 copy gS 1 getinterval show gR exch get 0.0 exch rm }for pop pop }bd /:xys{ exch 0 1 2 index length 1 sub{ 3 copy gS 1 getinterval show gR exch 2 mul 2 copy 1 add get 3 -2 roll get exch rm }for pop pop }bd level2 endnoload level2 not startnoload /copyfontdict { findfont dup length dict copy begin }bd /fD1pass/def ld /lU/load ld level2{ /:xs/xshow ld /:ys/yshow ld /:xys/xyshow ld }if level2 not endnoload /:xbl{ currentpoint 2 index exec :M .03 ps mul currentpoint 2 index 0.0 rm 3 index exec :M currentpoint 2 index dup rm 3 index exec :M 0.0 1 index rm exch exec neg 0.0 exch rm }bd /:xot{ currentpoint -2.0 0.0 rm 2 index exec :M currentpoint 0.0 -2.0 rm 2 index exec :M currentpoint 0.0 2.0 rm 2 index exec :M currentpoint 2.0 0.0 rm 2 index exec :M gS gl exec currentpoint gR :M }bd /:xsh{ 2 ps 0.05 mul add 2 copy currentpoint 5 2 roll 0.0 rm exec currentpoint 6 2 roll sub moveto :xot moveto }bd /fD Z /sf Z /scf Z /sf1pass bd /scf1pass bd /scf2pass bd md/fontname known not{ /fontname/customfont def }if /Encoding Z /:mre { copyfontdict /Encoding MacEncoding def fontname currentdict end definefont :ff fD }bd /:bsr { copyfontdict /Encoding Encoding 256 array copy def Encoding dup }bd /pdbd /:esr { pop pop fontname currentdict end definefont :ff fD }bd /ps Z /fz{/ps xs}bd /cF/currentfont ld /mbf { /makeblendedfont where { pop makeblendedfont /ABlend exch definefont }ifelse fD }def %%EndFile /currentpacking where if end %%EndProlog %%BeginSetup md begin /fD/def ld/sf/setfont ld /scf/scf2pass ld %RBIIncludeNonPPDFeature: NumCopies 1 %RBIBeginNonPPDFeature: WaitTimeout 600 600/languagelevel where{pop languagelevel 2 ge}ifelse{1 dict dup/WaitTimeout 4 -1 roll put setuserparams}{statusdict/waittimeout 3 -1 roll put}ifelse %RBIEndNonPPDFeature sfcl{ %%BeginFeature: *Resolution 600x600x2dpi

<</HWResolution [600 600] /PreRenderingEnhance true>> setpagedevice %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPHalftone PrinterDefault

%%EndFeature

}efcl

sfcl{ %%BeginFeature: *EconoMode PrinterDefault

%%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPPaperPolicy PromptUser

<</DeferredMediaSelection true>> setpagedevice %%EndFeature

}efcl

sfcl{ %%BeginFeature: *Smoothing PrinterDefault

%%EndFeature

}efcl

sfcl{ %%BeginFeature: *ManualFeed False

<</ManualFeed false>> setpagedevice %%EndFeature

}efcl

sfcl{ %%BeginFeature: *PageSize LetterSmall

<</PageSize [612 792] /ImagingBBox null>> setpagedevice %%EndFeature

}efcl

sfcl{ %%BeginFeature: *Duplex None

<</Duplex false>> setpagedevice

%%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmBrightness Medium userdict /HPwmSaturation { [ currentcmykcolor ] /DeviceCMYK setcolorspace forall setcolor } put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmText Draft userdict /HPwmText (Draft) put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmFont HelveticaB

/Helvetica-Bold findfont dup length dict begin {1 index /FID ne ifelse} forall /MacEncoding where { pop /Encoding MacEncoding def } { /Encoding ISOLatin1Encoding def } ifelse currentdict end /HPwmFont exch definefont pop %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmFontSize pt48 userdict /HPwmSize 48 put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmTextAngle Deg45 userdict /HPwmAngle 45 put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmTextStyle Medium userdict /HPwmStyle bind put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmPages AllPages userdict /HPwmLocation true put %%EndFeature

}efcl

sfcl{ %%BeginFeature: *HPwmSwitch Off

%%EndFeature

}efcl

(Richard J. Feldmann)setjob sfcl{/currentdistillerparams where{pop 1 dict dup/Orientation 2 put setpagedevice}if }efcl

/mT[.24 0 0 -.24 30.001 761.057]def %RBIIncludeStartNup /sD 16 dict def %%IncludeFont: Helvetica-Bold /f44/Helvetica-Bold :mre /f60 f44 100 scf {/Courier findfont[10 0 0 -10 0 0]:mf setfont}stopped{$error/newerror F put}if %PostScript Hack by Mike Brors 12/7/90 /DisableNextSetRGBColor { userdict begin /setrgbcolor { pop pop pop userdict begin /setrgbcolor systemdict /setrgbcolor get def end } def end } bind def /bcarray where { pop bcarray 2 { /da 4 ps div def df setfont gsave cs wi 1 index 0 neif grestore setcharwidth cs 0 0 smc da 0 smc da da smc 0 da smc c gray {1 setgray}ifelse da 2. div dup moveto show }bind put } if % % Used to snap to device pixels, 1/4th of the pixel in. /stp { % x y pl x y % Snap To Pixel, pixel (auto stroke adjust) transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add exch itransform } bind def

/snapmoveto { % x y m - % moveto, auto stroke adjust stp moveto } bind def

/snaplineto { % x y l - % lineto, auto stroke adjust stp lineto } bind def %%EndSetup %%Page: 1 1 %%BeginPageSetup %RBIIncludePageSlotInvocation mTSsetup pmSVsetup initializepage (Richard J. Feldmann; page: 1 of 1)setjob %%EndPageSetup gS 0 0 2300 3042 rC 0 0 0 0 rC 0 0 :M 0 setlinecap gR gS 0 0 2300 3042 rC

[/quote]

13 Feb 2012 9:43 #9599

what is actually means...??

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

14 Feb 2012 5:12 #9607

help me plz........

14 Feb 2012 5:12 #9608

help me plz........

16 Feb 2012 12:36 #9617

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

16 Feb 2012 11:20 #9621

wat i need to do for that john..?

Please login to reply.