- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
When stepping inside any of the type-bound procedures with the VS Debugger, a query of type variables yields total nonsense for any and all variables.
The debugger doesn't seem to understand the "this" pointer.
Note: If I print ("write(*,*) var_name" )out the variable values, the correct values are written to the screen.
Edited code below is similar to what I am running
module FSM_module
implicit none
integer, parameter :: fpx = 4
type :: sed_reactor_type
integer :: number_layers
real(kind=fpx) :: area
real(kind=fpx), dimension(:), allocatable :: flow_
real(kind=fpx), dimension(:), allocatable :: width_
real(kind=fpx), dimension(:), allocatable :: d_
real(kind=fpx), dimension(:), allocatable :: conc_
real(kind=fpx), dimension(:), allocatable :: dss_
real(kind=fpx), dimension(:), allocatable :: fd_
real(kind=fpx) :: concTop = 0
real(kind=fpx) :: concBottom = 0
real(kind=fpx) :: fluxTop = 0
real(kind=fpx) :: fluxBottom = 0
contains
procedure :: set_flow => FSM_set_flow
procedure :: set_conc => FSM_set_conc
....................................
end type
private :: FSM_set_flow, FSM_set_conc
contains
subroutine FSM_set_width(this, values, srp)
class(sed_reactor_type) :: this
real(kind=fpx), dimension(*) :: values
type(sed_reactor_type), pointer :: srp
integer :: n
real(kind=fpx) :: depth = 0;
this%width_(0) = values(1)
do n=1, this%number_layers
this%width_(n) = values(n)
this%d_(n) = depth
depth = depth + values(n)
end do
this%width_(this%number_layers+1) = values(this%number_layers)
end subroutine FSM_set_width
subroutine FSM_set_conc(this, values, srp)
class (sed_reactor_type) :: this
real(kind=fpx), dimension(*) :: values
type(sed_reactor_type), pointer :: srp
integer :: n
this%conc_(0) = values(1)
do n=1, this%number_layers
this%conc_(n) = values(n)
end do
this%conc_(this%number_layers+1) = values(this%number_layers)
end subroutine FSM_set_conc
................................
end module FSM_module
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
You can edit your previous posts to alter text or to improve readability.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Check this post: http://software.intel.com/en-us/forums/showthread.php?t=75442&o=a&s=lr
I think this is a known issue.
Abhi

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page