Example 20-2: FORTRAN Subprogram
  C The FORTRAN subprogram receives
  C and then prints the same array
              SUBROUTINE forsub(f_array)
              INTEGER*2 f_array(5,10)
              DO 20 row = 1,5
                    TYPE *, (f_array(row,column), column = 1,10)
  20 CONTINUE
              RETURN
              END