Skip to content

Commit

Permalink
Changes according to Prasad's comments
Browse files Browse the repository at this point in the history
  • Loading branch information
xyan075 committed Mar 14, 2012
1 parent 0f88a10 commit 6c823e1
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 8 deletions.
6 changes: 3 additions & 3 deletions src/interface_routines.f90
Expand Up @@ -332,11 +332,11 @@ END SUBROUTINE INTERFACE_CREATE_START
!================================================================================================================================
!

!>Returns the coordinate system of region. \see OPENCMISS::CMISSRegion_CoordinateSystemGet
!>Returns the coordinate system of an interface. \see OPENCMISS::CMISSInterface_CoordinateSystemGet
SUBROUTINE INTERFACE_COORDINATE_SYSTEM_GET(INTERFACE,COORDINATE_SYSTEM,ERR,ERROR,*)

!Argument variables
TYPE(INTERFACE_TYPE), POINTER :: INTERFACE !<A pointer to the region to get the coordinate system for
TYPE(INTERFACE_TYPE), POINTER :: INTERFACE !<A pointer to the interface to get the coordinate system for
TYPE(COORDINATE_SYSTEM_TYPE), POINTER :: COORDINATE_SYSTEM !<On exit, the coordinate system for the specified region. Must not be associated on entry.
INTEGER(INTG), INTENT(OUT) :: ERR !<The error code
TYPE(VARYING_STRING), INTENT(OUT) :: ERROR !<The error string
Expand Down Expand Up @@ -370,7 +370,7 @@ END SUBROUTINE INTERFACE_COORDINATE_SYSTEM_GET
!================================================================================================================================
!

!>Sets the coordinate system of an interface. \see OPENCMISS::CMISSInterfaceCoordinateSystemSet
!>Sets the coordinate system of an interface. \see OPENCMISS::CMISSInterface_CoordinateSystemSet
SUBROUTINE INTERFACE_COORDINATE_SYSTEM_SET(INTERFACE,COORDINATE_SYSTEM,ERR,ERROR,*)

!Argument variables
Expand Down
10 changes: 5 additions & 5 deletions src/opencmiss.f90
Expand Up @@ -32054,12 +32054,12 @@ END SUBROUTINE CMISSInterface_CreateStartObj
!================================================================================================================================
!

!>Sets/changes the coordinate system for a region identified by an user number.
!>Sets/changes the coordinate system for an interface identified by an user number.
SUBROUTINE CMISSInterface_CoordinateSystemSetNumber(parentRegionUserNumber,interfaceUserNumber,coordinateSystemUserNumber,Err)

!Argument variables
INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber !<The user number of the parent region where interface was created.
INTEGER(INTG), INTENT(IN) :: interfaceUserNumber !<The user number of the region to set the coordinate system for.
INTEGER(INTG), INTENT(IN) :: interfaceUserNumber !<The user number of the interface to set the coordinate system for.
INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber !<The user number of the coordinate system to set.
INTEGER(INTG), INTENT(OUT) :: Err !<The error code.
!Local variables
Expand All @@ -32082,11 +32082,11 @@ SUBROUTINE CMISSInterface_CoordinateSystemSetNumber(parentRegionUserNumber,inter
CALL INTERFACE_COORDINATE_SYSTEM_SET(INTERFACE,COORDINATE_SYSTEM,err,error,*999)
ELSE
LOCAL_ERROR="A coordinate system with an user number of "// &
& TRIM(NUMBER_TO_VSTRING(CoordinateSystemUserNumber,"*",err,ERROR))//"."
& TRIM(NUMBER_TO_VSTRING(CoordinateSystemUserNumber,"*",err,ERROR))//" does not exist."
CALL FLAG_ERROR(LOCAL_ERROR,err,error,*999)
ENDIF
ELSE
LOCAL_ERROR="A region with an user number of "//TRIM(NUMBER_TO_VSTRING(parentRegionUserNumber,"*",err,ERROR))// &
LOCAL_ERROR="An interface with an user number of "//TRIM(NUMBER_TO_VSTRING(parentRegionUserNumber,"*",err,ERROR))// &
& " does not exist."
CALL FLAG_ERROR(LOCAL_ERROR,err,error,*999)
ENDIF
Expand All @@ -32104,7 +32104,7 @@ END SUBROUTINE CMISSInterface_CoordinateSystemSetNumber
!================================================================================================================================
!

!>Sets/changes the coordinate system for a region identified by an object.
!>Sets/changes the coordinate system for an interface identified by an object.
SUBROUTINE CMISSInterface_CoordinateSystemSetObj(interface,coordinateSystem,err)

!Argument variables
Expand Down

0 comments on commit 6c823e1

Please sign in to comment.