C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM ENT
      CALL SUB2(1,2)
      CALL SUB1(1)
      CALL SUB0()
      END
C
      SUBROUTINE SUB2(I,J)
      INTEGER*4 I,J
      INTEGER*4 I2,J2
      I2=I
      J2=J
      GOTO 100
      ENTRY SUB1(I)
      I2=I
      J2=0
      GOTO 100
      ENTRY SUB0()
      I2=0
      J2=0
100   WRITE(*,*) I2,J2
      RETURN
      END