Esope source files

   1 : C XTMXMP    SOURCE    CHAT      05/01/13    04:15:07     5004           
   2 :       SUBROUTINE XTMXMP(NQ,CC,ICPR,NUM,I2,NOELEM,IPOS,VAA,NNIN,N1)              
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION CC(*),ICPR(*),NUM(N1,*),NOELEM(*),IPOS(*),VAA(NNIN,*)           
   6 :       DO 34 IN=1,NQ                                                             
   7 :   34  CC(IN)=0.D0                                                               
   8 :       DO 33 IN=1,NQ                                                             
   9 :       J2=ICPR(NUM(NOELEM(IN),I2))                                               
  10 :       IF(J2.EQ.0) GO TO 33                                                      
  11 :       J1=IPOS(IN)                                                               
  12 :       CC(IN)=VAA(J1,J2)                                                         
  13 :    33 CONTINUE                                                                  
  14 : C                                                                               
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :