Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90
- Timestamp:
- Jul 24, 2024, 1:17:08 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90
r5107 r5113 423 423 424 424 SUBROUTINE JACOBI(A, N, NP, D, V, NROT) 425 implicit none425 IMPLICIT NONE 426 426 ! Arguments: 427 427 integer, intent(in) :: N … … 557 557 558 558 SUBROUTINE acc(vec, d, im) 559 implicit none559 IMPLICIT NONE 560 560 integer :: im 561 561 real :: vec(im, im), d(im)
Note: See TracChangeset
for help on using the changeset viewer.