Skip to content

Instantly share code, notes, and snippets.

@gmarkall

gmarkall/ibz.f90

Last active December 29, 2015 10:09
Show Gist options
  • Save gmarkall/7655095 to your computer and use it in GitHub Desktop.
Save gmarkall/7655095 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ibz.f90
module IBZ
implicit none
type Plane
integer :: M(1,1)
end type Plane
contains
integer function t()
type(Plane), parameter :: planes(1) = [ Plane( reshape([1],[1,1]) ) ]
integer :: thing(1)
t = (planes(1)%M)
end function t
end module IBZ
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment