Guest User

Untitled

a guest
May 27th, 2018
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. type myIntData
  2. private
  3. !/// instance variables
  4. integer, allocatable :: array(:)
  5. integer, allocatable :: ndata
  6. real(sp),allocatable :: average
  7. real(sp),allocatable :: variance
  8. contains
  9. private
  10. !/// instance methods
  11. procedure,public :: read => readMyIntData
  12. procedure,public :: delete => deleteMyIntData
  13. procedure,public :: getAverage => getAverageMyIntData
  14. procedure,public :: print => printMyIntData
  15. end type
Add Comment
Please, Sign In to add comment