Recent content by stefan_ss

Yes. I've tried to type in DIMENSION Y(100) and it must be Y(101). I don't know what is the diference. And with 101 compilation is ok. Nevermind in this away it has compiled but still executing .exe is interrupted due to some program error posible.

Has somebody any idea what mean that error message about size bytes?

I've rceived that message during compiling: found.f: In subroutine `zero': found.f:13: warning: COMMON/R/A,S,SIG,Y,Z,Y1,Z1 1 found.f:368: (continued): COMMON/R/A,S,SIG,Y,Z,Y1,Z1 2 Common block `r' is 2028 bytes in length at (1) but 2044...

this you can see on the screen.

I used IIN and IOUT and the compilation is ok. The execution of .exe file has interrupted. It stopped after 730 FORMAT( .The last I've seen on the screen were the letter from that part. I've noticed that were written numbers after it: Y0= -1.#I0; Z0= 1.#I0; F= 0.000; Sy= -1.#I0...

With excluding the NUMBER subroutine the program were compiled an made .exe file. I am not sure about that I IN an I OUT how it should be written becouse I see IOUT is included in WRITE( without space between I and OUT.

Unfortunately one of the subroutines is not written in the source. It's a number subroutine. It should be make up but I couldn't cope with.

Yes.Thanks. It working.

Again obstacle: 770 FORMAT(9X,'I',7X,'- В КООРДИНАТНА СИСТЕМА yOz:',5X, 1'm =',F9.3,1X,A8,'n =БЕЗКРАЙНОСТ',21X,'I', 2'/9X,'I',7X,'- В КООРДИНАТНА СИСТЕМА YO1Z: m1 =БЕЗКРАЙНОСТ', 3'n1 =БЕЗКРАЙНОСТ',21X,'I') There are message for errors in line with 2': missing comma in format...

Oh you are absolutely rigth. Thank you. Now all the errors disappeared after putting labels after second column. I will write all the code and see what happened. I am not sure if subrotine should external files or not.

I did it. A proble occurred in: 51 continue with label 5 and 1.

As soon as using the same control variable for 2 Do loops is ok for fortran IV (the program is written originaly in that code and should be expecting it work) more probably the problem is with fortran77(g77) and diferences with them 2. I am not sure what happened after continue- Do lopp stop or...

and the translated comments are attached here:

Here is the block-scheme:

I know that comment is in diferent charster set but I don't think so its esential to execution the program. The comments are in bulgarian and but you can't find that code. As I cas see the main errors are with Do loop. I didn't typed that missing subrotines yet. I can show the block sheme or...