Parent Directory | Revision Log | Patch
revision 152 by guez, Tue Jun 23 18:18:12 2015 UTC | revision 153 by guez, Tue Jun 23 18:26:18 2015 UTC | |
---|---|---|
# | Line 42 contains | Line 42 contains |
42 | unsddv = 1. / sddv | unsddv = 1. / sddv |
43 | ||
44 | b = 0. | b = 0. |
45 | b(iim, 1) = 1. / (sddu(iim) * sddv(1)) | b(iim, 1) = unsddu(iim) * unsddv(1) |
46 | forall (i = 1:iim) b(i, i) = - 1./ (sddu(i) * sddv(i)) | forall (i = 1:iim) b(i, i) = - unsddu(i) * unsddv(i) |
47 | forall (i = 1:iim - 1) b(i, i + 1) = 1. / (sddu(i) * sddv(i + 1)) | forall (i = 1:iim - 1) b(i, i + 1) = unsddu(i) * unsddv(i + 1) |
48 | ||
49 | c = - transpose(b) | c = - transpose(b) |
50 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |