**************************************************************************
***********  INTRINSIC GRASP  ********************************************
**************************************************************************
!
GRASP ARRAY Fi,Omega(LTR)
;
GRASP ARRAY FiZ(LTR)
;
GRASP ARRAY Delta_Fi(LTR) : Nécessite +CDE,OSUDL et OFM
;
**************************************************************************
***********  GRASP FROM EDGES  *******************************************
**************************************************************************
GRASP ARRAY Ct_SV(LSV,LTR)FOR(LCX)
;
GRASP ARRAY D_TV(LTV2,LTR)FOR(LCX2,LCL,LCX)
;
GRASP ARRAY FIZ_TV(LTV)
;
GRASP ARRAY OMEGA_TV(LTV)
;
GRASP ARRAY DFI_TV(LTV)
;
GRASP ARRAY FI_TV(LTV)
;
**************************************************************************
***********  OBSOLETE  ***************************************************
**************************************************************************
GRASP ARRAY FI,OMEGA USING(LTR)
;
GRASP ARRAY(LCX).Ct_SV USING(LSV,LTR)
;
GRASP ARRAY(LCX2,LCL,LCX).D_TV USING(LSV2,LTR)
;
GRASP ARRAY FI_TV USING(LTV)
!
GRASP ARRAY FIZ_TV USING(LTV)
!
COPY ARRAY FIZ IN FI(LTR)
!
COPY ARRAY FI IN FIZ(LTR)
!