210 |
|
|
211 |
#ifdef ALLOW_STREAMICE |
#ifdef ALLOW_STREAMICE |
212 |
|
|
213 |
|
#ifdef STREAMICE_CONSTRUCT_MATRIX |
214 |
|
|
215 |
C the linear action of the matrix on (u,v) with triangular finite elements |
C the linear action of the matrix on (u,v) with triangular finite elements |
216 |
C as of now everything is passed in so no grid pointers or anything of the sort have to be dereferenced, |
C as of now everything is passed in so no grid pointers or anything of the sort have to be dereferenced, |
217 |
C but this may change pursuant to conversations with others |
C but this may change pursuant to conversations with others |
465 |
enddo |
enddo |
466 |
|
|
467 |
#endif |
#endif |
468 |
|
#endif |
469 |
RETURN |
RETURN |
470 |
END SUBROUTINE |
END SUBROUTINE |
471 |
|
|