Template in Fortran?

by

Fortran does not have templates, but you can put the code common to the functions handling different types in an include file as a kludge to simulate templates, as shown in this code:

! file "cumul.inc"
! function cumul(xx) result(yy)
! return in yy(:) the cumulative sum of xx(:)
! type, intent(in) :: xx(:)
! type             :: yy(size(xx))
integer :: i,n
yy = 0
n  = size(xx)
if (n < 1) return
yy(1) = xx(1)
do i=2,n
   yy(i) = yy(i-1) + xx(i)
end do
return
! end function cumul
! end file "cumul.inc"

module foo
implicit none
integer, parameter :: sp = kind(1.0), dp = kind(1.0d0)
interface cumul
   module procedure cumul_double,cumul_real,cumul_int
end interface cumul
contains
!
function cumul_double(xx) result(yy)
real(kind=dp), intent(in) :: xx(:)
real(kind=dp)             :: yy(size(xx))
include "cumul.inc"
end function cumul_double
!
function cumul_real(xx) result(yy)
real(kind=sp), intent(in) :: xx(:)
real(kind=sp)             :: yy(size(xx))
include "cumul.inc"
end function cumul_real
!
function cumul_int(xx) result(yy)
integer, intent(in) :: xx(:)
integer             :: yy(size(xx))
include "cumul.inc"
end function cumul_int
end module foo

program xcumul
use foo, only: cumul
print*,cumul([10,20,30])
print*,cumul(sin([10.0,20.0,30.0]))
print*,cumul(sin([10.0d0,20.0d0,30.0d0]))
end program xcumul
! output:
! 10 30 60
! -0.5440211 0.36892414 -0.6191075
! -0.5440211108893698 0.3689241398382579 -0.6191074842546039

The tool mentioned in the paper

Car, David and Michael List (2010). PyF95++: A Templating Capability for the Fortran 95/2003 Language. ACM Fortran Forum 29(1), 2-20.

may interest you. I have not tried it.

More Related Contents:

  1. Fortran polymorphism in pointers
  2. Is it possible to pass a class as an argument of a function in C++
  3. Interface pointers C++
  4. Splitting templated C++ classes into .hpp/.cpp files–is it possible?
  5. ‘POCO’ definition
  6. CKEditor automatically strips classes from div
  7. How to use Class in Java?
  8. What are public, private and protected in object oriented programming?
  9. templates: parent class member variables not visible in inherited class
  10. Types and classes of variables
  11. List of class’s properties in swift
  12. What is the difference between static func and class func in Swift?
  13. What exactly is a Class Factory?
  14. Assignment of objects in VB6
  15. Extending Android Application class
  16. Creating class instance properties from a dictionary?
  17. Counting instances of a class?
  18. Swift: Test class type in switch statement
  19. Class constructor type in typescript?
  20. Swift and using class extension
  21. Class template with template class friend, what’s really going on here?
  22. Access variable in different class – Swift
  23. How to create a template function within a class? (C++)
  24. Copy Groovy class properties
  25. How do you refactor a God class?
  26. Template type deduction in C++ for Class vs Function?
  27. Can I use in Google Apps Scripts a defined Class in a library with ES6 (V8)?
  28. What’s the difference between a protocol extended from AnyObject and a class-only protocol?
  29. Dynamic class in Angular.js
  30. What are the differences between the private keyword and private fields in TypeScript?

Leave a Comment