| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NP1 | |||
| real(kind=R8), | intent(inout) | :: | B(LENB) | |||
| integer, | intent(in) | :: | LENB | |||
| integer, | intent(in) | :: | ROWPOSP(NP1+1) | |||
| integer, | intent(in) | :: | COLPOSP(LENB) |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=R8), | public | :: | SIJ | ||||
| real(kind=R8), | public | :: | LIT | ||||
| real(kind=R8), | public | :: | LII | ||||
| integer, | public | :: | I | ||||
| integer, | public | :: | J | ||||
| integer, | public | :: | COUNT | ||||
| integer, | public | :: | ISTRT | ||||
| integer, | public | :: | IFIN | ||||
| integer, | public | :: | TMAX | ||||
| integer, | public | :: | K | ||||
| integer, | public | :: | T | ||||
| integer, | public | :: | M |
SUBROUTINE ILUFDS(NN, Q, LENQ, ROWPOS, COLPOS) USE REAL_PRECISION INTEGER, INTENT(IN):: LENQ, NN, COLPOS(LENQ), ROWPOS(NN+1) REAL (KIND=R8), INTENT(IN OUT):: Q(LENQ) END SUBROUTINE ILUFDS