
c23456
      subroutine myfortranfn(ia,ib)
      
      integer ia, ib

      ib = 100*ia

      return 
      end
      
