root / synthbench / euroben-dm / mod2b / .svn / text-base / cleanup.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (385 Bytes)
| 1 | 0:839f52ef7657 | louridas | Subroutine cleanup |
|---|---|---|---|
| 2 | 0:839f52ef7657 | louridas | ! ----------------------------------------------------------------------- |
| 3 | 0:839f52ef7657 | louridas | Use numerics |
| 4 | 0:839f52ef7657 | louridas | Use dist_module |
| 5 | 0:839f52ef7657 | louridas | Implicit None |
| 6 | 0:839f52ef7657 | louridas | ! ----------------------------------------------------------------------- |
| 7 | 0:839f52ef7657 | louridas | Deallocate( owner, localindex ) |
| 8 | 0:839f52ef7657 | louridas | ! ----------------------------------------------------------------------- |
| 9 | 0:839f52ef7657 | louridas | End Subroutine cleanup |