Oleksandr Huziy guziy

🇺🇦

#StandWithUkraine

guziy / passing_subroutine_as_par.f90

Created August 23, 2011 22:24

Subroutine as a parameter to another subroutine in f90

	subroutine caller(arg, called)
	integer :: arg
	interface
	subroutine called(arg)
	integer :: arg
	end subroutine called
	end interface

	call called(arg)
	end subroutine caller

guziy / func_as_par.f

Created August 23, 2011 22:21

Function as parameter in f77

	subroutine caller(arg, called)
	integer :: arg
	external :: called

	call called(arg)
	end subroutine caller