Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type myIntData
- private
- !/// instance variables
- integer, allocatable :: array(:)
- integer, allocatable :: ndata
- real(sp),allocatable :: average
- real(sp),allocatable :: variance
- contains
- private
- !/// instance methods
- procedure,public :: read => readMyIntData
- procedure,public :: delete => deleteMyIntData
- procedure,public :: getAverage => getAverageMyIntData
- procedure,public :: print => printMyIntData
- end type
Add Comment
Please, Sign In to add comment