Rocstar
1.0
Rocstar multiphysics simulation application
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
m_pointers.f90
Go to the documentation of this file.
1
! *********************************************************************
2
! * Rocstar Simulation Suite *
3
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved. *
4
! * *
5
! * Illinois Rocstar LLC *
6
! * Champaign, IL *
7
! * www.illinoisrocstar.com *
8
! * sales@illinoisrocstar.com *
9
! * *
10
! * License: See LICENSE file in top level of distribution package or *
11
! * http://opensource.org/licenses/NCSA *
12
! *********************************************************************
13
! *********************************************************************
14
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, *
15
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES *
16
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND *
17
! * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR *
18
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER *
19
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, *
20
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE *
21
! * USE OR OTHER DEALINGS WITH THE SOFTWARE. *
22
! *********************************************************************
23
!!! Determine the sizes of F90 Pointer found at
24
!!! http://www.cca-forum.org/pipermail/cca-fortran/2003-February/000123.html
25
MODULE
m_pointers
26
include
'roccomf90.h'
! checking compilation of roccomf90.h
27
28
TYPE
data
29
INTEGER
:: ibegin
30
INTEGER
,
POINTER
:: a(:)
31
INTEGER
:: iend
32
END TYPE
data
33
34
TYPE
data_wrapper
35
INTEGER
:: ibegin
36
TYPE(
data
)
,
POINTER
:: p_data
37
integer
:: iend
38
END TYPE
data_wrapper
39
40
END MODULE
m_pointers
41
42
43
44
45
46
m_pointers::data_wrapper
Definition:
m_pointers.f90:34
m_pointers::data
Definition:
m_pointers.f90:28
m_pointers
Definition:
m_pointers.f90:25
Roccom
src
m_pointers.f90
Generated on Wed Nov 30 2016 16:56:08 for Rocstar by
1.8.5