cure honey cure-honey

## Untitled1.ipynb

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                cure-honey
                / Untitled1.ipynb
            
            
              Last active
              August 7, 2017 14:06
            
              
                Sieve of Eratosthenes
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## file0.f
module m_rat
  implicit none
  integer, parameter :: ki = selected_int_kind(15)

  type :: t_rat
    integer(ki) :: n, d
  end type t_rat

  interface operator(+)
    procedure :: rat_add
	module m_rat
	implicit none
	integer, parameter :: ki = selected_int_kind(15)

	type :: t_rat
	integer(ki) :: n, d
	end type t_rat

	interface operator(+)
	procedure :: rat_add