!#ELMER Cadinterface 
!#A stub for a Solver parameter dll procedure 
!#06.03.2000, MVe
!Fortran 90 stub for ELMER Solver parameter funtion: Y = F(X)
!
!#*** DO NOT EDIT THIS FILE! ***
!
!-------------------------------------------------------------------------------
	FUNCTION #function-name#( Model #n# #X# ) RESULT( Y )
!-------------------------------------------------------------------------------
	!DEC$ATTRIBUTES DLLEXPORT :: #function-name#
!-------------------------------------------------------------------------------
	  USE Types
	  USE Lists
!-------------------------------------------------------------------------------
	  TYPE(Model_t) :: Model
	  INTEGER :: n
	  DOUBLE PRECISION :: Y #X#
!-------------------------------------------------------------------------------
	  LOGICAL :: FirstTime = .TRUE.
	  SAVE FirstTime
	  
!-------------------------------------------------------------------------------
	  IF ( FirstTime ) THEN
	    FirstTime = .FALSE.
	  END IF
	  
!-------------------------------------------------------------------------------
!START OF CODE (in place of Y = 1.0)
!*******************************************************************************

	  Y = 1.0
	  
!*******************************************************************************
!END OF CODE
!-------------------------------------------------------------------------------

	END FUNCTION #function-name#
!-------------------------------------------------------------------------------
