Select Code to Download

C      common calculation code
C      Fortran comments have a C in column 1
 1100  if (argin(0) .eq. 0) j=1
       ....
C      the equivalent of a "return"
       goto N

C      do the common calculation
       assign 5500 to N
       goto 1100
 5500  continue