It may depend on your input. I will not try to open your worksheet.

One thing that you may try is:

1. Suppress all the output: From the menu, in View >  Show/Hide Contents , unselect Output.

2. Select all the input, Edit > Select All, or Ctrl-A

3. Copy to the clipboard, Edit > Copy or Ctrl-C

4. Open Classic GUI and paste the input: Edit > Paste, Shift-Insert or Ctrl-V

If you have not used "special" symbols, you can use your code right away. Otherwise, you will have to edit.

may be this is what you want ... www.mapleprimes.com/files/102_alberto_10Jul2008.mws

I cleaned up your lines and replaced all semicolon by a double point to avoid printing

Your last Y3 can be simplified considerably:

  length(Y3);
                                161079  
  X3:=simplify(Y3,size): length(%); 

                                 7821
Now determine indeterminates, make it a procedure and optimize it, finally try to
generate 'shorter' statements:

  theIndets:=convert(indets(X3),list); 
         theIndets := [Hx, Zx, Zxx, qx, qxx, GRAVIT, Hxxxx, Qxxx, Qxxxx, Zxxx]
  p1:=codegen[makeproc](X3, theIndets):
  p2:=codegen[optimize](p1, tryhard):
  codegen[prep2trans](p2):
  p3:=codegen[split](%);

By this the computational costs are also decreased:

  codegen[cost](Y3); 
  codegen[cost](X3); 
  codegen[cost](p2);
  codegen[cost](p3); 

  5355 additions + 18384 multiplications + 1350 divisions + 9909 functions
   313 additions + 998 multiplications + 135 functions + divisions
  63 storage + 63 assignments + 254 multiplications + 117 additions + 3 functions + divisions
  66 storage + 66 assignments + 254 multiplications + 117 additions + 3 functions + divisions

Then you are ready to generate Fortran code. Unfortunately Maple thinks
that the lines are too long - however it produces them as comment lines
and thus you should be able to finish manually (the message is a bit mis-
leading since we already tried it):

  Fortran(p3);

  Warning, the function names {CS} are not recognized in the target language
  Warning, character limit for Fortran77 statements exceeded; please filter
    input through codegen[split] first.
  

I have 4GB of Ram and I still couldn't open the file at all.

Thanks to your help, I wrote the maple code and it works. But I have still a problem when I get my fortran 77 exit:  in the fortran code I would like to have  the variables CS(1),CS(2),CS(3),CS(4)  (the 4 components of the variable CS) but I get CS(1.D0),CS(2.D0),CS(3.D0),CS(4.D0) , i.e. it recognizes the number between brackets like a real  number and not like the component of a variable. And I also would like to have the vector CS between the argoment of the fortran function. Do you know please how I can do that?I read the help but I didn't find the solution. I attach to you my maple classic file.

Download 8216_ricominciatoFINO5ordine.mws
View file details

thanks a lot

Alberto

Exactly I would like to use CS as argument of the fortran function.  i tried just to use square bracket cs[1] but it  doesn't work. I tried to declare directly CS inside makeproc. Maybe I have to use  codegen[makeparam] , but I tried to declare CS with that but it gives me error.  I ve looked for a solution in the help menu and in the examples but i didn't find some problem similar to this. can you take a look to the file? I attach it to you. You can see in the first part of the MAPLEsheet that  I  tried to declare directly CS inside makeproc and it gives me error.
Download 8216_ricominciatoFINO5ordine.mws
View file details

tahnks
 

alberto

i apologize for the length of the file,I meant if you could read just the first lines. I now how to declare an array in a procedure, my problem is to create a procedure from a formulation that contain an array using "makeproc". I tried in all the way, i have looked for an example in the help but there are no examples of that and i wasn't able to do that. I have problem when I write:
 

qxt:=codegen[makeproc](FORTR,parameters = [CS::Array(1..4,datatype=float),op(theIndets)]  );
 

I attach the file to you,just a  few lines.
 

download 8216_fewLINES.mws
View file details

Thanks
 

Alberto
 

ps:I don't understand your proposal of writing a procedure like Y3:= subs(CS(1)=cs1, CS(2)=cs2, CS(3)=cs3, CS(4)=cs4. It has to be general not just for 4 component but also for 100. I'm just trying with 4 but I will generalize.  And I would like to have a only fortran function that has as argument also the array CS. I have to do that  for a lot of time and lot of equation and it s long to substitute everytime all the CS(1.D0),CS(2.D0)...expecially if are 100 component. 

Thanks now it works how I would like.

I have another question:   since I have to do the same thing for every equations and for every order of derivative it would be more general(it would work for any kind and number of equations) and also more efficient to calcolate all the derivatives and just at the end to use  codegen[optimize](%,tryhard] ) and create just one function optimized to get all the derivatives. So I thought to have two external "for" cycles and to create a vector eq[1..Neq,1..Nder]  where in the first column I have the first order time derivative for every equations and in the second one the second order time derivative for every equations and so on.  My problem is just  a problem with  the cycles. Without cycles it works, with the cycle it says me

"Error, invalid input: lhs received 0, which is not valid for its 1st argument, expr". 

It is quite strange.  I think it has the problem at the first instruction,becouse it doesn't seem to print anything. Maybe is something that I ignore about cycles in Maple but I read all the section about the cycles in the guide it seems  correct.

I have just put two "for" external cycles and adapted to the cycle the code that you have already seen(now I have correct it with your suggestion to get the CS vector in fortran). Can you please take a look to the file?there are just a  few lines

 Download 8216_COMPACTform.mws
View file details

Thanks

Alberto

Hm ... it is not so much fun to check codes - and yours is extremely ugly (sorry to say so, it is not meant personal offending).

You permanently overwrite variables, no line breaks, no idents ...

My guessing is: you should reset the variables for the loops (or put the inner body into a procedure, which would force you to be more clean).

The error message gives you, where the first error occurs: when you use 'lhs'

Hope you can accept, that I do not want to step in details through your code - may be, the suggestions above give you some idea, how to build it more clean - otherwise it is hard to check.