PyGan/data/Exemple_jdd_proc/FloatList.c2m


1
2
3
4
5
6
7
8
9
10
11
12
13
14

*----
*  TEST PROCEDURE
*  Creating a LCM LINKED_LIST with 1 float
*----
PARAMETER  MY_LIST ::
  ::: LINKED_LIST MY_LIST ; ;
MODULE UTL: DELETE: END: ;

*--- Defining a list of 1 float ---*
MY_LIST := UTL: ::
  CREA 'Float_List' 1 = 3.141592654D0 ;

END: ;
QUIT "LIST" .