Class | action_base_class |
In: |
ActionBaseClass/action_base_class.F90
|
$Id: action_base_class.F90,v 1.2 2011/06/14 11:10:42 ishikawa Exp $
Derived Type : | |||
myid = 0 : | integer, public
| ||
action_name = "" : | character(len=CHARLEN), public |
Base type for action parameter
Function : | |
id : | integer |
this : | class(action_parameters), intent(in) |
function get_id(this) result(id) implicit none class(action_parameters), intent(in) :: this integer :: id id = this%myid return end function
Subroutine : | |
this : | class(action_parameters), intent(inout) |
id : | integer, intent(in) |
subroutine set_id(this,id) implicit none class(action_parameters), intent(inout) :: this integer, intent(in) :: id this%myid = id return end subroutine