Goto problem

klaus

Expert
Licensed User
Hello Erel
I am writing a progam to calculate eigenfrequecies for mecanical systems.
For that I need to calculate eigenvalues and eigenvectors of a matrix.
I have been using a routine from HP with goto's in. The routine ran in HP Basic (since the late 80's) and still runs in VB6. The routine was probably originally written in Fortran.
I transfered it to Basic4ppc and I get an error.
I transfered it from Basic4ppc back to VB, to be shure that I did not add any errors, and the routine works.
I joined the routine below in Basic4ppc and VB.
Can you please have look and see what and why this happens ?

I agree with paul j in his comment not to use goto's
http://www.basic4ppc.com/forum/showthread.php?t=1139
but the routine exists and is stable and accurate.

Thank you in advance, I am allways impressed by your quick and very approprate answers.

Klaus
Switzerland
 

Attachments

klaus

Expert
Licensed User
Eigenvalue end eigenvector calculation

Thank you for your answer.

That means that there is no way to use this routine ?

Does somebody have a routine to calculate eigenvalue end eigenvector of a matrix, without goto's ?

Klaus
Switzerland
 
Top