AjithSivakumar
Joined: 04 Jan 2008 Posts: 14
|
Posted: Wed Apr 08, 2009 1:56 pm Post subject: |
|
|
Hi,
The function declaration is as follows
FUNCTION Function_Name(A,B)
INTEGER, DIMENSION(, POINTER :: Function_Name
CHARACTER(LEN=*), DIMENSION(, INTENT(IN) :: A
CHARACTER(LEN=*), INTENT(IN) :: find
.
.
.
.
END FUNCTION Function_Name
Called inside a subroutine
SUBROUTINE ABC(C,D,E)
INTEGER, DIMENSION(, POINTER :: XYZ
.
.
.
XYZ => Function_Name("two arguments are passed here")
END SUBROUTINE |
|