- Timestamp:
- Aug 3, 2024, 2:56:58 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_fast_expm.F90
r4773 r5160 18 18 call fast_expm_exchange_3(1,1,a(1:1),b(1:1),c(1:1),d(1:1),r) 19 19 20 print*, r21 print*, 0.000000122 print*, epsilon(1.0_jprb)20 PRINT *, r 21 PRINT *, 0.0000001 22 PRINT *, epsilon(1.0_jprb) 23 23 24 24 end program test_fast_expm
Note: See TracChangeset
for help on using the changeset viewer.