Procedures | Cast3M

   1 : * POINTSPH  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : 'DEBPROC' POINTSPH LONG*'FLOTTANT' TETA*'FLOTTANT' PHI*'FLOTTANT' ;             
   3 : *                                                                               
   4 : *     DEFINITION D'UN POINT PAR SES COORDONNEES SPHERIQUES                      
   5 : *                                                                               
   6 : COS_PHI = LONG * ('COS' PHI) ;                                                  
   7 : X = COS_PHI * ('COS' TETA) ;                                                    
   8 : Y = COS_PHI * ('SIN' TETA) ;                                                    
   9 : Z = LONG * ('SIN' PHI) ;                                                        
  10 : PT = X Y Z ;                                                                    
  11 : *                                                                               
  12 : 'FINPROC' PT ;