wikipaom2017:051.020.000
Differenze
Queste sono le differenze tra la revisione selezionata e la versione attuale della pagina.
Entrambe le parti precedenti la revisioneRevisione precedente | |||
wikipaom2017:051.020.000 [2017/03/31 08:34] – ebertocchi | wikipaom2017:051.020.000 [2017/03/31 11:43] (versione attuale) – ebertocchi | ||
---|---|---|---|
Linea 1: | Linea 1: | ||
+ | < | ||
+ | c=============================== calcolo matrice Jacobiana trasposta === | ||
+ | subroutine defJt(xieta, | ||
+ | implicit none | ||
+ | |||
+ | include ' | ||
+ | |||
+ | double precision xieta(ncrd), | ||
+ | | ||
+ | integer inode, | ||
+ | |||
+ | c | ||
+ | call dzero(Jt, | ||
+ | |||
+ | c | ||
+ | do inode=1, | ||
+ | call defdN(xieta, | ||
+ | c scorro sulle righe della matrice jacobiana, ossia sull' | ||
+ | c di coordinata fisica 1:' | ||
+ | do icrd=1, | ||
+ | c | ||
+ | c di coordinata naturale 1:' | ||
+ | do jcrd=1, | ||
+ | | ||
+ | enddo | ||
+ | | ||
+ | enddo | ||
+ | |||
+ | c | ||
+ | |||
+ | return | ||
+ | end subroutine | ||
+ | </ |