User Tools

Site Tools


prokop_hapala

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Next revision Both sides next revision
prokop_hapala [2012/10/08 10:19]
prokop
prokop_hapala [2012/10/08 10:20]
prokop
Line 6: Line 6:
    ​module myModule    ​module myModule
     implicit none     implicit none
 +    ​
     type myType     type myType
      ​integer :: n       ​integer :: n
Line 12: Line 13:
      ​procedure :: myMethod      ​procedure :: myMethod
     end type subSystem     end type subSystem
 +    ​
     type (myType) :: myInstance     type (myType) :: myInstance
 +    ​
     contains ​     contains ​
 +     
      ​subroutine myMethod ( this, myVar)      ​subroutine myMethod ( this, myVar)
       class (subSystem) :: this       class (subSystem) :: this
Line 23: Line 27:
       end do       end do
      end subroutine myMethod      end subroutine myMethod
 +     
     end module glob_vars     end module glob_vars
 +    ​
     call myInstance%myMethod(myVar)     call myInstance%myMethod(myVar)
  
prokop_hapala.txt ยท Last modified: 2012/11/30 13:01 (external edit)