Exemple de Lapack

minreal=0 ;

maxreal=1 ;

end

class RowInt

elem=int ;

shape=row ;

end ;

inline int @dim0(RowInt MAT) "MAT.dim" ;

...

class PMatComplex

elem=complex ;

shape=matrix ;

end ;

inline @declar(PMatComplex VAR)

=> PMatComplex VAR ;

;

inline @alloc(PMatComplex VAR,int DIM1,int DIM2)

=> alloc_PC(&VAR,DIM1,DIM2) ;

;

...

inline @op_matdiv(PMatReal RES, PMatReal PARAM1, PMatReal PARAM2)

=> div_PR_PRPR(&RES,&PARAM1,&PARAM2);

;

inline @op_matdiv(PMatComplex RES, PMatComplex PARAM1, PMatComplex PARAM2)

=> div_PC_PCPC(&RES,&PARAM1,&PARAM2);

;