Differences

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

--- dev:reference_counting [2014/02/08 21:39] – remove broken links oschuett
+++ dev:reference_counting [2014/02/08 22:11] – oschuett
@@ Line 29: / Line 29: @@
 ===== Sample code =====
 Some sample code to get a feeling of how it works...
-<code>
+<code Fortran>
 ! create the matrix structure
-call cp_fmstruct_create(my_struct,...)
+  call cp_fmstruct_create(my_struct,...)
 ! create some matrixes
-call cp_fm_create(new_matrix_1,matrix_struct=my_struct)
+  call cp_fm_create(new_matrix_1,matrix_struct=my_struct)
-call cp_fm_create(new_matrix_2,matrix_struct=my_struct)
+  call cp_fm_create(new_matrix_2,matrix_struct=my_struct)
-call cp_fm_create(new_matrix_3,matrix_struct=my_struct)
+  call cp_fm_create(new_matrix_3,matrix_struct=my_struct)
 ! get rid of the matrix struct as we do not need it anymore
 ! (the matrix do, but they should look after themselves)
-call cp_fm_release(my_struct)
+  call cp_fm_release(my_struct)
 ! work with the matrices
@@ Line 46: / Line 46: @@
 ! get rid of the matrixes
-call cp_fm_release(new_matrix_1)
+  call cp_fm_release(new_matrix_1)
-call cp_fm_release(new_matrix_2)
+  call cp_fm_release(new_matrix_2)
-call cp_fm_release(new_matrix_3) ! my_struct gets deallocated only here
+  call cp_fm_release(new_matrix_3) ! my_struct gets deallocated only here
 </code>
-<code>
+<code Fortran>
 subroutine my_env_set_matrix(my_env,matrix)
   type(my_env_type), pointer :: my_env