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