1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
!
! File: objarg_Employee_Mod.F90
! Symbol: objarg.Employee-v0.5
! Symbol Type: class
! Babel Version: 0.10.2
! Description: Server-side private data module for objarg.Employee
!
! WARNING: Automatically generated; only changes within splicers preserved
!
! babel-version = 0.10.2
!
#include"objarg_Employee_fAbbrev.h"
module objarg_Employee_impl
! DO-NOT-DELETE splicer.begin(objarg.Employee.use)
! Insert use statements here...
! DO-NOT-DELETE splicer.end(objarg.Employee.use)
type objarg_Employee_priv
sequence
! DO-NOT-DELETE splicer.begin(objarg.Employee.private_data)
character(len=256) :: d_name
integer(selected_int_kind(9)) :: d_age
real(selected_real_kind(6,37)) :: d_salary
character :: d_status
! DO-NOT-DELETE splicer.end(objarg.Employee.private_data)
end type objarg_Employee_priv
type objarg_Employee_wrap
sequence
type(objarg_Employee_priv), pointer :: d_private_data
end type objarg_Employee_wrap
end module objarg_Employee_impl
|
