Esope source files

   1 : C PRVECT    SOURCE    CHAT      05/01/13    02:36:38     5004           
   2 :       SUBROUTINE PRVECT(IRET,jentet)                                                   
   3 : C                                                                               
   4 : C IMPRESSION D'UN OBJET VECT DOUB                                               
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   8 : -INC CCOPTIO                                                                    
   9 : -INC SMVECTD                                                                    
  10 :       MVECTD=IRET                                                               
  11 :       SEGACT MVECTD                                                             
  12 :       INC=VECTBB(/1)                                                            
  13 :       INTERR(1)=MVECTD                                                          
  14 :       INTERR(2)= INC                                                            
  14 :       CALL ERREUR(-108)                                                         
  15 :       if(jentet.eq.1) inc = 10                                                                           
  16 :       DO 2 I=1,INC                                                              
  17 :       WRITE(IOIMP,6003) I,VECTBB(I)                                             
  18 :     2 CONTINUE                                                                  
  19 :       SEGDES MVECTD                                                       
  20 :  6003 FORMAT(9X,I4,7X,1PE12.5)                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :  
  24 :