Permalink
Browse files

Adding coordinate system to an interface

Changes according to Prasad's comment.

Tracker item: 3118
  • Loading branch information...
1 parent 6c823e1 commit 766d855b33788dda3093583e967914c2325ef860 @xyan075 xyan075 committed Mar 14, 2012
Showing with 9 additions and 9 deletions.
  1. +1 −1 src/interface_routines.f90
  2. +8 −8 src/opencmiss.f90
View
2 src/interface_routines.f90
@@ -337,7 +337,7 @@ SUBROUTINE INTERFACE_COORDINATE_SYSTEM_GET(INTERFACE,COORDINATE_SYSTEM,ERR,ERROR
!Argument variables
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.
+ TYPE(COORDINATE_SYSTEM_TYPE), POINTER :: COORDINATE_SYSTEM !<On exit, the coordinate system for the specified interface. Must not be associated on entry.
INTEGER(INTG), INTENT(OUT) :: ERR !<The error code
TYPE(VARYING_STRING), INTENT(OUT) :: ERROR !<The error string
!Local Variables
View
16 src/opencmiss.f90
@@ -32086,7 +32086,7 @@ SUBROUTINE CMISSInterface_CoordinateSystemSetNumber(parentRegionUserNumber,inter
CALL FLAG_ERROR(LOCAL_ERROR,err,error,*999)
ENDIF
ELSE
- LOCAL_ERROR="An interface 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(interfaceUserNumber,"*",err,ERROR))// &
& " does not exist."
CALL FLAG_ERROR(LOCAL_ERROR,err,error,*999)
ENDIF
@@ -32129,7 +32129,7 @@ END SUBROUTINE CMISSInterface_CoordinateSystemSetObj
!================================================================================================================================
!
- !>Returns the coordinate system for a region identified by an user number.
+ !>Returns the coordinate system for an interface identified by an user number.
SUBROUTINE CMISSInterface_CoordinateSystemGetNumber(parentRegionUserNumber,interfaceUserNumber,coordinateSystemUserNumber,err)
!Argument variables
@@ -32143,7 +32143,7 @@ SUBROUTINE CMISSInterface_CoordinateSystemGetNumber(parentRegionUserNumber,inter
TYPE(REGION_TYPE), POINTER :: REGION
TYPE(VARYING_STRING) :: LOCAL_ERROR
- CALL ENTERS("CMISSInterfaceCoordinateSystemGetNumber",err,error,*999)
+ CALL ENTERS("CMISSInterface_CoordinateSystemGetNumber",err,error,*999)
NULLIFY(REGION)
NULLIFY(INTERFACE)
@@ -32155,8 +32155,8 @@ SUBROUTINE CMISSInterface_CoordinateSystemGetNumber(parentRegionUserNumber,inter
IF(ASSOCIATED(COORDINATE_SYSTEM)) THEN
coordinateSystemUserNumber = COORDINATE_SYSTEM%USER_NUMBER
ELSE
- LOCAL_ERROR="The coordinate system is not associated for region number "// &
- & TRIM(NUMBER_TO_VSTRING(ParentRegionUserNumber,"*",err,ERROR))//"."
+ LOCAL_ERROR="The coordinate system is not associated for interface number "// &
+ & TRIM(NUMBER_TO_VSTRING(interfaceUserNumber,"*",err,ERROR))//" does not exist."
CALL FLAG_ERROR(LOCAL_ERROR,err,error,*999)
ENDIF
ELSE
@@ -32178,12 +32178,12 @@ END SUBROUTINE CMISSInterface_CoordinateSystemGetNumber
!================================================================================================================================
!
- !>Returns the coordinate system for a region identified by an object.
+ !>Returns the coordinate system for an interface identified by an object.
SUBROUTINE CMISSInterface_CoordinateSystemGetObj(Interface,CoordinateSystem,Err)
!Argument variables
- TYPE(CMISSInterfaceType), INTENT(IN) :: Interface !<The region to get the coordinate system for.
- TYPE(CMISSCoordinateSystemType), INTENT(INOUT) :: CoordinateSystem !<On return, the regions coordinate system.
+ TYPE(CMISSInterfaceType), INTENT(IN) :: Interface !<The interface to get the coordinate system for.
+ TYPE(CMISSCoordinateSystemType), INTENT(INOUT) :: CoordinateSystem !<On return, the interface coordinate system.
INTEGER(INTG), INTENT(OUT) :: Err !<The error code.
!Local variables

0 comments on commit 766d855

Please sign in to comment.