Não tenho certeza de qual versão do Fortran é esse pedaço de código, também não sou muito bom nisso, mas aqui está o pedaço de código que tento entender ...

      DO 55 J=1,N  
      IF(KODE(J)) 55,55,40  ! Can not figure out what this line does
   40 DO 50 I=1,N  
      CH=G(I,J) 
      G(I,J)=-H(I,J)
      H(I,J)=-CH
   50 CONTINUE
   55 CONTINUE

No loop acima, você poderia me ajudar a entender o que a 2ª linha faz, especificamente os rótulos 55,55,40

Este é um código de um livro de elementos de fronteira que estou tentando entender ...