PAGE
         IDP         "SIP FONCTION"
<
<
<        F O N C T I O N   S P E C I F I Q U E  :
<
<
<        MODELE A RESPECTER :
<
<
<        LOCAL
<FLOC:   EQU         $
<< ICI, ON MET LE LOCAL...
<        PROG
<SPU:    EQU         $
<< ICI, ON MET LA DEFINITION DE LA COMPOSANTE 'U' DU VECTEUR...
<        RSR
<SPV:    EQU         $
<< ICI, ON MET LA DEFINITION DE LA COMPOSANTE 'V' DU VECTEUR...
<        RSR
<SPW:    EQU         $
<< ICI, ON MET LA DEFINITION DE LA COMPOSANTE 'W' DU VECTEUR...
<        RSR
<
<
         CALL        #SIOP MONTAGNE 4#