externalroutine xr1(integer p1)
  real r1
end

externalroutine xr2(integer p1, p2, p3, p4)
  real r1
end

externalroutine xr3(integer p1, p2, real r1, r2)
  real r3
end

endoffile