编写Fortran程序的Java等价物

我在fortran中有类似的东西

20:  call TESTBEGIN(a,b,c)
      if(c<1) goto 40
30:  call TESTMIDDLE(e,f,g)
      if(g==1) goto 20
40:  return        

像这样的

do
{
    c = TESTBEGIN(a,b);
    if (c < 1) break;
    g = TESTMIDDLE(e,f);
} while ( g == 1 );

或者最好重新考虑一下算法，我想你可以用Java更容易阅读和理解

do
{
    c = TESTBEGIN(a,b);
    if (c < 1) break;
    g = TESTMIDDLE(e,f);
} while ( g == 1 );

或者最好重新考虑一下该算法，我认为使用Java可以更容易阅读和理解

for(int state = 1; state != 0; )
{
  switch(state)
  {
  case 1:
    state = (beginTest(a) == -1) ? 0 : 2;
    break;
  case 2:
    state = (middleTest(c) == -1) ? 1 : 3;
    break;
  case 3:
    state = (endTest(d) == -1) ? 2 : 4;
    break;
  case 4:
    state = (lastTest(e) == -1) ? 3 : 5;
    break;
  }
  case 5:
    state = 0;
//   DO I =1,j // Honestly I don't know what does it do.
//      DTEMP(j)=1.0
    break;
}