This file is indexed.

/usr/share/elmerfront/lib/procedure.stub.txt is in elmer-common 6.1.0.svn.5396.dfsg-2ubuntu1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
!#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#
!-------------------------------------------------------------------------------