Differences

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

--- prokop_hapala [2012/10/08 10:13]
prokop
+++ prokop_hapala [2012/11/30 13:01] (current)
@@ Line 4: / Line 4: @@
 http://www.pgroup.com/lit/articles/insider/v3n1a3.htm
-[code]
+   module myModule
-module myModule
+    implicit none
-implicit none
+    type myType
-type myType
+     integer :: n
-    integer :: n
+     real, dimension (:, :), allocatable :: Rs
-    real, dimension (:, :), allocatable :: Rs      ! positions of atoms
     contains
-    procedure :: myMethod
+     procedure :: myMethod
-end type subSystem
+    end type subSystem
-type (myType) :: myInstance
+    type (myType) :: myInstance
-contains
+    contains
- subroutine myMethod ( this, myVar)
-  class (subSystem) :: this
+     subroutine myMethod ( this, myVar)
-  real :: myVar
+      class (subSystem) :: this
-  integer i
+      real :: myVar
-  allocate (this%Rs(3,this%n))
+      integer i
-  do i = 1, this%n
+      allocate (this%Rs(3,this%n))
-  	 this%Rs(:,i) = myVar
+      do i = 1, this%n
-  end do
+       this%Rs(:,i) = myVar
- end subroutine myMethod
+      end do
-end module glob_vars
+     end subroutine myMethod
-call myInstance%myMethod(myVar)
+    end module glob_vars
-[code]
+    call myInstance%myMethod(myVar)
@@ Line 103: / Line 101: @@
 [[BrainSorm]]
+=== OTHER ===
+[[Wiki Playground]]

Nanosurf Lab