Esope source files

   1 : C MATGHO    SOURCE    CHAT      05/01/13    01:34:02     5004           
   2 : CCC
   3 : C Matriz de Hook ampliada con 1 
   4 : CCC
   5 :       SUBROUTINE MATGENHOOK (AMAT,NDIMX,NDIMS)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       integer ndimx,ndims,ifl,i,j
   8 :       real*8    Amat(ndimx,ndimx),xnu,you
   9 :       common /elasdata/ you,xnu
  10 : c Inversa de la matriz de hook
  11 :       ifl=1
  11 :       call mathok(Amat,ndimx,ndims,ifl)
  12 : c Parte de las variables internas
  13 :       do i=ndims+1,ndimx
  14 :          do j=1,ndimx
  15 :             Amat(i,j)=0.D0
  16 :             Amat(j,i)=0.D0
  17 :          enddo
  18 :          Amat(i,i)=1.D0
  19 :       enddo
  20 :       return
  21 :       end
  22 :  
  23 :  
  24 :