Simscript III/Dictionnaire des instructions/DEFINE ... ROUTINE

Cet énoncé, placé dans le preamble, définit les sous-programmes de type routine, et permet d’avoir un contrôle sur le nombre de paramètres entre le call et la routine. Ceet énoncé n’est pas obligatoire, contrairement au define ... function.

Syntaxe :

$\begin{array}{cc}& \text{define }no{m}^c\text{ as }\left[\text{a}\right]\left[\begin{array}{c}\text{fortran}\\ \text{nonsimscript}\end{array}\right]\text{routine}\left[\text{s}\right]\\ & \left[\left\{\begin{array}{c}\text{with}\\ \text{given}\\ \text{yielding}\end{array}\right\}n\left[k\text{-}\text{dim}\left[\text{ensional}\right]\right]\left[\begin{array}{c}\text{integer}\\ \text{real}\\ \text{double}\\ \text{alpha}\\ \text{text}\\ \text{pointer}\\ \text{subprogram}\end{array}\right]\left\{\begin{array}{c}\text{argument}\left[\text{s}\right]\\ \text{value}\left[\text{s}\right]\end{array}\right\}\right]\\ \end{array}$

Exemples :

define Compter_Points   as a routine with 0 argument   ‘‘  Compter les points dans chaque main

define Imprimer_Histogramme as a routine with 	1 text argument, 
						1 1-dim integer argument,
						3 real arguments

define ResetMinmax 	as a nonsimscript routine with 	1 GLenum    argument

define GetMinmax	as a nonsimscript routine with 	1 GLenum    argument,
							1 GLboolean argument,
							2 GLenum    arguments,
							1 pointer   argument

define GetBooleanv	as a nonsimscript routine giving 1 GLenum    argument,
                                                yielding 1 GLboolean argument