Changeset 1391 for trunk/LMDZ.COMMON/libf/filtrez
- Timestamp:
- Mar 6, 2015, 3:12:12 PM (10 years ago)
- Location:
- trunk/LMDZ.COMMON/libf/filtrez
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/filtrez/acc.F
r1 r1391 3 3 ! 4 4 subroutine acc(vec,d,im) 5 dimension vec(im,im),d(im) 5 implicit none 6 integer :: im 7 real :: vec(im,im),d(im) 8 integer :: i,j 9 real ::sum 10 real,external :: ssum 6 11 do j=1,im 7 12 do i=1,im -
trunk/LMDZ.COMMON/libf/filtrez/eigen.F
r1 r1391 3 3 ! 4 4 SUBROUTINE eigen( e,d) 5 IMPLICIT NONE 5 6 #include "dimensions.h" 6 dimension e( iim,iim ), d( iim ) 7 dimension asm( iim ) 7 real :: e( iim,iim ), d( iim ) 8 real :: asm( iim ) 9 integer :: im,i,j 8 10 im=iim 9 11 c
Note: See TracChangeset
for help on using the changeset viewer.